взаємодії Б. 6 з PIC 16F84

[win_832001]

привіт ..Мені потрібна допомога тут ... Я намагаюся відправити дані за допомогою СБ 6 до PIC 16F84 через команду MSComm ... Я намагаюся 'на' світлодіод на вихід ... може хто-небудь перевірити свою програму, ПОС і VB6 мій код ..
ПІК код:
INCLUDE "modedefs.bas" Включити серійний режими
DEFINE OSC 4

сі VAR PORTA.4 '
петля VAR BYTE

старт:
Серін сі, T2400, ["255"], петля

Якщо цикл Тоді привели
привели:

Висока PORTB.4
Пауза 5000
GoTo почати

Кінець

VB 6 код:
Private Sub cmdsend_Click ()Dim PinState As Byte
"Отримати Pin держави
Якщо optState (0). Співвідношення = True Then
PinState = 0
Ще
PinState = 1
End If

'Відправити З даних
MSComm1.Output = Chr $ (255)
End SubЧастина Form_Load південь ()

Пальці Dim As Long
'За замовчуванням в optState (0) тим, що ви
optState (0). Значення = True

"Використовувати COM1
MSComm1.CommPort = 1

'2400 Бод, без перевірки парності, 8 біт даних, 1 стоп-біт
MSComm1.Settings = "2400, N, 8,1"

"Відключити DTR
MSComm1.DTREnable = False

"Відкритий порт
MSComm1.PortOpen = True
InputLen = 0
RThreshold = 0

End Sub

Private Sub Form_Unload (Скасувати As Integer)
MSComm1.PortOpen = False
End SubМені дуже потрібна допомога тут ... TQ

 

[dnhuruag]

ви впевнені Youre ПІК використовуєте?16F84 не має USART можливості, так і в загальному, вам не можна спілкуватися мікроконтролера через VB і навпаки ...