사용자 도구

사이트 도구

English

cublocapp:an36013:index

차이

문서의 선택한 두 판 사이의 차이를 보여줍니다.

차이 보기로 링크

다음 판
이전 판
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|한단계 위로]]