une simple application qui calcule la puissance d'évaporateur
les 7 formule de Qn sont programer dans l'application ,saisit tes variables puis butons , c'est simple
Source / Exemple :
VERSION 5.00
Begin VB.Form Form1
Caption = "Bilan Thérmique"
ClientHeight = 7050
ClientLeft = 60
ClientTop = 450
ClientWidth = 7470
FillStyle = 0 'Solid
Icon = "Form1.frx":0000
LinkTopic = "Form1"
ScaleHeight = 7050
ScaleWidth = 7470
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command11
Caption = "Puissance de l'évaporateur"
BeginProperty Font
Name = "Palatino Linotype"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 2040
TabIndex = 65
Top = 5520
Width = 2175
End
Begin VB.TextBox Text23
Height = 285
Left = 120
TabIndex = 62
Top = 5040
Width = 615
End
Begin VB.CommandButton Command10
Caption = "Q7"
Height = 255
Left = 960
TabIndex = 61
Top = 5040
Width = 615
End
Begin VB.CommandButton Command9
Caption = "Q6"
Height = 255
Left = 2160
TabIndex = 57
Top = 4440
Width = 975
End
Begin VB.TextBox Text22
Height = 285
Left = 120
TabIndex = 56
Text = " "
Top = 4440
Width = 735
End
Begin VB.TextBox Text21
Height = 285
Left = 1080
TabIndex = 55
Text = " "
Top = 4440
Width = 735
End
Begin VB.TextBox Text20
Height = 285
Left = 1920
TabIndex = 51
Text = " "
Top = 3840
Width = 735
End
Begin VB.TextBox Text19
Height = 285
Left = 960
TabIndex = 50
Text = " "
Top = 3840
Width = 735
End
Begin VB.TextBox Text18
Height = 285
Left = 120
TabIndex = 49
Text = " "
Top = 3840
Width = 735
End
Begin VB.TextBox Text17
Height = 285
Left = 1920
TabIndex = 48
Top = 240
Width = 615
End
Begin VB.CommandButton Command8
BackColor = &H8000000D&
Caption = "Q5"
Height = 255
Left = 3000
TabIndex = 46
Top = 3840
Width = 975
End
Begin VB.TextBox Text16
Height = 285
Left = 120
TabIndex = 41
Text = " "
Top = 3240
Width = 615
End
Begin VB.TextBox Text15
Height = 285
Left = 960
TabIndex = 40
Text = " "
Top = 3240
Width = 615
End
Begin VB.TextBox Text14
Height = 285
Left = 1800
TabIndex = 39
Text = " "
Top = 3240
Width = 615
End
Begin VB.CommandButton Command7
Caption = "Q4"
Height = 255
Left = 2760
TabIndex = 38
Top = 3240
Width = 975
End
Begin VB.CommandButton Command6
Caption = "Q3"
Height = 255
Left = 960
TabIndex = 35
Top = 2640
Width = 615
End
Begin VB.TextBox Text13
Height = 285
Left = 120
TabIndex = 34
Top = 2640
Width = 615
End
Begin VB.CommandButton Command5
Caption = "Q2"
Height = 255
Left = 2760
TabIndex = 29
Top = 2040
Width = 975
End
Begin VB.TextBox Text12
Height = 285
Left = 1800
TabIndex = 28
Text = " "
Top = 2040
Width = 615
End
Begin VB.TextBox Text11
Height = 285
Left = 960
TabIndex = 27
Text = " "
Top = 2040
Width = 615
End
Begin VB.TextBox Text10
Height = 285
Left = 120
TabIndex = 26
Text = " "
Top = 2040
Width = 615
End
Begin VB.CommandButton Command4
BackColor = &H80000013&
Caption = "Q1"
Height = 255
Left = 5280
MaskColor = &H00E0E0E0&
TabIndex = 15
Top = 840
Width = 975
End
Begin VB.CommandButton Command3
Caption = "Qpb"
Height = 255
Left = 3000
TabIndex = 13
Top = 1440
Width = 1215
End
Begin VB.TextBox Text9
Height = 285
Left = 1920
TabIndex = 12
Text = " "
Top = 1440
Width = 615
End
Begin VB.TextBox Text8
Height = 285
Left = 960
TabIndex = 11
Text = " "
Top = 1440
Width = 615
End
Begin VB.TextBox Text7
Height = 285
Left = 120
TabIndex = 10
Text = " "
Top = 1440
Width = 615
End
Begin VB.CommandButton Command2
Caption = "Qph"
Height = 255
Left = 3000
TabIndex = 8
Top = 840
Width = 1215
End
Begin VB.TextBox Text6
Height = 285
Left = 1920
TabIndex = 7
Top = 840
Width = 615
End
Begin VB.TextBox Text5
Height = 285
Left = 960
TabIndex = 6
Top = 840
Width = 615
End
Begin VB.TextBox Text4
Height = 285
Left = 120
TabIndex = 5
Top = 840
Width = 615
End
Begin VB.CommandButton Command1
Caption = "Qm"
Height = 255
Left = 3000
TabIndex = 3
Top = 240
Width = 1215
End
Begin VB.TextBox Text3
Height = 285
Left = 1920
TabIndex = 2
Top = 840
Width = 615
End
Begin VB.TextBox Text2
Height = 285
Left = 960
TabIndex = 1
Top = 240
Width = 615
End
Begin VB.TextBox Text1
Height = 285
Left = 120
TabIndex = 0
Top = 240
Width = 615
End
Begin VB.Label Label49
Caption = "C-V"
BeginProperty Font
Name = "Segoe UI"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6360
TabIndex = 82
Top = 6360
Visible = 0 'False
Width = 1095
End
Begin VB.Label Label48
Caption = "Wh"
BeginProperty Font
Name = "Segoe UI"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6360
TabIndex = 81
Top = 5520
Visible = 0 'False
Width = 1095
End
Begin VB.Label Label47
Caption = "KWh"
BeginProperty Font
Name = "Segoe UI"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 6360
TabIndex = 80
Top = 5880
Visible = 0 'False
Width = 1095
End
Begin VB.Label Label46
Caption = "p"
BeginProperty Font
Name = "Segoe UI"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 4920
TabIndex = 79
Top = 6360
Visible = 0 'False
Width = 1335
End
Begin VB.Label Label45
Caption = "p"
BeginProperty Font
Name = "Segoe UI"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4920
TabIndex = 78
Top = 5520
Visible = 0 'False
Width = 1335
End
Begin VB.Label Label44
Caption = "="
BeginProperty Font
Name = "MS Sans Serif"
Size = 18
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4320
TabIndex = 77
Top = 5640
Width = 495
End
Begin VB.Label Label43
Caption = "="
Height = 135
Left = 3240
TabIndex = 76
Top = 4560
Width = 135
End
Begin VB.Label Label42
Caption = "="
Height = 135
Left = 1680
TabIndex = 75
Top = 5160
Width = 135
End
Begin VB.Label Label41
Caption = "="
Height = 135
Left = 4080
TabIndex = 74
Top = 3960
Width = 135
End
Begin VB.Label Label40
Caption = "="
Height = 135
Left = 3840
TabIndex = 73
Top = 3360
Width = 135
End
Begin VB.Label Label39
Caption = "="
Height = 135
Left = 1680
TabIndex = 72
Top = 2760
Width = 135
End
Begin VB.Label Label38
Caption = "="
Height = 135
Left = 6360
TabIndex = 71
Top = 960
Width = 135
End
Begin VB.Label Label37
Caption = "="
Height = 135
Left = 3840
TabIndex = 70
Top = 2160
Width = 135
End
Begin VB.Label Label36
Caption = "="
Height = 135
Left = 4320
TabIndex = 69
Top = 1560
Width = 135
End
Begin VB.Label Label35
Caption = "="
Height = 135
Left = 4320
TabIndex = 68
Top = 960
Width = 135
End
Begin VB.Label Label34
Caption = "="
Height = 135
Left = 4320
TabIndex = 67
Top = 360
Width = 135
End
Begin VB.Label Label33
Caption = "p"
BeginProperty Font
Name = "Segoe UI"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4920
TabIndex = 66
Top = 5880
Visible = 0 'False
Width = 1335
End
Begin VB.Label Label32
Caption = "S"
Height = 255
Left = 360
TabIndex = 64
Top = 4800
Width = 255
End
Begin VB.Label Label30
Caption = "Label19"
Height = 255
Left = 1920
TabIndex = 63
Top = 5160
Visible = 0 'False
Width = 855
End
Begin VB.Label Label31
Caption = "Label20"
Height = 255
Left = 3480
TabIndex = 60
Top = 4560
Visible = 0 'False
Width = 855
End
Begin VB.Label Label29
Caption = "t"
Height = 255
Left = 240
TabIndex = 59
Top = 4200
Width = 495
End
Begin VB.Label Label28
Caption = "s"
Height = 255
Left = 1200
TabIndex = 58
Top = 4200
Width = 495
End
Begin VB.Label Label27
Caption = "n"
Height = 255
Left = 2040
TabIndex = 54
Top = 3600
Width = 495
End
Begin VB.Label Label26
Caption = "t"
Height = 255
Left = 1080
TabIndex = 53
Top = 3600
Width = 495
End
Begin VB.Label Label25
Caption = "q"
Height = 255
Left = 120
TabIndex = 52
Top = 3600
Width = 735
End
Begin VB.Label Label20
Caption = "Label20"
Height = 255
Left = 4320
TabIndex = 47
Top = 3960
Visible = 0 'False
Width = 855
End
Begin VB.Label Label24
Caption = "Label14"
Height = 255
Left = 4080
TabIndex = 45
Top = 3360
Visible = 0 'False
Width = 615
End
Begin VB.Label Label23
Caption = "V"
Height = 255
Left = 360
TabIndex = 44
Top = 3000
Width = 495
End
Begin VB.Label Label22
Caption = "A"
Height = 255
Left = 1320
TabIndex = 43
Top = 3000
Width = 255
End
Begin VB.Label Label21
Caption = "n"
Height = 255
Left = 2160
TabIndex = 42
Top = 3000
Width = 255
End
Begin VB.Label Label19
Caption = "Label19"
Height = 255
Left = 1920
TabIndex = 37
Top = 2760
Visible = 0 'False
Width = 855
End
Begin VB.Label Label18
Caption = "P"
Height = 255
Left = 360
TabIndex = 36
Top = 2400
Width = 255
End
Begin VB.Label Label17
Caption = "Td-Ts"
Height = 255
Left = 1920
TabIndex = 33
Top = 1800
Width = 615
End
Begin VB.Label Label16
Caption = "Cs"
Height = 255
Left = 1080
TabIndex = 32
Top = 1800
Width = 615
End
Begin VB.Label Label15
Caption = "P1"
Height = 255
Left = 240
TabIndex = 31
Top = 1800
Width = 495
End
Begin VB.Label Label14
Caption = "Label14"
Height = 255
Left = 4080
TabIndex = 30
Top = 2160
Visible = 0 'False
Width = 615
End
Begin VB.Label Label13
Caption = "Te-Ti"
Height = 255
Left = 1920
TabIndex = 25
Top = 1200
Width = 615
End
Begin VB.Label Label12
Caption = "Kpb"
Height = 255
Left = 960
TabIndex = 24
Top = 1200
Width = 615
End
Begin VB.Label Label11
Caption = "Spb"
Height = 255
Left = 120
TabIndex = 23
Top = 1200
Width = 495
End
Begin VB.Label Label10
Caption = "Te-Ti"
Height = 255
Left = 1920
TabIndex = 22
Top = 600
Width = 495
End
Begin VB.Label Label9
Caption = "Kph"
Height = 255
Left = 960
TabIndex = 21
Top = 600
Width = 375
End
Begin VB.Label Label8
Caption = "Sph"
Height = 255
Left = 120
TabIndex = 20
Top = 600
Width = 375
End
Begin VB.Label Label7
Caption = "Te-Ti"
Height = 255
Left = 1920
TabIndex = 19
Top = 0
Width = 375
End
Begin VB.Label Label6
Caption = "Km"
Height = 255
Left = 960
TabIndex = 18
Top = 0
Width = 495
End
Begin VB.Label Label5
Caption = "Sm"
Height = 255
Left = 120
TabIndex = 17
Top = 0
Width = 495
End
Begin VB.Label Label3
Caption = "Label3"
Height = 255
Left = 4560
TabIndex = 16
Top = 1560
Visible = 0 'False
Width = 855
End
Begin VB.Label Label4
Caption = "Label2"
Height = 255
Left = 6600
TabIndex = 14
Top = 960
Visible = 0 'False
Width = 615
End
Begin VB.Label Label2
Caption = "Label2"
Height = 255
Left = 4560
TabIndex = 9
Top = 960
Visible = 0 'False
Width = 615
End
Begin VB.Label Label1
Caption = "serdt"
Height = 255
Left = 4560
TabIndex = 4
Top = 360
Visible = 0 'False
Width = 615
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Qm As Double
Dim Qpb As Double
Dim Qph As Double
Dim Q1 As Double
Dim Q2 As Double
Dim Q3 As Double
Dim Q4 As Double
Dim Q5 As Double
Dim Q6 As Double
Dim Q7 As Double
Dim P As Double
Dim P2 As Double
Dim P3 As Double
Private Sub Command1_Click()
Qm = Text1.Text * Text2.Text * Text17.Text
Label1.Caption = Qm
Label1.Visible = True
End Sub
Private Sub Command10_Click()
Q7 = Text23.Text * 30
Label30.Caption = Q7
Label30.Visible = True
End Sub
Private Sub Command11_Click()
P = Q1 + Q2 + Q3 + Q4 + Q5 + Q6 + Q7
P1 = Q1 + Q2 + Q3 + Q4 + Q5 + Q6 + Q7
P2 = P / 1000
P3 = P1 / 735.5
Label45.Caption = P
Label33.Caption = P2
Label46.Caption = P3
Label45.Visible = True
Label33.Visible = True
Label46.Visible = True
Label48.Visible = True
Label49.Visible = True
Label47.Visible = True
End Sub
Private Sub Command2_Click()
Qph = Text4.Text * Text5.Text * Text6.Text
Label2.Caption = Qph
Label2.Visible = True
End Sub
Private Sub Command3_Click()
Qpb = Text7.Text * Text8.Text * Text9.Text
Label3.Caption = Qpb
Label3.Visible = True
End Sub
Private Sub Command4_Click()
Q1 = Qm + Qph + Qpb
Label4.Caption = Q1
Label4.Visible = True
End Sub
Private Sub Command5_Click()
Q2 = Text10.Text * Text11.Text * Text12.Text
Label14.Caption = Q2
Label14.Visible = True
End Sub
Private Sub Command6_Click()
Q3 = Text13.Text * 0.058
Label19.Caption = Q3
Label19.Visible = True
End Sub
Private Sub Command7_Click()
Q4 = Text14.Text * Text15.Text * Text16.Text
Label24.Caption = Q4
Label24.Visible = True
End Sub
Private Sub Command8_Click()
Q5 = Text18.Text * Text19.Text * Text20.Text
Label20.Caption = Q4
Label20.Visible = True
End Sub
Private Sub Command9_Click()
Q6 = Text22.Text * Text21.Text * 10
Label31.Caption = Q6
Label31.Visible = True
End Sub
Conclusion :
une application débutant mais a utiliser par des experts en Enérgetique
manque boko de bugs
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.