ELECTRONIQUE ANALOGIQUE ET DIGITALE

'DECLARATION DES VARIABLES

Dim i, j As Integer

Dim t1, t2, t3, t4, t5, t6, t7, t8 As Integer

'Les vitesses de remplissage

Dim vitesse_remplissageM1, vitesse_remplissageM2, vitesse_remplissageM3, vitesse_remplissageM4 As Integer
Dim vitesse_remplissage As Integer

'utilisation des pompes

Dim var_1 As Boolean
Dim var_2 As Boolean
Dim var_3 As Boolean
Dim var_4 As Boolean
Dim var_5 As Boolean
Dim var_6 As Boolean
Dim var_7 As Boolean
Dim var_8 As Boolean

'compteur de débit en amont

Dim counter_1 As Integer
Dim counter_2 As Integer
Dim counter_3 As Integer
Dim counter_4 As Integer
Dim counter_5 As Integer
Dim counter_6 As Integer
Dim counter_7 As Integer
Dim counter_8 As Integer

'Les différents niveaux de la cuve

Dim niveau_cuve_vide As Integer
Dim niveau_min As Integer
Dim niveau_1 As Integer
Dim niveau_2 As Integer
Dim niveau_max As Integer
Dim niveau_alerte As Integer
Dim niveau_alarme As Integer

'paramètres des cercles TGBT AMONT


Dim r As Integer 'rayon du cercle

Dim X1 As Integer
Dim X2 As Integer
Dim X3 As Integer
Dim X4 As Integer
Dim Y1 As Integer

'paramètres des cercles TGBT AVAL

Dim X5 As Integer
Dim X6 As Integer
Dim X7 As Integer
Dim X8 As Integer
Dim Y2 As Integer

'Débit
Dim debit_1, debit_2, debit_3, debit_4, debit_5, debit_6, debit_7, debit_8 As Integer


Private Sub Check10_Click()

If (Check10.Value = 0) Then

Project1.Form1.Show

Else

Project1.Form2.Show

End If


End Sub

Private Sub Check2_Click()

If (Check2.Value = 0) Then
Command1.Enabled = True
Command2.Enabled = True
Call cercle_couleur(255, 255, 255, 4, X1, Y1)
Else
Arret_pompe1
Command1.Enabled = False
Command2.Enabled = False
Call cercle_couleur(255, 0, 255, 4, X1, Y1)

End If

End Sub

Private Sub Check3_Click()
If (Check3.Value = 0) Then
Command4.Enabled = True
Command5.Enabled = True
Call cercle_couleur(255, 255, 255, 4, X2, Y1)
Else
Arret_pompe2
Command4.Enabled = False
Command5.Enabled = False
Call cercle_couleur(255, 0, 255, 4, X2, Y1)

End If
End Sub

Private Sub Check4_Click()
If (Check4.Value = 0) Then
Command7.Enabled = True
Command8.Enabled = True
Call cercle_couleur(255, 255, 255, 4, X3, Y1)
Else
Arret_pompe3
Command7.Enabled = False
Command8.Enabled = False
Call cercle_couleur(255, 0, 255, 4, X3, Y1)

End If
End Sub

Private Sub Check5_Click()
If (Check5.Value = 0) Then
Command10.Enabled = True
Command11.Enabled = True
Call cercle_couleur(255, 255, 255, 4, X4, Y1)
Else
Arret_pompe4
Command10.Enabled = False
Command11.Enabled = False
Call cercle_couleur(255, 0, 255, 4, X4, Y1)
End If
End Sub

Private Sub Check6_Click()
If (Check6.Value = 0) Then
Command3.Enabled = True
Command13.Enabled = True
Call cercle_couleur(255, 255, 255, 4, X1, Y2)
Else
Arret_pompe5
Command3.Enabled = False
Command13.Enabled = False
Call cercle_couleur(255, 0, 255, 4, X1, Y2)
End If
End Sub

Private Sub Check7_Click()
If (Check7.Value = 0) Then
Command6.Enabled = True
Command14.Enabled = True
Call cercle_couleur(255, 255, 255, 4, X2, Y2)
Else
Arret_pompe6
Command6.Enabled = False
Command14.Enabled = False
Call cercle_couleur(255, 0, 255, 4, X2, Y2)
End If
End Sub

