سلام من میخوام بین کامپیوتر و میکرو اتباط برقرار کنم به این صورت که مقدار 3 تا پین A رو بخونه و اگه یک بودن واسم a b c پرینت کنن وتو کامپیوتر تا اینجاش مشکلی ندارم اما وقتی میخوام نتیجه اینارو به صورت یه رشته سه تای مثل 101 یا 001 که برای فعال کردن 3 تا از پینهای پورت b هست مشکل دارم
Config Porta = Input : Config Portb = Output
Do
A = Pina.0
If A = 1 Then
Print "a"
Waitms 100
Elseif A = 0 Then
Reset Portb.0
End If
B = Pina.1
If B = 1 Then
Print "b"
Waitms 100
End If
C = Pina.2
If C = 1 Then
Print "c"
Waitms 100
End If
Input , D
Z = Mid(d , 1 , 1)
If Z = "1" Then
Set Portb.0
End If
S = Mid(d , 1 , 1)
If S = "1" Then
Set Portb.1
End If
N = Mid(d , 1 , 1)
If N = "1" Then
Set Portb.2
End If
با این برنامه جواب نگرفتم مشکلش کجاست؟
اینم امتحان کردم نشد
E = Inkey()
If E = "001" Then
Set Portb.0
End If
If E = "010" Then
Set Portb.1
End If
If E = "100" Then
Set Portb.2
End If
Config Porta = Input : Config Portb = Output
Do
A = Pina.0
If A = 1 Then
Print "a"
Waitms 100
Elseif A = 0 Then
Reset Portb.0
End If
B = Pina.1
If B = 1 Then
Print "b"
Waitms 100
End If
C = Pina.2
If C = 1 Then
Print "c"
Waitms 100
End If
Input , D
Z = Mid(d , 1 , 1)
If Z = "1" Then
Set Portb.0
End If
S = Mid(d , 1 , 1)
If S = "1" Then
Set Portb.1
End If
N = Mid(d , 1 , 1)
If N = "1" Then
Set Portb.2
End If
با این برنامه جواب نگرفتم مشکلش کجاست؟
اینم امتحان کردم نشد
E = Inkey()
If E = "001" Then
Set Portb.0
End If
If E = "010" Then
Set Portb.1
End If
If E = "100" Then
Set Portb.2
End If
دیدگاه