فرستنده $regfile = "m32def.dat" $crystal = 1000000 $baud = 9600 Config Portc = Input Dim C1 As String * 13 Dim C2 As String * 13 Dim C3 As String * 13 Dim A As Byte C1 = "canal1" C2 = "canal2" C3 = "canal3" Main: Do If Pinc.2 = 1 Then Goto Ch1 If Pinc.1 = 1 Then Goto Ch2 If Pinc.0 = 1 Then Goto Ch3 Loop End Ch1: For A = 1 To 5 Print C1 ; Chr(13); Waitms 20 Next A Goto Main Ch2: For A = 1 To 5 Print C2 ; Chr(13); Waitms 20 Next A Goto Main Ch3: For A = 1 To 5 Print C3 ; Chr(13); Waitms 20 Next A Goto Main
گیرنده $regfile = "m32def.dat" $crystal = 1000000 $baud = 9600 Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , Rs = Portb.0 , E = Portb.1 Config Lcd = 16 * 2 Config Portc = Output Dim S As String * 13 Cursor Off Main: Cls Lcd "hello my friend!" Waitms 800 Cls Lcd " no data" Do Input S Locate 2 , 1 Lcd S If S = "canal1" Then Goto C1 If S = "canal2" Then Goto C2 If S = "canal3" Then Goto C3 Loop End C1: Cls Locate 1 , 1 Lcd S Set Portc.5 Waitms 500 Reset Portc.5 Goto Main C2: Cls Locate 1 , 1 Lcd S Set Portc.4 Waitms 500 Reset Portc.4 Goto Main C3: Cls Locate 1 , 1 Lcd S Set Portc.3 Waitms 500 Reset Portc.3 Goto Main
دیدگاه