Action
Executed if the IF-THEN expression is false.
Syntax
ELSE
Remarks
You don't have to use the ELSE statement in an IF THEN .. END IF structure.
You can use the ELSEIF statement to test for another condition.
IF a = 1 THEN
...
ELSEIF a = 2 THEN
..
ELSEIF b1 > a THEN
...
ELSE
...
END IF
See also
IF , END IF , SELECT-CASE
Example
'-----------------------------------------------------------------------------------------
'name : if_then.bas
'copyright : (c) 1995-2021, MCS Electronics
'purpose : demo: IF, THEN, ELSE
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------
$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
Dim A As Byte , B1 As Byte
Input "Number " , A 'ask for number
If A = 1 Then 'test number
Print "You got it!"
End If
If A = 0 Then 'test again
Print "Wrong" 'thats wrong
Else 'print this if a is not 0
Print "Almost?"
End If
Rem You Can Nest If Then Statements Like This
B1 = 0
If A = 1 Then
If B1 = 0 Then
Print "B1=0"
End If
Else
Print "A is not 0"
End If
Input "Number " , A
If A = 1 Then '
Print "Ok"
Elseif A = 2 Then 'use elseif for more tests
Print "2" : A = 3
Elseif A = 3 Then
Print "3"
End If
If A.1 = 1 Then Print "Bit 1 set" 'test for a bit
End