Tải AutoIT

Thứ Bảy, 4 tháng 12, 2010

Thiết kế GUI với AutoIT

#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

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=-1
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)
Với Do ... Until
$n=0
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)
Với For ... To ... Next
$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