Er zijn 5 reacties in dit onderwerp

[Kris]

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.

[pascalbianca]

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.

[Kris]

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

[RedThread]

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.

[RedThread]

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

[Kris]

Kris, 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.

RedThread, 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.