Diskuzní fórum Elektro Bastlírny

Zdravím.
Začínám se trochu učit s VB. Nevím jak nastavit v programu com port pro odesílání a příjem dat.
Mám tento kód:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim data As String = TextBox1.Text
Using com11 As IO.Ports.SerialPort =
My.Computer.Ports.OpenSerialPort("com11")
com11.WriteLine(data)

End Using

End Sub

text z textového pole se mi po stisku tlačítka odešle na port 11.To funguje dobře. Zde je však COM11 pevně nastaven v kódu. Já bych však potřeboval ho umět měnit. tak abych si ho zvolil v jiné části programu a on se mi promítl do tohoto kódu.
Něco jako COM X a X bych přiřazoval různá čísla dle potřeby.
Poradí Někdo?

Kdyz si ten port nekde nadefinujes jako globalni promennou ti nefunguje?

Matne si spominam že musíš port aj otvoriť. A ten obsah "xxx" daj value toho kde to nastavuješ.

Právě s tou proměnnou mi to nejde, nebo dělám někde chybu.
mihal můžeš nastínit jak s tím value? Jinak v tom kódu se port otevře.
A ještě jedna věc, jde "nějak udělat" aby to odesílalo i znaky s diakritikou?

Doporučuji ti prostudocat knihu Bergharda Kainky Využití rozhraní PC pod Windows.
Kniha je na ulozto.cz. Já používat to druhou polovinu knihy pro Delphi a vše funguje k mé naprosté spokojenosti.
PF

scorpions-cz píše:Právě s tou proměnnou mi to nejde, nebo dělám někde chybu.

Problem mas s globalni promennou obecne, nebo v tom ze ti to nefunguje s tim portem? Na prvni pohled nevidim nejaky zrejmy duvod proc by to nemelo fungovat, ale ve VB delam jen dost okrajove, takze ruku do ohne bych za to nedal A nemam jak to ted vyzkouset.

Mrkni treba tady, resi neco podobneho. https://www.vbforums.com/showthread.php ... erial-port

Vo Visual Basicu som v zivote nerobil, ale povedal by som podla syntaxe, ze miesas dokopy dve veci - nazov premennej/objektu:

scorpions-cz píše:Using com11 As IO.Ports.SerialPort =

a nazov portu:

My.Computer.Ports.OpenSerialPort("com11")

Takze namiesto nazvu premennej/objektu com11 daj len napr. com (ak to nie je nejake rezervovane slovo). Ten bude vzdy rovnaky.
A nazov portu "com11" je obycajny retazec. Namiesto neho tam mozes dat nazov tej globalnej premennej alebo niecoho ineho, do coho nastavis spravny port.

rnbw
To možná jo, ale pokud se neshoduje název portu s názvem objektu tak to nefunguje
oprava tak to by asi šlo, zkusím to.

No ja som používal tak 15rokov dozadu MSCOMM32.OCX a port sa nastavoval nejak MSComm1.CommPort = Combo1.Text kde bolo na výber číslo portu ale presný syntax už odvial čas. Matne si spomínam že som s tým tiež zápasil, mal som to dlho cez sériu If ale potom som niekde našiel správny syntax, no, bolo to dávno.

scorpions-cz píše:To možná jo, ale pokud se neshoduje název portu s názvem objektu tak to nefunguje

V teto ukazce kodu primo od M$ s tim zadny problem nemaji.

Public Function ReceiveSerialDataPort8() As String
' Receive strings from a serial port.
Dim returnStr As String = ""

Dim com1 As IO.Ports.SerialPort = Nothing
Try
com1 = My.Computer.Ports.OpenSerialPort("COM8", 9600, Parity.None, 8, StopBits.One)
com1.ReadTimeout = 10000
Do
Dim Incoming As String = com1.ReadLine()
If Incoming Is Nothing Then
Exit Do
Else
returnStr &= Incoming & vbCrLf
End If
Loop
Catch ex As TimeoutException
returnStr = "Error: Serial Port read timed out."
Finally
If com1 IsNot Nothing Then com1.Close()
End Try

Return returnStr
End Function

Dík.
Teď jsem to zkoušel podle rnbw a začalo to fungovat.

Dim X As String
X = "com6"
Dim data As String = TextBox1.Text
Using com As IO.Ports.SerialPort =
My.Computer.Ports.OpenSerialPort(X)
com.WriteLine(data)

Ještě jde nějak vyřešit ta diakritika?

Co ti to vlastne posila v hexu kdyz pouzijes diakritiku?
Sedi to podle tohoto?
Nebo tam mas nad 127 jen otazniky nebo nebo podobneho?
https://cs.wikipedia.org/wiki/Windows-1250

když použiju písmeno s diakritikou, tak je tam ?

Musis to prekodovat.
Zkus to treba pomoci muj_port.Encoding = System.Text.Encoding.GetEncoding(1250)

Dík. dneska už do toho čučet nebudu, zítra to zkusím a dám vědět.