[ zero hour @ 15.07.2010. 17:39 ] @
Pozdrav
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

[ Sepa011 @ 15.07.2010. 18:17 ] @
Citat:
%< %< %<
Serin porta.1,N2400,["255"],loop
%< %< %<

treba da bude
Code:
Serin porta.1,N2400,[255],loop

HTH
[ zero hour @ 15.07.2010. 18:36 ] @
To brate hvala ti puno...uopste nisam obracao paznju na to :)
[ Sepa011 @ 15.07.2010. 20:17 ] @
Xexe, saljes $FF a testiras dal ti stiglo do piconje $32 $35 $35

Nekome sam vec pisao da mora da izuci kakva je razlika izmedju bajta (0..255) i niza bajtova koji se jos nazivaju String
[ foxhunter1 @ 16.07.2010. 18:11 ] @
Citat:
Sepa011: treba da bude
Code:
Serin porta.1,N2400,[255],loop

HTH

Ovako kako je Sepa011 napisao radice ako sa PCja dva puta posaljes $FF.

Code:
Serin porta.1,N2400,[255],loop
ceka prvi karakter i ako je on chr$(255) sledeci karakter ce smestiti u varijablu zvanu loop. Kako je tebi to prvi i poslednji karakter ne bi trebalo da radi. Ako posaljes chr$(255),ChrS(255) (radim sa Delphijem i nisam familijaran sa VB), prvi ChrS(255) ce biti 'okidac' da sledeci bajt smesti u varijablu loop, a kako je i sledeci Chr$(255) tvoj uslov za paljenje LEDa bice ispunjen!
[ Sepa011 @ 16.07.2010. 18:39 ] @
Potpuno si u pravu da ce tek drugi bajt da smesti u promenljivu, stos je u tome da junose, za sada, tesko prave razliku izmedju bajta i stringa. 255 mu nekako dodje i string i bajt