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 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89
|
Sub Simulwatt()
Btn_MarSimul.TakeFocusOnClick = False
'Création de mon tableau de valeurs
CaseVolt(1) = "+3.33300E+03"
CaseVolt(2) = "+6.66600E+03"
CaseVolt(3) = "+8.88800E+03"
CaseVolt(4) = "+1.11110E+04"
CaseVolt(5) = "+2.22220E+04"
CaseAmpe(1) = "+1.11000E+02"
CaseAmpe(2) = "+2.22000E+02"
CaseAmpe(3) = "+3.33000E+02"
CaseAmpe(4) = "+4.44000E+02"
CaseAmpe(5) = "+5.55000E+02"
CasePuis(1) = "+4.44400E+06"
CasePuis(2) = "+5.55500E+06"
CasePuis(3) = "+6.66600E+06"
CasePuis(4) = "+7.77700E+06"
CasePuis(5) = "+8.88800E+06"
CaseFreq(1) = "+5.00000E+01"
CaseFreq(2) = "+6.00000E+01"
CaseFreq(3) = "+5.00000E+01"
CaseFreq(4) = "+6.00000E+01"
CaseFreq(5) = "+5.00000E+01"
'Démarrage de ma Boucle
Do
i = 1
'Construction des valeurs à simuler
For i = 1 To 5
Volt = CaseVolt(i)
Lbl_Tension.Caption = Format(Val(Volt), "# ### ##0")
Ampe = CaseAmpe(i)
Lbl_Courant.Caption = Format(Val(Ampe), "# ### ##0")
Puis = CasePuis(i)
Lbl_Puissance.Caption = Format(Val(Puis), "# ### ##0")
Freq = CaseFreq(i)
Lbl_Frequence.Caption = Format(Val(Freq), "# ### ##0")
'Construction des valeur à envoyer
Buffer1 = Volt + "," + Ampe + "," + Puis + "," + Freq + "," + vbCrLf
'Construction de la demande à comparer avant envoi
demande = "DATA? " + """VOLT""" + "," + """CURR""" + "," + """POW""" + "," + """FREQ"""
'Pause afin d'avoir une visu sur mon userform
Pause (8) 'Module 1
DoEvents
'Ici mon MSComm1.input est toujours nul... et ne peut donc être comparer et envoyer mes valeurs.
If MSComm1.Input = demande Then
MSComm1.Output = Buffer1
End If
'Arret du programme
If Lancer_Simul = 0 Then Exit For
Next i
Loop Until Lancer_Simul = 0
End Sub
'Module de pause
Public Sub Pause(Duree As Long) ' duree en secondes
Dim Butee As Long, InstantZero As Long
InstantZero = GetTickCount / 100
Butee = 0
While Butee < Duree
Butee = GetTickCount / 100 - InstantZero
Wend
End Sub |
Partager