사용자 도구

사이트 도구

English

cublocapp:an36013:index

AN36013 - CUTOUCH 공장 테스트 프로그램

CT1820 을 생산할때 쓰는 테스트용 프로그램입니다. 각각의 포트를 On/Off 하면서 테스트해볼 수 있습니다. 첨부파일을 다운받으세요.

#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/an36013/index.txt · 마지막으로 수정됨: 2017/10/19 22:28 저자 Comfile Technology