۰۲-آذر-۱۳۹۱, ۰۰:۴۵:۵۲
سلام
بفرمایید
سوالی داشتی در خدمتیم
بفرمایید
کد php:
$regfile = "m8def.dat"
$crystal = 500000
Config Adc = Single , Prescaler = Auto , Reference = Off
Config Portb = Output
Config Portd = Output
Dim A As Word
Dim B As Long
Dim C As Word
Dim D As Word
Dim E As Word
Dim F As Byte
Dim G As Byte
Dim I As Byte
Dim J As Word
Declare Sub Yekan
Y Alias Portb.3
D0 Alias Portb.2
S Alias Portb.1
Enable Adc
Start Adc
'*******************************************************************************
Do
A = Getadc(0)
B = A / 10
If B > 100 Then B = 100
'*******************************************************************************
Call Yekan
Portb.4 = 1
Y = 1
Portd = F
Waitms 4
Y = 0
D0 = 1
Portd = G
Waitms 4
D0 = 0
S = 1
Portd = I
Waitms 4
S = 0
Loop
End 'end program
'*******************************************************************************
Hadi:
Data &B1000000 , &B1111001 , &B0100100 , &B0110000
Data &B0011001 , &B0010010 , &B0000010 , &B1111000
Data &B0000000 , &B0010000
'*******************************************************************************
Sub Yekan
C = B / 10
C = C * 10
C = B - C
F = C
F = Lookup(f , Hadi)
D = B / 100
D = D * 100
D = B - D
D = D / 10
G = D
G = Lookup(g , Hadi)
E = B / 100
I = E
I = Lookup(i , Hadi)
End Sub
حتما مزاحمتون میشم باز . راستی دوماه مونده باید بریم دانشگاه 
نمیدونم اوجا وقتمون چقدر ازاده و میشه مثل الان اینترنت گردی گنیم 
را