VERSION 5.00
Begin VB.Form FrmSetting 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Paramètrage"
   ClientHeight    =   7635
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5430
   ControlBox      =   0   'False
   Icon            =   "FrmSetting.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   7635
   ScaleWidth      =   5430
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame6 
      Caption         =   "Pont Bascule Précia I200"
      Height          =   735
      Left            =   120
      TabIndex        =   42
      Top             =   5760
      Width           =   5175
      Begin VB.CheckBox Check3 
         Caption         =   "Pont disponible"
         Height          =   255
         Left            =   120
         TabIndex        =   44
         Top             =   240
         Width           =   2295
      End
      Begin VB.ComboBox Combo5 
         Height          =   315
         Left            =   3240
         Style           =   2  'Dropdown List
         TabIndex        =   43
         Top             =   240
         Width           =   1095
      End
   End
   Begin VB.Frame Frame5 
      Caption         =   "Valeurs par défaut"
      Height          =   1335
      Left            =   120
      TabIndex        =   33
      Top             =   4320
      Width           =   5175
      Begin VB.TextBox Text1 
         Height          =   285
         Index           =   3
         Left            =   1920
         TabIndex        =   41
         Text            =   "Text1"
         Top             =   960
         Width           =   1215
      End
      Begin VB.TextBox Text1 
         Height          =   285
         Index           =   2
         Left            =   1920
         TabIndex        =   40
         Text            =   "Text1"
         Top             =   720
         Width           =   1215
      End
      Begin VB.TextBox Text1 
         Height          =   285
         Index           =   1
         Left            =   1920
         TabIndex        =   39
         Text            =   "Text1"
         Top             =   480
         Width           =   1215
      End
      Begin VB.TextBox Text1 
         Height          =   285
         Index           =   0
         Left            =   1920
         TabIndex        =   35
         Text            =   "Text1"
         Top             =   240
         Width           =   1215
      End
      Begin VB.Label Label1 
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Prédé"
         Height          =   255
         Index           =   3
         Left            =   120
         TabIndex        =   38
         Top             =   960
         Width           =   1695
      End
      Begin VB.Label Label1 
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Pression"
         Height          =   255
         Index           =   2
         Left            =   120
         TabIndex        =   37
         Top             =   720
         Width           =   1695
      End
      Begin VB.Label Label1 
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Température"
         Height          =   255
         Index           =   1
         Left            =   120
         TabIndex        =   36
         Top             =   480
         Width           =   1695
      End
      Begin VB.Label Label1 
         BorderStyle     =   1  'Fixed Single
         Caption         =   "Débit Automatique"
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   34
         Top             =   240
         Width           =   1695
      End
   End
   Begin VB.Frame Frame4 
      Height          =   855
      Left            =   120
      TabIndex        =   21
      Top             =   6600
      Width           =   5175
      Begin VB.CommandButton Command2 
         Caption         =   "&Valider"
         Height          =   495
         Left            =   3720
         TabIndex        =   23
         Top             =   240
         Width           =   1335
      End
      Begin VB.CommandButton Command1 
         Caption         =   "&Annuler"
         Height          =   495
         Left            =   120
         TabIndex        =   22
         Top             =   240
         Width           =   1335
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "Bras"
      Height          =   3255
      Left            =   120
      TabIndex        =   2
      Top             =   960
      Width           =   5175
      Begin VB.ComboBox Combo3 
         Height          =   315
         Index           =   7
         Left            =   3960
         Style           =   2  'Dropdown List
         TabIndex        =   31
         Top             =   2760
         Width           =   1095
      End
      Begin VB.ComboBox Combo3 
         Height          =   315
         Index           =   6
         Left            =   3960
         Style           =   2  'Dropdown List
         TabIndex        =   30
         Top             =   2400
         Width           =   1095
      End
      Begin VB.ComboBox Combo3 
         Height          =   315
         Index           =   5
         Left            =   3960
         Style           =   2  'Dropdown List
         TabIndex        =   29
         Top             =   2040
         Width           =   1095
      End
      Begin VB.ComboBox Combo3 
         Height          =   315
         Index           =   4
         Left            =   3960
         Style           =   2  'Dropdown List
         TabIndex        =   28
         Top             =   1680
         Width           =   1095
      End
      Begin VB.ComboBox Combo3 
         Height          =   315
         Index           =   3
         Left            =   3960
         Style           =   2  'Dropdown List
         TabIndex        =   27
         Top             =   1320
         Width           =   1095
      End
      Begin VB.ComboBox Combo3 
         Height          =   315
         Index           =   2
         Left            =   3960
         Style           =   2  'Dropdown List
         TabIndex        =   26
         Top             =   960
         Width           =   1095
      End
      Begin VB.ComboBox Combo3 
         Height          =   315
         Index           =   1
         Left            =   3960
         Style           =   2  'Dropdown List
         TabIndex        =   25
         Top             =   600
         Width           =   1095
      End
      Begin VB.ComboBox Combo3 
         Height          =   315
         Index           =   0
         Left            =   3960
         Style           =   2  'Dropdown List
         TabIndex        =   24
         Top             =   240
         Width           =   1095
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Bras 1 Disponible"
         Height          =   375
         Index           =   7
         Left            =   120
         TabIndex        =   20
         Top             =   2760
         Width           =   1575
      End
      Begin VB.ComboBox Combo2 
         Height          =   315
         Index           =   7
         Left            =   1800
         Style           =   2  'Dropdown List
         TabIndex        =   19
         Top             =   2760
         Width           =   2055
      End
      Begin VB.ComboBox Combo2 
         Height          =   315
         Index           =   6
         Left            =   1800
         Style           =   2  'Dropdown List
         TabIndex        =   18
         Top             =   2400
         Width           =   2055
      End
      Begin VB.ComboBox Combo2 
         Height          =   315
         Index           =   5
         Left            =   1800
         Style           =   2  'Dropdown List
         TabIndex        =   17
         Top             =   2040
         Width           =   2055
      End
      Begin VB.ComboBox Combo2 
         Height          =   315
         Index           =   4
         Left            =   1800
         Style           =   2  'Dropdown List
         TabIndex        =   16
         Top             =   1680
         Width           =   2055
      End
      Begin VB.ComboBox Combo2 
         Height          =   315
         Index           =   3
         Left            =   1800
         Style           =   2  'Dropdown List
         TabIndex        =   15
         Top             =   1320
         Width           =   2055
      End
      Begin VB.ComboBox Combo2 
         Height          =   315
         Index           =   2
         Left            =   1800
         Style           =   2  'Dropdown List
         TabIndex        =   14
         Top             =   960
         Width           =   2055
      End
      Begin VB.ComboBox Combo2 
         Height          =   315
         Index           =   1
         Left            =   1800
         Style           =   2  'Dropdown List
         TabIndex        =   13
         Top             =   600
         Width           =   2055
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Bras 1 Disponible"
         Height          =   375
         Index           =   6
         Left            =   120
         TabIndex        =   12
         Top             =   2400
         Width           =   1575
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Bras 1 Disponible"
         Height          =   375
         Index           =   5
         Left            =   120
         TabIndex        =   11
         Top             =   2040
         Width           =   1575
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Bras 1 Disponible"
         Height          =   375
         Index           =   4
         Left            =   120
         TabIndex        =   10
         Top             =   1680
         Width           =   1575
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Bras 1 Disponible"
         Height          =   375
         Index           =   3
         Left            =   120
         TabIndex        =   9
         Top             =   1320
         Width           =   1575
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Bras 1 Disponible"
         Height          =   375
         Index           =   2
         Left            =   120
         TabIndex        =   8
         Top             =   960
         Width           =   1575
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Bras 1 Disponible"
         Height          =   375
         Index           =   1
         Left            =   120
         TabIndex        =   7
         Top             =   600
         Width           =   1575
      End
      Begin VB.ComboBox Combo2 
         Height          =   315
         Index           =   0
         Left            =   1800
         Style           =   2  'Dropdown List
         TabIndex        =   6
         Top             =   240
         Width           =   2055
      End
      Begin VB.CheckBox Check1 
         Caption         =   "Bras 1 Disponible"
         Height          =   375
         Index           =   0
         Left            =   120
         TabIndex        =   4
         Top             =   240
         Width           =   1575
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "Tisi"
      Height          =   735
      Left            =   1800
      TabIndex        =   1
      Top             =   120
      Width           =   3495
      Begin VB.ComboBox Combo4 
         Height          =   315
         Left            =   2160
         Style           =   2  'Dropdown List
         TabIndex        =   32
         Top             =   240
         Width           =   855
      End
      Begin VB.CheckBox Check2 
         Caption         =   "Tisi Disponible"
         Height          =   375
         Left            =   120
         TabIndex        =   5
         Top             =   240
         Width           =   1455
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Liaison"
      Height          =   735
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1575
      Begin VB.ComboBox Combo1 
         Height          =   315
         Left            =   120
         Style           =   2  'Dropdown List
         TabIndex        =   3
         Top             =   240
         Width           =   1335
      End
   End