Private Sub Check8_Click()
If (Check8.Value = 0) Then
Command9.Enabled = True
Command15.Enabled = True
Call cercle_couleur(255, 255, 255, 4, X3, Y2)
Else
Arret_pompe7
Command9.Enabled = False
Command15.Enabled = False
Call cercle_couleur(255, 0, 255, 4, X3, Y2)
End If
End Sub

Private Sub Check9_Click()
If (Check9.Value = 0) Then
Command12.Enabled = True
Command16.Enabled = True
Call cercle_couleur(255, 255, 255, 4, X4, Y2)
Else
Arret_pompe8
Command12.Enabled = False
Command16.Enabled = False
Call cercle_couleur(255, 0, 255, 4, X4, Y2)
End If
End Sub

'Chargement du formulaire et INITIALISATION DES VARIABLES

Private Sub Form_Load()

vitesse_remplissageM1 = 0
vitesse_remplissageM2 = 0
vitesse_remplissageM3 = 0
vitesse_remplissageM4 = 0

' valeur du niveau de la cuve à tout moment
j = 10

'Initialisation des paramètres des cercles du TGBT Amont

r = 250

X1 = 1200
X2 = 2800
X3 = 4400
X4 = 6000
Y1 = 400


'Initialisation des cercles du TGBT AVAL

X5 = X1
X6 = X2
X7 = X3
X8 = X4
Y2 = 3000

Timer1.Interval = 1000

counter_1 = 0
counter_2 = 0
counter_3 = 0
counter_4 = 0
counter_5 = 0
counter_6 = 0
counter_7 = 0
counter_8 = 0


'Initialisation des niveaux


Text8.Text = 10
Text9.Text = 20
Text10.Text = 30
Text11.Text = 50
Text12.Text = 60
Text13.Text = 80
Text14.Text = 90


niveau_cuve_vide = Text8.Text
niveau_min = Text9.Text
niveau_1 = Text10.Text
niveau_2 = Text11.Text
niveau_max = Text12.Text
niveau_alerte = Text13.Text
niveau_alarme = Text14.Text

Call init

'Dessins des cercles Blancs

Call cercle_couleur(255, 255, 255, 1, X1, Y1)
Call cercle_couleur(255, 255, 255, 1, X2, Y1)
Call cercle_couleur(255, 255, 255, 1, X3, Y1)
Call cercle_couleur(255, 255, 255, 1, X4, Y1)

var_1 = False
var_2 = False
var_3 = False
var_4 = False

var_5 = False
var_6 = False
var_7 = False
var_8 = False



Text21.Text = 0
Text22.Text = 0
Text23.Text = 0
Text24.Text = 0
Text25.Text = 0
Text26.Text = 0
Text27.Text = 0
Text28.Text = 0

'Les compteurs de débit

'Amont

Text16.Text = 0
Text17.Text = 0
Text18.Text = 0
Text19.Text = 0
'Aval
Text20.Text = 0
Text29.Text = 0
Text30.Text = 0
Text31.Text = 0

debit_1 = 0
debit_2 = 0
debit_3 = 0
debit_4 = 0
debit_5 = 0
debit_6 = 0
debit_7 = 0
debit_8 = 0


End Sub


'Choix du mode Manuelle ou automatique

Private Sub Check1_Click()

If (Check1.Value = 0) Then

Label3.Caption = "mode manu"

Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
Command6.Enabled = True
Command7.Enabled = True
Command8.Enabled = True
Command9.Enabled = True
Command10.Enabled = True
Command11.Enabled = True
Command12.Enabled = True

'dessin des cercles Blancs

Call cercle_couleur(255, 255, 255, 1, X1, Y1)
Call cercle_couleur(255, 255, 255, 1, X2, Y1)
Call cercle_couleur(255, 255, 255, 1, X3, Y1)
Call cercle_couleur(255, 255, 255, 1, X4, Y1)
Else
var_1 = False
var_2 = False
var_3 = False
var_4 = False

'dessin des cercles Oranges

Call cercle_couleur(255, 100, 0, 3, X1, Y1)
Call cercle_couleur(255, 100, 0, 3, X2, Y1)
Call cercle_couleur(255, 100, 0, 3, X3, Y1)
Call cercle_couleur(255, 100, 0, 3, X4, Y1)

Label3.Caption = "mode auto"

Command1.Enabled = False
Command2.Enabled = False
Command4.Enabled = False
Command5.Enabled = False
Command7.Enabled = False
Command8.Enabled = False
Command10.Enabled = False
Command11.Enabled = False


