Springen naar inhoud


- - - - -

Lcp Codes Uitlezen Vertalen En Tekst Naar Display Sturen.


  • Log in a.u.b. om te beantwoorden
Er zijn 5 reacties in dit onderwerp

#1 Kris

Kris

    Starting Developer

  • Leden
  • 6 berichten
    Laatst bezocht 12 Apr 2013 02:55
Inzender

Geplaatst op 07 March 2013 - 19:24


Hoi,
ik  geef hier een voorbeeld van codes(strings) dat ik ontvang van het LCP scherm.
ik lees deze codes via de COM1 poort binnen .

voorbeeld binnen komende (Bitmap) codes :
^A000000^BM0000000000FC
^A000000^BM0000000000AF
^A000000^BM0000000000B9

deze codes zou ik dan willen omzetten en terug via de COM1 naar het extern display sturen.
^A010006^E1^L0^K0  TEST
^A010006^E1^L0^K0  START
^A010006^E1^L0^K0  STOP

Het binnen lezen en het uitsturen naar het display lukt me.
ik wil de binnenkomde code vergelijken met de vorige code,
indien die gewijzig is
sent de betreffende code dan naar extern display

voorbeeld:
^A000000^BM0000000000FC  wordt binnengelezen vergeleken met voorgaande code
indien dezelfde code dan niks doen
indien verschillend dan stuur
^A010006^E1^L0^K0  TEST
naar com.

Weet iemand om hier aan te beginnen, wat hits of voorbeeldje
in praktijk zijn het er een 40 tal codes die ik moet omzetten.

Alvast bedankt.

#2 pascalbianca

pascalbianca

    Webmaster/Admin

  • Webmaster
  • 4084 berichten
    Laatst bezocht gisteren, 14:27
  • LocatieSusteren, Nederland, Midden Limburg.
Inzender

Geplaatst op 07 March 2013 - 20:40

Kun je dan niet gewoon een if functie gebruiken?
Dus if oude code = nieuwe code then en anders met else uitvoeren indien anders? of een case ervan maken.
Tenminste als je VB gebruikt om alles vanaf de com poort te sturen of te lezen.

Wat is het gezegde in Ontwikkeling van software.: Er zijn vele wegen die naar Rome leiden, de kunst is de goede te vinden.
email : pascalbianca@vbib.be
of email : webmaster@vbib.be
MSN.:: pmhaschuffelers@hotmail.com
Volg ook mijn Raspberry Pi Blog.:: link


Geplaatste afbeelding


Huisregels - Tutorials - VS 2012 Express - Keybinding Posters - Code Tags gebruiken - LessThenDot - MSDN


*** If you like you're solution or appriciate the crew's effort, please click on the facebook like or the Google + button ***


#3 Kris

Kris

    Starting Developer

  • Leden
  • 6 berichten
    Laatst bezocht 12 Apr 2013 02:55
Inzender

Geplaatst op 07 March 2013 - 23:25

ja dat lukt wel meer heb heel veel combinaties en dan wordt het wel complex om te schrijven

Voorbeeld:
het extern display (2lijnen van 24 segmenten) is onderverdeeld in 3 groepen


binnen kommende code:
^A000000^BM000000AAEEFC

voorbeeld display indeling:

***PLAATS****TOESTEL***
***FOUT*****************

lijst bestaat uit:
PLAATS1     TOESTEL1 FOUT1
PLAATS2     TOESTEL2 FOUT2
PLAATS3     TOESTEL3 FOUT3
PLAATS4     TOT TOT
PLAATS5     TOESTEL9 FOUT40

ik moet eigenlijk kijken naar een bepaald stukje uit de string en dan uit de lijst kiezen wat waar moet staan.

Moet ik een Array gebruiken?
en hoe lees ik dat bepaald stukje code uit de binnenkomende string?

mvg

#4 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3429 berichten
    Laatst bezocht vandaag, 17:33
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 07 March 2013 - 23:42

Dag Kris,