End
Attribute VB_Name = "FrmSetting"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim CfgSimulateur As TSimulateur


Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Command2_Click()
' Récupération de la saisie
' =========================
Dim i As Integer
Dim j As Integer

CfgSimulateur.Liaison.Port = Combo1.ListIndex

CfgSimulateur.Tisi.Disponible = IIf(Check2.Value = 1, True, False)
CfgSimulateur.Tisi.Numero = Combo4.ListIndex

CfgSimulateur.Pont.Disponible = IIf(Check3.Value = 1, True, False)
CfgSimulateur.Pont.Numero = Combo5.ListIndex


For i = 1 To MAX_BRAS
    CfgSimulateur.Bras(i).Disponible = IIf(Check1(i - 1).Value = 1, True, False)
    CfgSimulateur.Bras(i).Modele = Combo2(i - 1).ListIndex
    CfgSimulateur.Bras(i).Numero = Combo3(i - 1).ListIndex
Next i


' ========================
' Vérification possibilité
' ========================
' Pour tous les bras 1 seul fois le numéro utilisé
' ================================================
For i = 1 To MAX_BRAS
    If CfgSimulateur.Bras(i).Disponible Then
        For j = 1 To MAX_BRAS
            If j <> i Then
                If CfgSimulateur.Bras(j).Disponible Then
                    If CfgSimulateur.Bras(i).Numero = CfgSimulateur.Bras(j).Numero Then
                        MsgBox "Le bras " & CStr(i) & " et le bras " & CStr(j) & " porte le même numéro."
                        Combo3(i - 1).SetFocus
                        Exit Sub
                    End If
                End If
            End If
        Next j
    End If