mode_automatique

End If

End Sub


'----------------TGBT AMONT-----------------------

'Marche Pompe 1 en manuelle

Private Sub Command1_Click()
Timer2_Timer ' temporisateur
Marche_pompe1
End Sub

'Arrêt pompe 1 en manuelle

Private Sub Command2_Click()
Arret_pompe1
End Sub

'Marche pompe 2 en manuelle

Private Sub Command4_Click()
Timer2_Timer
Marche_pompe2
var_2 = True
End Sub

'Arrêt pompe 2 en manuelle

Private Sub Command5_Click()
Arret_pompe2
End Sub

'Marche pompe 3 en manuelle

Private Sub Command7_Click()
Timer2_Timer
Marche_pompe3
var_3 = True
End Sub

'Arrêt pompe 3 en manuelle

Private Sub Command8_Click()
Arret_pompe3
End Sub

'Marche pompe 4 en manuelle

Private Sub Command10_Click()
Timer2_Timer
Marche_pompe4
var_4 = True
End Sub

'Arrêt pompe 4 en manuelle

Private Sub Command11_Click()
Arret_pompe4
End Sub


'------------------TGBT AVAL-------------------------

' Marche pompe 5 en manuelle

Private Sub Command3_Click()
Timer2_Timer
Marche_pompe5
End Sub

'Arret pompe 5 en manuelle

Private Sub Command13_Click()
Arret_pompe5
End Sub


'Marche pompe 6 en manuelle

Private Sub Command6_Click()
Timer2_Timer
Marche_pompe6
End Sub


'arret pompe 6 en manuelle

Private Sub Command14_Click()
Arret_pompe6
End Sub


'Marche pompe 7 en manuelle

Private Sub Command9_Click()
Timer2_Timer
Marche_pompe7

End Sub

'Arret pompe 7 en manuelle

Private Sub Command15_Click()
Arret_pompe7
End Sub

'Marche pompe 8
Private Sub Command12_Click()
Timer2_Timer
Marche_pompe8
End Sub

'Arret pompe 8 en manuelle

Private Sub Command16_Click()
Arret_pompe8
End Sub




'Débit de sortie
Private Sub Slider1_Change()
k2 = Slider1.Value
End Sub

'Débit d'entrée
Private Sub Slider2_Change()
k1 = Slider2.Value
End Sub






'Timer 1

Private Sub Timer1_Timer()

pausetime = 3
Text15.Text = j

Start = Timer
Do While Timer < Start + pausetime
DoEvents
Loop

If (j < 5) Then
ProgressBar1.Value = 5
ElseIf (j > 99) Then
ProgressBar1.Value = 100
ElseIf (j > 0 And j < 99) Then
ProgressBar1.Value = j
End If


Select Case ProgressBar1.Value

Case Is <= niveau_cuve_vide
Call init
Text1.Visible = True
Text1.Text = "cuve vide"
Text1.BackColor = RGB(230, 0, 0)
Case niveau_cuve_vide To niveau_min
Call init
Text2.Visible = True
Text2.Text = "entre cuve vide et cuve min"
Case niveau_min To niveau_1
Call init
Text3.Visible = True
Text3.Text = "entre cuve min et niveau 1"
Case niveau_1 To niveau_2
Call init
Text4.Visible = True
Text4.Text = "entre niveau 1 et niveau 2"
Case niveau_2 To niveau_max
Call init
Text5.Visible = True
Text5.Text = "entre niveau 2 et niveau max"
Case niveau_max To niveau_alerte
Call init
Text6.Visible = True
Text6.Text = "cuve alerte"
Text6.BackColor = RGB(230, 0, 0)
Case Is >= niveau_alarme
Call init
Text7.Visible = True
Text7.Text = "cuve alarme "
Text7.BackColor = RGB(230, 0, 0)
Arret_pompe1
Arret_pompe2
Arret_pompe3
Arret_pompe4
Arret_pompe5
Arret_pompe6
Arret_pompe7
Arret_pompe8


End Select






End Sub

Sub init()
Text7.Visible = False
Text6.Visible = False
Text5.Visible = False
Text4.Visible = False
Text3.Visible = False
Text2.Visible = False
Text1.Visible = False

End Sub


'REGULATION AUTOMATIQUE DU NIVEAU DE LA CUVE-----------------

Sub mode_automatique()

