Integer comparison: Difference between revisions
Content added Content deleted
| Line 1,695: | Line 1,695: | ||
<lang futurebasic>_window = 1 |
<lang futurebasic>_window = 1 |
||
begin enum 1 |
begin enum 1 |
||
_integer1Fld |
_integer1Fld |
||
_integer2Fld |
_integer2Fld |
||
_compareBtn |
_compareBtn |
||
_messageLabel |
_messageLabel |
||
end enum |
end enum |
||
local fn BuildWindow |
local fn BuildWindow |
||
window _window, @"Integer Comparison", (0,0,356,85) |
window _window, @"Integer Comparison", (0,0,356,85) |
||
textfield _integer1Fld,,, (20,44,112,21) |
textfield _integer1Fld,,, (20,44,112,21) |
||
TextFieldSetPlaceholderString( _integer1Fld, @"Integer 1" ) |
TextFieldSetPlaceholderString( _integer1Fld, @"Integer 1" ) |
||
textfield _integer2Fld,,, (140,44,112,21) |
textfield _integer2Fld,,, (140,44,112,21) |
||
TextFieldSetPlaceholderString( _integer2Fld, @"Integer 2" ) |
TextFieldSetPlaceholderString( _integer2Fld, @"Integer 2" ) |
||
button _compareBtn,,, @"Compare", (253,38,90,32) |
button _compareBtn,,, @"Compare", (253,38,90,32) |
||
textlabel _messageLabel,, (18,20,320,16) |
textlabel _messageLabel,, (18,20,320,16) |
||
ControlSetAlignment( _messageLabel, NSTextAlignmentCenter ) |
ControlSetAlignment( _messageLabel, NSTextAlignmentCenter ) |
||
end fn |
end fn |
||
local fn DoDialog( ev as long, tag as long ) |
local fn DoDialog( ev as long, tag as long ) |
||
long int1, int2 |
long int1, int2 |
||
select ( ev ) |
select ( ev ) |
||
case _btnClick |
case _btnClick |
||
select ( tag ) |
select ( tag ) |
||
case _compareBtn |
case _compareBtn |
||
int1 = fn ControlIntegerValue( _integer1Fld ) |
int1 = fn ControlIntegerValue( _integer1Fld ) |
||
int2 = fn ControlIntegerValue( _integer2Fld ) |
int2 = fn ControlIntegerValue( _integer2Fld ) |
||
if ( int1 < int2 ) then textlabel _messageLabel, @"The first integer is less than the second integer." |
if ( int1 < int2 ) then textlabel _messageLabel, @"The first integer is less than the second integer." |
||
if ( int1 == int2 ) then textlabel _messageLabel, @"The first integer is equal to the second integer." |
if ( int1 == int2 ) then textlabel _messageLabel, @"The first integer is equal to the second integer." |
||
if ( int1 > int2 ) then textlabel _messageLabel, @"The first integer is greater than the second integer." |
if ( int1 > int2 ) then textlabel _messageLabel, @"The first integer is greater than the second integer." |
||
end select |
end select |
||
case _controlTextDidChange |
case _controlTextDidChange |
||
textlabel _messageLabel, @"" |
textlabel _messageLabel, @"" |
||
end select |
end select |
||
end fn |
end fn |
||