ايران ويج

$regfile = "m8def.dat"
$crystal = 8000000
Config Adc = Single , Prescaler = Auto
Config Portd = Output
Config Portb.0 = Output : Config Portb.1 = Output
Config Portb.2 = Output : Config Portb.3 = Output


: Dim Temp As Word , A As Single , B As Word , C As Word , D As Word , E As Word
: Dim F As Word , G As Byte , H As Byte , I As Byte , L As Byte , M As Byte
Stop Adc : Start Adc
Do
Temp = Getadc(0)
A = Temp / 204
B = A * 1000
C = B / 1000
D = C * 1000
E = B - D
F = E / 100
G = F * 100
H = E - G
I = H / 10
L = I * 10
M = H - L

Portd = Lookup(c , Ebi)
Portb.0 = 0 : Portb.1 = 1 : Portb.2 = 1 : Portb.3 = 1
Waitms 10
Portb.0 = 1



Portd = Lookup(f , Ebi)
Portb.0 = 1 : Portb.1 = 0 : Portb.2 = 1 : Portb.3 = 1
Waitms 10
Portb.1 = 1
Portd = Lookup(i , Ebie)
Portb.2 = 0
Waitms 10
Portb.2 = 1
Portd = Lookup(m , Ebi)
Portb.3 = 0
Waitms 10
Portb.3 = 1

Loop
Ebi:
Data 63 , 6 , 91 , 79 , 102 , 109 , 125 , 7 , 127 , 111
Ebie:
Data 191 , 134 , 219 , 207 , 230 , 237 , 253 , 135 , 255 , 239