Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / код для кнопки / 3 сообщений из 3, страница 1 из 1
12.06.2008, 17:35
    #35371546
код для кнопки
Здраствуйте

В фоксе:
есть форма на ней обычные строчки text1.text2... также вынесена кнопка button Нужно чтобы после заполнения строк нажав на кнопку должен выдаваться ответ мол да/нет

Вопрос такой: Как правильно написать в фоксе код для кнопки, в виде

Var
a,b,c,d:integer;
begin
if a>=(b+c+d) then
writeln ('да')
else
writeln ('нет');
readln
end.

Приблизительно так было бы в delphi - скорее всего написал неправильно, но в основных чертах думаю понятно что нужно... а в фоксе не знаю даже приблизительно как это должно выглядеть.. может кто подскажет.

Только начал заниматься изучением фокса, delphi по этому в голове ветер гуляет. вобщем надеюсь на вас и жду помощи.
...
Рейтинг: 0 / 0
12.06.2008, 19:23
    #35371659
Fox Новичек
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
код для кнопки
Александр23Здраствуйте

В фоксе:
есть форма на ней обычные строчки text1.text2... также вынесена кнопка button Нужно чтобы после заполнения строк нажав на кнопку должен выдаваться ответ мол да/нет



В обработчике события Init формы прописываешь следующие строчки, если хочешь сравнивать числа

Код: plaintext
1.
2.
ThisForm.text1.Value =  0 . 00 
ThisForm.text2.Value =  0 . 00 

или следующие, если хочешь сравнивать строки

Код: plaintext
1.
2.
3.
ThisForm.text1.Value = ""
ThisForm.text2.Value = ""


В обработчике события Click кнопки пишешь такой код
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
LOCAL lnText1, lnText2


lnText1 = ThisForm.text1.Value
lnText2 = ThisForm.text2.Value

		
DO CASE
	CASE lnText1 > lnText2
		= MESSAGEBOX ("Значение в text1 больше чем в text2")

	CASE lnText1 = lnText2	
		= MESSAGEBOX ("Значение в text1 равно в text2")

	CASE lnText1 < lnText2
		= MESSAGEBOX ("Значение в text1 меньше чем в text2")
ENDCASE 


Александр23

Вопрос такой: Как правильно написать в фоксе код для кнопки, в виде

Var
a,b,c,d:integer;
begin
if a>=(b+c+d) then
writeln ('да')
else
writeln ('нет');
readln
end.



Код: plaintext
1.
2.
3.
4.
5.
6.
7.
LOCAL a As Integer,  b As Integer,  c As Integer,  d As Integer  

IF a >= (b+c+d)
		WAIT "Да" WINDOWS
	ELSE
		WAIT "Нет" WINDOWS 
ENDIF
...
Рейтинг: 0 / 0
12.06.2008, 19:46
    #35371674
Алексадр23
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
код для кнопки
Fox Новичек
Огромнейшее тебе спасибо, очень помог. сейчас же все опробую на практике..
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / код для кнопки / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]