Je kan dat in een list opslaan, en dan vergelijken met .contains method.

wat ik niet goed begrijp, is dit in vb.net (console?) dat je dit doet ?

greetzz
RedThread.

*** If you like youre solution or appriciate the crew's effort, please click on the facebook like or the Google +1 button ***

 

- Any fool can know, the point is to understand -


email : RedThread@vbib.be | MSN : Red_Thread@Hotmail.com

Huisregels - Tutorials - VS 2013 Express - Keybinding Posters - Code Tags gebruiken - LessThenDot - MSDN


#5 RedThread

RedThread

    Beheerder VBIB

  • Beheerder
  • 3429 berichten
    Laatst bezocht vandaag, 17:33
  • LocatieTongeren,Belgium.
Inzender

Geplaatst op 07 March 2013 - 23:47

zoiets :

Visual Basic Code:
	Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
		Dim x As New List(Of String)
		x.Add("^A000000^BM000000AAEEFC")
		x.Add("^A000000^BM000000BBEEFC")
		x.Add("^A000000^BM000000CCEEFC")
		x.Add("^A000000^BM000000DDEEFC")
		If Not x.Contains("^A000000^BM000000AAEEFC") Then x.Add("^A000000^BM000000DDEEFC")
	End Sub


maar je moet dat natuurlijk in een function of zo steken.

Greetzzz

*** If you like youre solution or appriciate the crew's effort, please click on the facebook like or the Google +1 button ***

 

- Any fool can know, the point is to understand -


email : RedThread@vbib.be | MSN : Red_Thread@Hotmail.com

Huisregels - Tutorials - VS 2013 Express - Keybinding Posters - Code Tags gebruiken - LessThenDot - MSDN


#6 Kris

Kris

    Starting Developer

  • Leden
  • 6 berichten
    Laatst bezocht 12 Apr 2013 02:55
Inzender

Geplaatst op 11 March 2013 - 08:19

Bericht bekijkenKris, op 07 March 2013 - 19:24, zei:

Hoi,
ik  geef hier een voorbeeld van codes(strings) dat ik ontvang van het LCP scherm.
ik lees deze codes via de COM1 poort binnen .

voorbeeld binnen komende (Bitmap) codes :
^A000000^BM0000000000FC
^A000000^BM0000000000AF
^A000000^BM0000000000B9

deze codes zou ik dan willen omzetten en terug via de COM1 naar het extern display sturen.
^A010006^E1^L0^K0  TEST
^A010006^E1^L0^K0  START
^A010006^E1^L0^K0  STOP

Het binnen lezen en het uitsturen naar het display lukt me.
ik wil de binnenkomde code vergelijken met de vorige code,
indien die gewijzig is
sent de betreffende code dan naar extern display

voorbeeld:
^A000000^BM0000000000FC  wordt binnengelezen vergeleken met voorgaande code
indien dezelfde code dan niks doen
indien verschillend dan stuur
^A010006^E1^L0^K0  TEST
naar com.

Weet iemand om hier aan te beginnen, wat hits of voorbeeldje
in praktijk zijn het er een 40 tal codes die ik moet omzetten.

Alvast bedankt.

Bericht bekijkenRedThread, op 07 March 2013 - 23:47, zei:

zoiets :

Visual Basic Code:
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
	 Dim x As New List(Of String)
	 x.Add("^A000000^BM000000AAEEFC")
	 x.Add("^A000000^BM000000BBEEFC")
	 x.Add("^A000000^BM000000CCEEFC")
	 x.Add("^A000000^BM000000DDEEFC")
	 If Not x.Contains("^A000000^BM000000AAEEFC") Then x.Add("^A000000^BM000000DDEEFC")
End Sub


maar je moet dat natuurlijk in een function of zo steken.

Greetzzz


oke we gaan dit deze week eens proberen
alvast bedankt.




0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


Untitled 1

Hosting provided by Combell
Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
vbib.be - vbnet.be - vbdotnet.be - visualbasic.be