====== AN36013 - CUTOUCH 공장 테스트 프로그램 ====== CT1820 을 생산할때 쓰는 테스트용 프로그램입니다. 각각의 포트를 On/Off 하면서 테스트해볼 수 있습니다. 첨부파일을 다운받으세요. {{ :cublocapp:an36013:cutouch_factorytest.jpg?nolink |}} #include "CT18XX" _Reset: Ramclear Dim TX1 As Integer Dim TY1 As Integer Dim Ixx As Integer Opencom 1,115200,3,30,30 On Recv1 Gosub COM1 Opencom 2,115200,3,30,30 On Recv2 Gosub COM2 On Recv3 Gosub COM3 'Baudrate 57600 Dim Sequnce As Integer Dim sRtc As Integer Dim mRtc As Integer Dim hRtc As Integer Dim dRtc As Integer Dim dtRtc As Integer Dim mmRtc As Integer Dim yRtc As Integer Dim Com_Str As String Dim Com1_Str As String Dim Com2_Str As String Dim Touch_Ck As Byte Dim Current_High As Integer Dim Current_Low As Integer Dim Voltage_High As Integer Dim Voltage_Low As Integer '''''''''''''''''''''' Setting '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Com_Str = "Comfile Technology" 'Current_High = 1023 'Current_Low = 1000 'Voltage_High = 512 'Voltage_Low = 500 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' On Pad Gosub TouchOccur Do Select Case Sequnce Case 0 Cls Delay 100 Print loc,1,0," [RTC Check] " Rtcwrite 6,0x13 Rtcwrite 5,0x11 Rtcwrite 4,0x19 Rtcwrite 3,0x02 Rtcwrite 2,0x15 Rtcwrite 1,0x40 Rtcwrite 0,0x58 Delay 500 yRtc = Rtcread(6) mmRtc = Rtcread(5) dtRtc = Rtcread(4) dRtc = Rtcread(3) hRtc = Rtcread(2) mRtc = Rtcread(1) sRtc = Rtcread(0) Print Loc,1,1,Hex yRtc, "-" , Hex mmRtc, "-", Hex dtRtc, " ", Hex hRtc, " : ", Hex mRtc, " : ", Hex sRtc If yRtc = 0x13 And mmRtc = 0x11 And dtRtc = 0x19 And dRtc = 0x02 And hRtc = 0x15 And mRtc = 0x40 And sRtc = 0x59 Then Print loc,30,0,"Ok!!" Else Print loc,30,0,"Error!!!" Endif Sequnce = 1 Case 1 Print Loc,1,2," [RS232 Check]" Putstr 1,Com_Str Putstr 2,Com_Str Menuset2 0,1,135,100,180,115 Menutitle 0,3,1,"Touch" Menuset2 30,1,135,130,180,145 Menutitle 30,3,1,"Reset" Do While(Touch_Ck = 0) Loop Cls Delay 100 Basic_FORM1 Menuset2 30,1,240,80,285,100 Menutitle 30,3,1,"Reset" Byteout 4,0 Byteout 5,0 Byteout 6,0 Style 0,0,1 Locate 3,0 Print " 0 1 2 3 4 5" Locate 3,2 Print " 8 9 10 11 12 13 14 15" Locate 3,12 Print "16 17 18 19 20 21 22 23" Style 0,0,0 Sequnce = 2 Case 2 Locate 35,0 Print Dec Ixx Incr Ixx Locate 2,1 Print hex3 In(0),hex3 In(1),hex3 In(2),hex3 In(3),hex3 In(4),hex3 In(5) Locate 2,3 Print hex3 In(8),hex3 In(9),hex3 In(10),hex3 In(11) Print hex3 In(12),hex3 In(13),hex3 In(14),hex3 In(15) Locate 2,13 Print hex3 In(16),hex3 In(17),hex3 In(18),hex3 In(19) Print hex3 In(20),hex3 In(21),hex3 In(22),hex3 In(23) Print Loc,30,1,"AD0: ",Dec4 Tadin(0) Print Loc,30,2,"AD1: ",Dec4 Tadin(1) Print Loc,30,3,"AD2: ",Dec4 Tadin(2) Print Loc,30,4,"AD3: ",Dec4 Tadin(3) Print Loc,30,11,"AD4: ",Dec4 Tadin(4) Print Loc,30,12,"AD5: ",Dec4 Tadin(5) Print Loc,30,13,"AD6: ",Dec4 Tadin(6) Print Loc,30,14,"AD7: ",Dec4 Tadin(7) Wait 500 End Select Loop TouchOccur: TX1 = Sys(10) TY1 = Sys(11) Pset TX1,TY1 Ct18beep 10 If Menucheck(0,TX1,TY1) = 1 Then If Sequnce = 1 Then Touch_Ck = 1 Else Menureverse2 0,1 Reverse 32 Endif Elseif Menucheck(1,TX1,TY1) = 1 Then Menureverse2 1,1 Reverse 33 Elseif Menucheck(2,TX1,TY1) = 1 Then Menureverse2 2,1 Reverse 34 Elseif Menucheck(3,TX1,TY1) = 1 Then Menureverse2 3,1 Reverse 35 Elseif Menucheck(4,TX1,TY1) = 1 Then Menureverse2 4,1 Reverse 40 Elseif Menucheck(5,TX1,TY1) = 1 Then Menureverse2 5,1 Reverse 41 Elseif Menucheck(6,TX1,TY1) = 1 Then Menureverse2 6,1 Reverse 42 Elseif Menucheck(7,TX1,TY1) = 1 Then Menureverse2 7,1 Reverse 43 Elseif Menucheck(8,TX1,TY1) = 1 Then Menureverse2 8,1 Reverse 44 Elseif Menucheck(9,TX1,TY1) = 1 Then Menureverse2 9,1 Reverse 45 Elseif Menucheck(10,TX1,TY1) = 1 Then Menureverse2 10,1 Reverse 46 Elseif Menucheck(11,TX1,TY1) = 1 Then Menureverse2 11,1 Reverse 47 Elseif Menucheck(12,TX1,TY1) = 1 Then Menureverse2 12,1 Reverse 48 Elseif Menucheck(13,TX1,TY1) = 1 Then Menureverse2 13,1 Reverse 49 Elseif Menucheck(14,TX1,TY1) = 1 Then Menureverse2 14,1 Reverse 50 Elseif Menucheck(15,TX1,TY1) = 1 Then Menureverse2 15,1 Reverse 51 Elseif Menucheck(16,TX1,TY1) = 1 Then Menureverse2 16,1 Reverse 52 Elseif Menucheck(17,TX1,TY1) = 1 Then Menureverse2 17,1 Reverse 53 Elseif Menucheck(18,TX1,TY1) = 1 Then Menureverse2 18,1 Reverse 54 Elseif Menucheck(19,TX1,TY1) = 1 Then Menureverse2 19,1 Reverse 55 Elseif Menucheck(30,TX1,TY1) = 1 Then Goto _Reset Endif Return Sub Basic_FORM1() Font 0,0 Style 0,0,0 Menuset2 0,1,70,80,105,100 Menutitle 0,10,4,"32" Menuset2 1,1,110,80,145,100 Menutitle 1,10,4,"33" Menuset2 2,1,150,80,185,100 Menutitle 2,10,4,"34" Menuset2 3,1,190,80,225,100 Menutitle 3,10,4,"35" Menuset2 4,1,5,115,40,135 Menutitle 4,10,4,"40" Menuset2 5,1,45,115,80,135 Menutitle 5,10,4,"41" Menuset2 6,1,85,115,120,135 Menutitle 6,10,4,"42" Menuset2 7,1,125,115,160,135 Menutitle 7,10,4,"43" Menuset2 8,1,165,115,200,135 Menutitle 8,10,4,"44" Menuset2 9,1,205,115,240,135 Menutitle 9,10,4,"45" Menuset2 10,1,245,115,280,135 Menutitle 10,10,4,"46" Menuset2 11,1,285,115,319,135 Menutitle 11,9,4,"47" Menuset2 12,1,5,150,40,170 Menutitle 12,10,4,"48" Menuset2 13,1,45,150,80,170 Menutitle 13,10,4,"49" Menuset2 14,1,85,150,120,170 Menutitle 14,10,4,"50" Menuset2 15,1,125,150,160,170 Menutitle 15,10,4,"51" Menuset2 16,1,165,150,200,170 Menutitle 16,10,4,"52" Menuset2 17,1,205,150,240,170 Menutitle 17,10,4,"53" Menuset2 18,1,245,150,280,170 Menutitle 18,10,4,"54" Menuset2 19,1,285,150,319,170 Menutitle 19,9,4,"55" Font 4,0 End Sub COM1: If Blen(1,0) >= Len(Com_Str) Then Com1_Str = Getstr(1,Len(Com_Str)) Print Loc,1,3,"COM1: " Print Com1_Str Endif Return COM2: If Blen(2,0) >= Len(Com_Str) Then Com2_Str = Getstr(2,Len(Com_Str)) Print Loc,1,4,"COM2: " Print Com2_Str Endif Return COM3: Put 3,Get(3,1),1 Return [[cublocapp:index|한단계 위로]]