Builder.cz - Informacni server o programovani

Odběr fotomagazínu

Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!

 

Zadejte Vaši e-mailovou adresu:

Kamarád fotí rád?

Přihlas ho k odběru fotomagazínu!

 

Zadejte e-mailovou adresu kamaráda:



Seriova komunikacia

Seznam témat     Nová odpověď

Přihlásit se     Registrace     Zapomenuté heslo

Seriova komunikacia

Autor: Tomasf ♂

13:50:25 05.10.2014

Zdravim, nevyznam sa velmi v programovani vo visual basic, potrebujem ale vytvorit jednoduchy program, ktory cita retazec zo seriovej linky, a nasledne ziskane data vypise.

Toto je cast udajov ktore chcem prijat

MojeCidlo.read(4); // přečte údaje z čidla DTH11 připojeného na pin 0
int teplota = MojeCidlo.temperature;
int vlhkost = MojeCidlo.humidity;

Serial.print("\\n t = ");
Serial.print(teplota);

Serial.print("\\n h = ");
Serial.print(vlhkost);

POTOM toto mi poradili na fore svetelektro ze ako to asi urobit

riadok = seriak.ReadLine()
pozicia = InStr(riadok,"t = ")
if pozicia >0 then
Teplota.Text = "Teplota =" & mid(riadok, pozicia + 3)
end if

A TAKO VYPADA MOJ POKUS CO SA MI PODARILO SPRAVIT

Imports System
Imports System.Threading
Imports System.IO.Ports
Imports System.ComponentModel


Public Class Form1
\'------------------------------------------------
Dim myPort As Array
Delegate Sub SetTextCallback(ByVal [text] As String) \'Added to prevent threading errors during receiveing of data
\'------------------------------------------------
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

myPort = IO.Ports.SerialPort.GetPortNames()
ComboBox1.Items.AddRange(myPort)

Button2.Enabled = False

End Sub
\'------------------------------------------------
Private Sub ComboBox1_Click(sender As System.Object, e As System.EventArgs) Handles ComboBox1.Click
End Sub
\'------------------------------------------------
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
SerialPort1.PortName = ComboBox1.Text
SerialPort1.BaudRate = ComboBox2.Text
SerialPort1.Open()
Button1.Enabled = False
Button2.Enabled = True
Button4.Enabled = True

End Sub
\'------------------------------------------------
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

SerialPort1.Write(RichTextBox1.Text & vbCr) \'concatenate with \\n
End Sub

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
SerialPort1.Close()
Button1.Enabled = True
Button2.Enabled = False
Button4.Enabled = False
End Sub

Private Sub SerialPort1_DataReceived(sender As System.Object, e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
ReceivedText(SerialPort1.ReadExisting())


End Sub

Private Sub Receivedtext(ByVal [text] As String) \'input from ReadExisting


If Me.RichTextBox2.InvokeRequired Then
Dim x As New SetTextCallback(AddressOf ReceivedText)
Me.Invoke(x, New Object() {(text)})
Else

Me.RichTextBox2.Text &= [text] \'append text
Label4.Text = "Teplota =" & [text]
End If

End Sub

End Class

tu je obrazok, nejaka komunikacia tam funguje ale neviem ako to mam citat po riadkoch
[img]http://www.upnito.sk/0/vvcb945zuh89f2gy3qp6mj5rjmacvke6.png[/img]

Citovat příspěvek

 

 

 

Přihlášení k mému účtu

Uživatelské jméno:

Heslo: