1. Tải bản cài đặt AutoIT mới nhất

    Chào Khách. Nếu bạn mới tham gia và chưa cài đặt AutoIT.
    Vui lòng vào topic trên để tải bản AutoIT mới nhất nhé
    Dismiss Notice
  2. Quy định và nội quy

    Chào Khách. Vui lòng đọc kỹ nội quy và quy định của diễn đàn
    Để tránh bị ban một cách đáng tiếc nhé!
    Dismiss Notice
  3. Hướng dẫn chèn mã AutoIT trong diễn đàn

    Chào Khách. Vui lòng xem qua bài viết này
    Để biết cách chèn mã AutoIT trong diễn đàn bạn nhé :)
    Dismiss Notice

Hỏi đáp [Solved] Về multiple GUI

Thảo luận trong 'Thảo luận chung - Hỏi đáp' bắt đầu bởi Gekko HandSome, 5/7/16.

Trạng thái chủ đề:
Không mở trả lời sau này.
  1. Gekko HandSome

    Gekko HandSome Thành viên mới
    • 3/6

    Tham gia ngày:
    9/11/15
    Bài viết:
    8
    Đã được thích:
    11
    Các bạn cho mình hỏi về Multiple GUI hiện mình có 3 gui sau khi nhấn vào login thì nó ẩn gui 1 hiện gui 2
    bấm vào button trong gui 2 thì hiện gui 3 (2 gui chạy song song) làm sao để tắt gui 3 mà gui 2 không bị tắt :( ai giúp mình với mình cảm ơn
    mình newb nhìn code đừng cười mình hehee
    Mã (AutoIt):

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ListViewConstants.au3>
    #include <StaticConstants.au3>
    #include <TabConstants.au3>
    #include <EditConstants.au3>
    #include <WindowsConstants.au3>
    #include <ComboConstants.au3>
    guiadmin()

    Func guiadmin()
        #Region ### START Koda GUI section ### Form=
        $Form1 = GUICreate("Login", 458, 180, 372, 224)
        $Label1 = GUICtrlCreateLabel("Tài khoản", 152, 40, 61, 23)
        GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman")
        $Label2 = GUICtrlCreateLabel("Mật khẩu", 152, 80, 63, 23)
        GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman")
        $Label3 = GUICtrlCreateLabel("Quản lý phòng tập", 168, 8, 154, 26, $SS_CENTER)
        GUICtrlSetFont(-1, 14, 800, 0, "Times New Roman")
        Global $usernamegui = GUICtrlCreateInput("", 232, 40, 177, 21)
        GUICtrlSetColor(-1, 0x000000)
        Global $passwordgui = GUICtrlCreateInput("", 232, 80, 177, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
        GUICtrlSetColor(-1, 0x000000)
        $Pic1 = GUICtrlCreatePic("C:\Users\gekko\Documents\code\autoit\lock.jpg", 24, 32, 100, 100)
        Local $Blogin = GUICtrlCreateButton("Login", 264, 112, 97, 33)
        GUICtrlSetColor(-1, 0x000000)
        GUISetState(@SW_SHOW)
        #EndRegion ### END Koda GUI section ###

        While 1
            $nMsg = GUIGetMsg()
            Switch $nMsg
                Case $GUI_EVENT_CLOSE
                    Exit
                case $Blogin
                    checklogin()
            EndSwitch
        WEnd

    EndFunc
    func checklogin()
        $username = GUICtrlRead($usernamegui)
        $password = GUICtrlRead($passwordgui)
        If $username == '' OR $password == '' then
            MsgBox(0,"","Vui lòng nhập đầy đủ thông tin")
        Elseif $username == "admin" AND $password == "admin2" Then
            GUISetState(@SW_HIDE)
            gui1()
        Else
            MsgBox(0,'','false')

        EndIf
    EndFunc

    func gui1()
        $GuiMain = GUICreate("Quản lý phòng tập", 846, 473, 302, 161)
        $Tab1 = GUICtrlCreateTab(10, 0, 825, 433)
        $TabSheet1 = GUICtrlCreateTabItem("Quản lý ngày")
        GUICtrlSetState(-1,$GUI_SHOW)
        $tinhtien = GUICtrlCreateButton("Tính tiền", 720, 384, 107, 41)
        $ListView1 = GUICtrlCreateListView("Ngày/Tháng/Năm|Số lượng khách|Tiền thu được", 16, 32, 809, 345)
        GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 150)
        GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 250)
        GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 350)
        $TabSheet2 = GUICtrlCreateTabItem("Quản lý tháng")

        $ListView2 = GUICtrlCreateListView("Stt|Họ và tên|Ngày đăng kí|Ngày hết hạn", 16, 32, 809, 337)
        GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50)
        GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150)
        GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 250)
        GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 350)
        $Button1 = GUICtrlCreateButton("Thêm thành viên", 696, 376, 121, 41)
        $Button2 = GUICtrlCreateButton("Xóa thành viên", 568, 376, 121, 41)
        GUICtrlCreateTabItem("")
        $Label1 = GUICtrlCreateLabel("Phần mềm được phát triền bởi", 624, 440, 205, 17)
        GUISetState(@SW_SHOW)
        #EndRegion ### END Koda GUI section ###

        While 1
            $nMsg = GUIGetMsg()
            Switch $nMsg
                Case $GUI_EVENT_CLOSE
                    Exit
                case $tinhtien
                    tinhtien1nguoi()
            EndSwitch
        WEnd
    EndFunc
    func tinhtien1nguoi()
        $Form3 = GUICreate("Tính tiền", 304, 272, 512, 221)
        Global $khong = GUICtrlCreateCombo("Combo", 128, 56, 145, 25)
        GUICtrlSetData(-1, "Trà đá|Nước chanh|Sữa|Sữa + đá|Trà đường")
        $Label1 = GUICtrlCreateLabel("Số lượng", 16, 16, 57, 23)
        GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman")
        Global $gSoLuongKhach = GUICtrlCreateInput("1", 128, 16, 145, 21)
        $Label2 = GUICtrlCreateLabel("Nước uống", 16, 56, 71, 23)
        GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman")
        $Label3 = GUICtrlCreateLabel("Tiền khách đưa", 16, 96, 96, 23)
        GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman")
        Global $gTienKhachDua = GUICtrlCreateInput("", 128, 96, 145, 21)
        Global $gTinhTien = GUICtrlCreateButton("Tính tiền", 192, 128, 73, 33)
        Global $Label4 = GUICtrlCreateLabel("", 24, 168, 252, 23)
        GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman")
        Global $Label5 = GUICtrlCreateLabel("", 24, 200, 257, 23)
        GUICtrlSetFont(-1, 12, 400, 0, "Times New Roman")
        GUISetState(@SW_SHOW)
        #EndRegion ### END Koda GUI section ###

        While 1
            $nMsg = GUIGetMsg()
            Switch $nMsg
                Case $GUI_EVENT_CLOSE
                    ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
                case $gtinhtien
                    tinhtien()
            EndSwitch
        WEnd
    EndFunc
    func tinhtien()
        $SoLuongKhach = GUICtrlRead($gSoLuongKhach)*13000

        $readcombo = GUICtrlRead($khong)
        Switch $readcombo
            case "Combo"
                $nuocuong = 0
            case "Trà đá"
                $nuocuong = 2000
            case "Nước chanh" AND "Trà đường"
                $nuocuong = 5000
            case "Sữa"
                $nuocuong = 8000
            case "Sữa + đá"
                $nuocuong = 10000
        EndSwitch
        $tongtien = $SoLuongKhach + $nuocuong
        $TienKhachDua = GUICtrlRead($gTienKhachDua)
        GUICtrlSetData($Label5, "Tiền dư "& $TienKhachDua - $tongtien)
        GUICtrlSetData($Label4,"Tổng tiền "& $tongtien)
    EndFunc

     
     
    Chỉnh sửa cuối: 5/7/16
    kamsamita1 thích bài này.
  2. Cô Giáo Thảo

    Cô Giáo Thảo Thành viên
    • 18/23

    Tham gia ngày:
    4/1/16
    Bài viết:
    57
    Đã được thích:
    91
    Nơi ở:
    ĐH Sư Phạm Hà Nội
    GUIDelete chứ đừng Exit
     
    kamsamita1 thích bài này.
  3. Gekko HandSome

    Gekko HandSome Thành viên mới
    • 3/6

    Tham gia ngày:
    9/11/15
    Bài viết:
    8
    Đã được thích:
    11
    vẫn ko đc bạn ơi bạn test code thử
     
    kamsamita1 thích bài này.
  4. Cô Giáo Thảo

    Cô Giáo Thảo Thành viên
    • 18/23

    Tham gia ngày:
    4/1/16
    Bài viết:
    57
    Đã được thích:
    91
    Nơi ở:
    ĐH Sư Phạm Hà Nội
    Thế đấy, 1:34p và cô phải làm hẳn ví dụ...
    http://menly.ml/view/embed/271795b6

    Thế này nhé:
    Để đóng được cái gui thứ 3, đầu tiên em không được Exit vì lệnh này thoát hẳn chương trình, vì vậy ta phải dùng Guidelete nó như cô đã nói. Vấn đề "vẫn ko đc" ở đây cô nghĩ là do em chỉ dùng Guidetele nó đi mà vòng lặp While vẫn chưa thoát nên gui2 "không hoạt động" thì phải. Cũng có thể là dùng Guidelete sai handle.
    Dẫu sao thì trong code cô đã thêm rồi.
    Line 25: Thêm style $BS_DEFPUSHBUTTON cho $$Blogin
    Line 113+114: Thêm GuiDelete và thoát vòng lặp
     
    kamsamita1 thích bài này.
  5. Gekko HandSome

    Gekko HandSome Thành viên mới
    • 3/6

    Tham gia ngày:
    9/11/15
    Bài viết:
    8
    Đã được thích:
    11
    cảm ơn cô
     
    kamsamita1 thích bài này.
  6. Huân Hoàng

    Huân Hoàng Administrator Thành viên BQT Administrator Super Moderator
    • 93/113

    Tham gia ngày:
    29/9/15
    Bài viết:
    642
    Đã được thích:
    1,181
    Đọc dòng "Cảm ơn cô" iêm là iêm cười són cả ruột :)):)):))
     
    kamsamita1 thích bài này.
  7. Gekko HandSome

    Gekko HandSome Thành viên mới
    • 3/6

    Tham gia ngày:
    9/11/15
    Bài viết:
    8
    Đã được thích:
    11
    học trò ngoan hiền thế mà
     
    kamsamita1 and Huân Hoàng like this.
  8. Anh Dh

    Anh Dh Thành viên mới
    • 1/6

    Tham gia ngày:
    10/1/16
    Bài viết:
    9
    Đã được thích:
    8
    Oạch sao có cả nhân vật huyền thoại : "cô giáo thảo" ở đây nhể bác :3
     
    kamsamita1 thích bài này.
  9. Gekko HandSome

    Gekko HandSome Thành viên mới
    • 3/6

    Tham gia ngày:
    9/11/15
    Bài viết:
    8
    Đã được thích:
    11
    cô giáo thảo thời hiện đại dạy autoit =))
     
    kamsamita1 thích bài này.
  10. Gekko HandSome

    Gekko HandSome Thành viên mới
    • 3/6

    Tham gia ngày:
    9/11/15
    Bài viết:
    8
    Đã được thích:
    11
    cô ơi giúp em thêm 1 câu này em đưa các thông tin lên host rồi[​IMG]
    bây giờ làm sao xuất ra theo thứ tự [​IMG]
    cô cho em ít ý tưởng
     
    kamsamita1 thích bài này.
  11. pndhcm280

    pndhcm280 Thành viên mới
    • 1/6

    Tham gia ngày:
    15/1/16
    Bài viết:
    1
    Đã được thích:
    1
    Nơi ở:
    TPHCM
    stringsplit từng dòng, từng mảng rồi set vào list view, thế thôi
     
    kamsamita1 thích bài này.
  12. Cô Giáo Thảo

    Cô Giáo Thảo Thành viên
    • 18/23

    Tham gia ngày:
    4/1/16
    Bài viết:
    57
    Đã được thích:
    91
    Nơi ở:
    ĐH Sư Phạm Hà Nội
    kamsamita1 thích bài này.
  13. lam hoang nuyen

    lam hoang nuyen Thành viên mới
    • 1/6

    Tham gia ngày:
    7/7/16
    Bài viết:
    6
    Đã được thích:
    1
    Nơi ở:
    ho chi minh
    hên quá nhờ bác e mod lại đc phần login
     
    kamsamita1 thích bài này.
Trạng thái chủ đề:
Không mở trả lời sau này.

Chia sẻ trang này

Đang tải...