کنترل پورت با بسکام

[mohsen.hex]

sسلام
من میخام در بسکام پورت هارو کنترل کنم ولی به مشکل دچار شدم
برنام من اینه ولی جواب نمیگیرم
$regfile = "m8def.dat"
$crystal = 8000000
Config Portb = Output
Dim A As Bit
Dim B As Bit
Dim C As Bit
Dim D As Bit
Dim E As Bit
Dim F As Bit
Dim G As Bit
Dim H As Bit

A = 1
B = 1
G = 1
D = 1

Portb = &BABCDEFG
End
اگه راهی دیگه هم بگین ممنون میشم
راستی در پرتوس شبیح سازی میکنم :nice:

[KhepeleSibilo]

پاسخ : کنترل پورت با بسکام

$regfile = "m8def.dat"
$crystal = 8000000
Config Portb = Output
Dim A As Bit
Dim B As Bit
Dim C As Bit
Dim D As Bit
Dim E As Bit
Dim F As Bit
Dim G As Bit
Dim H As Bit

DIM OUT as byte

A = 1
B = 1
G = 1
D = 1


out.0=a
out.1=b
out.2=c
.
.
.

Portb = out
End

یا

$regfile = "m8def.dat"
$crystal = 8000000
Config Portb = Output
Dim A As Bit
Dim B As Bit
Dim C As Bit
Dim D As Bit
Dim E As Bit
Dim F As Bit
Dim G As Bit
Dim H As Bit

DIM OUT as byte

A = 1
B = 1
G = 1
D = 1
Portb.0=a
portb.1=b
portb.2=c
.
.
.

End