Dim compteur_1 As Integer
Dim compteur_2 As Integer
Dim etat_min As Boolean
Dim etat_niveau1 As Boolean
Dim etat_niveau2 As Boolean
Dim etat_max As Boolean



compteur_1 = 0
compteur_2 = 0

etat_min = False
etat_niveau1 = False
etat_niveau2 = False
etat_max = False
Timer2_Timer

'dessins des cercles Blancs

Call cercle_couleur(255, 255, 255, 1, X1, Y1)
Call cercle_couleur(255, 255, 255, 1, X2, Y1)
Call cercle_couleur(255, 255, 255, 1, X3, Y1)
Call cercle_couleur(255, 255, 255, 1, X4, Y1)

addition_soustraction_en_auto




'Lancement de la routine



' Select Case (ProgressBar1.Value)

'Cuve en état alarme
'Case Is >= 90
'Call cercle_couleur(255, 255, 255, 1, X6, Y2)
'Call cercle_couleur(255, 255, 255, 1, X7, Y2)
'Call cercle_couleur(255, 255, 255, 1, X8, Y2)

' blocage_distribution1
' blocage_distribution2
' blocage_distribution3
' blocage_distribution4

'Cuve en état alerte

'Case Is > 80 And ProgressBar1.Value < 90
'MsgBox (" Débordement alarme et sirène ")

' Call cercle_couleur(255, 255, 255, 1, X5, Y2)
' Call cercle_couleur(255, 255, 255, 1, X6, Y2)
' Call cercle_couleur(255, 255, 255, 1, X7, Y2)
'Call cercle_couleur(255, 255, 255, 1, X8, Y2)

'Arret_pompe1
'Arret_pompe2
'Arret_pompe3
' Arret_pompe4

'permis_distribution1
'permis_distribution2
'permis_distribution3
'permis_distribution4

'zone niveau max
'Case 60 To 80

'MsgBox (" Stop remplissage ")
'Call cercle_couleur(255, 255, 255, 1, X1, Y1)
'Call cercle_couleur(255, 255, 255, 1, X2, Y1)
'Call cercle_couleur(255, 255, 255, 1, X3, Y1)
'Call cercle_couleur(255, 255, 255, 1, X4, Y1)

' Arret_pompe1
' Arret_pompe2
' Arret_pompe3
'Arret_pompe4

'permis_distribution1
'permis_distribution2
'permis_distribution3
'permis_distribution4

'Cuve entre le niveau 2 et le niveau maximum
'Case 50 To 60
'MsgBox (" Remplissage par 2 moteurs ")
' Marche_pompe1
' Marche_pompe2
' Arret_pompe3
' Arret_pompe3

'permis_distribution1
'permis_distribution2
'permis_distribution3
'permis_distribution4

'Cuve entre le niveau 1 et le niveau 2
'Case 30 To 50
'MsgBox (" Remplissage par 3 moteurs ")
' Marche_pompe1
' Marche_pompe2
' Marche_pompe3
' Arret_pompe4

'permis_distribution1
'permis_distribution2
'permis_distribution3
'permis_distribution4


'Cuve entre le niveau minimum et le niveau 1

' Case 20 To 30
' MsgBox (" remplissage par 4 ")
' Marche_pompe1
' Marche_pompe2
' Marche_pompe3
' Marche_pompe4

'permis_distribution1
'permis_distribution2
'permis_distribution3
'permis_distribution4
'cuve entre le niveau vide et le niveau minimum
'Case 10 To 20

' MsgBox (" Remplissage par 4 moteurs ")

' permis_distribution1
' permis_distribution2
'permis_distribution3
'permis_distribution4

' var_1 = True
' var_2 = True
' var_3 = True
' var_4 = True

' Arret_pompe1
'Arret_pompe2
'Arret_pompe3
'Arret_pompe4

'addition_soustraction

'cuve vide

'Case Is <= 10
'MsgBox (" cuve vide Remplissage par 4 moteurs ")

' blocage_distribution1
' blocage_distribution2
' blocage_distribution3
' blocage_distribution4

' var_1 = True
' var_2 = True
' var_3 = True
' var_4 = True

' Arret_pompe1
'Arret_pompe2
'Arret_pompe3
'Arret_pompe4




' End Select




End Sub

'PROCEDURE MARCHE ET ARRET TGBT AMONT--------------------

'Marche pompe 1

