www.elektronik.si

[toncibalonci]

Rad bi povezal mikrokontroler (89c2051) z računalnikom preko COM porta. Kako naj to izvedem v Visual basicu. Rad bi bral in pošiljal podatke. Prosim za pomoč. Lp

[RokO]

Osebno mi je s povezavami in nasveti pomagala ta stran:

http://www.xtremevbtalk.com/showthread.php?t=264009

[toncibalonci]

Naredil sem tako:

Private Sub Form_Load()
MSComm1.RThreshold = 3
MSComm1.InputLen = 2
MSComm1.Settings = "4800,N,8,1"
MSComm1.DTREnable = False
MSComm1.CommPort = 3
MSComm1.PortOpen = True

End Sub

Private Sub MSComm1_OnComm()
Dim Data As String
Data = MSComm1.Input
Label1 = Data

End Sub

Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End Sub

Stvar sicer deluje ampak izpisuje čudno,rad bi da mi izpisuje številke v eno vrstico,ne pa v dve ali tri tako kot zdaj. Na MCU imam program ki mi na pritisk tipke šteje navzgor,številke pa bi rad izpisoval na računalniku. kako naj naredim izpis v eno vrstico? Lp

[S56RGA]

Poskušaj iz stringe odstranit vbcr in vbnl.

[toncibalonci]

Saj bi če bi vedel kako! Malo pomoči prosim.

[eddie]

Čez vsebino spremenljivke Data se sprehodiš z eno zanko in preverjaš kateri znaki so notri.
Če so prisotni znaki, ki ti pomenijo prelom vrstice jih nadomestiš z na primer presledkom.
Lp

[toncibalonci]

A lahko pokažeš na primeru? Sem na bolj na začetku VB. Lp

[eddie]

Nekaj v tem stilu kot je napisano tukaj bi moralo delovati.
Je še celo bolj enostavno. Ugotoviti moraš katere znake zamenjati.

Lp

[toncibalonci]

Ne kapiram najbolj ta "replace". Kak bi se pa dalo zbrisat zadnja dva znaka?

[eddie]

Mislim da ni kaj veliko za tuhtat:

[S56RGA]

katero verzijo VB uporabljaš?
VB6 in net2003,5,8 se zelo razlikujejo.

-Replace poišče določene znake v spremenljivki in jih zamenja z tvojim parametrom.

recimo

Dim str As String
str = "To so moji podatki" & vbCrLf & "K" 'simulaciaj stringe iz com porta - k dodan kot konec za lažjo predstavo
Debug.Print("Original: " & str)

Debug.Print("Izrezano: " & Replace(str, vbCrLf, "")) 'poišči vbcrlf in zamenjaj z null

[toncibalonci]

Uporabljam VB6.

[S56RGA]

Poskusi z

Label1= Replace(Data, vbcrlf, "")


Lahko pa poskusiš tudi z spreminjanjem parametrov ki jih nastavljaš za port

MSComm1.RThreshold = 3 'poskusi z 2 ali manj. ta ukaz generira on comm event po x sprejetih znakih
MSComm1.InputLen = 2 ' velikost bufferja poskusi z 0

[toncibalonci]

Zdaj sem naredi takole:

Private Sub Form_Load()
MSComm1.Settings = "4800,N,8,1"
MSComm1.CommPort = 3
MSComm1.InputLen = 2
MSComm1.PortOpen = True
MSComm1.RThreshold = 3
Label1 = ""
End Sub

Private Sub MSComm1_OnComm()
Dim Data As Variant
Data = MSComm1.Input
a = Replace(Data, Chr(10), "")
Label1 = Replace(a, Chr(13), "")

End Sub

Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End Sub

Deluje bolje,ampak še ne tako kot bi rad. Še vedno nekaj skače pri tri mestnem število,vem da je to odvisno od
MSComm1.RThreshold = 3
MSComm1.InputLen = 2
če ju drugače nastavim je pa od začetka slabše. Ne vem kaj naj še spremenim??

[jjakob]