$regfile = "M32def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.2 , Db6 = Portd.1 , Db7 = Portd.0 , E = Portd.5 , Rs = Portd.4
Config Adc = Single , Prescaler = Auto , Reference = Internal
Config Portc.6 = Output
Config Portc.7 = Output
Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.3 = Output
Config Portb.4 = Output
Config Portb.7 = Output
Config Portb.2 = Input
Config Portb.5 = Input
Config Portb.6 = Input
Dim A As Word
Dim B As Word
Dim C As Word
Dim D As Word
Dim E As Word
Dim F As Word
Dim G As Word
Dim H As Word
Cls
Do
Start Adc
A = Getadc(0)
B = Getadc(1)
C = Getadc(2)
D = Getadc(3)
E = Getadc(4)
F = Getadc(5)
G = Getadc(6)
H = Getadc(7)
Stop Adc
A = A - 751.87
A = A * 5
A = A / 272.13
B = B - 751.87
B = B * 5
B = B / 272.1
C = C - 159
C = C / 150.408
D = D - 159
D = D / 150.408
If Pinb.2 = 1 Then
C = D
End If
If A > C Then
Portb.0 = 1
End If
If A < C Then
Portb.0 = 0
End If
If B > D Then
Portb.1 = 1
End If
If B < D Then
Portb.1 = 0
End If
G = G * 2.56
G = G * 19
G = G / 1024
H = H * 2.56
H = H * 19
H = H / 1024
Home : Lcd "V:" ; G ; "& A: " ; A;
Lowerline : Lcd "V:" ; H ; "&A" ; B;
Loop
End
ینی خروجی خوشگل در میاد؟ینی خروجی خوشگل در میاد؟
دیدگاه