interfacing VB 6 với PIC 16f84

[win_832001]

hello ..i cần được giúp đỡ ở đây ... Tôi đang cố gắng để gửi dữ liệu sử dụng VB 6 cho PIC 16f84 qua MScomm lệnh ... Tôi đã cố gắng để 'vào' các LED ở đầu ra ... bất cứ ai có thể kiểm tra chương trình của tôi và PIC vb6 code của tôi ..
PIC code:
BAO GỒM "modedefs.bas 'Bao gồm" chế độ nối tiếp
Xác định OSC 4

VAR PORTA.4 si '
loop VAR BYTE

bắt đầu:
Sự phản ứng liên tiếp nhau si, T2400, ["255"], vòng lặp

Sau đó vòng lặp IF dẫn
dẫn:

PORTB.4 cao
Pause 5.000
GoTo bắt đầu

Cuối

vb 6 mã:
Private Sub cmdsend_Click ()Dim PinState Như Byte
'Nhận Pin Nhà nước
Nếu optState (0) =. Giá trị True Sau đó,
PinState = 0
Khác
PinState = 1
Cuối Nếu

'Gửi xuất dữ liệu
MSComm1.Output = Chr $ (255)
End SubPrivate Sub Form_Load ()

Dim Pins Như Long
'Default để optState (0) được chọn
optState (0) =. Giá trị True

'Sử dụng COM1
MSComm1.CommPort = 1

'Năm 2400 baud, không có tính chẵn lẻ, 8 bit dữ liệu, 1 stop bit
MSComm1.Settings = 2400 ", N, 8,1"

'Vô hiệu hoá DTR
MSComm1.DTREnable = False

'Mở cảng
MSComm1.PortOpen = True
InputLen = 0
RThreshold = 0

End Sub

Private Sub Form_Unload (Cancel Như Integer)
MSComm1.PortOpen = False
End SubTôi rất cần sự giúp đỡ ở đây ... TQ

 

[dnhuruag]

bạn có chắc của youre PIC sử dụng?16f84 không có khả năng usart, vì vậy trong ngắn hạn là không thể cho bạn giao các vi điều khiển thông qua vb và ngược lại ...