Håller på med ett program i V.B. Tankar upp data(2*8 bitar) via rs232 från en pic. Har tänkt annvänt en matris med maskade text.box för att skriva ett nummer (8 bitar). Men det som kommer från pic-en är binära nummer. För att hitta rätt textbox måste den heta lika som det nummer som kommer från pic-en. Har provat &h (hex) men det funkar inte (Property value is not valid). Eller är jag ute i dimman. Brukar Visual Basic 2005(senaste).
Maw...
Visual Basic & Binary
Du får två värden, det ena är "namnet" på den textbox där det andra värdet ska skrivas ut ?
Vilka intervall har de två värderna ? Eller är det 256 olika textboxar ?
Det finns sätt att kombinera objekt och ge dom olika index (som bör vara numeriskt).
Hur ser koden ut som tar emot värderna och hur är variablerna definierade ?
Sen finns det flera olika funktioner för konv melan ascii och olika num format.
Generelt sätt är det bättre att visa den faktiska koden än att försöka
beskriva vad man har gjort.
> Men det som kommer från pic-en är binära nummer.
Mja, det är det ju *alltid*. Sen kan *vissa* binära nummer representera
olika "ASCII tecken" och kan då kallas "text".
Men de är i princip fortfarande binära...
Vilka intervall har de två värderna ? Eller är det 256 olika textboxar ?
Det finns sätt att kombinera objekt och ge dom olika index (som bör vara numeriskt).
Hur ser koden ut som tar emot värderna och hur är variablerna definierade ?
Sen finns det flera olika funktioner för konv melan ascii och olika num format.
Generelt sätt är det bättre att visa den faktiska koden än att försöka
beskriva vad man har gjort.
> Men det som kommer från pic-en är binära nummer.
Mja, det är det ju *alltid*. Sen kan *vissa* binära nummer representera
olika "ASCII tecken" och kan då kallas "text".
Men de är i princip fortfarande binära...
hmm.. Jag förstår absolut ingenting av vad du försöker göra.
Du får alltså 2 värden från din PIC. Det första värdet motsvarar vilken
textbox som den andra värdet ska hamna i...right?
Sen använder du
MaskedTextBox.Mask styr vilka godkända tecken användaren
kan skriva in i textboxen. Varför villl du spara denna mask i matrisen??
Sedan kommer vi till
Funktionen Array.Find(array, match) söker igenom en matris och lämnar
index tillbaka på hittat element t.ex
Index skulle här bli 4:a alltså
Om du nu vill använda 300 textboxer är nog det enklasta ett placera dessa textboxar i en matris.
Sedan räcker det med att du tar emot det första värdet, kontrollerar att
det är ok och placerar det i rätt textbox något sånt här:
Nu skulle jag nog inte rekommendera att använda 300 textboxar.. Bättre måste vara att använda någon typ av ListControl eller göra ett VBA Makro i EXCEL!
Du får alltså 2 värden från din PIC. Det första värdet motsvarar vilken
textbox som den andra värdet ska hamna i...right?
Sen använder du
Kod: Markera allt
Matris(3478) = MaskedTextBox.Mask
kan skriva in i textboxen. Varför villl du spara denna mask i matrisen??
Sedan kommer vi till
Kod: Markera allt
Array.Find(3478,Matris)
index tillbaka på hittat element t.ex
Kod: Markera allt
Dim Matris(10) As String, Index as Integer
Matris(1) = "japp"
Matris(2) = "ok"
Matris(3) = "blabla"
Matris(4) = "fulukorv"
index = Array.Find(Matris, "blabla")
Om du nu vill använda 300 textboxer är nog det enklasta ett placera dessa textboxar i en matris.
Sedan räcker det med att du tar emot det första värdet, kontrollerar att
det är ok och placerar det i rätt textbox något sånt här:
Kod: Markera allt
Dim tIndex as Integer
Dim tValue as Integer
Do
DoEvents
Loop Until MsComm1.InputLen > 0
tIndex = Asc(MsComm1.Input)
Do
DoEvents
Loop Until MsComm1.InputLen > 0
tValue = Asc(MsComm1.Input)
Text1(tIndex).Text = CStr(tValue)
Tack alamotte
Precis!!
Hm! Låser textboxen för nummer genom mask.
Vill inte använda exel.
Tackar!!
Maw...
Hm! Låser textboxen för nummer genom mask.
Vill inte använda exel.
Tackar!!
Maw...
