'***************************** 'Supeana_hyouji Ver0.0.2 'pare aki_dds_2.bas '2007.04.13 'JA4LAO T.ito 'ATmega48-20PI 27MHz '***************************** Config Portd = Output Config Portb.0 = Output Config Portb.1 = Output Config Portb.2 = Input Config Portb.3 = Output Config Portb.4 = Output Config Portb.5 = Output Config Portc.5 = Input Config Adc = Single , Prescaler = Auto Dim A As Word Dim B As Word Dim C As Word Dim D As Single Dim E As Word Dim F As Integer Dim G As Word Dim H As Word Dim I As Word Dim J As Byte Dim K As Word Dim L As Byte Dim S(2) As Word Dim Level As Byte S(1) = &B00000000 S(2) = &B00111000 E = 0 Level = 10 Start Adc Reset Portb.3 Do Gosub Lcd_hyouji 'Wait 1 Loop End '------------------ Lcd_hyouji: Set Portb.5 Set Portb.4 Reset Portb.4 For J = 1 To 3 Gosub Hsync Next J Set Portb.4 For J = 1 To 4 Gosub Hsync Next J For K = 1 To 20 Gosub Datain2 Next K Set Portb.3 Waitms 10 Reset Portb.3 For K = 21 To 220 Bitwait Pinb.2 , Set B = Getadc(5) D = B / 1023 D = D * 495 D = D - 5 'D = D + Level B = D Gosub Datain Set Portb.3 'Waitus 1 Reset Portb.3 Next K For K = 221 To 240 Gosub Datain2 Next K For J = 1 To 5 Gosub Hsync Next J Reset Portb.5 Reset Portb.4 Return '--------------- Dck: Set Portb.1 Reset Portb.1 Return '--------------- Hsync: Reset Portb.1 For I = 1 To 2 Gosub Dck Next I Set Portb.1 Set Portb.5 Reset Portb.1 For I = 1 To 378 Gosub Dck Next I Set Portb.1 Reset Portb.5 Return '--------------- Datain: Reset Portb.1 Reset Portb.5 For I = 1 To 2 Gosub Dck Next I Set Portb.1 Set Portb.5 Reset Portb.1 For I = 1 To 48 Gosub Dck Next I For I = 1 To 59 Set Portb.1 : Reset Portb.0 : Portd = S(1) : Reset Portb.1 Next I If K = 1 Then E = B 'B=atai k=21 to 220 F = B - E If F => 0 Then 'nobori kudari hantei G = E : H = B 'E=old data 'C = H + 1 Else G = B : H = E 'C = G + 1 End If G = G + 20 G = G + Level H = H + 20 H = H + Level A = G - 1 For I = 60 To A Set Portb.1 : Reset Portb.0 : Portd = S(1) : Reset Portb.1 Next I For I = G To H Set Portb.1 : Set Portb.0 : Portd = S(2) : Reset Portb.1 Next I C = H + 1 For I = C To 320 Set Portb.1 : Reset Portb.0 : Portd = S(1) : Reset Portb.1 Next I E = B For I = 1 To 10 Gosub Dck Next I Return Datain2: Reset Portb.1 Reset Portb.5 For I = 1 To 2 Gosub Dck Next I Set Portb.1 Set Portb.5 Reset Portb.1 For I = 1 To 48 Gosub Dck Next I For I = 1 To 320 Set Portb.1 : Reset Portb.0 : Portd = S(1) : Reset Portb.1 Next I For I = 1 To 10 Gosub Dck Next I Return