Sub Marche_pompe1()
vitesse_remplissageM1 = 1
Call cercle_couleur(255, 0, 0, 2, X1, Y1)
var_1 = True
addition_soustraction
End Sub

'Marche pompe 2

Sub Marche_pompe2()
vitesse_remplissageM2 = 1
Call cercle_couleur(255, 0, 0, 2, X2, Y1)
var_2 = True
addition_soustraction
End Sub

'Marche pompe 3
Sub Marche_pompe3()
vitesse_remplissageM3 = 1
Call cercle_couleur(255, 0, 0, 2, X3, Y1)
var_3 = True
addition_soustraction
End Sub

'Marche pompe 4

Sub Marche_pompe4()
vitesse_remplissageM4 = 1
Call cercle_couleur(255, 0, 0, 2, X4, Y1)
var_4 = True
addition_soustraction
End Sub

'Arret pompe 1

Sub Arret_pompe1()
vitesse_remplissageM1 = 0
var_1 = False
Call cercle_couleur(255, 255, 255, 1, X1, Y1)
counter_1 = 0
End Sub

'Arret pompe 2
Sub Arret_pompe2()
vitesse_remplissageM2 = 0
var_2 = False
Call cercle_couleur(255, 255, 255, 1, X2, Y1)
counter_2 = 0
End Sub

'Arret pompe 3

Sub Arret_pompe3()
vitesse_remplissageM3 = 0
var_3 = False
Call cercle_couleur(255, 255, 255, 1, X3, Y1)
counter_3 = 0
End Sub

'Arret pompe 4

Sub Arret_pompe4()
vitesse_remplissageM4 = 0
var_4 = False
Call cercle_couleur(255, 255, 255, 1, X4, Y1)
counter_4 = 0
End Sub

'PROCEDURE MARCHE ET ARRET TGBT AVAL -------------------

'PROCEDURE MARCHE POMPE 5

Sub Marche_pompe5()

var_5 = True
Call cercle_couleur(255, 0, 0, 2, X1, Y2)
addition_soustraction

End Sub

'PROCEDURE MARCHE POMPE 6

Sub Marche_pompe6()
var_6 = True
Call cercle_couleur(255, 0, 0, 2, X2, Y2)
addition_soustraction

End Sub

'PROCEDURE MARCHE POMPE 7

Sub Marche_pompe7()
var_7 = True
Call cercle_couleur(255, 0, 0, 2, X3, Y2)
addition_soustraction
End Sub

'PROCEDURE MARCHE POMPE 8

Sub Marche_pompe8()
var_8 = True
Call cercle_couleur(255, 0, 0, 2, X4, Y2)
addition_soustraction
End Sub

'PROCEDURE ARRET POMPE 5

Sub Arret_pompe5()
var_5 = False
Call cercle_couleur(255, 255, 255, 1, X1, Y2)
counter_5 = 0
End Sub

'PROCEDURE ARRET POMPE 6

Sub Arret_pompe6()
var_6 = False
Call cercle_couleur(255, 255, 255, 1, X2, Y2)
counter_6 = 0
End Sub

'PROCEDURE ARRET POMPE 7

Sub Arret_pompe7()
var_7 = False
Call cercle_couleur(255, 255, 255, 1, X3, Y2)
counter_7 = 0
End Sub

'PROCEDURE ARRET POMPE 8

Sub Arret_pompe8()
var_8 = False
Call cercle_couleur(255, 255, 255, 1, X4, Y2)
counter_8 = 0
End Sub

'temporisation pour passer du mode manuelle en automatique

Private Sub Timer2_Timer()
pausetime = 3
Start = Timer
Do While Timer < Start + pausetime
DoEvents
Loop
End Sub

'PROCEDURE DE DESSIN DES CERCLES

Sub cercle_couleur(ByVal C1 As Integer, ByVal C2 As Integer, ByVal C3 As Integer, Coul As Integer, X As Integer, Y As Integer)
FillColor = RGB(C1, C2, C3)
FillStyle = 0
Circle (X, Y), r, RGB(C1, C2, C3)
End Sub

'Blocage de la distribution------------------

Sub blocage_distribution1()
Command3.Enabled = False
Command13.Enabled = False
Call cercle_couleur(255, 255, 255, 1, X1, Y2)
End Sub

Sub blocage_distribution2()
Command6.Enabled = False
Command14.Enabled = False
Call cercle_couleur(255, 255, 255, 1, X2, Y2)
End Sub