Next i
' Item pour le tisi
If CfgSimulateur.Tisi.Disponible Then
    For i = 1 To MAX_BRAS
        If CfgSimulateur.Bras(i).Disponible Then
            If CfgSimulateur.Bras(i).Numero = CfgSimulateur.Tisi.Numero Then
                MsgBox "Le bras " & CStr(i) & " et le Tisi porte le même numéro."
                Combo4.SetFocus
                Exit Sub
            End If
        End If
    Next i
    If CfgSimulateur.Pont.Disponible Then
        If CfgSimulateur.Tisi.Numero = CfgSimulateur.Pont.Numero Then
            MsgBox "Le Pont et le Tisi porte le même numéro."
            Exit Sub
        End If
    End If
End If
' Item pour le Pont
If CfgSimulateur.Pont.Disponible Then
    For i = 1 To MAX_BRAS
        If CfgSimulateur.Bras(i).Disponible Then
            If CfgSimulateur.Bras(i).Numero = CfgSimulateur.Pont.Numero Then
                MsgBox "Le bras " & CStr(i) & " et le Pont porte le même numéro."
                Combo4.SetFocus
                Exit Sub
            End If
        End If
    Next i
End If


' Valeur par défaut
' =================
CfgSimulateur.ValeurParDefaut.Debit = Val(Text1(0).Text)
CfgSimulateur.ValeurParDefaut.Temperature = Val(Text1(1).Text)
CfgSimulateur.ValeurParDefaut.Pression = Val(Text1(2).Text)
CfgSimulateur.ValeurParDefaut.Prede = Val(Text1(3).Text)

' Si le simulateur est en marche
' ==============================
If Simulateur.Marche Then
    SimulateurStop
End If

CfgSimulateur.Marche = False

' Prise en compte de la configuration
' ===================================
Simulateur = CfgSimulateur

SimulateurSetModbusArea

For i = 1 To MAX_BRAS
    Simulateur.Bras(i).TxTemperatureInstantannée = Simulateur.ValeurParDefaut.Temperature
    Simulateur.Bras(i).TxTemperatureMoyenne = Simulateur.ValeurParDefaut.Temperature
    Simulateur.Bras(i).TxPrede = Simulateur.ValeurParDefaut.Prede
    Simulateur.Bras(i).TxDebit = Simulateur.ValeurParDefaut.Debit
    Simulateur.Bras(i).TxPression = Simulateur.ValeurParDefaut.Pression
    Simulateur.Bras(i).UpdateWindows = True
