۲۹-دى-۱۳۸۸, ۱۸:۰۳:۲۶
انشاءاله که هم به امتحانت می رسی وهم امتحانتو خوب میدی.
ممنون الان درست شد.
ولی من نمی تونم تواین برنامه تغییرات بدم مثلا میخواستم برنامه زیررا
بابرنامه
مثل بالایی اجراکنم ولی نتونستم.
لطفا راهنمایی کنید
(من ازبس زیاد سوال می پرسم دیگه خجالت می کشم .شرمنده شما هستم)
ممنون الان درست شد.
ولی من نمی تونم تواین برنامه تغییرات بدم مثلا میخواستم برنامه زیررا
کد php:
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.1 , Db5 = Portc.2 , Db6 = Portc.3 , Db7 = Portc.4 , E = Portd.2 , Rs = Portd.3
: Dim A As Word
Config Pind.1 = Input
Config Pind.0 = Input
Config Pind.7 = Input
Config Pinb.0 = Input
Cls
Iran:
Do
If Pind.1 = 1 Then
Home
Cls
Waitms 200
Lcd "COLD"
End If
If Pind.0 = 1 Then
Home
Cls
Waitms 200
Lcd "HEAT"
End If
If Pind.7 = 1 Then
Home
Cls
Waitms 200
Lcd "RAIN"
End If
If Pinb.0 = 1 Then
Home
Cls
Waitms 200
Lcd "WIND"
End If
Loop
کد php:
$regfile = "m8def.dat" : $crystal = 1000000
Config Lcdpin = Pin , Db4 = Portc.1 , Db5 = Portc.2 , Db6 = Portc.3 , Db7 = Portc.4 , E = Portd.2 , Rs = Portd.3
Config Lcd = 16 * 2 : Cursor Off : Cls
Dim Ss As String * 255 , S As String * 16
Dim B As Byte , C As Byte , A As Byte
Ss = "www.iranled.com"
Do
B = Len(ss)
If B < 17 Then :
For A = 16 To 1 Step -1
S = Mid(ss , A , 1 ) : Locate 2 , A : Lcd S
Waitms 500
Next
Wait 1
For A = 1 To 16
Locate 2 , A : Lcd " "
Waitms 500
Next
Wait 1
Else :
S = Left(ss , 16)
For A = 15 To 1 Step -1
Locate 2 , A : Lcd S
Waitms 500
Next
C = B - 16
For A = 2 To C
S = Mid(ss , A , 16 ) : Locate 2 , 1 : Lcd S
Waitms 500
Next
For A = 16 To 1 Step -1
S = Right(ss , A) : Locate 2 , 1 : Lcd S ; " "
Waitms 500
Next
Locate 2 , 1 : Lcd " " : Wait 1
End If
Loop
End
لطفا راهنمایی کنید
(من ازبس زیاد سوال می پرسم دیگه خجالت می کشم .شرمنده شما هستم)