#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
Opt('MustDeclareVars', 1)
_Main()
Func _Main()
Local $ope,$cen, $msg
Local $Input_1, $Input_2, $Input_3,$anc
GUICreate("010 number?????", 300, 200,300, 200, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
GUICtrlCreateLabel("01X", 10, 10, 150, 20)
GUICtrlCreateLabel("ÀüȹøÈ£ :", 10, 90, 150, 20)
$Input_1 = GUICtrlCreateInput("" , 180, 10, 30, 20)
$Input_2 = GUICtrlCreateInput("" , 210, 10, 40, 20)
$Input_3 = GUICtrlCreateInput("" , 250, 10, 40, 20)
$ope=GUICtrlCreateButton("ºÒ·¯¿À±â", 100, 50, 70, 20)
$cen=GUICtrlCreateButton("Ãë ¼Ò", 220, 50, 70, 20)
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $cen
ExitLoop
Case $msg=$ope
$anc=CHAN(GUICtrlRead($input_1),GUICtrlRead($input_2),GUICtrlRead($input_3))
GUICtrlCreateLabel($anc, 180, 90, 150, 20)
;;;
EndSelect
WEnd
Exit
EndFunc ;==>_Main
FUNC CHAN($input_1,$input_2,$input_3)
local $a="????"
select
case ($input_1) ="011"
if $input_2 >=200 and $input_2 <=499 then $a=5 & $input_2
if $input_2 >=500 and $input_2 <=899 then $a=3 & $input_2
if $input_2 >=1700 and $input_2 <=1799 then $a=71 & stringright($input_2,2)
if $input_2 >=9000 and $input_2 <=9499 then $a=9 & stringright($input_2,3)
if $input_2 >=9500 and $input_2 <=9999 then $a=8 & stringright($input_2,3)
case $input_1 ="016"
if $input_2 >=200 and $input_2 <=499 then $a=3 & $input_2
if $input_2 >=500 and $input_2 <=899 then $a=2 & $input_2
if $input_2 >=9000 and $input_2 <=9499 then $a=7 & stringright($input_2,3)
if $input_2 >=9500 and $input_2 <=9999 then $a=9 & stringright($input_2,3)
Case $input_1 ="017"
if $input_2 >=200 and $input_2 <=499 then $a=6 & $input_2
if $input_2 >=500 and $input_2 <=899 then $a=4 & $input_2
case $input_1 ="018"
if $input_2 >=200 and $input_2 <=499 then $a=4 & $input_2
if $input_2 >=500 and $input_2 <=899 then $a=6 & $input_2
Case $input_1 ="019"
if $input_2 >=200 and $input_2 <=499 then $a=2 & $input_2
if $input_2 >=500 and $input_2 <=899 then $a=5 & $input_2
if $input_2 >=9000 and $input_2 <=9499 then $a=8 & stringright($input_2,3)
if $input_2 >=9500 and $input_2 <=9999 then $a=7 & stringright($input_2,3)
endselect
return "010-"&$a&"-"&$input_3
ENDFUNC
|
|