Un calculateur de puissance d'évaporateur

Soyez le premier à donner votre avis sur cette source.

Vue 6 135 fois - Téléchargée 386 fois

Description

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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
3792
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
9
Relis-toi ...

Cordialement, Bacterius !
Messages postés
24
Date d'inscription
dimanche 13 février 2011
Statut
Membre
Dernière intervention
14 mai 2011

je rien compris , ta dis "Je N'en Pas dirai plus." !
Messages postés
3792
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
9
C'est même pas débutant, c'est juste que les techniques de programmation montrées ici sont un très mauvais exemple. C'est bien de vouloir partager ses sources mais quand elles n'apportent rien c'est pas vraiment utile. Je dis pas que toutes les sources doivent être ultra optimisées, mais il y a des limites quand même.

Cordialement, Bacterius !
Messages postés
24
Date d'inscription
dimanche 13 février 2011
Statut
Membre
Dernière intervention
14 mai 2011

Niveau : Débutant
Messages postés
3792
Date d'inscription
samedi 22 décembre 2007
Statut
Membre
Dernière intervention
3 juin 2016
9
"saisit tes variables puis butons , c'est simple"
Un peu trop, malheureusement. Je n'en dirai pas plus.

Cordialement, Bacterius !

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.