visual foxpro

помогите pojalusto.ya ne tak xorosho znayu visual fox pro no mne nujno sdelat test s pomoshyu VFP.u menya est vopros i vozmojnost vibirat odin iz tri variantov,i u menya есть кнопка next, мне nujno ответив на все вопросы получить msgbox где сказанно ваш результат .а результат получается так:каждый ответ имеет sвой бал.так воt я не могу написать kod.
да и у меня под кнопкой next такой код есть.помогите это очень srochno
sele table1
IF !EOF()
SKIP
thisform.optiongroup2.option1.caption=pa tasxan1
thisform.optiongroup2.option2.caption=pa tasxan2
thisform.optiongroup2.option3.caption=pa tasxan3
thisform.optiongroup2.option1.value=bal_ 1
thisform.optiongroup2.option2.value=bal_ 2
thisform.optiongroup2.option3.value=bal_ 3
IF EOF()
GO TOP
ENDIF
ENDIF
ThisForm.Refresh()

Добавлено через 13 минут
кто нибудь помогите

0

Обычные люди на выходных отдыхают. С очень срочными задачами обычно идут в раздел заказов и делают там работу за деньги. И не нужно писать 100500 сообщений в чужих темах, быстрее Вам не ответят.
Теперь по сути. Что значит "не могу написать код"? Где вопрос? Что непонятно? За Вас работу делать никто не будет, если есть вопрос, его нужно четко сформулировать и задать, тогда, возможно, получите на него ответ.
В данном случае баллы не нужно присваивать свойству .Value элемента Option. Это свойство предназначено для индикации выбора, т.е. если из 3 элементов выбран первый, то Option1.Value будет равно 1, а у остальных элементов будет равно 0. На форме это будет отражаться в виде затемненной фишки выбора. Таким образом, после выбора необходимо сначала выяснить, какой из элементов выбран пользователем, затем уже выяснять, сколько баллов за него начислять. Например, так:

1

очень спасибо .извиняюсь . да теперь работает но работает для каjдого вапроса отдельно , то есть я отвечаю на вапрос получаю ответ и следущий вопрос приходит, а как делать что бы конце всех voprosov вышла сообщениие и вес результат , я понимаю нужно какой то
public s
s=0
???????

0

Так в чем проблема? Накапливайте в переменной баллы суммарно. В моем случае это выглядело бы как
только в самом начале этой переменной нужно присвоить 0 во избежание ошибки о несовпадении типов.

1

теперь у меня код такой
sele table1
IF !EOF()
LOCAL lnPoint
WITH ThisForm.Optiongroup2
DO CASE
CASE .Option1.Value = 1
lnPoint = Bal_1

CASE .Option2.Value = 1
lnPoint = Bal_2

CASE .Option3.Value = 1
lnPoint = Bal_3
ENDCASE
ENDWITH
MESSAGEBOX("Áàëëîâ: " + TRANSFORM(lnPoint), 64, "Ñîîáùåíèå")
SKIP
thisform.optiongroup2.option1.caption=ot vet1
thisform.optiongroup2.option2.caption=ot vet2
thisform.optiongroup2.option3.caption=ot vet3
thisform.optiongroup2.option1.value=bal_ 1
thisform.optiongroup2.option2.value=bal_ 2
thisform.optiongroup2.option3.value=bal_ 3
IF EOF()
GO TOP
ENDIF
ENDIF
ThisForm.Refresh()

а где написать
inpoint=0
inpoint=inpoint +_bal_1

0

У меня создалось стойкое впечатление, что Вы не хотите разбираться в коде, не хотите ничему учиться и пишете программу наугад, не понимая, что делаете и зачем.
Как можно подсчитать баллы еще до того, как пользователь выбрал один из вариантов и подтвердил свой выбор? Вы тупо скопировали мой код, даже не позаботившись исправить в своем бред с присвоением свойству Value баллов.
Мне не интересно тратить свое время на человека, который не хочет разбираться и учиться. Я могу только помочь и направить, но работу за Вас я делать не буду.

0

У меня создалось стойкое впечатление, что Вы не хотите разбираться в коде

Так и есть, не парьтесь, я уже помог ей, вроде работает всё теперь

1