문서의 선택한 두 판 사이의 차이를 보여줍니다.
다음 판 | 이전 판 | ||
cublocapp:an36013:index [2017/10/19 22:27] Comfile Technology 만듦 |
cublocapp:an36013:index [2017/10/19 22:28] (현재) Comfile Technology |
||
---|---|---|---|
줄 1: | 줄 1: | ||
+ | ====== AN36013 - CUTOUCH 공장 테스트 프로그램 ====== | ||
+ | CT1820 을 생산할때 쓰는 테스트용 프로그램입니다. 각각의 포트를 On/Off 하면서 테스트해볼 수 있습니다. 첨부파일을 다운받으세요. | ||
+ | |||
+ | {{ :cublocapp:an36013:cutouch_factorytest.jpg?nolink |}} | ||
+ | |||
+ | <code xbasic> | ||
+ | |||
+ | #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 | ||
+ | </code> | ||
+ | |||
+ | [[cublocapp:index|한단계 위로]] |