نحوه ایجاد یک شرط خاص

[arash67]

سلام من برنامه زیر رو نوشتم اما میخوام زمانی که صفر دریافت میکنه عکس العمل خاصی از خودش نشون نده این کار به جه شکلی باید انجام بدم ؟
و دیگه اینکه از اینتراپت پورت سریال به چه شکلی باید استفاده کنم

کد:

'*******************************************************************************
$regfile = "m8def.dat"
$crystal = 11059200
$baud = 9600
'*******************************************************************************
Config Timer1 = Pwm , Prescale = 1 , Pwm = 10 , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up
Config Portb.1 = Output
Config Portb.2 = Output
Config Serialin = Normal , Size = 255
Enable Interrupts
Dim Out_pwm As Word
Dim S As String * 10
Dim F1 As String * 10

Cls
Lcd "Welcome"
Wait 2
Cls
Lcd "Light Control"
Wait 2
Cls
Pwm1a = 1023
Pwm1b = 1023

Do
Home
Lcd "data = " ; S ; "   "
Input S
F1 = Mid(s , 2 , 5)
Out_pwm = Val(f1)
Lcd Out_pwm
Pwm1a = Out_pwm
Pwm1b = Out_pwm
F1 = ""
S = ""
Loop