-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathif.au3
More file actions
41 lines (35 loc) · 953 Bytes
/
if.au3
File metadata and controls
41 lines (35 loc) · 953 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
$n = 101
If Mod($n, 2)=0 Then
MsgBox(0, "Ket qua ", $n & " la so chan")
Else
MsgBox(0, "Ket qua ", $n & " la so le")
EndIf
$m = 1010
If Mod($m, 2)=0 Then
If 100<=$m And $m<=999 Then
MsgBox(0, "Ket qua ", $m & " la so chan co 3 chu so")
Else
MsgBox(0, "Ket qua ", $m & " la so chan khong phai 3 chu so")
EndIf
Else
If 100<=$m And $m<=999 Then
MsgBox(0, "Ket qua ", $m & " la so le co 3 chu so")
Else
MsgBox(0, "Ket qua ", $m & " la so le khong phai 3 chu so")
EndIf
EndIf
Dim $var = '-5'
If $var > 0 Then
MsgBox(4096,"Alert", "Value is positive")
ElseIf $var < 0 Then
MsgBox(4096,"Alert", " Value is negative")
Else
If StringIsXDigit ($var) Then
MsgBox(4096,"Alert", "Value might be hexadecimal!")
Else
MsgBox(4096,"Alert", "Value is either a string or is zero")
EndIf
EndIf
Dim $a=0, $b=2, $c=0
If ($a>0 And $b>0) Or $c=0 Then MsgBox(0,"msg", "Thong diep 1")
If $a>0 And ($b>0 Or $c=0) Then MsgBox(0,"msg", "Thong diep 2")