www.elektronik.si

egonh

Poletne počitnice sem izrabil za učenje VBasica in se vrtim v krogu kako sprejeti v Vbasic 8 bytov podatkov, ki ih pošilja PIC. To je 8 temperatur, ki jih pošiljam z ukazom HRSOUT Sdec temp1, Sdec temp2,...
V Vbasicu sem ustvaril Aray, ki sprejme celotno sporočilo, sedaj pa vneto iščem ukaz, kako prebrati posamezen Bayt Araya?

bosko · Objavljeno: Pon Avg 16, 2010 9:33 pm Naslov sporočila:

Če imaš array, potem je to že narejeno npr [slovenščina je zame španska vas](0), [slovenščina je zame španska vas](1) etc do 7.
Ker pa verjetno sprejmeš string, pa moraš vrednosti znotraj stringa karakter po karakterju pretvorit v decimalno vrednost..

Mid potegne določen karakter iz stringe, asc pa karakterju da Ascii vrednost..

temperatura1= asc(mid([slovenščina je zame španska vas],n,1)
temperatura2= asc(mid([slovenščina je zame španska vas],n,1)

egonh · Objavljeno: Tor Avg 17, 2010 7:08 am Naslov sporočila:

Hvala Boško, bom poizkusil. Točno to je težava iz stringa potegnit posamezne dele

egonh · Objavljeno: Ned Avg 22, 2010 7:07 pm Naslov sporočila:

Boško si imel prav

Public Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
Dim posta As String
posta = SerialPort1.ReadExisting()
Label1.Text = Str(Mid(posta, 1, 2))
Label2.Text = Str(Mid(posta, 3, 4))

End Sub

Deluje

bosko · Objavljeno: Pon Avg 23, 2010 8:06 am Naslov sporočila:

Super!