#include <GUIConstantsEx.au3>
GUICreate("Tiêu đề",200,100);200,100 lần lượt là chiều rộng, chiều cao
GUICtrlCreateLabel("Nội dung",30,10) ; 30,10 lần lượt là khoảng cách của Nội dung so với cạnh bên trái, bên trên
GUICtrlCreateButton("Nút bấm",70,50,60); 70,50 lần lượt là khoảng cách của Nút bấm so với cạnh bên trái, bên trên. Còn 60 là chiều dài nút bấm
GUISetState(@SW_SHOW)
Sleep(1000) ;Hàm Sleep đùng để tạm dừng. 1000 = 1s
AutoIT Việt Nam
Dành cho người mới bắt đầu học AutoIT
Thứ Bảy, 4 tháng 12, 2010
Thứ Tư, 17 tháng 11, 2010
[code] Tìm giá trị nhỏ nhất và vị trí của nó trong dãy
Do
$n=InputBox("Nhập số phần tử","n =")
Until $n<=100
Dim $M[100]
For $i=1 To $n
$M[$i]=InputBox("Nhập","M"&$i&" =")
Next
$i=1
$Min=$M[$i]
$vt=$i
Do
$i+=1
If $Min>$M[$i] Then
$Min=$M[$i]
$vt=$i
EndIf
Until $i=$n
MsgBox(0,"Giá trị nhỏ nhất là ",$Min)
MsgBox(0,"Vị trí số",$i)
Chủ Nhật, 14 tháng 11, 2010
[code] Tìm vị trí 1 số trong 1 dãy đã cho
Do
$n=InputBox("Nhập số phần tử","n=")
Until $n>0 And $n<1001
Dim $a[1000], $j=0
For $i=1 To $n
$a[$i]=InputBox("Thông báo","a"&$i&"=")
Next
$m=InputBox("Nhập số cần tìm","m=")
For $i=1 To $n
If $a[$i]==$m Then
MsgBox(64,"","Số cần tìm có vị trí số "&$i)
$j=1
EndIf
Next
If $j=0 Then
MsgBox(0,"Thông báo","Không có số "&$m&" trong dãy.")
EndIf
Thứ Ba, 9 tháng 11, 2010
[code] Hiển thị thông báo
SplashTextOn("AutoIT Việt Nam", "Chúc bạn có một ngày vui vẻ với AutoItVn.blogspot.com", 400, 200, -1, -1, 1+16+4, "Tahoma", 20)
Sleep(1000)
Thứ Năm, 4 tháng 11, 2010
[code] Tính giai thừa
Với While ... WEnd
$n=-1Với Do ... Until
While $n<0
$n=InputBox("Nhập số cần tính giai thừa","n=")
If $n>20 Then
MsgBox(64,"Lỗi","Bạn nhập số lớn hơn 20 thì sẽ ra kết quả sai hoặc không ra"&'!')
EndIf
WEnd
$i=1
$j=1
While $i<>$n+1
$j=$i*$j
$i+=1
WEnd
MsgBox(0,"Kết quả",$n&'!='&$j)
$n=0Với For ... To ... Next
Do
$n=InputBox("Nhập số cần tính giai thừa","n=")
If $n>20 Then
MsgBox(64,"Lỗi","Bạn nhập số lớn hơn 20 thì sẽ ra kết quả sai hoặc không ra"&'!')
EndIf
Until $n>=0
If $n=0 Then
MsgBox(0,"Kết quả",$n&'!='&"1")
Exit
EndIf
$i=0
$j=1
Do
$i+=1
$j=$i*$j
Until $i=$n
MsgBox(0,"Kết quả",$n&'!='&$j)
$n=InputBox("Nhập số cần tính giai thừa","n=")
If $n>20 Or $n<0 Then
MsgBox(64,"Lỗi","Bạn nhập số âm hoặc lớn hơn 20 thì sẽ ra kết quả sai hoặc không ra"&'!')
EndIf
If $n=0 Then
MsgBox(0,"Kết quả",$n&'!='&"1")
Exit
EndIf
$i=0
$j=1
For $i==1 To $n
$i+=1
$j=$i*$j
Next
MsgBox(0,"Kết quả",$n&'!='&$j)
Thứ Tư, 3 tháng 11, 2010
[code] Tìm BCNN của 2 số nguyên dương
$a=0
$b=0
While $a<=0
$a=InputBox("Nhập","a=")
WEnd
While $b<=0
$b=InputBox("Nhập","b=")
WEnd
$c=$a*$b
While $c<>0
If Mod($c,$a)==0 And Mod($c,$b)=0 Then
$d=$c
EndIf
$c-=1
WEnd
MsgBox(0,"Thông báo","BCNN="&$d)
[code] Kiểm tra là số nguyên tố không?
$n=0
While $n<=1
$n=InputBox("Nhập","n=")
WEnd
$m=2
$ds=0
While $n>$m And $ds=0
If Mod($n,$m) =0 Then
$ds=1
EndIf
$m+=1
WEnd
If $ds=1 Then
MsgBox(0,$n,"là hợp số")
EndIf
If $ds=0 Then
MsgBox(0,$n,"là số nguyên tố")
EndIf
Đăng ký:
Bài đăng (Atom)