허정균 전용 링커및 컴파일러 도시가스 공급 경매신문사보급

허정균 전용 홈페이지[prg.jog.co.kr]

 일반메뉴 : 처음화면  링커및컴파일러   도시가스공급   경매신문사보급 할부판매 DOS용APP WIN용APP 중흥건설
 전용메뉴 :
소스자료  응용프로그램      PICTURE         정필 전용 자료  TechnoCNS             중흥건설 담당자
 업무메뉴 : 교육자료  소프트상담      테크노일반업무 



허정균 전용 홈페이지입니다.
별다른 내용 없으니 관계자외 출입금지합니다.
Re: 010변경번호 찾기
아이디 : jgheo     이름 : 허정균 jgheo@jog.co.kr     번호 : 23.1     조회 : 3256
작성일 : 2013-11-07 15:12:29
홈페이지 : http://jog.co.kr http://jog.co.kr
첨부파일 : 다운로드 : 010number.exe (809,369Byte) 010number.exe (790.40KB)     전송 : 423

#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

윗글 : 2013-11-07 13:54:27,   23번 글 바로보기,   첨부파일(010번호변경.xls, 49,664Byte)이 있습니다. 010변경번호 찾기
밑글 : 2012-11-15 14:02:25,   20번 글 바로보기,   첨부파일(Wol.exe, 395,776Byte)이 있습니다. jhs-wol
  From:112.216.147.173 / Absolute number:80
홈쓰기관련글전달수정삭제목록
 
제목 비고사항 첨부파일 크기 전송 조회 작성일
2013-11-07 13:54:27,   23번 글 바로보기,   첨부파일(010번호변경.xls, 49,664Byte)이 있습니다. 010변경번호 찾기   다운로드 : 010번호변경.xls (49,664Byte) 010번호변경.xls 48KB 276 3236 11-07
2013-11-07 15:12:29,   23번의 관련글 바로보기,   첨부파일(010number.exe, 809,369Byte)이 있습니다. Re: 010변경번호 찾기   다운로드 : 010number.exe (809,369Byte) 010number.exe 790KB 423 3256 11-07