سلام
من دوتا برنامه برای گیرنده و فرسنده نوشتم البته با کمک از نت
فرسنده:
من دوتا برنامه برای گیرنده و فرسنده نوشتم البته با کمک از نت
فرسنده:
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
Config Portc = Input
Dim C1 As String * 13
Dim C2 As String * 13
Dim C3 As String * 13
Dim C4 As String * 13
Dim C5 As String * 13
Dim C6 As String * 13
Dim A As Word
C1 = "canal1"
C2 = "canal2"
C3 = "canal3"
C4 = "canal4"
C5 = "canal5"
C6 = "canal6"
Dim X As Word : X = 1364
Main:
Do
Printbin X
If Pinc.5 = 1 Then Goto C1
If Pinc.4 = 1 Then Goto C2
If Pinc.3 = 1 Then Goto C3
If Pinc.2 = 1 Then Goto C4
If Pinc.1 = 1 Then Goto C5
If Pinc.0 = 1 Then Goto C6
Loop
End
C1:
For A = 1 To 5
Print C1 ; Chr(13);
Waitms 20
Next A
Goto Main
C2:
For A = 1 To 5
Print C2 ; Chr(13);
Waitms 20
Next A
Goto Main
C3:
For A = 1 To 5
Print C3 ; Chr(13);
Waitms 20
Next A
Goto Main
C4:
For A = 1 To 5
Print C4 ; Chr(13);
Waitms 20
Next A
Goto Main
C5:
For A = 1 To 5
Print C5 ; Chr(13);
Waitms 20
Next A
Goto Main
C6:
For A = 1 To 5
Print C6 ; Chr(13);
Waitms 20
Next A
Goto Main
گیرنده$crystal = 1000000
$baud = 9600
Config Portc = Input
Dim C1 As String * 13
Dim C2 As String * 13
Dim C3 As String * 13
Dim C4 As String * 13
Dim C5 As String * 13
Dim C6 As String * 13
Dim A As Word
C1 = "canal1"
C2 = "canal2"
C3 = "canal3"
C4 = "canal4"
C5 = "canal5"
C6 = "canal6"
Dim X As Word : X = 1364
Main:
Do
Printbin X
If Pinc.5 = 1 Then Goto C1
If Pinc.4 = 1 Then Goto C2
If Pinc.3 = 1 Then Goto C3
If Pinc.2 = 1 Then Goto C4
If Pinc.1 = 1 Then Goto C5
If Pinc.0 = 1 Then Goto C6
Loop
End
C1:
For A = 1 To 5
Print C1 ; Chr(13);
Waitms 20
Next A
Goto Main
C2:
For A = 1 To 5
Print C2 ; Chr(13);
Waitms 20
Next A
Goto Main
C3:
For A = 1 To 5
Print C3 ; Chr(13);
Waitms 20
Next A
Goto Main
C4:
For A = 1 To 5
Print C4 ; Chr(13);
Waitms 20
Next A
Goto Main
C5:
For A = 1 To 5
Print C5 ; Chr(13);
Waitms 20
Next A
Goto Main
C6:
For A = 1 To 5
Print C6 ; Chr(13);
Waitms 20
Next A
Goto Main
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
Config Portc = Output
Dim S As String * 13
Dim X As Word
Cursor Off
Main:
Do
X = Waitkey()
If X = 1364 Then
Input S
If S = "canal1" Then Goto C1 Else Reset Portc.5
If S = "canal2" Then Goto C2 Else Reset Portc.4
If S = "canal3" Then Goto C3 Else Reset Portc.3
If S = "canal4" Then Goto C4 Else Reset Portc.2
If S = "canal5" Then Goto C5 Else Reset Portc.1
If S = "canal6" Then Goto C6 Else Reset Portc.0
End If
Loop
End
C1:
Set Portc.5
Goto Main
C2:
Set Portc.4
Goto Main
C3:
Set Portc.3
Goto Main
C4:
Set Portc.2
Goto Main
C5:
Set Portc.1
Goto Main
C6:
Set Portc.0
Goto Main
گر مشکل دارد لطفا راهنمایی کنید
$crystal = 1000000
$baud = 9600
Config Portc = Output
Dim S As String * 13
Dim X As Word
Cursor Off
Main:
Do
X = Waitkey()
If X = 1364 Then
Input S
If S = "canal1" Then Goto C1 Else Reset Portc.5
If S = "canal2" Then Goto C2 Else Reset Portc.4
If S = "canal3" Then Goto C3 Else Reset Portc.3
If S = "canal4" Then Goto C4 Else Reset Portc.2
If S = "canal5" Then Goto C5 Else Reset Portc.1
If S = "canal6" Then Goto C6 Else Reset Portc.0
End If
Loop
End
C1:
Set Portc.5
Goto Main
C2:
Set Portc.4
Goto Main
C3:
Set Portc.3
Goto Main
C4:
Set Portc.2
Goto Main
C5:
Set Portc.1
Goto Main
C6:
Set Portc.0
Goto Main
دیدگاه