21/07/12 21:49
lupino
Buongiorno a tutti, sto cercando di creare un programma in vb.net in grado di trasportare su di un grafico i valori raccolti tramite scheda di acquisizione da vari sensori.
Il grafico in questione, del tipo x/y, è rappresentato da una picturebox ed i vari punti (valori dei sensori) sono in esso riportati nell'evento "Paint" attraverso la funzione fillrectangle(Brushes.Blue, Point.X, Point.Y, 3, 3).
Onde ovviare alla normale cancellazione che avverrebbe ridimensionando il Form o in caso di sovrapposizione di altri form, e, al fine di avere un array contenente tutti di dati raccolti da poter salvare direttamente su disco, inserisco i valori provenienti da ogni sensore, sottoforma di Point in una list(of Point).
Partendo dal presupposto di avere 4 sensori ...
La mia domanda è la seguente:
E' possibile riunire le varie "liste" in un solo array? ...della serie
in tal caso (spero la sintassi sia giusta) l'inserimento dei vari valori dovrebbe avvenire:
Chiedo venia ai moderatori per eventuali "brutture" nel mio scritto... arrivo dal modesto vba e ..... bè immaginerete il salto che mi è toccato fare
Il grafico in questione, del tipo x/y, è rappresentato da una picturebox ed i vari punti (valori dei sensori) sono in esso riportati nell'evento "Paint" attraverso la funzione fillrectangle(Brushes.Blue, Point.X, Point.Y, 3, 3).
Onde ovviare alla normale cancellazione che avverrebbe ridimensionando il Form o in caso di sovrapposizione di altri form, e, al fine di avere un array contenente tutti di dati raccolti da poter salvare direttamente su disco, inserisco i valori provenienti da ogni sensore, sottoforma di Point in una list(of Point).
Partendo dal presupposto di avere 4 sensori ...
Private GraphPt1, GraphPt2, GraphPt3, GraphPt4 As New List(Of Point)
La mia domanda è la seguente:
E' possibile riunire le varie "liste" in un solo array? ...della serie
Private GraphPt As List(Of Point)() ...... Private Sub frmGraph_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load GraphPt = New List(Of Point)(4) {} .........
in tal caso (spero la sintassi sia giusta) l'inserimento dei vari valori dovrebbe avvenire:
.... ' GraphPort sono le porte a cui sono collegati i sensori 'tmX e tmY rappresentano il valore del sensore trasformato in coordinate For indx As Int16 = 0 To 3 If GraphPort(indx) <> "OFF" Then GraphPt(indx).Add(New Point(tmX, tmY)) End If Next ...
Chiedo venia ai moderatori per eventuali "brutture" nel mio scritto... arrivo dal modesto vba e ..... bè immaginerete il salto che mi è toccato fare
Ultima modifica effettuata da lupino 22/07/12 0:27
aaa