پاسخ : فرسنده و گیرنده HMبا بسکام
در هر کجا از برنامه ابهامی هست اون قسمت رو قرار بدین تا توضیح بدم.
در هر کجا از برنامه ابهامی هست اون قسمت رو قرار بدین تا توضیح بدم.
$regfile = "m8def.dat" $crystal = 1000000 $baud = 9600 Config Portd = Input Led_s Alias Portb.0 Led_k Alias Portb.1 Config Portb.0 = Output Config Portb.1 = Output Dim Send_data As Byte Dim A As Byte Led_k = 1 Led_s = 1 Waitms 200 Led_k = 0 Led_s = 0 Waitms 200 Main:
'""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" main: Send_data.0 = Pind.2 Send_data.1 = Pind.0 Send_data.2 = Pind.4 Send_data.3 = Pind.3 Send_data.4 = Pind.6 Send_data.5 = Pind.5 '"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Send_data.6 = 1 Send_data.7 = 1 If Send_data <> 255 Then Led_k = 1 Led_s = 0 Else Led_k = 0 Led_s = 1 End If
Printbin Send_data Waitms 110 jmp Main End
$regfile = "m8def.dat" $crystal = 1000000 $baud = 9600 Config Portd = Input Led_s Alias Portb.0 Led_k Alias Portb.1 Config Portb.0 = Output Config Portb.1 = Output Dim Send_data As Byte Dim A As Byte Led_k = 1 Led_s = 1 Waitms 200 Led_k = 0 Led_s = 0 Waitms 200 Main:
'""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" main: Send_data.0 = Pind.2 Send_data.1 = Pind.0 Send_data.2 = Pind.4 Send_data.3 = Pind.3 Send_data.4 = Pind.6 Send_data.5 = Pind.5 '"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
Send_data.6 = 1 Send_data.7 = 1 If Send_data <> 255 Then Led_k = 1 Led_s = 0 Else Led_k = 0 Led_s = 1 End If
Printbin Send_data Waitms 110 jmp Main End
دیدگاه