۲۲-آذر-۱۳۸۶, ۰۹:۳۲:۴۷
۳۰-مرداد-۱۳۸۹, ۰۲:۱۱:۱۰
مهندس من دانلود کردم ولی فایل بسکام نداشت
۰۳-شهریور-۱۳۸۹, ۱۲:۱۹:۳۲
چرا خوب نگاه کن داشت
کد:
'----------------------------------------------------
' RND.BAS
' demonstration if RND() function
'----------------------------------------------------
$crystal = 8000000
$regfile = "M32def.dat"
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5 , E = Porta.1 , Rs = Porta.0
Config Adc = Single , Prescaler = Auto ',
Config Date = Mdy , Separator = /
Config Clock = Soft
Config Portc = Input
Enable Interrupts
Time$ = "00:00:00"
Dim T As Word
Dim S As String * 16
Cls
Cursor Off
Config Pina.7 = Input
Start Adc
Cls
Do
If Pinc.0 = 1 Then _sec = 0
If Pinc.1 = 1 Then
Incr _min
If _min = 60 Then _min = 0
End If
If Pinc.2 = 1 Then
Incr _hour
If _hour = 24 Then _hour = 0
End If
T = Getadc(7)
T = T / 20
Home
Lcd "Time:" ; Time$ ; " "
Lowerline
S = Str(t)
Lcd "Temp:" ; S ; " "
Loop
End۰۲-آبان-۱۳۹۳, ۰۴:۳۶:۰۷
تشکر کاش کد زبان سی هم داشت