Mrc2

em cũng là 1 công dân VN đây !!!.. em chỉ mới pit về autoit mới đây thôy. em có 1 vấn đề nhờ các anh(chị) giúp đỡ. em có đề tÀI như thế này. tính cước taxi và đây là thông báo về giá taxi của e: Công ty CP Ánh Dương Việt Nam (VINASUN) thông báo giá cước taxi mới như sau: 1,1 Km đầu: 12.000 đồng/1,1Km; từ Km tiếp theo đến Km 30: 11.000 đồng/Km; từ Km thứ 31 trở đi: 8.000 đồng/Km; Giá cước thời gian chờ: sau 05 phút đầu không tính tiền, cứ 03 phút tiếp theo là 1.200 đồng/03phút./. còn đây là do e tự làm nhưng nó sai lung tung sửa hoài ko đc. nhờ anh, chị và các bạn giúp đỡ: #region ; Code generated by EzSkin_1-2-3, Created by Valuater ; For personal use only, All Rights Reserved ; Author of this code: Valuater ; Thank you big_daddy and Joscpe #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include "Date.au3" #include <GUIConstants.au3> #include <EzSkin.au3> #NoTrayIcon $EzGUI = EzSkinGUICreate("::. TAXI COST .::",590,350) $EzIcon = EzSkinIcon($EzGUI) $Label1 = GUICtrlCreateLabel("::. TÍNH CUỚC TAXI .::", 88, 38, 448, 54) GUICtrlSetFont(-1, 30, 800, 0, "Arial") GUICtrlSetColor(-1, 0xFF00FF) $Input1 = GUICtrlCreateInput("", 144, 142, 369, 24,$SS_CENTER) GUICtrlSetFont(-1, 14, 800, 0, "Arial") GUICtrlSetColor(-1, 0xFF0000) $Input2 = GUICtrlCreateInput("", 144, 181, 369, 24,BitOR($ES_AUTOHSCROLL,$ES_READONLY)+$SS_CENTER) GUICtrlSetFont(-1, 14, 800, 0, "Arial") GUICtrlSetColor(-1, 0xFF0000) $Label2 = GUICtrlCreateLabel("Nhập Số KM:", 16, 142, 125, 26) GUICtrlSetFont(-1, 14, 800, 0, "Arial") GUICtrlSetColor(-1, 0x0000FF) $Label3 = GUICtrlCreateLabel("Thành Tiền:", 15, 180, 117, 26) GUICtrlSetFont(-1, 14, 800, 0, "Arial") GUICtrlSetColor(-1, 0x0000FF) $Label4 = GUICtrlCreateLabel("KM", 526, 145, 35, 26) GUICtrlSetFont(-1, 14, 800, 0, "Arial") GUICtrlSetColor(-1, 0x0000FF) $Label5 = GUICtrlCreateLabel("VND", 528, 182, 44, 26) GUICtrlSetFont(-1, 14, 800, 0, "Arial") GUICtrlSetColor(-1, 0x0000FF) $Label6 = GUICtrlCreateLabel("Nhập số phút chờ", 16, 103, 125, 26) GUICtrlSetFont(-1, 14, 800, 0, "Arial") GUICtrlSetColor(-1, 0x0000FF) $Input3 = GUICtrlCreateInput("", 144, 103, 369, 24,$SS_CENTER) GUICtrlSetFont(-1, 14, 800, 0, "Arial") GUICtrlSetColor(-1, 0xFF0000) $Label4 = GUICtrlCreateLabel("phút", 526, 103, 40, 26) GUICtrlSetFont(-1, 14, 800, 0, "Arial") GUICtrlSetColor(-1, 0x0000FF) $Button1 = EzSkinButton("TÍNH THÀNH TIỀN", 144, 222, 369, 33) ;, $font_color) GUICtrlSetFont(-1, 10, 800, 0, "Arial") GUICtrlSetColor(-1, 0xFF0000) $Button2 = EzSkinButton("XUẤT HÓA ĐƠN", 144, 280, 369, 33) ;, $font_color) GUICtrlSetFont(-1, 10, 800, 0, "Arial") GUICtrlSetColor(-1, 0xFF0000) GUISetState() ToolTip("Chương trình tính cước taxi của Công Ty VINASUN !",@DesktopWidth/2,5,"",0,2) HotKeySet("{ENTER}", "tinh") While 1 EzSkinOver() $msg = GUIGetMsg() Switch $msg Case $EzIcon[1] Exit case $EzIcon[2] GuiSetstate(@SW_MINIMIZE, $EzGUI) case $Button1 tinh() case $Button2 xuat() EndSwitch WEnd #endregion Func tinh() If ((GUICtrlRead($Input3) or GUICtrlRead($Input1)) < 0) Then MsgBox(16,"Thông Báo","Bạn đã nhập sai dữ liệu ! Vui lòng thử lại !",3) Return Else if (GUICtrlRead($Input3) > 5 or GUICtrlRead($Input3) = 5) Then $1 = 0 else GUICtrlRead($Input3) > 5 then $2 = (GUICtrlRead($Input3) -5)* 400 EndIf Return Else if (GUICtrlRead($Input1) < 1.1 or GUICtrlRead($Input1) = 1.1) Then $e = 12000 + $1 + $2 GUICtrlSetData($Input2,$e ) Elseif (GUICtrlRead($Input1) < 30 or GUICtrlRead($Input1) = 30 and GUICtrlRead($Input1) <> 1.1) Then $b = (GUICtrlRead($Input1) - 1.1) * 11000 $a = $b + 12000 + $1 + $2 GUICtrlSetData($Input2,$a) Else $a = 28.9 * 11000 $b = GUICtrlRead($Input1) - 30 $c = $b * 8000 $d = $a + $c + 12000 + $1 + $2 GUICtrlSetData($Input2,$d) EndIf GUICtrlSetState($Button2,$GUI_ENABLE) EndIf ToolTip(@CRLF &"Số phút chờ: "&GUICtrlRead($Input3) & @CRLF & @CRLF &"Số KM: "&GUICtrlRead($Input1) & @CRLF & @CRLF &"Số tiền đã tính là: "&GUICtrlRead($Input2)& @CRLF & @CRLF &"Tự đóng thông báo: 5s",@DesktopWidth/2,70,".:: Thông Báo ::.",1,2) Sleep(1000) ToolTip(@CRLF &"Số phút chờ: "&GUICtrlRead($Input3) & @CRLF & @CRLF &"Số KM: "&GUICtrlRead($Input1) & @CRLF & @CRLF &"Số tiền đã tính là: "&GUICtrlRead($Input2)& @CRLF & @CRLF &"Tự đóng thông báo: 4s",@DesktopWidth/2,70,".:: Thông Báo ::.",1,2) Sleep(1000) ToolTip(@CRLF &"Số phút chờ: "&GUICtrlRead($Input3) & @CRLF & @CRLF &"Số KM: "&GUICtrlRead($Input1) & @CRLF & @CRLF &"Số tiền đã tính là: "&GUICtrlRead($Input2)& @CRLF & @CRLF &"Tự đóng thông báo: 3s",@DesktopWidth/2,70,".:: Thông Báo ::.",1,2) Sleep(1000) ToolTip(@CRLF &"Số phút chờ: "&GUICtrlRead($Input3) & @CRLF & @CRLF &"Số KM: "&GUICtrlRead($Input1) & @CRLF & @CRLF &"Số tiền đã tính là: "&GUICtrlRead($Input2)& @CRLF & @CRLF &"Tự đóng thông báo: 2s",@DesktopWidth/2,70,".:: Thông Báo ::.",1,2) Sleep(1000) ToolTip(@CRLF &"Số phút chờ: "&GUICtrlRead($Input3) & @CRLF & @CRLF &"Số KM: "&GUICtrlRead($Input1) & @CRLF & @CRLF &"Số tiền đã tính là: "&GUICtrlRead($Input2)& @CRLF & @CRLF &"Tự đóng thông báo: 1s",@DesktopWidth/2,70,".:: Thông Báo ::.",1,2) Sleep(1000) ToolTip("Chương trình tính cước taxi của Công Ty MAI LINH !",@DesktopWidth/2,5,"",0,2) EndFunc Func xuat() if($Input3 = '') Then MsgBox(16,"Thông Báo","Bạn chưa nhập dữ liệu ! Hãy nhập dữ liệu vào rồi thử lại !",3) elseif ($Input1 = '') Then MsgBox(16,"Thông Báo","Bạn chưa nhập dữ liệu ! Hãy nhập dữ liệu vào rồi thử lại !",3) EndIf IniWrite("Thanh Tien.txt", GUICtrlRead($Input2), 'phút', GUICtrlRead($Input3)) IniWrite("Thanh Tien.txt", GUICtrlRead($Input2), 'KM ', GUICtrlRead($Input1)) IniWrite("Thanh Tien.txt", GUICtrlRead($Input2), 'TIEN ', GUICtrlRead($Input2)) IniWrite("Thanh Tien.txt", GUICtrlRead($Input2), 'NGAY GIO LAP ', _NowCalc()) MsgBox(64,"Thông Báo","Đã xuất file thành công !",3) GUICtrlSetData($Input1,'') GUICtrlSetData($Input2,'') GUICtrlSetData($Input3,'') EndFunc .............................................. nếu xong gửi mail ve dùm e. boy.teeny@yahoo.com.vn chân thành cảm ơn.