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

Software [For Fun] Phần mềm chuyển đổi tiếng việt thành mã morse

Thảo luận trong 'Giới thiệu sản phẩm' bắt đầu bởi Quản lượng, 3/5/17.

Tags:
  1. Quản lượng

    Quản lượng qlf
    • 18/23

    Tham gia ngày:
    27/4/17
    Bài viết:
    74
    Đã được thích:
    39
    Huân Hoàng thích bài này.
  2. 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
    Phần mềm khá thú vị. Có thể ứng dụng để mã hoá code hoặc văn bản. Cơ mà sao chuyển từ Morse về chữ cái thường nó ra sai :|
     
    Quản lượng thích bài này.
  3. Quản lượng

    Quản lượng qlf
    • 18/23

    Tham gia ngày:
    27/4/17
    Bài viết:
    74
    Đã được thích:
    39
    Dịch từ tiếng việt qua thì ổn, nhưng mà dịch ngược lại nhiều trường hợp nó có vấn đề. Chẳng hạn chữ "win rar"(mã morse), nếu mà cài như anh nói nó sẽ trả về "win rả" :v
     
    Milli Master thích bài này.
  4. Milli Master

    Milli Master ??
    • 93/113

    Tham gia ngày:
    9/7/16
    Bài viết:
    106
    Đã được thích:
    2,301
    Nơi ở:
    Thủ Đức, TP Hồ Chí Minh
    Thì ra mã morse là 'Thổi mọt' trong cái trò tìm mật mã trong trò chơi lớn lúc cắm trại đây mà :))
     
  5. Quản lượng

    Quản lượng qlf
    • 18/23

    Tham gia ngày:
    27/4/17
    Bài viết:
    74
    Đã được thích:
    39
    Nó đó :)
     
  6. SYAORANCRIS

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

    Tham gia ngày:
    11/9/18
    Bài viết:
    4
    Đã được thích:
    0
    Bạn ơi bạn có thể hướng dẫn mình viết 1 ứng dụng tương tự vậy không, mình muốn một đoạn tiếng việt sau đó tool sẽ tự chuyển sang ký mã hexa do lình định sẳn
     
  7. Quản lượng

    Quản lượng qlf
    • 18/23

    Tham gia ngày:
    27/4/17
    Bài viết:
    74
    Đã được thích:
    39
    Nói 1 cách đơn giản là bạn xét từng kí tự một trong dãy, ví dụ "abc" thì xét "a", xong đến "b", xong đến "c". Khi xét từng kí tự như vậy, bạn sử dụng các câu lệnh if hay là các phép biến đổi để biến từng kí tự thành mã hex, ví dụ "a" biến thành 0x..., "b" biến thành 0x..., "c" biến thành 0x... => Cách đổi từ kí tự sang mã hex bạn có thể xem ở trên google
     
  8. SYAORANCRIS

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

    Tham gia ngày:
    11/9/18
    Bài viết:
    4
    Đã được thích:
    0
    Hiện mình có gặp phải một vấn đề hàm của mình không phân biện chữ B hoa với b thường
    vd khi mình đánh "Bị" hoặc là "bị" nó đều ra cùng kết quả " [0x90][0xa0]" nó không ra kết quả "[0x82][0x92]" khi mình đánh "Bị"
    bạn có cách nào để nó phân biệt được không
    Mã (AutoIt):
    $str = StringRegExpReplace($str, "Bị", "[0x82][0x92]")
    $str = StringRegExpReplace($str, "bị", "[0x90][0xa0]")
     
  9. DuyMinh

    DuyMinh Thành viên năng động
    • 28/34

    Tham gia ngày:
    14/3/17
    Bài viết:
    177
    Đã được thích:
    92
    [​IMG]
     
    SYAORANCRIS thích bài này.
  10. SYAORANCRIS

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

    Tham gia ngày:
    11/9/18
    Bài viết:
    4
    Đã được thích:
    0
    Mã (AutoIt):
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <WinAPI.au3>

    Func _TeenCode($str)
        $str = StringRegExpReplace($str, "án", "[0x83][0xc8]")
        $str = StringRegExpReplace($str, "Án", "[0x82][0xaa]")
        Return $str
    EndFunc


    $Form1 = GUICreate("Form1", 386, 177, 347, 149)
    $Input1 = GUICtrlCreateInput("", 24, 16, 337, 21)
    GUIRegisterMsg($WM_COMMAND, "_Check")
    $Edit1 = GUICtrlCreateEdit("", 24, 64, 337, 97, BitOR($ES_AUTOVSCROLL, $ES_READONLY, $ES_WANTRETURN, $WS_VSCROLL))
    GUICtrlSetData(-1, "")
    GUISetState(@SW_SHOW)


    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit

        EndSwitch
    WEnd

    Func _Check($hWnd, $iMsg, $wParam, $lParam)
        #forceref $hWnd, $iMsg, $lParam
        Switch _WinAPI_LoWord($wParam)
            Case $Input1
                Switch _WinAPI_HiWord($wParam)
                    Case $EN_CHANGE
                        Local $read = StringLower(GUICtrlRead($Input1))

                        GUICtrlSetData($Edit1, _TeenCode($read))
                EndSwitch
        EndSwitch
    EndFunc
    code như trên bạn xem chỉnh sao cho nó phân biệt được chữ "án" với chữ "Án"
     
  11. DuyMinh

    DuyMinh Thành viên năng động
    • 28/34

    Tham gia ngày:
    14/3/17
    Bài viết:
    177
    Đã được thích:
    92
    Local$read=StringLower(GUICtrlRead($Input1))
    Đi lower hết rồi bảo sao nó phân biệt hoa thường.
    Bạn bỏ StringLower đi là ra :v
     
    SYAORANCRIS thích bài này.
  12. SYAORANCRIS

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

    Tham gia ngày:
    11/9/18
    Bài viết:
    4
    Đã được thích:
    0
    ok Bác thanks Bác nhiều
     

Chia sẻ trang này

Đang tải...