Založen: Mar 19, 2011 Příspěvky: 1867 Bydliště: Jižní Čechy Dačicko
Zaslal: po květen 24 2021, 13:59 Předmět: Visual basic 2010- com port
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?
Založen: Mar 19, 2011 Příspěvky: 1867 Bydliště: Jižní Čechy Dačicko
Zaslal: po květen 24 2021, 16:46 Předmět:
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
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.
Založen: Mar 21, 2006 Příspěvky: 33860 Bydliště: Bratislava
Zaslal: po květen 24 2021, 20:38 Předmět:
Vo Visual Basicu som v zivote nerobil, ale povedal by som podla syntaxe, ze miesas dokopy dve veci - nazov premennej/objektu:
scorpions-cz napsal(a):
Using com11 As IO.Ports.SerialPort =
a nazov portu:
citace:
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.
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.
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
Založen: Mar 19, 2011 Příspěvky: 1867 Bydliště: Jižní Čechy Dačicko
Zaslal: po květen 24 2021, 20:59 Předmět:
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)
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
Časy uváděny v GMT + 1 hodina Jdi na stránku 1, 2, 3, 4Další
Strana 1 z 4
Nemůžete odesílat nové téma do tohoto fóra. Nemůžete odpovídat na témata v tomto fóru. Nemůžete upravovat své příspěvky v tomto fóru. Nemůžete mazat své příspěvky v tomto fóru. Nemůžete hlasovat v tomto fóru. Nemůžete připojovat soubory k příspěvkům Můžete stahovat a prohlížet přiložené soubory
Informace na portálu Elektro bastlírny jsou prezentovány za účelem vzdělání čtenářů a rozšíření zájmu o elektroniku. Autoři článků na serveru neberou žádnou zodpovědnost za škody vzniklé těmito zapojeními. Rovněž neberou žádnou odpovědnost za případnou újmu na zdraví vzniklou úrazem elektrickým proudem. Autoři a správci těchto stránek nepřejímají záruku za správnost zveřejněných materiálů. Předkládané informace a zapojení jsou zveřejněny bez ohledu na případné patenty třetích osob. Nároky na odškodnění na základě změn, chyb nebo vynechání jsou zásadně vyloučeny. Všechny registrované nebo jiné obchodní známky zde použité jsou majetkem jejich vlastníků. Uvedením nejsou zpochybněna z toho vyplývající vlastnická práva. Použití konstrukcí v rozporu se zákonem je přísně zakázáno. Vzhledem k tomu, že původ předkládaných materiálů nelze žádným způsobem dohledat, nelze je použít pro komerční účely! Tento nekomerční server nemá z uvedených zapojení či konstrukcí žádný zisk. Nezodpovídáme za pravost předkládaných materiálů třetími osobami a jejich původ. V případě, že zjistíte porušení autorského práva či jiné nesrovnalosti, kontaktujte administrátory na diskuzním fóru EB.
FAQ
Hledat
Uživatelské skupiny
Profil
Soukromé zprávy
Přihlášení
A nemam jak to ted vyzkouset.
tak to by asi šlo, zkusím to.