Sub blocage_distribution3()
Command9.Enabled = False
Command15.Enabled = False
Call cercle_couleur(255, 255, 255, 1, X3, Y2)
End Sub

Sub blocage_distribution4()
Command12.Enabled = False
Command16.Enabled = False
Call cercle_couleur(255, 255, 255, 1, X4, Y2)
End Sub

'Permission de la distribution-----------------

Sub permis_distribution1()
Command3.Enabled = True
Command13.Enabled = True
End Sub

Sub permis_distribution2()
Command6.Enabled = True
Command14.Enabled = True
End Sub

Sub permis_distribution3()
Command9.Enabled = True
Command15.Enabled = True
End Sub

Sub permis_distribution4()
Command12.Enabled = True
Command16.Enabled = True
End Sub


Sub addition_soustraction()

Do While ((var_1 = True) Or (var_2 = True) Or (var_3 = True) Or (var_4 = True) Or (var_5 = True) Or (var_6 = True) Or (var_7 = True) Or (var_8 = True))

If (var_1 = True) Then
counter_1 = counter_1 + Slider1.Value
Text21.Text = counter_1
debit_1 = debit_1 + Slider1.Value
Text16.Text = debit_1
j = j + Slider1.Value
Timer1_Timer
End If

If (var_2 = True) Then
counter_2 = counter_2 + Slider2.Value
Text22.Text = counter_2
j = j + Slider2.Value
debit_2 = debit_2 + Slider2.Value
Text17.Text = debit_2
Timer1_Timer
End If

If (var_3 = True) Then
counter_3 = counter_3 + Slider3.Value
Text23.Text = counter_3
j = j + Slider3.Value
debit_3 = debit_3 + Slider3.Value
Text18.Text = debit_3
Timer1_Timer
End If

If (var_4 = True) Then
counter_4 = counter_4 + Slider4.Value
Text24.Text = counter_4
j = j + Slider4.Value
debit_4 = debit_4 + Slider4.Value
Text19.Text = debit_4
Timer1_Timer
End If

If (var_5 = True) Then
counter_5 = counter_5 - Slider5.Value
Text25.Text = counter_5
j = j - Slider5.Value
debit_5 = debit_5 + Slider5.Value
Text20.Text = debit_5
Timer1_Timer
End If

If (var_6 = True) Then
counter_6 = counter_6 - Slider6.Value
Text26.Text = counter_6
j = j - Slider6.Value
debit_6 = debit_6 + Slider6.Value
Text29.Text = debit_6
Timer1_Timer
End If

If (var_7 = True) Then
counter_7 = counter_7 - Slider7.Value
Text27.Text = counter_7
j = j - Slider7.Value
debit_7 = debit_7 + Slider7.Value
Text30.Text = debit_7
Timer1_Timer
End If

If (var_8 = True) Then
counter_8 = counter_8 - Slider8.Value
Text28.Text = counter_8
j = j - Slider8.Value
debit_8 = debit_8 + Slider8.Value
Text31.Text = debit_8
Timer1_Timer
End If




Loop

End Sub


Private Sub Timer3_Timer()
pausetime = 3
Start = Timer
Do While Timer < Start + pausetime
DoEvents
Loop
End Sub


Private Sub Timer4_Timer()
pausetime = 1
Start = Timer
Do While Timer < Start + pausetime
DoEvents
Loop
End Sub

Sub addition_soustraction_en_auto()

test_variable

Do While ((var_1 = True) Or (var_2 = True) Or (var_3 = True) Or (var_4 = True) Or (var_5 = True) Or (var_6 = True) Or (var_7 = True) Or (var_8 = True))

If (var_1 = True) Then
counter_1 = counter_1 + Slider1.Value
Text21.Text = counter_1
debit_1 = debit_1 + Slider1.Value
Text16.Text = debit_1
j = j + Slider1.Value
Timer5_Timer
End If

If (var_2 = True) Then
counter_2 = counter_2 + Slider2.Value
Text22.Text = counter_2
j = j + Slider2.Value
debit_2 = debit_2 + Slider2.Value
Text17.Text = debit_2
Timer5_Timer
End If

If (var_3 = True) Then
counter_3 = counter_3 + Slider3.Value
Text23.Text = counter_3
j = j + Slider3.Value
debit_3 = debit_3 + Slider3.Value
Text18.Text = debit_3
Timer5_Timer
End If

