Potrebna mi je pomoc oko koda za paljenje ledica na kontroleru iz VB
Znaci potrebno je u basic-u napraviti samo jedno dugme, koje kad se klikne na njega pali led na 16f84...u VB sam otvorio port i poslao podatak (recite ako gresim negde):
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "2400,N,8,1"
MSComm1.DTREnable = False
MSComm1.PortOpen = True
End Sub
Private Sub Command1_Click()
MSComm1.Output = Chr$(255)
End Sub
E sad problem je oko koda za Pic ...uradio sam ovako, a vi mi pomozite da vidim gde sam pogresio:
INCLUDE "modedefs.bas"
loop var byte
start:
Serin porta.1,N2400,["255"],loop
IF loop = 255 Then
Goto led
else
GOTO start
endif
led:
High PORTB.4
Pause 5000
GoTo start
End
Sema se svodi na led na portb.4 i na TX sa porta preko otpornika od 10k na porta.1
hvala
zero hour