interfacing VB 6 med PIC 16F84

[win_832001]

hej ..Jeg har brug for hjælp her ... Jeg forsøger at sende data ved hjælp af VB 6 til PIC 16F84 gennem MScomm kommando ... Jeg har prøve at 'on' LED på output ... kan man se mine PIC-program og min VB6 kode ..
PIC-kode:
Include "modedefs.bas" 'Medtag seriel tilstande
DEFINE OSC 4

si VAR PORTA.4 '
loop VAR BYTE

start:
Serin si, T2400, [ "255"], loop

IF loop Så førte
LED:

Høj PORTB.4
Pause 5.000
GoTo start

Ende

vb 6-kode:
Private Sub cmdsend_Click ()Dim PinState Som Byte
»Få Pin stat
Hvis optState (0). Value = True Derefter
PinState = 0
Anden
PinState = 1
End If

'Send Out Data
MSComm1.Output = Chr $ (255)
End SubPrivate Sub Form_Load ()

Dim Pins As Long
»Standard for optState (0) er udvalgt
optState (0). Value = True

'Brug COM1
MSComm1.CommPort = 1

"2400 baud, ingen paritet, 8 databit, 1 stop bit
MSComm1.Settings = "2400, N, 8,1"

'Deaktiver DTR
MSComm1.DTREnable = False

ȁbn porten
MSComm1.PortOpen = True
InputLen = 0
RThreshold = 0

End Sub

Private Sub Form_Unload (Cancel As Integer)
MSComm1.PortOpen = False
End SubJeg er meget brug for hjælp her ... tq

 

[dnhuruag]

er du sikker på PIC youre bruger?16F84 har ingen USART kapacitet, så kort det er umuligt for dig at kommunikere det mikrokontroller gennem vb og omvendt ...