If (var_4 = True) Then
counter_4 = counter_4 + Slider4.Value
Text24.Text = counter_4
j = j + Slider4.Value
debit_4 = debit_4 + Slider4.Value
Text19.Text = debit_4
Timer5_Timer
End If

If (var_5 = True) Then
counter_5 = counter_5 - Slider5.Value
Text25.Text = counter_5
j = j - Slider5.Value
debit_5 = debit_5 + Slider5.Value
Text20.Text = debit_5
Timer5_Timer
End If

If (var_6 = True) Then
counter_6 = counter_6 - Slider6.Value
Text26.Text = counter_6
j = j - Slider6.Value
debit_6 = debit_6 + Slider6.Value
Text29.Text = debit_6
Timer5_Timer
End If

If (var_7 = True) Then
counter_7 = counter_7 - Slider7.Value
Text27.Text = counter_7
j = j - Slider7.Value
debit_7 = debit_7 + Slider7.Value
Text30.Text = debit_7
Timer5_Timer
End If

If (var_8 = True) Then
counter_8 = counter_8 - Slider8.Value
Text28.Text = counter_8
j = j - Slider8.Value
debit_8 = debit_8 + Slider8.Value
Text31.Text = debit_8
Timer5_Timer
End If


Loop

End Sub

Private Sub Timer5_Timer()

pausetime = 3
Text15.Text = j

Start = Timer
Do While Timer < Start + pausetime
DoEvents
Loop

If (j < 5) Then
ProgressBar1.Value = 5
ElseIf (j > 99) Then
ProgressBar1.Value = 100
ElseIf (j > 0 And j < 99) Then
ProgressBar1.Value = j
End If


Select Case ProgressBar1.Value

Case Is <= niveau_cuve_vide
Call init
Text1.Visible = True
Text1.Text = "cuve vide"
Text1.BackColor = RGB(230, 0, 0)
Case niveau_cuve_vide To niveau_min
Call init
Text2.Visible = True
Text2.Text = "entre cuve vide et cuve min"
Case niveau_min To niveau_1
Call init
Text3.Visible = True
Text3.Text = "entre cuve min et niveau 1"
Case niveau_1 To niveau_2
Call init
Text4.Visible = True
Text4.Text = "entre niveau 1 et niveau 2"
Case niveau_2 To niveau_max
Call init
Text5.Visible = True
Text5.Text = "entre niveau 2 et niveau max"
Case niveau_max To niveau_alerte
Call init
Text6.Visible = True
Text6.Text = "cuve alerte"
Text6.BackColor = RGB(230, 0, 0)
Case Is >= niveau_alarme
Call init
Text7.Visible = True
Text7.Text = "cuve alarme "
Text7.BackColor = RGB(230, 0, 0)


End Select



End Sub
Sub test_variable()

If (j <= 10) Then
var_1 = True
var_2 = True
var_3 = True
var_4 = True
MsgBox (ProgressBar1.Value)
End If

If (ProgressBar1.Value > 10 And ProgressBar1.Value < 20) Then
var_1 = True
var_2 = True
var_3 = True
var_4 = True
MsgBox (ProgressBar1.Value)
End If


If (ProgressBar1.Value > 20 And ProgressBar1.Value < 30) Then
var_1 = True
var_2 = True
var_3 = True
var_4 = False
End If

If (ProgressBar1.Value > 30 And ProgressBar1.Value < 50) Then
var_1 = True
var_2 = True
var_3 = False
var_4 = False
End If

If (ProgressBar1.Value > 50 And ProgressBar1.Value < 60) Then
var_1 = False
var_2 = False
var_3 = False
var_4 = False
End If


If (ProgressBar1.Value > 60 And ProgressBar1.Value < 80) Then
var_1 = False
var_2 = False
var_3 = False
var_4 = False

End If

End Sub

Private Sub Command1_Click()
Dim CX, CY, Rayon, limite
Dim j As Integer


For j = 1 To 1000
Timer1_Timer
ScaleMode = 3

CX = ScaleWidth / 2
CY = ScaleHeight / 2

If CX > CY Then limite = CY Else limite = CX

For Rayon = 0 To limite
Circle (CX, CY), Rayon, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next Rayon

Next j
End Sub




Private Sub Timer1_Timer()
pausetime = 0.1

Start = Timer
Do While Timer < Start + pausetime
DoEvents
Loop

End Sub

Voyez la suite Java ...