Moi! Haluaisin oppia ohjelmoimaan sarjaporttia VB:llä.Miten luetaan porttia ja miten sinne kirjoitetaan? Vielä jos joku viitsisi näyttää viisaampana esimerkin... jos on vaikkapa tekstikenttä johon voi syöttää tekstiä ja commandbuttonista kun painaa niin lähettää tekstin sarjaporttiin.Ja sitten toisinpäin laittaa sarjaportista tulevan tiedon tekstikenttään(ilman että painaa nappulaa nappulaa toki). Olisin erittäin kiitollinen
T:Toni
T:Toni
Vastaukset 11
Vanhimmat
>Miten luetaan porttia ja miten sinne kirjoitetaan?
Mihinkähän tuollaista tarvitset? Läheskään kaikissa uusissa koneissa ei edes ole koko porttia.
ohjailen rakentamaani laitetta(lämmön säädin) jossa on sarjaportti.Sarja viestillä ajattelin antaa laitteelle asetusarvon jonka mukaan lämpöä säädetään, ja taas koneelle haluan mittaus arvon sarjamuodossa..
[email protected]
>ohjailen rakentamaani laitetta...
Muuten toimis kun sais komennettua, vai?
Minkähänlaista liikennekuria se rakentamasi portti noudattaa? Se on kuitenkin ensimmäinen vaatimus mikä pitää tietää ennen kuin liikennettä kannattaa edes yrittää.
rs232.... asciinahan merkit tulevat
mutta se että millä koodilla saan homman pelittämään vb:ssä?
>...asciinahan merkit tulevat
mutta pitää tietää liikennekuri että se toinen pää tietää mitä asciita sinne lähetetään.
Se luettava ascii-merkki on portin nimen mukaan yksinkertaisimmillaankin vain sarja jännite päällä/pois kytkentöjä portin Rx-pinnissä ja ne pitää mennä tahtiin tai muuten menee puuroksi. Vähänkin monimutkaisempi eli yleensä kaksisuuntainen liikenne vaatii vielä kättelyt eli määritetään kumpi portti on lähetystilassa ja kumpi vastaanotossa.
aloitusbitti-databitit-lopetusbitti (8-bittinen)
nopeus vaikkapas 9600...tätäkö tarkoitat?
Koodin pätkän ku sais vielä visual basiciin niin voisin alkaa testailemaan...
Jaa-a aikamoisen haasteen pistit ei monikaan varmaan noita hallitte luulen
I/O kortin, vai onko se jo koneessasi?
En tarvi muuta kuin sen rs.232 portin joka on koneessani kyllä...vastaanotto pää on atmelin avr-mikro kontrolleri
'Lukeminen
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
Text1.Text = MSComm1.Input 'Teksti-ikkuna 1:een
MSComm1.PortOpen = False
'Kirjoitus
MSComm1.CommPort = 1
MSComm1.Settings = "9600,N,8,1"
MSComm1.PortOpen = True
MSComm1.Output = Text2.Text 'Teksti-ikkuna 2:sta
MSComm1.PortOpen = False
Kiitosta! Kyllä tästä mallista jo apuja on että alkuun pääsee.Pitää tässä koodata joskus ja alkaa testailemaan.Jos on jotain vinkkejä siitä että miten sitä imputti liikennettä kannattee pyöritellä...siis jos jotain erikoisvinkkiä löytyy tai jottain.
[email protected]