Next i
Unload Me
SaveConfig

End Sub

Private Sub Form_Load()
Dim i As Integer
Dim j As Integer

' LIAISON
' =======
' Initialisation des numéros de port
Combo1.Clear
Combo1.AddItem "Aucune"
For i = 1 To MAX_PORT
    Combo1.AddItem "COM" & CStr(i)
Next i
Combo1.ToolTipText = "Numéro de port série utilisé"

' TISI
' ====
' Initialisation des numéros d'esclaves
' =====================================
Combo4.Clear
For i = 0 To MAX_NUMERO
    Combo4.AddItem CStr(i)
Next i
Combo4.ToolTipText = "Numéro d'abonné du Tisi"

Combo5.Clear
For i = 0 To MAX_NUMERO
    Combo5.AddItem CStr(i)
Next i
Combo5.ToolTipText = "Numéro d'abonné du Pont"


' BRAS
' ====
For j = 1 To MAX_BRAS
    Check1(j - 1).Caption = "Bras " & CStr(j) & " Disponible"
    
    Combo2(j - 1).Clear
    Combo2(j - 1).AddItem "Aucun"
    Combo2(j - 1).AddItem "V8 3 Injecteurs"
    Combo2(j - 1).AddItem "V8 8 Injecteurs"
    Combo2(j - 1).AddItem "V9 3 Injecteurs"
    Combo2(j - 1).AddItem "V9 8 Injecteurs"
    Combo2(j - 1).AddItem "V10 3 Injecteurs"
    Combo2(j - 1).AddItem "V10 8 Injecteurs"
    
    Combo2(j - 1).AddItem "V13 3 Injecteurs"
    Combo2(j - 1).AddItem "V13 8 Injecteurs"
    
    Combo2(j - 1).AddItem "V16 3 Injecteurs"
    Combo2(j - 1).AddItem "V16 8 Injecteurs"
    
    Combo2(j - 1).AddItem "V17 3 Injecteurs"
    Combo2(j - 1).AddItem "V17 8 Injecteurs"
    Combo2(j - 1).AddItem "V20 8 Injecteurs (Blending)"
    
    Combo2(j - 1).ToolTipText = "Type de microcompt"
    
    Combo3(j - 1).Clear
    For i = 0 To MAX_NUMERO
        Combo3(j - 1).AddItem CStr(i)
    Next i
    Combo3(j - 1).ToolTipText = "Numéro d'abonné du Microcompt"

Next j

Text1(0).ToolTipText = "Débit par défaut"
Text1(1).ToolTipText = "Température par défaut"
Text1(2).ToolTipText = "Pression par défaut"
Text1(3).ToolTipText = "Prédétermination par défaut"

AfficheConfig
End Sub

Public Sub AfficheConfig()
Dim i As Integer
Dim j As Integer

CfgSimulateur = Simulateur

' Liaison
' =======
Combo1.ListIndex = CfgSimulateur.Liaison.Port

' Tisi
' ====
Check2.Value = IIf(CfgSimulateur.Tisi.Disponible, 1, 0)
Combo4.ListIndex = CfgSimulateur.Tisi.Numero

For i = 1 To MAX_BRAS
    Check1(i - 1).Value = IIf(CfgSimulateur.Bras(i).Disponible, 1, 0)
    Combo2(i - 1).ListIndex = CfgSimulateur.Bras(i).Modele
    Combo3(i - 1).ListIndex = CfgSimulateur.Bras(i).Numero
Next i

Text1(0).Text = Trim$(Str$(CfgSimulateur.ValeurParDefaut.Debit))
Text1(1).Text = Replace$(Format$(CfgSimulateur.ValeurParDefaut.Temperature, "0.0"), ",", ".")
Text1(2).Text = Replace$(Format$(CfgSimulateur.ValeurParDefaut.Pression, "0.0"), ",", ".")
Text1(3).Text = Trim$(Str$(CfgSimulateur.ValeurParDefaut.Prede))

' Pont
Check3.Value = IIf(CfgSimulateur.Pont.Disponible, 1, 0)
Combo5.ListIndex = CfgSimulateur.Pont.Numero

End Sub

