1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44
| Private Sub Command7_Click()
Dim echantillonnage As String
Dim nbre_acqui As String
Dim frequence As String
Dim nbre_cycle As String
E = Comms1.Read("BA27", "Amplitude", WaitUntilComplete)
F = Comms1.Read("BA27", "Fréquence", WaitUntilComplete)
G = Comms1.Read("BA27", "Nombre_cycle", WaitUntilComplete)
echantillonnage = 0.002
frequence = F
nbre_cycle = G
nbre_acqui = ((1 / frequence) * nbre_cycle) / echantillonnage
Text9.Text = nbre_acqui
D = Comms1.ReadArea("D27000", nbre_acqui, vbInteger)
A = Comms1.ReadArea("D10000", nbre_acqui, vbInteger)
ReDim C1(1 To nbre_acqui, 1 To 2) As String
Dim i As Integer
C1(1, 1) = "Position"
C1(1, 2) = "Effort"
For i = 2 To nbre_acqui - 1
C1(i, 1) = (D(i) * 14) + 106
C1(i, 2) = A(i) / 100
Next i
MSChart1.chartType = VtChChartType2dXY
MSChart1.ChartData = C1
End Sub |
Partager