รบกวนช่วยดูโค้ดให้ทีครับ

มือใหม่หัดเขียนครับ งงจริงๆ

ความคิดที่ต้องการคือ

ใส่ตัวเลข Input แล้ว กด OK

แล้วโปรแกรมจะเอาไปคำนวณ

แปลออกมาเป็นตัวอักษร

เช่น  ผมใส่ 999 ตามโจทย์ด้านล่าง คือ

999-1 = 998 แล้วเอาไป +100 =1098

แล้ว ก็เอา 1098-ด้วย999 ก็จะ = 99

แล้วเอา 99 แปลงเป็น KK

รบกวนชี้แนะด้วยครับ


ขอบคุณครับ

Code:


#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 368, 40, 192, 114)
$Input1 = GUICtrlCreateInput("Input1", 8, 8, 265, 21)
$Button1 = GUICtrlCreateButton("OK", 280, 8, 81, 25)
GUISetState(@SW_SHOW)
GUICtrlSetData($Input1,genpass())
#EndRegion ### END Koda GUI section ###

While 1
 $Input = GUICtrlRead ($Input1)
 $nMsg = GUIGetMsg()
 Switch $nMsg
 Case $GUI_EVENT_CLOSE
 Exit
        Case $Button1
 GUICtrlSetData($Input1,genpass())
 EndSwitch
WEnd

Func genpass ()
   $genpass = $Input1 - 1
 $genpass = $genpass + 100
 $genpass = $genpass - $Input1
 $genpass = StringReplace($genpass, "1", "A")
 $genpass = StringReplace($genpass, "2", "B")
 $genpass = StringReplace($genpass, "3", "C")
 $genpass = StringReplace($genpass, "4", "D")
 $genpass = StringReplace($genpass, "5", "E")
 $genpass = StringReplace($genpass, "6", "F")
 $genpass = StringReplace($genpass, "7", "G")
 $genpass = StringReplace($genpass, "8", "H")
 $genpass = StringReplace($genpass, "9", "K")
 $genpass = StringReplace($genpass, "0", "Z")
 Return $genpass
 EndFunc



ง่วงครับ -0- เอาโค้ดแปลงตัวอักษรไปก่อนละกัน -w-  

Code:

ConsoleWrite(genpass("0666100000064"))

Func genpass($string)
   Local $genpass = ""
   $raw = StringSplit($string, "")
;~    _ArrayDisplay($raw) ;; For Testing (Require #include <Array.au3>)
   For $i = 1 To $raw[0]
;~       ConsoleWrite($raw[$i] & @CRLF) ;; For Testing
      Switch $raw[$i]
         Case 1
            $genpass &= "A"
         Case 2
            $genpass &= "B"
         Case 3
            $genpass &= "C"
         Case 4
            $genpass &= "D"
         Case 5
            $genpass &= "E"
         Case 6
            $genpass &= "F"
         Case 7
            $genpass &= "G"
         Case 8
            $genpass &= "H"
         Case 9
            $genpass &= "K"
         Case 0
            $genpass &= "Z"
      EndSwitch
   Next
   Return $genpass
EndFunc

ดูจากโจทย์+ code แล้วก็งงด้วย

มี input -1 = คำตอบ

คำตอบ +100

output = คำตอบ - input

สรุปจะใส่ input อะไร คำตอบก็ได้ 99 อยู่ดี
แล้วจะมี a-z ไปทำไม ยังไงมันก็ได้ kk อยู่ดี

tomakung พิมพ์ว่า:ดูจากโจทย์+ code  แล้วก็งงด้วย  

มี input -1 = คำตอบ

คำตอบ +100

output = คำตอบ - input

สรุปจะใส่ input อะไร คำตอบก็ได้ 99 อยู่ดี
แล้วจะมี a-z ไปทำไม   ยังไงมันก็ได้  kk  อยู่ดี

ผมตั้งค่าสมมุติขึ้นมาครับ

ตัวเลขข้างในจริงๆ มัน +964766 *5

ประมานนี้ครับ ผมจึงสมมุติตัวเลข ง่ายๆก่อน