26/11/09 15:41
aduri
Premetto che non conosco molto bene questo sw, io per lo più traffico con i compilatori MikroC e Mikrobasic relativo ai microcontrollori PIC.
Sono riuscito a leggere dei segnali analogici convertirli in digitale a 10bit e inviarli attraverso la seriale e visualizzarli su LCD e su Yperterminal.
Ora sto combattendo con l'interfaccia col PC.
Sto provando con VB6 e con VBA ma ho difficoltà.
Il mio intendimento è quello di porre su un grafico cartesiano tre variabili acquisite dagli adc del pic.
Più precisamente un tracciacurve x valvole dove Ianodica (Ia) in ordinata, Vanodica (Va) in ascissa in funzione di diverse tensioni di griglia (Vg).
I dati dalla seriale arrivano con 84x3=252 variabili testo (5 caratteri) a gruppi di 3 con virgola e punto e virgola usati come separatori.
es: " 1023, 45, 945; 1021, 4, 45; ecc...." dove il primo termine è la Va il secondo la Vg ed il terzo la Vk (da cui ricavo la Ia)
io vorrei quindi caricare in un foglio excel le tre serie di 84 punti partendo dalla cella A1-A84, B1-B84 e C1-C84.
Pescando quà e là e mettendoci un pò di mio con VB6 sono riuscito a visualizzare il buffer che arriva dalla seriale e visualizzarlo sulla data.text.
Ho preso un esempio per aprire un file excel e fare un grafico con dati random ed ho caricato i punti nel range di celle suddette.
Quello che vi chiedo è un aiuto per passare i dati del buffer seriale per il caricamento del foglio excel.
Come fare, una volta premuto il comando "cancella grafico", a chiudere excel (ho provato in diversi modi commentati in Sub command_2 click ma senza successo).
Ultima cosa, come si fa a scegliere in questa applicazione un grafico a linee anzichè a istogrammi? (ho provato con oChart.chartType = VtChChartType2dLine ma
mi da errore 13)
Questo è ciò che ho tirato giù fino ad ora:
codice:
Private Sub Command1_Click()
Dim oXL As Object ' Excel application
Dim oBook As Object ' Excel workbook
Dim oSheet As Object ' Excel Worksheet
Dim oChart As Object ' Excel Chart
Dim iRow As Integer ' Index variable for the current Row
Dim iCol As Integer ' Index variable for the current Row
Const cNumCols = 84 ' Number of points in each Series
Const cNumRows = 3 ' Number of Series
ReDim aTemp(1 To cNumRows, 1 To cNumCols)
'Start Excel and create a new workbook
Set oXL = CreateObject("Excel.application"
Set oBook = oXL.Workbooks.Add
Set oSheet = oBook.Worksheets.Item(1)
' Insert Random data into Cells for the three Series:
Randomize Now()
For iRow = 1 To cNumRows
For iCol = 1 To cNumCols
aTemp(iRow, iCol) = Int(Rnd * 50) + 1
Next iCol
Next iRow
oSheet.Range("A1".Resize(cNumRows, cNumCols).Value = aTemp
'Add a chart object to the first worksheet
Set oChart = oSheet.ChartObjects.Add(70, 5, 450, 280).Chart
'oChart.chartType = VtChChartType2dLine
oChart.SetSourceData Source:=oSheet.Range("A1".Resize(cNumRows, cNumCols)
' Make Excel Visible:
oXL.Visible = True
oXL.UserControl = True
End Sub
Private Sub Command2_Click()
'Kill "c:\documents and settings\administrator\documenti\cartel1.xls"
'oXL.Visible = False
'oXL.UserControl = False
End
End Sub
Private Sub Form_Load()
Form1.Caption = "Gestione seriale"
With MSComm1
.CommPort = 1
.Handshaking = 2 - comRTS
.RThreshold = 1
.RTSEnable = True
.Settings = "9600,n,8,1"
.SThreshold = 1
.PortOpen = True
' Leave all other settings as default values.
End With
OutputDisplay.Text = "Infobox"
InformationDisplay.Text = "Databox"
Help.Text = "Helpbox"
Data.Text = ""
Newdata = "" 'initialize to empty
End Sub
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End Sub
Private Sub MSComm1_OnComm()
Dim InBuff As String
Dim I As Integer 'used to inspect each incoming character
Dim theChar As String 'each received character
Dim theInfo As String
InformationDisplay.Text = ""
Select Case MSComm1.CommEvent
' Handle each event or error by placing
' code below each case statement.
' This template is found in the Example
' section of the OnComm event Help topic
' in VB Help.
' Errors
Case comEventBreak ' A Break was received.
Case comEventCDTO ' CD (RLSD) Timeout.
Case comEventCTSTO ' CTS Timeout.
Case comEventDSRTO ' DSR Timeout.
Case comEventFrame ' Framing Error.
Case comEventOverrun ' Data Lost.
Case comEventRxOver ' Receive buffer overflow.
Case comEventRxParity ' Parity Error.
Case comEventTxFull ' Transmit buffer full.
Case comEventDCB ' Unexpected error retrieving DCB]
' Events
Case comEvCD ' Change in the CD line.
Case comEvCTS ' Change in the CTS line.
Case comEvDSR ' Change in the DSR line.
Case comEvRing ' Change in the Ring Indicator.
Case comEvReceive ' Received RThreshold # of chars.
InBuff = MSComm1.Input 'received 1 or more characters
For I = 1 To Len(InBuff) 'examine each received character in sequence
theChar = Mid$(InBuff, I, 1) 'extract the next character
If Asc(theChar) = 13 Then 'Look for CR
theInfo = Mid$(Newdata, 2, 1)
'Loads the second letter in the String "Newdata" in "theInfo" is a (I) or (P)
If theInfo = "I" Then
InformationDisplay.SelLength = 0
InformationDisplay.SelStart = Len(InformationDisplay.Text)
InformationDisplay.SelText = Newdata + vbCr + vbLf
'include a CR and LF to separate from next line placed in OutputDisplay
InformationDisplay.SelLength = 0
ElseIf theInfo = "P" Then
OutputDisplay.SelLength = 0
OutputDisplay.SelStart = Len(OutputDisplay.Text)
OutputDisplay.SelText = Newdata + vbCr + vbLf
'include a CR and LF to separate from next line placed in OutputDisplay
OutputDisplay.SelLength = 0
End If
Newdata = ""
'clear NewData so it can assemble the next packet
Data.SelLength = 0
Data.SelStart = 2
Data.SelText = vbCrLf
Data.SelLength = 0
ElseIf Asc(theChar) <> 10 Then 'ignore linefeeds
Newdata = Newdata + theChar
'received a character -- append it to NewData
Data.SelLength = 0
Data.SelStart = Len(Data.Text)
Data.SelText = theChar
Data.SelLength = 0
End If
Next I
Case comEvSend ' There are SThreshold number of
' characters in the transmit buffer.
Case comEvEOF ' An EOF character was found in the
' input stream.
End Select
End Sub
Grazie
Antonio
Sono riuscito a leggere dei segnali analogici convertirli in digitale a 10bit e inviarli attraverso la seriale e visualizzarli su LCD e su Yperterminal.
Ora sto combattendo con l'interfaccia col PC.
Sto provando con VB6 e con VBA ma ho difficoltà.
Il mio intendimento è quello di porre su un grafico cartesiano tre variabili acquisite dagli adc del pic.
Più precisamente un tracciacurve x valvole dove Ianodica (Ia) in ordinata, Vanodica (Va) in ascissa in funzione di diverse tensioni di griglia (Vg).
I dati dalla seriale arrivano con 84x3=252 variabili testo (5 caratteri) a gruppi di 3 con virgola e punto e virgola usati come separatori.
es: " 1023, 45, 945; 1021, 4, 45; ecc...." dove il primo termine è la Va il secondo la Vg ed il terzo la Vk (da cui ricavo la Ia)
io vorrei quindi caricare in un foglio excel le tre serie di 84 punti partendo dalla cella A1-A84, B1-B84 e C1-C84.
Pescando quà e là e mettendoci un pò di mio con VB6 sono riuscito a visualizzare il buffer che arriva dalla seriale e visualizzarlo sulla data.text.
Ho preso un esempio per aprire un file excel e fare un grafico con dati random ed ho caricato i punti nel range di celle suddette.
Quello che vi chiedo è un aiuto per passare i dati del buffer seriale per il caricamento del foglio excel.
Come fare, una volta premuto il comando "cancella grafico", a chiudere excel (ho provato in diversi modi commentati in Sub command_2 click ma senza successo).
Ultima cosa, come si fa a scegliere in questa applicazione un grafico a linee anzichè a istogrammi? (ho provato con oChart.chartType = VtChChartType2dLine ma
mi da errore 13)
Questo è ciò che ho tirato giù fino ad ora:
codice:
Private Sub Command1_Click()
Dim oXL As Object ' Excel application
Dim oBook As Object ' Excel workbook
Dim oSheet As Object ' Excel Worksheet
Dim oChart As Object ' Excel Chart
Dim iRow As Integer ' Index variable for the current Row
Dim iCol As Integer ' Index variable for the current Row
Const cNumCols = 84 ' Number of points in each Series
Const cNumRows = 3 ' Number of Series
ReDim aTemp(1 To cNumRows, 1 To cNumCols)
'Start Excel and create a new workbook
Set oXL = CreateObject("Excel.application"
Set oBook = oXL.Workbooks.Add
Set oSheet = oBook.Worksheets.Item(1)
' Insert Random data into Cells for the three Series:
Randomize Now()
For iRow = 1 To cNumRows
For iCol = 1 To cNumCols
aTemp(iRow, iCol) = Int(Rnd * 50) + 1
Next iCol
Next iRow
oSheet.Range("A1"
.Resize(cNumRows, cNumCols).Value = aTemp
'Add a chart object to the first worksheet
Set oChart = oSheet.ChartObjects.Add(70, 5, 450, 280).Chart
'oChart.chartType = VtChChartType2dLine
oChart.SetSourceData Source:=oSheet.Range("A1"
.Resize(cNumRows, cNumCols)
' Make Excel Visible:
oXL.Visible = True
oXL.UserControl = True
End Sub
Private Sub Command2_Click()
'Kill "c:\documents and settings\administrator\documenti\cartel1.xls"
'oXL.Visible = False
'oXL.UserControl = False
End
End Sub
Private Sub Form_Load()
Form1.Caption = "Gestione seriale"
With MSComm1
.CommPort = 1
.Handshaking = 2 - comRTS
.RThreshold = 1
.RTSEnable = True
.Settings = "9600,n,8,1"
.SThreshold = 1
.PortOpen = True
' Leave all other settings as default values.
End With
OutputDisplay.Text = "Infobox"
InformationDisplay.Text = "Databox"
Help.Text = "Helpbox"
Data.Text = ""
Newdata = "" 'initialize to empty
End Sub
Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End Sub
Private Sub MSComm1_OnComm()
Dim InBuff As String
Dim I As Integer 'used to inspect each incoming character
Dim theChar As String 'each received character
Dim theInfo As String
InformationDisplay.Text = ""
Select Case MSComm1.CommEvent
' Handle each event or error by placing
' code below each case statement.
' This template is found in the Example
' section of the OnComm event Help topic
' in VB Help.
' Errors
Case comEventBreak ' A Break was received.
Case comEventCDTO ' CD (RLSD) Timeout.
Case comEventCTSTO ' CTS Timeout.
Case comEventDSRTO ' DSR Timeout.
Case comEventFrame ' Framing Error.
Case comEventOverrun ' Data Lost.
Case comEventRxOver ' Receive buffer overflow.
Case comEventRxParity ' Parity Error.
Case comEventTxFull ' Transmit buffer full.
Case comEventDCB ' Unexpected error retrieving DCB]
' Events
Case comEvCD ' Change in the CD line.
Case comEvCTS ' Change in the CTS line.
Case comEvDSR ' Change in the DSR line.
Case comEvRing ' Change in the Ring Indicator.
Case comEvReceive ' Received RThreshold # of chars.
InBuff = MSComm1.Input 'received 1 or more characters
For I = 1 To Len(InBuff) 'examine each received character in sequence
theChar = Mid$(InBuff, I, 1) 'extract the next character
If Asc(theChar) = 13 Then 'Look for CR
theInfo = Mid$(Newdata, 2, 1)
'Loads the second letter in the String "Newdata" in "theInfo" is a (I) or (P)
If theInfo = "I" Then
InformationDisplay.SelLength = 0
InformationDisplay.SelStart = Len(InformationDisplay.Text)
InformationDisplay.SelText = Newdata + vbCr + vbLf
'include a CR and LF to separate from next line placed in OutputDisplay
InformationDisplay.SelLength = 0
ElseIf theInfo = "P" Then
OutputDisplay.SelLength = 0
OutputDisplay.SelStart = Len(OutputDisplay.Text)
OutputDisplay.SelText = Newdata + vbCr + vbLf
'include a CR and LF to separate from next line placed in OutputDisplay
OutputDisplay.SelLength = 0
End If
Newdata = ""
'clear NewData so it can assemble the next packet
Data.SelLength = 0
Data.SelStart = 2
Data.SelText = vbCrLf
Data.SelLength = 0
ElseIf Asc(theChar) <> 10 Then 'ignore linefeeds
Newdata = Newdata + theChar
'received a character -- append it to NewData
Data.SelLength = 0
Data.SelStart = Len(Data.Text)
Data.SelText = theChar
Data.SelLength = 0
End If
Next I
Case comEvSend ' There are SThreshold number of
' characters in the transmit buffer.
Case comEvEOF ' An EOF character was found in the
' input stream.
End Select
End Sub
Grazie
Antonio
aaa
