File: RepereCode.xba

package info (click to toggle)
dmaths 4.4.0.0%2Bdfsg1-1
links: PTS, VCS
area: main
in suites: bullseye, buster
size: 29,500 kB
sloc: xml: 169; makefile: 2
file content (1776 lines) | stat: -rw-r--r-- 90,457 bytes
parent folder | download | duplicates (2)
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="RepereCode" script:language="StarBasic">&apos;OOoGdmath
&apos;Copyright (C) 2005-2011  Gilles Daurat
&apos;Amélioration et corrections de bugs 2012-2016  Didier Dorange-Pattoret/Gisbert Friege

&apos;This program is free software; you can redistribute it and/or
&apos;modify it under the terms of the GNU General Public License
&apos;as published by the Free Software Foundation; either version 2
&apos;of the License, or (at your option) any later version.ReperePoint

&apos;This program is distributed in the hope that it will be useful,
&apos;but WITHOUT ANY WARRANTY; without even the implied warranty of
&apos;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
&apos;GNU General Public License for more details.

&apos;You should have received a copy of the GNU General Public License
&apos;along with this program; if not, write to the Free Software
&apos;Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.

Option Explicit

Dim oRepereForm as Object
Dim AncienneListe As Integer
Dim IndiceSerie As Integer
Dim LesListes(0 To 4) As String
Dim UnVecteur As String
Dim posx, posy, xmin, xmax, ymin, ymax, dx, dy, angleaxe As Double
Dim NbPoint as integer
Dim NbDroite as Integer
Dim NbCourbe as Integer
Dim iListeVisible as Integer

Sub Main
dim i, unNom
on error resume next
	oRepereForm=LoadDialog(&quot;OOoGdmath&quot;,&quot;RepereForm&quot;)
	ChangeTitreDialog(oRepereForm)
	RepereForm_UserForm_Activate()
&apos;	RestaureForm(oRepereForm)
	oRepereForm.Model.Step=1
	oRepereForm.Execute()
End Sub

Function SigneDerivee(MaFonction, x1, pasb) As Integer
Dim UneFonction$, Defini, y0, y1

    UneFonction$ = MaFonction
    RemplaceX UneFonction$, x1 - Min(pasb / 2, 0.0001)
    Defini = 1
    y0 = CalculeFonction(UneFonction$, Defini)
    UneFonction$ = MaFonction
    RemplaceX UneFonction$, x1 + Min(pasb / 2, 0.0001)
    Defini = 1
    y1 = CalculeFonction(UneFonction$, Defini)
    SigneDerivee = Sgn(y1 - y0)
End Function

Function CalculeDerivee(MaFonction, x1) As Double
Dim UneFonction$, Defini, y0, y1

    UneFonction$ = MaFonction
    RemplaceX UneFonction$, x1 - 0.00001
    Defini = 1
    y0 = CalculeFonction(UneFonction$, Defini)
    UneFonction$ = MaFonction
    RemplaceX UneFonction$, x1 + 0.00001
    Defini = 1
    y1 = CalculeFonction(UneFonction$, Defini)
    CalculeDerivee = (y1 - y0) / 0.00002
End Function

Sub ChercheChangementDerivee(MaFonction, signe, x1, pasb)
Dim x2, SigneSuivant
    pasb = 0.1
    Do
        Do
            pasb = pasb / 10
            x2 = x1 + pasb
            SigneSuivant = SigneDerivee(MaFonction, x2, pasb)
        Loop While (SigneSuivant &lt;&gt; 0) And (SigneSuivant * signe &lt;&gt; 1) And (pasb &gt; 0.00000000001)
        x1 = x2
        pasb = pasb * 10
    Loop While (pasb &gt; 0.0000000001) And (SigneSuivant &lt;&gt; 0)
    If SigneSuivant &lt;&gt; 0 Then x1 = x1 + pasb
End Sub

Sub ChercheChangement(MaFonction, aDefini, ix, pasb, x1, Optional suivantx as Boolean)
Dim UneFonction$, Defini, y1
Dim Trouve As Boolean
Dim i

	if ismissing(suivantx) then suivantx=False
x1 = ix + pasb
i = ix

pasb = 0.1
Do
    Do
        UneFonction$ = MaFonction
        RemplaceX UneFonction$, i
        Defini = 1
        y1 = CalculeFonction(UneFonction$, Defini)
        If (suivantx) Then
            If Defini = 1 And (y1 &gt; xmax Or y1 &lt; xmin) Then Defini = 0
        Else
            If Defini = 1 And (y1 &gt; ymax Or y1 &lt; ymin) Then Defini = 0
        End If
        If Defini &lt;&gt; aDefini Then
            If pasb &lt; 0.000001 Then
                Trouve = True
                Exit Do
            Else
                Exit Do
            End If
        End If
        i = i + pasb
    Loop While (i &lt; x1)
    If Trouve Then Exit Do
    If pasb &gt; 0.0000001 Then
        i = i - pasb
        pasb = pasb / 10
    End If
Loop While (pasb &gt; 0.0000001)
If Trouve Then x1 = i
&apos;    x1 = ix
&apos;    pasb = 0.1
&apos;    Do
&apos;        Do
&apos;            pasb = pasb / 10
&apos;            x1 = ix + pasb
&apos;            If Abs(x1) &lt; 0.000001 Then x1 = 0
&apos;            UneFonction$ = MaFonction
&apos;            RemplaceX UneFonction$, x1
&apos;            Defini = 1
&apos;            y1 = CalculeFonction(UneFonction$, Defini)
&apos;            If (suivantx) Then
&apos;                If Defini = 1 And (y1 &gt; xmax Or y1 &lt; xmin) Then Defini = 0
&apos;            Else
&apos;                If Defini = 1 And (y1 &gt; ymax Or y1 &lt; ymin) Then Defini = 0
&apos;            End If
&apos;        Loop While (aDefini &lt;&gt; Defini) And (pasb &gt; 0.000001)
&apos;        ix = x1
&apos;        pasb = pasb * 10
&apos;    Loop While (pasb &gt; 0.00001)
&apos;    x1 = ix - pasb
End Sub

Private Sub MiseAJourRepere()
    xmin = oRepereForm.Model.TextBox4.Text
    RemplaceVirgulePoint xmin
    xmin = Val(xmin)
    If xmin = Int(xmin) Then xmin = xmin - 0.5
    xmax = oRepereForm.Model.TextBox5.Text
    RemplaceVirgulePoint xmax
    xmax = Val(xmax)
    If xmax = Int(xmax) Then xmax = xmax + 0.5
    ymin = oRepereForm.Model.TextBox6.Text
    RemplaceVirgulePoint ymin
    ymin = Val(ymin)
    If ymin = Int(ymin) Then ymin = ymin - 0.5
    ymax = oRepereForm.Model.TextBox7.Text
    RemplaceVirgulePoint ymax
    ymax = Val(ymax)
    If ymax = Int(ymax) Then ymax = ymax + 0.5
End Sub

Function ListeVisible() As String
    ListeVisible() = &quot;ListBox&quot; &amp; trim(str(iListeVisible+7))
End Function

Private Sub ExtraitDroitePoint(texte$, i, a, b, c, eqdroite$)
Dim x0, y0, x1, y1, fa$, ptf, fc$
    i = -1
    If InStr(1, texte$, &quot;(&quot;) &lt;&gt; 0 And InStr(1, texte$, &quot;)&quot;) &lt;&gt; 0 Then
        ExtraitSegmentPoint texte$, i, x0, y0, x1, y1
        If i &lt;&gt; -1 Then
            If x1 = x0 Then
                a = 1
                b = 0
                c = -x0
                eqdroite$ = &quot;x=&quot; &amp; Trim(Str(x0))
            Else
                a = (y1 - y0) / (x1 - x0)
                b = -1
                c = y1 - a * x1
                fa$ = &quot;&quot;
                If Int(a) &lt;&gt; a Then
                    fa$ = Trim(Str(a))
                    TrouveFraction fa$
                    ptf = InStr(1, fa$, &quot;/&quot;)
                    If ptf Then
                        fa$ = Left$(fa$, ptf - 1) &amp; &quot;x/&quot; &amp; Right$(fa$, Len(fa$) - ptf)
                    Else
                        fa$ = fa$ &amp; &quot;x&quot;
                    End If
                End If
                fc$ = &quot;&quot;
                If Int(c) &lt;&gt; c Then
                    fc$ = Trim(Str(c))
                    TrouveFraction fc$
                End If
                eqdroite$ = &quot;y=&quot; &amp; MIif(fa$ = &quot;&quot;, MIif(a = 0 Or a = 1, &quot;&quot;, Trim(Str(a))) &amp; &quot;x&quot;, fa$) &amp; MIif(c &lt; 0, &quot;&quot;, MIif(a = 0, &quot;&quot;, &quot;+&quot;)) &amp; MIif(fc$ = &quot;&quot;, Trim(Str(c)), fc$)
            End If
        End If
    End If
End Sub

Private Sub ExtraitSegmentPoint(texte$, i, x0, y0, x1, y1)
Dim Ext1, Ext2, ntrouve, j, k, np$, xx, yy

    Ext1 = Mid$(texte$, 2, 1)
    Ext2 = Mid$(texte$, 3, 1)
    ntrouve = 0
    For j = 0 To ListCount(oRepereForm, &quot;ListBox1&quot;) - 1
        k = 1
        ExtraitPoint GetList(oRepereForm, &quot;ListBox1&quot;, j), k, np$, xx, yy
        If Ext1 = np$ Then
            ntrouve = ntrouve + 1
            x0 = xx
            y0 = yy
        End If
        If Ext2 = np$ Then
            ntrouve = ntrouve + 1
            x1 = xx
            y1 = yy
        End If
    Next j
    If ntrouve = 2 Then
        i = 1
    Else
        i = -1
    End If
End Sub

Private Sub VideCombo()
    Clear(oRepereForm,&quot;ListBox1&quot;)
    Clear(oRepereForm,&quot;ListBox2&quot;)
    Clear(oRepereForm,&quot;ListBox3&quot;)
    Clear(oRepereForm,&quot;ListBox4&quot;)
    Clear(oRepereForm,&quot;ListBox5&quot;)
    Clear(oRepereForm,&quot;ListBox6&quot;)
    Clear(oRepereForm,&quot;ListBox7&quot;)
    Clear(oRepereForm,&quot;ListBox8&quot;)
    Clear(oRepereForm,&quot;ListBox9&quot;)
    Clear(oRepereForm,&quot;ListBox10&quot;)
    Clear(oRepereForm,&quot;ListBox11&quot;)
    Clear(oRepereForm,&quot;ComboBox2&quot;)
    Clear(oRepereForm,&quot;ComboBox3&quot;)
    Clear(oRepereForm,&quot;ComboBox4&quot;)
    Clear(oRepereForm,&quot;ComboBox9&quot;)
    Clear(oRepereForm,&quot;ComboBox10&quot;)
    Clear(oRepereForm,&quot;ComboBox11&quot;)
    Clear(oRepereForm,&quot;ComboBox12&quot;)
    Clear(oRepereForm,&quot;ComboBox13&quot;)
    Clear(oRepereForm,&quot;ComboBox14&quot;)
    Clear(oRepereForm,&quot;ComboBox15&quot;)
    Clear(oRepereForm,&quot;ComboBox16&quot;)
    Clear(oRepereForm,&quot;ComboBox17&quot;)
    Clear(oRepereForm,&quot;ComboBox18&quot;)
    Clear(oRepereForm,&quot;ComboBox19&quot;)
    Clear(oRepereForm,&quot;ComboBox20&quot;)
    Clear(oRepereForm,&quot;ComboBox22&quot;)
    Clear(oRepereForm,&quot;ComboBox23&quot;)
    Clear(oRepereForm,&quot;ComboBox24&quot;)
    Clear(oRepereForm,&quot;ComboBox25&quot;)
    Clear(oRepereForm,&quot;ComboBox29&quot;)
    Clear(oRepereForm,&quot;ComboBox30&quot;)
    Clear(oRepereForm,&quot;ComboBox31&quot;)
    Clear(oRepereForm,&quot;ComboBox32&quot;)
    Clear(oRepereForm,&quot;ComboBox33&quot;)
    Clear(oRepereForm,&quot;ComboBox34&quot;)
    Clear(oRepereForm,&quot;ComboBox35&quot;)
    Clear(oRepereForm,&quot;ComboBox36&quot;)
    Clear(oRepereForm,&quot;ComboBox37&quot;)
    Clear(oRepereForm,&quot;ComboBox38&quot;)
    Clear(oRepereForm,&quot;ComboBox39&quot;)
    Clear(oRepereForm,&quot;ComboBox40&quot;)
    Clear(oRepereForm,&quot;ComboBox41&quot;)
End Sub

Private Sub RepereForm_CheckBox1_Click()
Dim a
    a = Not (oRepereForm.Model.CheckBox1.State = 1)
    oRepereForm.Model.Label2.Enabled = a
    oRepereForm.Model.Label3.Enabled = a
    oRepereForm.Model.TextBox2.Enabled = a
    oRepereForm.Model.TextBox3.Enabled = a
End Sub

Private Sub RepereForm_CheckBox10_Click()
&apos;    ComboBox37.List(ListBox4.ListIndex) = IIf(oRepereForm.Model.CheckBox10.State, &quot;V&quot;, &quot;F&quot;)
End Sub

Private Sub RepereForm_CheckBox11_Click()
    oRepereForm.Model.OptionButton1.Enabled = (oRepereForm.Model.CheckBox11.State = 1)
    oRepereForm.Model.OptionButton2.Enabled = (oRepereForm.Model.CheckBox11.State = 1)
    ComboBox41.List(ComboBox40.ListIndex) = oRepereForm.Model.TextBox16.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox17.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox18.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.CheckBox11.State &amp; &quot;;&quot; &amp; oRepereForm.Model.OptionButton1.State &amp; &quot;;&quot; &amp; oRepereForm.Model.OptionButton2.State &amp; &quot;;&quot; &amp; Trim(Str(oRepereForm.Model.Image8.Backgroundcolor)) &amp; &quot;;&quot; &amp; oRepereForm.Model.Image8.HelpText &amp; &quot;;&quot; &amp; Trim(Str(ComboBox39.ListIndex)) &amp; &quot;;&quot; &amp; Trim(Str(oRepereForm.Model.Image9.Backgroundcolor)) &amp; &quot;;&quot; &amp; oRepereForm.Model.Image9.HelpText
End Sub

Private Sub RepereForm_CheckBox19_Click()
&apos;    If ListBox6.ListIndex &gt; -1 Then ComboBox29.List(ListBox6.ListIndex) = IIf(oRepereForm.Model.CheckBox19.State, &quot;V&quot;, &quot;F&quot;)
End Sub

Private Sub RepereForm_CheckBox2_Click()
    oRepereForm.Model.CheckBox12.Enabled = (oRepereForm.Model.CheckBox222.State=1)
    oRepereForm.Model.CheckBox13.Enabled = (oRepereForm.Model.CheckBox222.State=1)
    oRepereForm.Model.CheckBox14.Enabled = (oRepereForm.Model.CheckBox222.State=1)
    oRepereForm.Model.CheckBox12.State = 1
    oRepereForm.Model.CheckBox13.State = 0
    oRepereForm.Model.CheckBox14.State = 0
End Sub

Private Sub RepereForm_CheckBox20_Click()
&apos;    If ListBox6.ListIndex &gt; -1 Then ComboBox30.List(ListBox6.ListIndex) = IIf(oRepereForm.Model.CheckBox20.State, &quot;V&quot;, &quot;F&quot;)
End Sub

Private Sub RepereForm_CheckBox21_Click()
&apos;    If ListBox6.ListIndex &gt; -1 Then ComboBox31.List(ListBox6.ListIndex) = IIf(oRepereForm.Model.CheckBox21.State, &quot;V&quot;, &quot;F&quot;)
End Sub

Private Sub RepereForm_CheckBox22_Click()
    oRepereForm.Model.CheckBox23.Enabled = oRepereForm.Model.CheckBox22.State
    oRepereForm.Model.CheckBox24.Enabled = oRepereForm.Model.CheckBox22.State
    oRepereForm.Model.TextBox15.Enabled = oRepereForm.Model.CheckBox22.State * oRepereForm.Model.CheckBox24.State
End Sub

Private Sub RepereForm_CheckBox24_Click()
    oRepereForm.Model.TextBox15.Enabled = oRepereForm.Model.CheckBox22.State * oRepereForm.Model.CheckBox24.State
End Sub


Private Sub RepereForm_CheckBox29_Click()
    oRepereForm.Model.TextBox33.Enabled = oRepereForm.Model.CheckBox29.State
End Sub

Private Sub RepereForm_CheckBox3_Click()
    oRepereForm.Model.CheckBox15.Enabled = (oRepereForm.Model.CheckBox3.State=1)
    oRepereForm.Model.CheckBox16.Enabled = (oRepereForm.Model.CheckBox3.State=1)
    oRepereForm.Model.CheckBox17.Enabled = (oRepereForm.Model.CheckBox3.State=1)
    oRepereForm.Model.CheckBox15.State = 1
    oRepereForm.Model.CheckBox16.State = 0
    oRepereForm.Model.CheckBox17.State = 0
End Sub

Private Sub RepereForm_CheckBox4_Click()
    oRepereForm.Model.CheckBox6.State = MIif(oRepereForm.Model.CheckBox4.State Or oRepereForm.Model.CheckBox5.State,1,0)
    If oRepereForm.Model.CheckBox4.State And oRepereForm.Model.CheckBox5.State Then
        oRepereForm.Model.CheckBox7.State = MIif(oRepereForm.Model.CheckBox4.State And oRepereForm.Model.CheckBox5.State,1,0)
    End If
End Sub

Private Sub RepereForm_CheckBox40_Click()
    Polices.Enabled = (Not oRepereForm.Model.CheckBox40.State)
    Taille.Enabled = (Not oRepereForm.Model.CheckBox40.State)
    SpinTaille.Enabled = (Not oRepereForm.Model.CheckBox40.State)
    Gras.Enabled = (Not oRepereForm.Model.CheckBox40.State)
    Italique.Enabled = (Not oRepereForm.Model.CheckBox40.State)
    Souligne.Enabled = (Not oRepereForm.Model.CheckBox40.State)
    Couleur.Enabled = (Not oRepereForm.Model.CheckBox40.State)
End Sub

Private Sub RepereForm_CheckBox5_Click()
    oRepereForm.Model.CheckBox6.State = MIif(oRepereForm.Model.CheckBox4.State Or oRepereForm.Model.CheckBox5.State,1,0)
    If oRepereForm.Model.CheckBox4.State And oRepereForm.Model.CheckBox5.State Then
        oRepereForm.Model.CheckBox7.State = MIif(oRepereForm.Model.CheckBox4.State And oRepereForm.Model.CheckBox5.State,1,0)
    End If
End Sub

Private Sub RepereForm_CheckBox8_Click()
&apos;    If ListBox1.ListIndex &gt; -1 Then ComboBox35.List(ListBox1.ListIndex) = IIf(oRepereForm.Model.CheckBox8.State, &quot;V&quot;, &quot;F&quot;)
End Sub

Private Sub RepereForm_CheckBox9_Click()
&apos;    If ListBox1.ListIndex &gt; -1 Then ComboBox36.List(ListBox1.ListIndex) = IIf(oRepereForm.Model.CheckBox9.State, &quot;V&quot;, &quot;F&quot;)
End Sub

Private Sub RepereForm_ComboBox25_Change()
&apos;    If ListBox1.ListIndex &gt; -1 Then ComboBox38.List(ListBox1.ListIndex) = Trim(Str(ComboBox25.ListIndex))
End Sub

Private Sub RepereForm_ComboBox39_Change()
    If GetListIndex(oRepereForm, &quot;ComboBox40&quot;) &gt; -1 Then RemplaceItem(oRepereForm, &quot;ComboBox41&quot;, GetListIndex(oRepereForm, &quot;ComboBox40&quot;), oRepereForm.Model.TextBox16.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox17.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox18.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.CheckBox11.State &amp; &quot;;&quot; &amp; oRepereForm.Model.OptionButton1.State &amp; &quot;;&quot; &amp; oRepereForm.Model.OptionButton2.State &amp; &quot;;&quot; &amp; Trim(Str(oRepereForm.Model.Image8.Backgroundcolor)) &amp; &quot;;&quot; &amp; oRepereForm.Model.Image8.HelpText &amp; &quot;;&quot; &amp; Trim(Str(GetListIndex(oRepereForm, &quot;ComboBox39&quot;))) &amp; &quot;;&quot; &amp; Trim(Str(oRepereForm.Model.Image9.Backgroundcolor)) &amp; &quot;;&quot; &amp; oRepereForm.Model.Image9.HelpText)
End Sub

Private Sub RepereForm_ComboBox40_Change()
Dim arg() As String
Dim texte$

    If AncienneListe &gt; -1 Then RemplaceItem(oRepereForm, &quot;ComboBox41&quot;, AncienneListe, oRepereForm.Model.TextBox16.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox17.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox18.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.CheckBox11.State &amp; &quot;;&quot; &amp; oRepereForm.Model.OptionButton1.State &amp; &quot;;&quot; &amp; oRepereForm.Model.OptionButton2.State &amp; &quot;;&quot; &amp; Trim(Str(oRepereForm.Model.Image8.Backgroundcolor)) &amp; &quot;;&quot; &amp; oRepereForm.Model.Image8.HelpText &amp; &quot;;&quot; &amp; Trim(Str(GetListIndex(oRepereForm, &quot;ComboBox39&quot;))) &amp; &quot;;&quot; &amp; Trim(Str(oRepereForm.Model.Image9.Backgroundcolor)) &amp; &quot;;&quot; &amp; oRepereForm.Model.Image9.HelpText)
    iListeVisible = GetListIndex(oRepereForm, &quot;ComboBox40&quot;)
    oRepereForm.GetControl(&quot;ListBox7&quot;).Visible = (iListeVisible = 0 )
    oRepereForm.GetControl(&quot;ListBox8&quot;).Visible = (iListeVisible = 1 )
    oRepereForm.GetControl(&quot;ListBox9&quot;).Visible = (iListeVisible = 2 )
    oRepereForm.GetControl(&quot;ListBox10&quot;).Visible = (iListeVisible = 3 )
    oRepereForm.GetControl(&quot;ListBox11&quot;).Visible = (iListeVisible = 4 )
    If ListCount(oRepereForm, &quot;ComboBox41&quot;) &gt; 0 And GetListIndex(oRepereForm, &quot;ComboBox40&quot;) &gt; -1 Then
        texte$ = GetList(oRepereForm, &quot;ComboBox41&quot;, GetListIndex(oRepereForm, &quot;ComboBox40&quot;))
    Else
        texte$ = oRepereForm.Model.TextBox16.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox17.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox18.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.CheckBox11.State &amp; &quot;;&quot; &amp; oRepereForm.Model.OptionButton1.State &amp; &quot;;&quot; &amp; oRepereForm.Model.OptionButton2.State &amp; &quot;;&quot; &amp; Trim(Str(oRepereForm.Model.Image8.Backgroundcolor)) &amp; &quot;;&quot; &amp; oRepereForm.Model.Image8.HelpText &amp; &quot;;&quot; &amp; Trim(Str(GetListIndex(oRepereForm, &quot;ComboBox39&quot;))) &amp; &quot;;&quot; &amp; Trim(Str(oRepereForm.Model.Image9.Backgroundcolor)) &amp; &quot;;&quot; &amp; oRepereForm.Model.Image9.HelpText
    End If
    ChargeParametre texte$, arg
    oRepereForm.Model.TextBox16.Text = arg(0)
    oRepereForm.Model.TextBox17.Text = arg(1)
    oRepereForm.Model.TextBox18.Text = arg(2)
    oRepereForm.Model.CheckBox11.State = arg(3)
    oRepereForm.Model.OptionButton1.State = arg(4)
    oRepereForm.Model.OptionButton2.State = arg(5)
    oRepereForm.Model.Image8.Backgroundcolor = Val(arg(6))
    oRepereForm.Model.Image8.HelpText = arg(7)
    SetListIndex(oRepereForm, &quot;ComboBox39&quot;, Val(arg(8)))
    oRepereForm.Model.Image9.Backgroundcolor = Val(arg(9))
    oRepereForm.Model.Image9.HelpText = arg(10)
    AncienneListe = GetListIndex(oRepereForm, &quot;ComboBox40&quot;)
End Sub

Private Sub RepereForm_CommandButton24_Click()
Dim uneListe, ErreurFenetre, i, UneFonction$, Defini, j, xx, yy

    If IndiceSerie &lt; 4 Then
        ComboBox40.ListIndex = IndiceSerie
        uneListe = ListeVisible
        LesListes(IndiceSerie) = uneListe
        IndiceSerie = IndiceSerie + 1
        ComboBox41.AddItem oRepereForm.Model.TextBox16.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox17.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox18.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.CheckBox11.State &amp; &quot;;&quot; &amp; oRepereForm.Model.OptionButton1.State &amp; &quot;;&quot; &amp; oRepereForm.Model.OptionButton2.State &amp; &quot;;&quot; &amp; Trim(Str(oRepereForm.Model.Image8.Backgroundcolor)) &amp; &quot;;&quot; &amp; oRepereForm.Model.Image8.HelpText &amp; &quot;;&quot; &amp; Trim(Str(ComboBox39.ListIndex)) &amp; &quot;;&quot; &amp; Trim(Str(oRepereForm.Model.Image9.Backgroundcolor)) &amp; &quot;;&quot; &amp; oRepereForm.Model.Image9.HelpText
        ErreurFenetre = False
        For i = Val(oRepereForm.Model.TextBox16.Text) To Val(oRepereForm.Model.TextBox16.Text) + Val(oRepereForm.Model.TextBox17.Text) - 1
            UneFonction$ = oRepereForm.Model.TextBox18.Text
            RemplaceX UneFonction$, i
            Defini = -1
            j = CalculeFonction(UneFonction$, Defini)
            If Defini Then
                If xx &lt; xmin Or xx &gt; xmax Or yy &lt; ymin Or yy &gt; ymax Then
                    ErreurFenetre = True
                Else
                    uneListe.AddItem &quot;(&quot; &amp; Trim(Str(i)) &amp; &quot;;&quot; &amp; Trim(Str(j)) &amp; &quot;)&quot;
                    If uneListe.ListCount &gt; 0 Then uneListe.ListIndex = uneListe.ListCount - 1
                End If
            End If
        Next i
        If ErreurFenetre Then
			MsgBoxP (&quot;message11&quot;)
rem            MsgBox &quot;Certains points n&apos;ont pas été ajoutés car ils ne pourront pas être&quot; &amp; Chr(13) &amp; &quot;tracés dans le repère indiqué.&quot; &amp; Chr(13) &amp; Chr(13) &amp; &quot;Changez les limites du repère (onglet Repère).&quot;
        End If
    Else
		MsgBoxP (&quot;message13&quot;)
rem        MsgBox &quot;Vous ne pouvez insérer que 5 séries !&quot;
    End If
End Sub

Private Sub RepereForm_CommandButton25_Click()
Dim uneListe As String
Dim i, j

    uneListe = ListeVisible
    If ListCount(oRepereForm, uneListe) &gt; 0 Then
        Clear(oRepereForm, uneListe)
        For i = ListIndex(oRepereForm, &quot;ComboBox40&quot;) To IndiceSerie - 2
            For j = 1 To ListCount(oRepereForm, LesListes(i + 1))
                Add(oRepereForm, LesListes(i), List(oRepereForm, LesListes(i + 1), j - 1))
            Next j
            Clear(oRepereForm, LesListes(i + 1))
        Next i
        RemoveItem(oRepereForm, &quot;ComboBox41&quot;, ListIndex(oRepereForm, &quot;ComboBox40&quot;))
    Else
    		MsgBoxP (&quot;message14&quot;)
rem        MsgBox &quot;Je ne peux pas supprimer une série vide !&quot;
    End If
End Sub

Private Sub RepereForm_CommandButton26_Click()
Dim uneListe As String
Dim ErreurFenetre, i, UneFonction$, Defini, j, xx, yy

    uneListe = LesListes(GetListIndex(oRepereForm, &quot;ComboBox40&quot;))
    Clear(oRepereForm, uneListe)
    RemplaceItem(oRepereForm, &quot;ComboBox41&quot;, GetListIndex(oRepereForm, &quot;ComboBox40&quot;), oRepereForm.Model.TextBox16.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox17.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox18.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.CheckBox11.State &amp; &quot;;&quot; &amp; oRepereForm.Model.OptionButton1.State &amp; &quot;;&quot; &amp; oRepereForm.Model.OptionButton2.State &amp; &quot;;&quot; &amp; Trim(Str(oRepereForm.Model.Image8.Backgroundcolor)) &amp; &quot;;&quot; &amp; oRepereForm.Model.Image8.HelpText &amp; &quot;;&quot; &amp; Trim(Str(GetListIndex(oRepereForm, &quot;ComboBox39&quot;))) &amp; &quot;;&quot; &amp; Trim(Str(oRepereForm.Model.Image9.Backgroundcolor)) &amp; &quot;;&quot; &amp; oRepereForm.Model.Image9.HelpText)
    ErreurFenetre = False
    For i = Val(oRepereForm.Model.TextBox16.Text) To Val(oRepereForm.Model.TextBox16.Text) + Val(oRepereForm.Model.TextBox17.Text) - 1
        UneFonction$ = oRepereForm.Model.TextBox18.Text
        RemplaceX UneFonction$, i
        Defini = -1
        j = CalculeFonction(UneFonction$, Defini)
        If Defini Then
            If xx &lt; xmin Or xx &gt; xmax Or yy &lt; ymin Or yy &gt; ymax Then
                ErreurFenetre = True
            Else
                Add(oRepereForm, uneListe, &quot;(&quot; &amp; Trim(Str(i)) &amp; &quot;;&quot; &amp; Trim(Str(j)) &amp; &quot;)&quot;)
                If ListCount(oRepereForm, uneListe) &gt; 0 Then SetListIndex(oRepereForm, uneListe, ListCount(oRepereForm, uneListe) - 1)
            End If
        End If
    Next i
    If ErreurFenetre Then
    		MsgBoxP (&quot;message11&quot;)
rem        MsgBox &quot;Certains points n&apos;ont pas été ajoutés car ils ne pourront pas être&quot; &amp; Chr(13) &amp; &quot;tracés dans le repère indiqué.&quot; &amp; Chr(13) &amp; Chr(13) &amp; &quot;Changez les limites du repère (onglet Repère).&quot;
    End If
End Sub

Private Sub RepereForm_CommandButton27_Click()
Dim uneListe As String
Dim texte$, i, np$, xx, yy

    uneListe = ListeVisible
    texte$ = &quot;(&quot; &amp; oRepereForm.Model.TextBox19.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox30.Text &amp; &quot;)&quot;
    i = 1
    ExtraitPoint texte$, i, np$, xx, yy
    If i &lt;&gt; -1 Then
        If xx &lt; xmin Or xx &gt; xmax Or yy &lt; ymin Or yy &gt; ymax Then
    		MsgBoxP (&quot;message11&quot;)
rem         MsgBox &quot;Le point que vous voulez ajouter ne pourra pas être&quot; &amp; Chr(13) &amp; &quot;tracé dans le repère indiqué.&quot; &amp; Chr(13) &amp; Chr(13) &amp; &quot;Changez les limites du repère (onglet Repère).&quot;
        Else
            RemplaceItem oRepereForm, uneListe, GetListIndex(oRepereForm, uneListe) ,texte$
        End If
    End If
End Sub

Private Sub RepereForm_CommandButton28_Click()
Dim uneListe As String
Dim texte$, i, np$, xx, yy

    uneListe = ListeVisible
    texte$ = &quot;(&quot; &amp; oRepereForm.Model.TextBox19.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox30.Text &amp; &quot;)&quot;
    i = 1
    ExtraitPoint texte$, i, np$, xx, yy
    If i &lt;&gt; -1 Then
        If xx &lt; xmin Or xx &gt; xmax Or yy &lt; ymin Or yy &gt; ymax Then
			MsgBoxP (&quot;message11&quot;)
rem            MsgBox &quot;Le point que vous voulez ajouter ne pourra pas être&quot; &amp; Chr(13) &amp; &quot;tracé dans le repère indiqué.&quot; &amp; Chr(13) &amp; Chr(13) &amp; &quot;Changez les limites du repère (onglet Repère).&quot;
        Else
            Add(oRepereForm, uneListe, texte$, GetListIndex(oRepereForm, uneListe) + 1)
        End If
    End If
End Sub

Private Sub RepereForm_CommandButton29_Click()
Dim uneListe As String

    uneListe = ListeVisible
    If GetListIndex(oRepereForm, uneListe) &gt; -1 Then SupprimeItem(oRepereForm, uneListe, GetListIndex(oRepereForm, uneListe))
End Sub

Private Sub RepereForm_CommandButton30_Click()
    Clear(oRepereForm, &quot;ListBox1&quot;)
    Clear(oRepereForm, &quot;ComboBox18&quot;)
    Clear(oRepereForm, &quot;ComboBox19&quot;)
    Clear(oRepereForm, &quot;ComboBox20&quot;)
    Clear(oRepereForm, &quot;ComboBox35&quot;)
    Clear(oRepereForm, &quot;ComboBox36&quot;)
    Clear(oRepereForm, &quot;ComboBox38&quot;)
End Sub

Private Sub RepereForm_CommandButton31_Click()
    Clear(oRepereForm, &quot;ListBox2&quot;)
    Clear(oRepereForm, &quot;ComboBox15&quot;)
    Clear(oRepereForm, &quot;ComboBox16&quot;)
    Clear(oRepereForm, &quot;ComboBox17&quot;)
    Clear(oRepereForm, &quot;ComboBox32&quot;)
    Clear(oRepereForm, &quot;ComboBox33&quot;)
    Clear(oRepereForm, &quot;ComboBox34&quot;)
End Sub

Private Sub RepereForm_CommandButton32_Click()
    Clear(oRepereForm, &quot;ListBox3&quot;)
    Clear(oRepereForm, &quot;ComboBox12&quot;)
    Clear(oRepereForm, &quot;ComboBox13&quot;)
    Clear(oRepereForm, &quot;ComboBox14&quot;)
End Sub

Private Sub RepereForm_CommandButton33_Click()
    Clear(oRepereForm, &quot;ListBox4&quot;)
    Clear(oRepereForm, &quot;ComboBox9&quot;)
    Clear(oRepereForm, &quot;ComboBox10&quot;)
    Clear(oRepereForm, &quot;ComboBox11&quot;)
    Clear(oRepereForm, &quot;ComboBox37&quot;)
    Clear(oRepereForm, &quot;ComboBox44&quot;)
End Sub

Private Sub RepereForm_CommandButton34_Click()
    Clear(oRepereForm, &quot;ListBox5&quot;)
    Clear(oRepereForm, &quot;ComboBox2&quot;)
    Clear(oRepereForm, &quot;ComboBox3&quot;)
    Clear(oRepereForm, &quot;ComboBox4&quot;)
    Clear(oRepereForm, &quot;ComboBox42&quot;)
    Clear(oRepereForm, &quot;ComboBox43&quot;)
    Clear(oRepereForm, &quot;ComboBox45&quot;)
    Clear(oRepereForm, &quot;ComboBox46&quot;)
    Clear(oRepereForm, &quot;ComboBox47&quot;)
End Sub

Private Sub RepereForm_CommandButton35_Click()
    Clear(oRepereForm, &quot;ListBox6&quot;)
    Clear(oRepereForm, &quot;ComboBox22&quot;)
    Clear(oRepereForm, &quot;ComboBox23&quot;)
    Clear(oRepereForm, &quot;ComboBox24&quot;)
End Sub

Private Sub RepereForm_CommandButton36_Click()
	Clear(oRepereForm, ListeVisible())
End Sub

Private Sub RepereForm_CommandButton37_Click()
    Clear(oRepereForm, &quot;ComboBox40&quot;)
    Clear(oRepereForm, &quot;ComboBox41&quot;)
End Sub

Private Sub RepereForm_Image_Click(evt)
    ChangeCouleur evt.source.model
End Sub


Private Sub RepereForm_Couleur_Click()
    ChangeCouleur Couleur
End Sub

Private Sub RepereForm_Image9_Click()
    ChangeCouleur oRepereForm.Model.Image9
    RemplaceItem(oRepereForm, &quot;ComboBox41&quot;, GetListIndex(oRepereForm, &quot;ComboBox40&quot;), oRepereForm.Model.TextBox16.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox17.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox18.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.CheckBox11.State &amp; &quot;;&quot; &amp; oRepereForm.Model.OptionButton1.State &amp; &quot;;&quot; &amp; oRepereForm.Model.OptionButton2.State &amp; &quot;;&quot; &amp; Trim(Str(oRepereForm.Model.Image8.Backgroundcolor)) &amp; &quot;;&quot; &amp; oRepereForm.Model.Image8.HelpText &amp; &quot;;&quot; &amp; Trim(Str(GetListIndex(oRepereForm, &quot;ComboBox39&quot;))) &amp; &quot;;&quot; &amp; Trim(Str(oRepereForm.Model.Image9.Backgroundcolor)) &amp; &quot;;&quot; &amp; oRepereForm.Model.Image9.HelpText)
End Sub

Private Sub RepereForm_ListBox5_Click()
    listbox5_Change
End Sub

Private Sub RepereForm_ListBox5_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    listbox5_Change
End Sub

Private Sub RepereForm_ListBox7_Change()
Dim unPoint As String
Dim ListBox7 as Integer

	ListBox7 = GetListIndex(oRepereForm, &quot;ListBox7&quot;)
    If ListBox7 &gt; -1 Then
        unPoint = GetList(oRepereForm, &quot;ListBox7&quot;, ListBox7)
        unPoint = Mid(unPoint, 2, Len(unPoint) - 2)
        oRepereForm.Model.TextBox19.Text = Left(unPoint, InStr(1, unPoint, &quot;;&quot;) - 1)
        oRepereForm.Model.TextBox30.Text = Mid(unPoint, InStr(1, unPoint, &quot;;&quot;) + 1)
    End If
End Sub

Private Sub RepereForm_ListBox8_Change()
Dim unPoint As String
    If ListBox8.ListIndex &gt; -1 Then
        unPoint = ListBox8.List(ListBox8.ListIndex)
        unPoint = Mid(unPoint, 2, Len(unPoint) - 2)
        oRepereForm.Model.TextBox19.Text = Left(unPoint, InStr(1, unPoint, &quot;;&quot;) - 1)
        oRepereForm.Model.TextBox30.Text = Mid(unPoint, InStr(1, unPoint, &quot;;&quot;) + 1)
    End If
End Sub

Private Sub RepereForm_ListBox9_Change()
Dim unPoint As String
    If ListBox9.ListIndex &gt; -1 Then
        unPoint = ListBox9.List(ListBox9.ListIndex)
        unPoint = Mid(unPoint, 2, Len(unPoint) - 2)
        oRepereForm.Model.TextBox19.Text = Left(unPoint, InStr(1, unPoint, &quot;;&quot;) - 1)
        oRepereForm.Model.TextBox30.Text = Mid(unPoint, InStr(1, unPoint, &quot;;&quot;) + 1)
    End If
End Sub

Private Sub RepereForm_ListBox10_Change()
Dim unPoint As String
    If ListBox10.ListIndex &gt; -1 Then
        unPoint = ListBox10.List(ListBox10.ListIndex)
        unPoint = Mid(unPoint, 2, Len(unPoint) - 2)
        oRepereForm.Model.TextBox19.Text = Left(unPoint, InStr(1, unPoint, &quot;;&quot;) - 1)
        oRepereForm.Model.TextBox30.Text = Mid(unPoint, InStr(1, unPoint, &quot;;&quot;) + 1)
    End If
End Sub

Private Sub RepereForm_ListBox11_Change()
Dim unPoint As String
    If ListBox11.ListIndex &gt; -1 Then
        unPoint = ListBox11.List(ListBox11.ListIndex)
        unPoint = Mid(unPoint, 2, Len(unPoint) - 2)
        oRepereForm.Model.TextBox19.Text = Left(unPoint, InStr(1, unPoint, &quot;;&quot;) - 1)
        oRepereForm.Model.TextBox30.Text = Mid(unPoint, InStr(1, unPoint, &quot;;&quot;) + 1)
    End If
End Sub

Private Sub RepereForm_listbox5_Change()
Dim TypeFonction, LeTexteFonction, a
Dim ListBox5 as Integer

	ListBox5 = GetListIndex(oRepereForm, &quot;ListBox5&quot;)
    If ListBox5 &gt; -1 Then
        oRepereForm.Model.Image1.Backgroundcolor = GetList(oRepereForm, &quot;ComboBox2&quot;, ListBox5)
        oRepereForm.Model.Image1.HelpText = MIif(GetList(oRepereForm, &quot;ComboBox4&quot;, ListBox5) = &quot;msoLineSolid&quot;, Chaine(&quot;continu&quot;) , Chaine(&quot;continu&quot;)) &amp; &quot; &quot; &amp; GetList(oRepereForm, &quot;ComboBox3&quot;, ListBox5) &amp; &quot; pt&quot;
        oRepereForm.Model.TextBox32.Text = GetList(oRepereForm, &quot;ComboBox43&quot;, ListBox5)
        TypeFonction = Val(GetList(oRepereForm, &quot;ComboBox42&quot;, ListBox5))
        oRepereForm.Model.OptionButton7.State = (TypeFonction = 1)
        oRepereForm.Model.OptionButton8.State = (TypeFonction = 2)
        oRepereForm.Model.OptionButton9.State = (TypeFonction = 3)
        oRepereForm.Model.OptionButton10.State = (TypeFonction = 4)
        oRepereForm.Model.CheckBox27.State = Left(GetList(oRepereForm, &quot;ComboBox45&quot;, ListBox5),1)
        oRepereForm.Model.CheckBox28.State = Left(GetList(oRepereForm, &quot;ComboBox46&quot;, ListBox5),1)
        oRepereForm.Model.CheckBox29.State = MIif(GetList(oRepereForm, &quot;ComboBox47&quot;, ListBox5)&lt;&gt;&quot;&quot;, 1, 0)
        oRepereForm.Model.TextBox33.Text = GetList(oRepereForm, &quot;ComboBox47&quot;, ListBox5)
        oRepereForm.Model.TextBox33.Enabled = (oRepereForm.Model.CheckBox29.State=1)
        oRepereForm.Model.Image21.Backgroundcolor = Val(Mid(GetList(oRepereForm, &quot;ComboBox45&quot;, ListBox5), InStr(1, GetList(oRepereForm, &quot;ComboBox45&quot;, ListBox5), &quot;;&quot;) + 1))
        oRepereForm.Model.Image22.Backgroundcolor = Val(Mid(GetList(oRepereForm, &quot;ComboBox46&quot;, ListBox5), InStr(1, GetList(oRepereForm, &quot;ComboBox46&quot;, ListBox5), &quot;;&quot;) + 1))
        If TypeFonction &lt; 3 Then
            oRepereForm.Model.TextBox12.Text = GetList(oRepereForm, &quot;ListBox5&quot;, ListBox5)
        Else
            LeTexteFonction = GetList(oRepereForm, &quot;ListBox5&quot;, ListBox5)
            a = InStr(1, LeTexteFonction, &quot;;&quot;)
            oRepereForm.Model.TextBox12.Text = Left(LeTexteFonction, a - 1)
            oRepereForm.Model.TextBox31.Text = Mid(LeTexteFonction, a + 1)
        End If
        oRepereForm.Model.CommandButton18.Enabled = True
        oRepereForm.Model.CommandButton20.Enabled = True
    End If
End Sub

Private Sub RepereForm_listbox6_Change()
Dim ListBox6 as Integer

	ListBox6 = GetListIndex(oRepereForm, &quot;ListBox6&quot;)
    If ListBox6 &gt; -1 Then
	    oRepereForm.Model.CommandButton21.Enabled = True
	    oRepereForm.Model.CommandButton23.Enabled = True
    End If
End Sub

Private Sub RepereForm_listbox3_Change()
Dim a$
Dim param() As String
Dim ListBox3 as Integer

	ListBox3 = GetListIndex(oRepereForm, &quot;ListBox3&quot;)
    If ListBox3 &gt; -1 Then
        oRepereForm.Model.Image3.Backgroundcolor = GetList(oRepereForm, &quot;ComboBox12&quot;, ListBox3)
        oRepereForm.Model.Image3.HelpText = MIif(GetList(oRepereForm, &quot;ComboBox14&quot;, ListBox3) = &quot;msoLineSolid&quot;, Chaine(&quot;continu&quot;), Chaine(&quot;pointille&quot;)) &amp; &quot; &quot; &amp; GetList(oRepereForm, &quot;ComboBox13&quot;, ListBox3) &amp; &quot; pt&quot;
        a$ = GetList(oRepereForm, &quot;ListBox3&quot;, ListBox3)
        a$ = Mid(a$, 2, Len(a$) - 2)
        If oRepereForm.Model.OptionButton6.State Then
            If Mid(a$, 2, 1) = &quot;&apos;&quot; Then
                a$ = Left(a$, 2) &amp; &quot;;&quot; &amp; Mid(a$, 3)
            Else
                a$ = Left(a$, 1) &amp; &quot;;&quot; &amp; Mid(a$, 2)
            End If
        End If
        ChargeParametre a$, param, &quot;;&quot;
        oRepereForm.Model.TextBox10.Text = param(0)
        oRepereForm.Model.TextBox27.Text = param(1)
        oRepereForm.Model.TextBox28.Text = &quot;&quot;
        oRepereForm.Model.TextBox29.Text = &quot;&quot;
        If oRepereForm.Model.OptionButton5.State Then
            oRepereForm.Model.TextBox28.Text = param(2)
            oRepereForm.Model.TextBox29.Text = param(3)
        End If
    End If
End Sub

Private Sub RepereForm_listbox4_Change()
Dim ListBox4 as Integer

	ListBox4 = GetListIndex(oRepereForm, &quot;ListBox4&quot;)
    If ListBox4 &gt; -1 Then
        oRepereForm.Model.CheckBox10.State = GetList(oRepereForm, &quot;ComboBox37&quot;, ListBox4)
        oRepereForm.Model.Image2.Backgroundcolor = GetList(oRepereForm, &quot;ComboBox9&quot;, ListBox4)
        oRepereForm.Model.Image2.HelpText = MIif(GetList(oRepereForm, &quot;ComboBox11&quot;, ListBox4) = &quot;msoLineSolid&quot;, Chaine(&quot;continu&quot;), Chaine(&quot;pointille&quot;)) &amp; &quot; &quot; &amp; GetList(oRepereForm, &quot;ComboBox10&quot;, ListBox4) &amp; &quot; pt&quot;
        oRepereForm.Model.TextBox11.Text = GetList(oRepereForm, &quot;ListBox4&quot;, ListBox4)
        oRepereForm.GetControl(&quot;Label62&quot;).Visible = (InStr(1, GetList(oRepereForm, &quot;ListBox4&quot;, ListBox4), &quot;&gt;&quot;) &lt;&gt; 0 Or InStr(1, GetList(oRepereForm, &quot;ListBox4&quot;, ListBox4), &quot;&lt;&quot;) &lt;&gt; 0)
        oRepereForm.GetControl(&quot;Image20&quot;).Visible = (InStr(1, GetList(oRepereForm, &quot;ListBox4&quot;, ListBox4), &quot;&gt;&quot;) &lt;&gt; 0 Or InStr(1, GetList(oRepereForm, &quot;ListBox4&quot;, ListBox4), &quot;&lt;&quot;) &lt;&gt; 0)
        oRepereForm.Model.Image20.Backgroundcolor = GetList(oRepereForm, &quot;ComboBox44&quot;, ListBox4)
	    oRepereForm.Model.CommandButton15.Enabled = True
	    oRepereForm.Model.CommandButton17.Enabled = True
    End If
End Sub

Private Sub RepereForm_CommandButton1_Click()
Dim ligne As Object
Dim texte$, tpx, tpy, affx, affy, affori, affunite, i, posxt, posyt, abscisse, ordonnee, ASU
Dim cax, sax, ep, j, ii, tru, x1, y1, x2, y2, trmu
Dim Shapes

	SauveForm(oRepereForm)
    oRepereForm.Model.Label12.Label = Trim(Str(xmin))
    oRepereForm.Model.Label13.Label = Trim(Str(xmax))
    oRepereForm.Model.Label14.Label = Trim(Str(ymin))
    oRepereForm.Model.Label15.Label = Trim(Str(ymax))
    
    MiseAJourRepere
    If xmin &lt;= 0 And xmax &gt;= 0 And ymin &lt;= 0 And ymax &gt;= 0 Then
		oRepereForm.Model.sauve.Step = 1
		oRepereForm.Model.CommandButton100.Step = 1
		oRepereForm.Model.CommandButton101.Step = 1
		oRepereForm.Model.CommandButton102.Step = 1
		oRepereForm.Model.CommandButton103.Step = 1
		oRepereForm.Model.CommandButton104.Step = 1
		oRepereForm.Model.CommandButton105.Step = 1
		oRepereForm.Model.CommandButton106.Step = 1
		oRepereForm.Model.CommandButton107.Step = 1
		oRepereForm.Model.CommandButton108.Step = 1
    	oRepereForm.Model.Step = 10
	    InitialiseDessin(false)
	    Shapes=InitialiseGroupe
&apos;        texte$ = IIf(oRepereForm.Model.ListBox5.Step, &quot;&quot;, oRepereForm.Model.Label20.Label)
        tpx = oRepereForm.Model.CheckBox222.State
        tpy = oRepereForm.Model.CheckBox3.State
        affx = oRepereForm.Model.CheckBox4.State
        affy = oRepereForm.Model.CheckBox5.State
        affori = oRepereForm.Model.CheckBox6.State
        affunite = oRepereForm.Model.CheckBox7.State
        dx = monval(oRepereForm.Model.TextBox1.Text) * 1000
        If oRepereForm.Model.CheckBox1.State Then
            dy = dx
            angleaxe = Pi / 2
        Else
            dy = monval(oRepereForm.Model.TextBox2.Text) * 1000
            angleaxe = monVal(oRepereForm.Model.TextBox3.Text) * Pi / 180
        End If
        PointInsertion posx, posy
        oRepereForm.Model.Label10.Label = Trim(Str(posx))
        oRepereForm.Model.Label11.Label = Trim(Str(posy))

        oRepereForm.Model.Label20.Label = Chaine(&quot;tracdurep&quot;) &apos; &quot;Tracé du repère...&quot;
&apos; reseau pointe (coordonnees entieres)
        If oRepereForm.Model.CheckBox18.State Then
	        oRepereForm.Model.Label20.Label = Chaine(&quot;tracrespoi&quot;) &apos;&quot;Tracé d&apos;un réseau pointé...&quot;
            cax = dy * Cos(angleaxe)
            sax = dy * Sin(angleaxe)
            ep = ExtraitEpaisseur(oRepereForm.Model.Image15.HelpText)
            For i = Fix(xmin) To Fix(xmax)
                If i &lt;&gt; 0 Then
                    For j = Fix(ymin) To Fix(ymax)
                        If j &lt;&gt; 0 Then
                            posxt = posx + i * dx + j * cax
                            posyt = posy - j * sax
                            UnSeulPoint posxt, posyt, ep, Shapes, oRepereForm.Model.Image15
                        End If
                    Next j
                End If
            Next i
        End If

        If oRepereForm.Model.CheckBox17.State And tpy Then
	        oRepereForm.Model.Label20.Label = Chaine(&quot;tracverti&quot;) &apos;&quot;Tracé des verticales...&quot;
            For i = Int(xmin * 10) To Int(xmax * 10)
                ii = i / 10
                tru = (Int(i / 10) * 10 = i)
                trmu = (Int(i / 5) * 5 = i)
                If Not tru Or Not oRepereForm.Model.CheckBox15.State Then
                    If (Not trmu Or Not oRepereForm.Model.CheckBox16.State) And i &lt;&gt; 0 Then
                        x1 = posx + ii * dx + ymin * dy * Cos(angleaxe)
                        y1 = posy - ymin * dy * Sin(angleaxe)
                        x2 = posx + ii * dx + ymax * dy * Cos(angleaxe)
                        y2 = posy - ymax * dy * Sin(angleaxe)
                        InsereLigne x1, y1, x2, y2, Shapes, oRepereForm.Model.Image19
                    End If
                End If
            Next i
        End If
        If oRepereForm.Model.CheckBox14.State And tpx Then
	        oRepereForm.Model.Label20.Label =  Chaine(&quot;trachori&quot;) &apos;&quot;Tracé des horizontales...&quot;
            For i = Int(ymin * 10) To Int(ymax * 10)
                ii = i / 10
                tru = (Int(i / 10) * 10 = i)
                trmu = (Int(i / 5) * 5 = i)
                If Not tru Or Not oRepereForm.Model.CheckBox12.State Then
                    If (Not trmu Or Not oRepereForm.Model.CheckBox13.State) And i &lt;&gt; 0 Then
                        x1 = posx + xmin * dx + ii * dy * Cos(angleaxe)
                        y1 = posy - ii * dy * Sin(angleaxe)
                        x2 = posx + xmax * dx + ii * dy * Cos(angleaxe)
                        InsereLigne x1, y1, x2, y1, Shapes, oRepereForm.Model.Image17
                    End If
                End If
            Next i
        End If

        If oRepereForm.Model.CheckBox13.State And tpx Then
	        oRepereForm.Model.Label20.Label = Chaine(&quot;trachori&quot;) &apos;&quot;Tracé des horizontales...&quot;
            For i = Int(ymin * 2) To Int(ymax * 2)
                ii = i / 2
                tru = (Int(i / 2) * 2 = i)
                If (Not tru Or Not oRepereForm.Model.CheckBox12.State) And i &lt;&gt; 0 Then
                    x1 = posx + xmin * dx + ii * dy * Cos(angleaxe)
                    y1 = posy - ii * dy * Sin(angleaxe)
                    x2 = posx + xmax * dx + ii * dy * Cos(angleaxe)
                    InsereLigne x1, y1, x2, y1, Shapes, oRepereForm.Model.Image16
                End If
            Next i
        End If
        If oRepereForm.Model.CheckBox16.State And tpy Then
	        oRepereForm.Model.Label20.Label =  Chaine(&quot;tracverti&quot;) &apos;&quot;Tracé des verticales...&quot;
            For i = Int(xmin * 2) To Int(xmax * 2)
                ii = i / 2
                tru = (Int(i / 10) * 10 = i)
                If (Not tru Or Not oRepereForm.Model.CheckBox15.State) And i &lt;&gt; 0 Then
                    x1 = posx + ii * dx + ymin * dy * Cos(angleaxe)
                    y1 = posy - ymin * dy * Sin(angleaxe)
                    x2 = posx + ii * dx + ymax * dy * Cos(angleaxe)
                    y2 = posy - ymax * dy * Sin(angleaxe)
                    InsereLigne x1, y1, x2, y2, Shapes, oRepereForm.Model.Image18
                End If
            Next i
        End If
        

        oRepereForm.Model.Label20.Label =  Chaine(&quot;tracgrad&quot;) &apos;&quot;Tracé des graduations...&quot;
        For i = Fix(xmin) * dx To Fix(xmax) * dx Step dx
            If i = 0 Then
                If affori Or affx Or affy Then InsereTexte &quot;0&quot;, posx, posy, Shapes, 0,-1,1
            Else
                posxt = posx + i
                posyt = posy
                If tpy And oRepereForm.Model.CheckBox15.State And Not oRepereForm.Model.CheckBox18.State Then
                    InsereLigne posxt + ymin * dy * Cos(angleaxe), posyt - ymin * dy * Sin(angleaxe), posxt + ymax * dy * Cos(angleaxe), posyt - ymax * dy * Sin(angleaxe), Shapes, oRepereForm.Model.Image14
                Else
                    InsereLigne posxt, posyt + 100, posxt, posyt - 100, Shapes, oRepereForm.Model.Image11
                End If
                If affx Then
                    abscisse = Str(Int(i / dx))
                    InsereTexte Right$(abscisse, Len(abscisse) - InStr(1, abscisse, &quot; &quot;)), posxt, posyt, Shapes, 0,0,1
                End If
                If i = dx Then
                    If affunite And Not affx Then InsereTexte &quot;1&quot;, posxt, posyt, Shapes, 0,0,1
                End If
            End If
        Next i
        For i = Fix(ymin) * dy To Fix(ymax) * dy Step dy
            If i &lt;&gt; 0 Then
                posxt = posx + i * Cos(angleaxe)
                posyt = posy - i * Sin(angleaxe)
                If tpx And oRepereForm.Model.CheckBox12.State And Not oRepereForm.Model.CheckBox18.State Then
                    InsereLigne posxt + xmin * dx, posyt, posxt + xmax * dx, posyt, Shapes, oRepereForm.Model.Image13
                Else
                    InsereLigne posxt + 100, posyt, posxt - 100, posyt, Shapes, oRepereForm.Model.Image12
                End If
                If affy Then
                   ordonnee = Str(Int(i / dy))
                   InsereTexte Right$(ordonnee, Len(ordonnee) - InStr(1, ordonnee, &quot; &quot;)), posxt - 12, posyt - 4, Shapes, 0,-1,0
                End If
                If i = dy Then
                    If affunite And Not affy Then InsereTexte &quot;1&quot;, posxt - 12, posyt - 4, Shapes, 0,-1,0
                End If
            End If
        Next i
        InsereVecteur(posx + xmin * dx, posy, posx + xmax * dx, posy, Shapes,oRepereForm.Model.Image10)
        InsereTexte oRepereForm.Model.TextBox20.Text, posx + xmax * dx, posy, Shapes, 0,0,1
        InsereVecteur(posx + ymin * dy * Cos(angleaxe), posy - ymin * dy * Sin(angleaxe), posx + ymax * dy * Cos(angleaxe), posy - ymax * dy * Sin(angleaxe), Shapes, oRepereForm.Model.Image10)
        InsereTexte oRepereForm.Model.TextBox21.Text, posx + ymax * dy * Cos(angleaxe), posy - ymax * dy * Sin(angleaxe), Shapes,0,-1,0
        Call RepereTracePoints(Shapes)
        Call RepereTraceVecteurs(Shapes)
        Call RepereTraceSegments(Shapes)
        Call RepereTraceConiques(Shapes)
        Call RepereTraceDroites(Shapes)
        Call RepereTraceNuages(Shapes)
        Call RepereTraceFonctions(Shapes)
        oRepereForm.Model.Label20.Label = Chaine(&quot;tracfin&quot;) &apos;&quot;Finalisation du tracé...&quot;
	Dim aPoint As New com.sun.star.awt.Point
    Dim TheSize as new com.sun.star.awt.Size
    Dim Group as Object
    Dim Coeff
    
	aPoint.x=3000
	aPoint.y=3000
	Group = GroupeObjet(Shapes)
	Group.Position=aPoint
	TermineDessin()
&apos;        Call VideCombo
    Else
			MsgBoxP (&quot;message12&quot;)
rem        MsgBox &quot;L&apos;abscisse et l&apos;ordonnée minimales doivent être négatives&quot; &amp; Chr(13) &amp; Chr(13) &amp; &quot;L&apos;abscisse et l&apos;ordonnée maximale doivent être positives...&quot;
    End If
    oRepereForm.EndExecute
End Sub

Private Sub RepereForm_CommandButton10_Click()
Dim i, texte$, np$, xx, yy
    i = 1
    texte$ = oRepereForm.Model.TextBox8.Text &amp; &quot;(&quot; &amp; oRepereForm.Model.TextBox22.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox23.Text &amp; &quot;)&quot;
    ExtraitPoint texte$, i, np$, xx, yy
    If i &lt;&gt; -1 Then
        If xx &lt; xmin Or xx &gt; xmax Or yy &lt; ymin Or yy &gt; ymax Then
	        MsgBoxP (&quot;message11&quot;)
rem            MsgBox &quot;Le point que vous voulez ajouter ne pourra pas être&quot; &amp; Chr(13) &amp; &quot;tracé dans le repère indiqué.&quot; &amp; Chr(13) &amp; Chr(13) &amp; &quot;Changez les limites du repère (onglet Repère).&quot;
        Else
            Add(oRepereForm, &quot;ListBox1&quot;, texte$)
            Add(oRepereForm, &quot;ComboBox35&quot;, oRepereForm.Model.CheckBox8.State)
            Add(oRepereForm, &quot;ComboBox36&quot;, oRepereForm.Model.CheckBox9.State)
            Add(oRepereForm, &quot;ComboBox38&quot;, Trim(Str(GetListIndex(oRepereForm, &quot;ComboBox25&quot;))))
            Add(oRepereForm, &quot;ComboBox18&quot;, &quot;0&quot;)
            Add(oRepereForm, &quot;ComboBox19&quot;, &quot;0.75&quot;)
            add(oRepereForm, &quot;ComboBox20&quot;, &quot;msoLineSolid&quot;)
            oRepereForm.Model.Image5.Backgroundcolor = 0
            oRepereForm.Model.Image5.HelpText = &quot;Continu 0.75 pt&quot;
            If ListCount(oRepereForm, &quot;ListBox1&quot;) &gt; 0 Then SetListIndex(oRepereForm, &quot;ListBox1&quot;, ListCount(oRepereForm, &quot;ListBox1&quot;) - 1)
        End If
    End If
End Sub

Private Sub RepereForm_CommandButton11_Click()
Dim a
    a = GetListIndex(oRepereForm, &quot;ListBox1&quot;)
    If a &lt;&gt; -1 Then
        SupprimeItem(oRepereForm, &quot;ListBox1&quot;, a)
        SupprimeItem(oRepereForm, &quot;ComboBox18&quot;, a)
        SupprimeItem(oRepereForm, &quot;ComboBox19&quot;, a)
        SupprimeItem(oRepereForm, &quot;ComboBox20&quot;, a)
        SupprimeItem(oRepereForm, &quot;ComboBox35&quot;, a)
        SupprimeItem(oRepereForm, &quot;ComboBox36&quot;, a)
        SupprimeItem(oRepereForm, &quot;ComboBox38&quot;, a)
        SetListIndex(oRepereForm, &quot;ListBox1&quot;, a - 1)
    End If
End Sub

Private Sub RepereForm_CommandButton12_Click()
Dim i, texte$, x0, y0, x1, y1
Dim ListBox2 as Integer

    i = 1
    If oRepereForm.Model.OptionButton4.State Then
        texte$ = &quot;[&quot; &amp; oRepereForm.Model.TextBox9.Text &amp; oRepereForm.Model.TextBox24.Text &amp; &quot;]&quot;
    Else
        texte$ = &quot;[&quot; &amp; oRepereForm.Model.TextBox9.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox24.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox25.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox26.Text &amp; &quot;]&quot;
    End If
    If InStr(1, texte$, &quot;;&quot;) &lt;&gt; 0 Then
        ExtraitSegment texte$, i, x0, y0, x1, y1
    Else
        ExtraitSegmentPoint texte$, i, x0, y0, x1, y1
    End If
    If i &lt;&gt; -1 Then
    	ListBox2 = GetListIndex(oRepereForm, &quot;ListBox2&quot;)
        RemplaceItem(oRepereForm, &quot;ComboBox32&quot;, ListBox2 , oRepereForm.Model.CheckBox22.State)
        RemplaceItem(oRepereForm, &quot;ComboBox33&quot;, ListBox2 , MIif(oRepereForm.Model.CheckBox24.State, oRepereForm.Model.TextBox15.Text, &quot;*&quot;))
        GetList(oRepereForm, &quot;ComboBox34&quot;, ListBox2, oRepereForm.Model.CheckBox23.State)
        GetList(oRepereForm, &quot;ComboBox15&quot;, ListBox2, oRepereForm.Model.Image4.Backgroundcolor)
        GetList(oRepereForm, &quot;ComboBox16&quot;, ListBox2, ExtraitEpaisseur(oRepereForm.Model.Image4.HelpText))
        GetList(oRepereForm, &quot;ComboBox17&quot;, ListBox2, ExtraitTypeTrait(oRepereForm.Model.Image4,rHelpText))
        GetList(oRepereForm, &quot;ListBox2&quot; , ListBox2, texte$)
    End If
End Sub

Private Sub RepereForm_CommandButton13_Click()
Dim i, texte$, x0, y0, x1, y1

    i = 1
    If oRepereForm.Model.OptionButton4.State Then
        texte$ = &quot;[&quot; &amp; oRepereForm.Model.TextBox9.Text &amp; oRepereForm.Model.TextBox24.Text &amp; &quot;]&quot;
    Else
        texte$ = &quot;[&quot; &amp; oRepereForm.Model.TextBox9.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox24.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox25.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox26.Text &amp; &quot;]&quot;
    End If
    If InStr(1, texte$, &quot;;&quot;) &lt;&gt; 0 Then
        i = 1
        ExtraitSegment texte$, i, x0, y0, x1, y1
    Else
        i = 1
        ExtraitSegmentPoint texte$, i, x0, y0, x1, y1
    End If
    If i &lt;&gt; -1 Then
        Add(oRepereForm, &quot;ComboBox32&quot;, oRepereForm.Model.CheckBox22.State)
        Add(oRepereForm, &quot;ComboBox33&quot;, MIif(oRepereForm.Model.CheckBox24.State, oRepereForm.Model.TextBox15.Text, &quot;*&quot;))
        Add(oRepereForm, &quot;ComboBox34&quot;, oRepereForm.Model.CheckBox23.State)
        Add(oRepereForm, &quot;ComboBox15&quot;, &quot;0&quot;)
        Add(oRepereForm, &quot;ComboBox16&quot;, &quot;0.75&quot;)
        Add(oRepereForm, &quot;ComboBox17&quot;, &quot;msoLineSolid&quot;)
        oRepereForm.Model.Image4.Backgroundcolor = 0
        oRepereForm.Model.Image4.HelpText = &quot;Continu 0.75 pt&quot;
        Add(oRepereForm, &quot;ListBox2&quot;, texte$)
        SetListIndex(oRepereForm, &quot;ListBox2&quot;,  - 1)
    End If
End Sub

Private Sub RepereForm_CommandButton14_Click()
Dim i, texte$, x0, y0, x1, y1
Dim ListBox3 as Integer

	ListBox3 = GetListIndex(oRepereForm, &quot;ListBox3&quot;)
    i = 1
    If oRepereForm.Model.OptionButton6.State Then
        texte$ = &quot;{&quot; &amp; oRepereForm.Model.TextBox10.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox27.Text &amp; &quot;}&quot;
    Else
        texte$ = &quot;{&quot; &amp; oRepereForm.Model.TextBox10.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox27.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox28.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox29.Text &amp; &quot;}&quot;
    End If
    If InStr(1, texte$, &quot;;&quot;) &lt;&gt; 0 Then
        i = 1
        ExtraitVecteur texte$, i, x0, y0, x1, y1
    Else
        i = 1
        ExtraitSegmentPoint texte$, i, x0, y0, x1, y1
    End If
    If i &lt;&gt; -1 Then
        SetList(oRepereForm, &quot;ComboBox12&quot;, ListBox3, oRepereForm.Model.Image3.Backgroundcolor)
        SetList(oRepereForm, &quot;ComboBox13&quot;, ListBox3, ExtraitEpaisseur(oRepereForm.Model.Image3.HelpText))
        SetList(oRepereForm, &quot;ComboBox14&quot;, ListBox3, ExtraitTypeTrait(oRepereForm.Model.Image3.HelpText))
        SetList(oRepereForm, &quot;ListBox3&quot;, ListBox3, texte$)
    End If
End Sub

Private Sub RepereForm_CommandButton15_Click()
Dim i, texte$, a, b, c, eqdroite$
Dim ListBox4 as Integer

    i = 1
    ListBox4 = GetListIndex(oRepereForm, &quot;ListBox4&quot;)
    texte$ = oRepereForm.Model.TextBox11.Text
    If InStr(1, texte$, &quot;(&quot;) &lt;&gt; 0 And InStr(1, texte$, &quot;)&quot;) &lt;&gt; 0 Then
        ExtraitDroitePoint texte$, i, a, b, c, eqdroite$
    Else
        ExtraitDroite texte$, i, a, b, c, eqdroite$
    End If
    If i &lt;&gt; -1 Then
        RemplaceItem oRepereForm, &quot;ComboBox9&quot;, ListBox4, oRepereForm.Model.Image2.Backgroundcolor
        RemplaceItem oRepereForm, &quot;ComboBox10&quot;, ListBox4, ExtraitEpaisseur(oRepereForm.Model.Image2.HelpText)
        RemplaceItem oRepereForm, &quot;ComboBox11&quot;, ListBox4, ExtraitTypeTrait(oRepereForm.Model.Image2.HelpText)
        RemplaceItem oRepereForm, &quot;ComboBox37&quot;, ListBox4, oRepereForm.Model.CheckBox10.State
        RemplaceItem oRepereForm, &quot;ComboBox44&quot;, ListBox4, oRepereForm.Model.Image20.Backgroundcolor
        oRepereForm.GetControl(&quot;Label62&quot;).Visible = (InStr(1, texte$, &quot;&gt;&quot;) &lt;&gt; 0 Or InStr(1, texte$, &quot;&lt;&quot;) &lt;&gt; 0)
        oRepereForm.GetControl(&quot;Image20&quot;).Visible = (InStr(1, texte$, &quot;&gt;&quot;) &lt;&gt; 0 Or InStr(1, texte$, &quot;&lt;&quot;) &lt;&gt; 0)
        RemplaceItem oRepereForm, &quot;ListBox4&quot;, ListBox4, texte$
    End If
    oRepereForm.Model.CommandButton15.Enabled = False
    oRepereForm.Model.CommandButton17.Enabled = False
End Sub

Private Sub RepereForm_CommandButton16_Click()
Dim i, texte$, a, b, c, eqdroite$
    i = 1
    texte$ = oRepereForm.Model.TextBox11.Text
    If InStr(1, texte$, &quot;(&quot;) &lt;&gt; 0 And InStr(1, texte$, &quot;)&quot;) &lt;&gt; 0 Then
        ExtraitDroitePoint texte$, i, a, b, c, eqdroite$
    Else
        ExtraitDroite texte$, i, a, b, c, eqdroite$
    End If
    If i &lt;&gt; -1 Then
        Add oRepereForm, &quot;ListBox4&quot;, texte$
        Add oRepereForm, &quot;ComboBox9&quot;, &quot;0&quot;
        Add oRepereForm, &quot;ComboBox10&quot;, &quot;0.75&quot;
        Add oRepereForm, &quot;ComboBox11&quot;, &quot;msoLineSolid&quot;
        oRepereForm.Model.Image2.Backgroundcolor = 0
        oRepereForm.Model.Image2.HelpText = &quot;Continu 0.75 pt&quot;
        Add oRepereForm, &quot;ComboBox37&quot;, oRepereForm.Model.CheckBox10.State
        Add oRepereForm, &quot;ComboBox44&quot;, &quot;0&quot;
        oRepereForm.GetControl(&quot;Label62&quot;).Visible = (InStr(1, texte$, &quot;&gt;&quot;) &lt;&gt; 0 Or InStr(1, texte$, &quot;&lt;&quot;) &lt;&gt; 0)
        oRepereForm.GetControl(&quot;Image20&quot;).Visible = (InStr(1, texte$, &quot;&gt;&quot;) &lt;&gt; 0 Or InStr(1, texte$, &quot;&lt;&quot;) &lt;&gt; 0)
        If ListCount(oRepereForm, &quot;ListBox4&quot;) &gt; 0 Then SetListIndex(oRepereForm, &quot;ListBox4&quot;, ListCount(oRepereForm, &quot;ListBox4&quot;) - 1)
    End If
End Sub

Private Sub RepereForm_CommandButton17_Click()
Dim a
    a = GetListIndex(oRepereForm, &quot;ListBox4&quot;)
    If a &lt;&gt; -1 Then
        SupprimeItem oRepereForm, &quot;ListBox4&quot;,  a
        SupprimeItem oRepereForm, &quot;ComboBox9&quot;, a
        SupprimeItem oRepereForm, &quot;ComboBox10&quot;, a
        SupprimeItem oRepereForm, &quot;ComboBox11&quot;, a
        SupprimeItem oRepereForm, &quot;ComboBox37&quot;, a
        SetListIndex oRepereForm, &quot;ListBox4&quot;, a - 1
    End If
    oRepereForm.Model.CommandButton15.Enabled = False
    oRepereForm.Model.CommandButton17.Enabled = False
End Sub

Private Sub RepereForm_CommandButton18_Click()
Dim i, texte$, TypeFonction
Dim ListBox5 as Integer

    ListBox5 = GetListIndex(oRepereForm, &quot;ListBox5&quot;)
    i = 1
    texte$ = oRepereForm.Model.TextBox12.Text
    i = InStr(1, texte$, &quot;X&quot;)
    If i &lt;&gt; -1 Then
        RemplaceItem oRepereForm, &quot;ComboBox2&quot;, ListBox5, oRepereForm.Model.Image1.Backgroundcolor
        RemplaceItem oRepereForm, &quot;ComboBox3&quot;, ListBox5, ExtraitEpaisseur(oRepereForm.Model.Image1.HelpText)
        RemplaceItem oRepereForm, &quot;ComboBox4&quot;, ListBox5, ExtraitTypeTrait(oRepereForm.Model.Image1.HelpText)
        TypeFonction = &quot;1&quot;
        If oRepereForm.Model.OptionButton8.State Then TypeFonction = &quot;2&quot;
        If oRepereForm.Model.OptionButton9.State Then TypeFonction = &quot;3&quot;
        If oRepereForm.Model.OptionButton10.State Then TypeFonction = &quot;4&quot;
        RemplaceItem oRepereForm, &quot;ComboBox42&quot;, ListBox5, TypeFonction
        RemplaceItem oRepereForm, &quot;ComboBox43&quot;, ListBox5, oRepereForm.Model.TextBox32.Text
        RemplaceItem oRepereForm, &quot;ComboBox45&quot;, ListBox5, oRepereForm.Model.CheckBox27.State &amp; &quot;;&quot; &amp; Trim(Str(oRepereForm.Model.Image21.Backgroundcolor))
        RemplaceItem oRepereForm, &quot;ComboBox46&quot;, ListBox5, oRepereForm.Model.CheckBox28.State &amp; &quot;;&quot; &amp; Trim(Str(oRepereForm.Model.Image22.Backgroundcolor))
        If oRepereForm.Model.CheckBox29.State then
	        RemplaceItem oRepereForm, &quot;ComboBox47&quot;, ListBox5, oRepereForm.Model.TextBox33.Text
	    Else
	        RemplaceItem oRepereForm, &quot;ComboBox47&quot;, ListBox5, &quot;&quot;
	    End if
        If TypeFonction = &quot;3&quot; Or TypeFonction = &quot;4&quot; Then texte$ = texte$ &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox31.Text
        RemplaceItem oRepereForm, &quot;ListBox5&quot;, ListBox5, texte$
        oRepereForm.Model.CommandButton18.Enabled = False
        oRepereForm.Model.CommandButton20.Enabled = False
    End If
End Sub

Private Sub RepereForm_CommandButton19_Click()
Dim i, texte$, TypeFonction

    i = 1
    texte$ = oRepereForm.Model.TextBox12.Text
    i = InStr(1, texte$, &quot;X&quot;)
    If i &lt;&gt; -1 Then
        Add oRepereForm, &quot;ComboBox2&quot;, oRepereForm.Model.Image1.Backgroundcolor
        Add oRepereForm, &quot;ComboBox3&quot;, ExtraitEpaisseur(oRepereForm.Model.Image1.HelpText)
        Add oRepereForm, &quot;ComboBox4&quot;, ExtraitTypeTrait(oRepereForm.Model.Image1.HelpText)
        TypeFonction = &quot;1&quot;
        If oRepereForm.Model.OptionButton8.State Then TypeFonction = &quot;2&quot;
        If oRepereForm.Model.OptionButton9.State Then TypeFonction = &quot;3&quot;
        If oRepereForm.Model.OptionButton10.State Then TypeFonction = &quot;4&quot;
        Add oRepereForm, &quot;ComboBox42&quot;, TypeFonction
        Add oRepereForm, &quot;ComboBox43&quot;, oRepereForm.Model.TextBox32.Text
        Add oRepereForm, &quot;ComboBox45&quot;, oRepereForm.Model.CheckBox27.State &amp; &quot;;&quot; &amp; Trim(Str(oRepereForm.Model.Image21.Backgroundcolor))
        Add oRepereForm, &quot;ComboBox46&quot;, oRepereForm.Model.CheckBox28.State &amp; &quot;;&quot; &amp; Trim(Str(oRepereForm.Model.Image22.Backgroundcolor))
        If oRepereForm.Model.CheckBox29.State=1 then
	        Add oRepereForm, &quot;ComboBox47&quot;, oRepereForm.Model.TextBox33.Text
	    Else
	        Add oRepereForm, &quot;ComboBox47&quot;, &quot;&quot;
	    End if
        
        If TypeFonction = &quot;3&quot; Or TypeFonction = &quot;4&quot; Then texte$ = texte$ &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox31.Text
        Add oRepereForm, &quot;ListBox5&quot;, texte$
        If ListCount(oRepereForm, &quot;ListBox5&quot;) &gt; 0 Then SetListIndex(oRepereForm, &quot;ListBox5&quot;, ListCount(oRepereForm, &quot;ListBox5&quot;) - 1)
        oRepereForm.Model.CommandButton18.Enabled = False
        oRepereForm.Model.CommandButton20.Enabled = False
    End If
End Sub

Private Sub RepereForm_CommandButton2_Click()
    oRepereForm.EndExecute()
    oRepereForm.Model.Label9.Label = Chaine(&quot;non&quot;)
    SauveForm(oRepereForm)
&apos;    Call VideCombo
End Sub

Private Sub RepereForm_CommandButton20_Click()
Dim a
    a = GetListIndex(oRepereForm, &quot;ListBox5&quot;)
    If a &lt;&gt; -1 Then
        SupprimeItem oRepereForm, &quot;ListBox5&quot;, a
        SupprimeItem oRepereForm, &quot;ComboBox2&quot;, a
        SupprimeItem oRepereForm, &quot;ComboBox3&quot;, a
        SupprimeItem oRepereForm, &quot;ComboBox4&quot;, a
        SetListIndex oRepereForm, &quot;ListBox5&quot;, a - 1
    End If
End Sub

Private Sub RepereForm_CommandButton21_Click()
Dim texte$, i, TypeConique, a, b
Dim ListBox6 as Integer

	ListBox6 = GetListIndex(oRepereForm, &quot;ListBox6&quot;)
    texte$ = GetList(oRepereForm, &quot;ListBox6&quot;, ListBox6)
    i = 1
    ExtraitConique texte$, i, TypeConique, a, b
    ChargeConiquesForm()
    oConiquesForm.Model.Image1.Backgroundcolor = GetList(oRepereForm, &quot;ComboBox22&quot;, ListBox6)
    if GetList(oRepereForm, &quot;ComboBox24&quot;, ListBox6) = &quot;msoLineSolid&quot; then texte = Chaine(&quot;continu&quot;) else texte = Chaine(&quot;pointille&quot;)
    oConiquesForm.Model.Image1.HelpText = texte &amp; &quot; &quot; &amp; GetList(oRepereForm, &quot;ComboBox23&quot;, ListBox6) &amp; &quot; pt&quot;
    Select Case TypeConique
    Case 0
        oConiquesForm.Model.TextBox4.Text = Trim(Str(a))
        oConiquesForm.Model.TextBox7.Text = Trim(Str(b))
        oConiquesForm.Model.CheckBox4.State = GetList(oRepereForm, &quot;ComboBox29&quot;, ListBox6)
        oConiquesForm.Model.CheckBox5.State = GetList(oRepereForm, &quot;ComboBox30&quot;, ListBox6)
    Case 1
        oConiquesForm.Model.TextBox1.Text = Trim(Str(a))
        oConiquesForm.Model.CheckBox6.State = GetList(oRepereForm, &quot;ComboBox29&quot;, ListBox6)
        oConiquesForm.Model.CheckBox7.State = GetList(oRepereForm, &quot;ComboBox30&quot;, ListBox6)
    Case 2
        oConiquesForm.Model.TextBox8.Text = Trim(Str(a))
        oConiquesForm.Model.TextBox9.Text = Trim(Str(b))
        oConiquesForm.Model.CheckBox8.State = GetList(oRepereForm, &quot;ComboBox29&quot;, ListBox6) 
        oConiquesForm.Model.CheckBox9.State = GetList(oRepereForm, &quot;ComboBox30&quot;, ListBox6)
        oConiquesForm.Model.CheckBox10.State = GetList(oRepereForm, &quot;ComboBox31&quot;, ListBox6)
    End Select
    oConiquesForm.Model.Step = TypeConique + 1
    oConiquesForm.Execute()
    If oConiquesForm.Model.Label14.Label = &quot;oui&quot; Then AjouteConique True
End Sub

Private Sub RepereForm_CommandButton22_Click()
    AfficheConiquesForm(1)
    If oConiquesForm.Model.Label14.Label = &quot;oui&quot; Then AjouteConique
    oRepereForm.Model.CommandButton21.Enabled = False
    oRepereForm.Model.CommandButton23.Enabled = False
End Sub

Private Sub RepereForm_CommandButton23_Click()
Dim a
    a = GetListIndex(oRepereForm, &quot;ListBox6&quot;)
    If a &lt;&gt; -1 Then
        SupprimeItem oRepereForm, &quot;ListBox6&quot;, a
        SupprimeItem oRepereForm, &quot;ComboBox22&quot;, a
        SupprimeItem oRepereForm, &quot;ComboBox23&quot;, a
        SupprimeItem oRepereForm, &quot;ComboBox24&quot;, a
        SupprimeItem oRepereForm, &quot;ComboBox29&quot;, a
        SupprimeItem oRepereForm, &quot;ComboBox30&quot;, a
        SupprimeItem oRepereForm, &quot;ComboBox31&quot;, a
        SetListIndex oRepereForm, &quot;ListBox6&quot;, a - 1
    End If
End Sub

Private Sub RepereForm_CommandButton4_Click()
Dim a

&apos;    a = ListBox2.ListIndex
&apos;    If a &lt;&gt; -1 Then
&apos;        ListBox2.RemoveItem a
&apos;        ComboBox15.RemoveItem a
&apos;        ComboBox16.RemoveItem a
&apos;        ComboBox17.RemoveItem a
&apos;        ComboBox32.RemoveItem a
&apos;        ComboBox33.RemoveItem a
&apos;        ComboBox34.RemoveItem a
&apos;        ListBox2.ListIndex = a - 1
&apos;    End If
    a = GetListIndex(oRepereForm, &quot;ListBox2&quot;)
    If a &lt;&gt; -1 Then
        SupprimeItem(oRepereForm, &quot;ListBox2&quot;, a)
        SupprimeItem(oRepereForm, &quot;ComboBox15&quot;, a)
        SupprimeItem(oRepereForm, &quot;ComboBox16&quot;, a)
        SupprimeItem(oRepereForm, &quot;ComboBox17&quot;, a)
        SupprimeItem(oRepereForm, &quot;ComboBox32&quot;, a)
        SupprimeItem(oRepereForm, &quot;ComboBox33&quot;, a)
        SupprimeItem(oRepereForm, &quot;ComboBox34&quot;, a)
        SetListIndex(oRepereForm, &quot;ListBox2&quot;, a - 1)
        
    End If

End Sub

Private Sub RepereForm_CommandButton5_Click()
Dim i, texte$, x0, y0, x1, y1

    i = 1
    If oRepereForm.Model.OptionButton6.State Then
        texte$ = &quot;{&quot; &amp; oRepereForm.Model.TextBox10.Text &amp; oRepereForm.Model.TextBox27.Text &amp; &quot;}&quot;
    Else
        texte$ = &quot;{&quot; &amp; oRepereForm.Model.TextBox10.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox27.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox28.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox29.Text &amp; &quot;}&quot;
    End If
    If InStr(1, texte$, &quot;;&quot;) &lt;&gt; 0 Then
        ExtraitVecteur texte$, i, x0, y0, x1, y1
    Else
        ExtraitSegmentPoint texte$, i, x0, y0, x1, y1
    End If
    If i &lt;&gt; -1 Then
        Add(oRepereForm, &quot;ListBox3&quot; , texte$)
        Add(oRepereForm, &quot;ComboBox12&quot;, &quot;0&quot;)
        Add(oRepereForm, &quot;ComboBox13&quot;, &quot;0.75&quot;)
        Add(oRepereForm, &quot;ComboBox14&quot;, &quot;msoLineSolid&quot;)
        oRepereForm.Model.Image3.Backgroundcolor = 0
        oRepereForm.Model.Image3.HelpText = &quot;Continu 0.75 pt&quot;
        If ListCount(oRepereForm, &quot;ListBox3&quot;) &gt; 0 Then SetListIndex(oRepereForm, &quot;ListBox3&quot;, ListCount(oRepereForm, &quot;ListBox3&quot;) - 1)
    End If
End Sub

Private Sub RepereForm_CommandButton6_Click()
Dim a
    a = GetListIndex(oRepereForm, &quot;ListBox3&quot;)
    If a &lt;&gt; -1 Then
        RemoveItem(oRepereForm, &quot;ListBox3&quot;,  a)
        RemoveItem(oRepereForm, &quot;ComboBox12&quot;,  a)
        RemoveItem(oRepereForm, &quot;ComboBox13&quot;,  a)
        RemoveItem(oRepereForm, &quot;ComboBox14&quot;,  a)
        SetListIndex(oRepereForm, &quot;ListBox3&quot;, a - 1)
    End If
End Sub

Private Sub RepereForm_CommandButton7_Click() rem exchange A B
Dim texte$

    If oRepereForm.Model.OptionButton6.State Then
        texte$ = oRepereForm.Model.TextBox10.Text 
        oRepereForm.Model.TextBox10.Text = oRepereForm.Model.TextBox27.Text
        oRepereForm.Model.TextBox27.Text = texte$
    Else
        texte$ = oRepereForm.Model.TextBox10.Text 
        oRepereForm.Model.TextBox10.Text = oRepereForm.Model.TextBox28.Text
        oRepereForm.Model.TextBox28.Text = texte$
        texte$ = oRepereForm.Model.TextBox27.Text 
        oRepereForm.Model.TextBox27.Text = oRepereForm.Model.TextBox29.Text
        oRepereForm.Model.TextBox29.Text = texte$
    End If
End Sub

Private Sub RepereForm_CommandButton9_Click()
Dim i, texte$, np$, xx, yy
Dim ListBox1

    i = 1
    texte$ = oRepereForm.Model.TextBox8.Text &amp; &quot;(&quot; &amp; oRepereForm.Model.TextBox22.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox23.Text &amp; &quot;)&quot;
    ExtraitPoint texte$, i, np$, xx, yy
    ListBox1=GetListIndex(oRepereForm, &quot;ListBox1&quot;)
    If i &lt;&gt; -1 Then
        If xx &lt; xmin Or xx &gt; xmax Or yy &lt; ymin Or yy &gt; ymax Then
rem gisbert
			MsgBoxP (&quot;message11&quot;)
rem         MsgBox &quot;Le point que vous voulez ajouter ne pourra pas être&quot; &amp; Chr(13) &amp; &quot;tracé dans le repère indiqué.&quot; &amp; Chr(13) &amp; Chr(13) &amp; &quot;Changez les limites du repère (onglet Repère).&quot;
        Else
            RemplaceItem(oRepereForm, &quot;ComboBox35&quot;, ListBox1, oRepereForm.Model.CheckBox8.State)
            RemplaceItem(oRepereForm, &quot;ComboBox36&quot;, ListBox1, oRepereForm.Model.CheckBox9.State)
            RemplaceItem(oRepereForm, &quot;ComboBox38&quot;, ListBox1, Trim(Str(GetListIndex(oRepereForm, &quot;ComboBox25&quot;))))
            RemplaceItem(oRepereForm, &quot;ComboBox18&quot;, ListBox1, oRepereForm.Model.Image5.Backgroundcolor)
            RemplaceItem(oRepereForm, &quot;ComboBox19&quot;, ListBox1, ExtraitEpaisseur(oRepereForm.Model.Image5.HelpText))
            RemplaceItem(oRepereForm, &quot;ComboBox20&quot;, ListBox1, ExtraitTypeTrait(oRepereForm.Model.Image5.HelpText))
            RemplaceItem(oRepereForm, &quot;ListBox1&quot;, ListBox1, texte$)
        End If
    End If
End Sub

Private Sub RepereForm_Image8_Click()
    If ComboBox40.ListIndex &gt; -1 Then
        ChangeCouleur oRepereForm.Model.Image8
        ComboBox41.List(ComboBox40.ListIndex) = oRepereForm.Model.TextBox16.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox17.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox18.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.CheckBox11.State &amp; &quot;;&quot; &amp; oRepereForm.Model.OptionButton1.State &amp; &quot;;&quot; &amp; oRepereForm.Model.OptionButton2.State &amp; &quot;;&quot; &amp; Trim(Str(oRepereForm.Model.Image8.Backgroundcolor)) &amp; &quot;;&quot; &amp; oRepereForm.Model.Image8.HelpText &amp; &quot;;&quot; &amp; Trim(Str(ComboBox39.ListIndex)) &amp; &quot;;&quot; &amp; Trim(Str(oRepereForm.Model.Image9.Backgroundcolor)) &amp; &quot;;&quot; &amp; oRepereForm.Model.Image9.HelpText
    Else
            MsgBoxP (&quot;message8&quot;)
rem        MsgBox &quot;Il faut cliquer dans la liste pour sélectionner un élément...&quot;
    End If
End Sub

Private Sub RepereForm_ListBox1_Change()
Dim i, np$, xx, yy
Dim ListIndex1 as Integer

	ListIndex1=GetListIndex(oRepereForm, &quot;ListBox1&quot;)
    If ListIndex1 &gt; -1 Then
        oRepereForm.Model.Image5.Backgroundcolor = GetList(oRepereForm, &quot;ComboBox18&quot;, ListIndex1)
        oRepereForm.Model.Image5.HelpText = MIif(GetList(oRepereForm, &quot;ComboBox20&quot;, ListIndex1) = &quot;msoLineSolid&quot;, Chaine(&quot;continu&quot;), Chaine(&quot;pointillé&quot;)) &amp; &quot; &quot; &amp; GetList(oRepereForm, &quot;ComboBox19&quot;, ListIndex1) &amp; &quot; pt&quot;
        oRepereForm.Model.CheckBox8.State = GetList(oRepereForm, &quot;ComboBox35&quot;, ListIndex1)
        oRepereForm.Model.CheckBox9.State = GetList(oRepereForm, &quot;ComboBox36&quot;, ListIndex1)
        SetListIndex(oRepereForm, &quot;ComboBox25&quot;, Val(GetList(oRepereForm, &quot;ComboBox38&quot;, ListIndex1)))
        i = 1
        ExtraitPoint GetList(oRepereForm, &quot;ListBox1&quot;, ListIndex1), i, np$, xx, yy
        oRepereForm.Model.TextBox8.Text = np$
        oRepereForm.Model.TextBox22.Text = xx
        oRepereForm.Model.TextBox23.Text = yy
    End If
End Sub

Private Sub RepereForm_ListBox2_Change()
Dim a$
Dim param() As String
Dim ListBox2 as integer

	ListBox2 = GetListIndex(oRepereForm, &quot;ListBox2&quot;)
    If ListBox2 &gt; -1 Then
        oRepereForm.Model.Image4.Backgroundcolor = GetList(oRepereForm, &quot;ComboBox15&quot;, ListBox2)
        oRepereForm.Model.Image4.HelpText = MIif(GetList(oRepereForm, &quot;ComboBox17&quot;, ListBox2) = &quot;msoLineSolid&quot;, Chaine(&quot;continu&quot;), Chaine(&quot;pointille&quot;)) &amp; &quot; &quot; &amp; GetList(oRepereForm, &quot;ComboBox16&quot;, ListBox2) &amp; &quot; pt&quot;
        oRepereForm.Model.CheckBox22.State = GetList(oRepereForm, &quot;ComboBox32&quot;, ListBox2)
        oRepereForm.Model.CheckBox23.State = GetList(oRepereForm, &quot;ComboBox34&quot;, ListBox2)
        If GetList(oRepereForm, &quot;ComboBox33&quot;, ListBox2) = &quot;*&quot; Then
            oRepereForm.Model.TextBox15.Text = &quot;&quot;
            oRepereForm.Model.CheckBox24.State = 0
        Else
            oRepereForm.Model.TextBox15.Text = GetList(oRepereForm, &quot;ComboBox33&quot;, ListBox2)
            oRepereForm.Model.CheckBox24.State = 1
        End If
        a$ = GetList(oRepereForm, &quot;ListBox2&quot;, ListBox2)
        a$ = Mid(a$, 2, Len(a$) - 2)
        If oRepereForm.Model.OptionButton4.State Then
            If Mid(a$, 2, 1) = &quot;&apos;&quot; Then
                a$ = Left(a$, 2) &amp; &quot;;&quot; &amp; Mid(a$, 3)
            Else
                a$ = Left(a$, 1) &amp; &quot;;&quot; &amp; Mid(a$, 2)
            End If
        End If
        ChargeParametre a$, param, &quot;;&quot;
        oRepereForm.Model.TextBox9.Text = param(0)
        oRepereForm.Model.TextBox24.Text = param(1)
        oRepereForm.Model.TextBox25.Text = &quot;&quot;
        oRepereForm.Model.TextBox26.Text = &quot;&quot;
        If oRepereForm.Model.OptionButton3.State Then
            oRepereForm.Model.TextBox25.Text = param(2)
            oRepereForm.Model.TextBox26.Text = param(3)
        End If
	Else
		oRepereForm.Model.OptionButton3.State=1
		oRepereForm.Model.TextBox9.Text = &quot;&quot;
        oRepereForm.Model.TextBox24.Text = &quot;&quot;
        oRepereForm.Model.TextBox25.Text = &quot;&quot;
        oRepereForm.Model.TextBox26.Text = &quot;&quot;
		oRepereForm.Model.CheckBox22.State = 0
		oRepereForm.Model.CheckBox23.State = 0
		oRepereForm.Model.CheckBox24.State = 0
		oRepereForm.Model.TextBox15.Text = &quot;|&quot;
		oRepereForm.Model.TextBox15.Enabled=0
    End If
End Sub

Private Sub RepereForm_OptionButton1_Click()
    If GetListIndex(oRepereForm, &quot;ComboBox40&quot;) &gt; -1 Then RemplaceItem(oRepereForm, &quot;ComboBox41&quot;, GetListIndex(oRepereForm, &quot;ComboBox40&quot;), oRepereForm.Model.TextBox16.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox17.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox18.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.CheckBox11.State &amp; &quot;;&quot; &amp; oRepereForm.Model.OptionButton1.State &amp; &quot;;&quot; &amp; oRepereForm.Model.OptionButton2.State &amp; &quot;;&quot; &amp; Trim(Str(oRepereForm.Model.Image8.Backgroundcolor)) &amp; &quot;;&quot; &amp; oRepereForm.Model.Image8.HelpText &amp; &quot;;&quot; &amp; Trim(Str(GetListIndex(oRepereForm, &quot;ComboBox39&quot;))) &amp; &quot;;&quot; &amp; Trim(Str(oRepereForm.Model.Image9.Backgroundcolor)) &amp; &quot;;&quot; &amp; oRepereForm.Model.Image9.HelpText)
End Sub

Private Sub RepereForm_OptionButton10_Click()
    oRepereForm.GetControl(&quot;Label52&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label53&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label54&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label55&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label56&quot;).Visible = True
    oRepereForm.GetControl(&quot;Label57&quot;).Visible = True
    oRepereForm.GetControl(&quot;Label58&quot;).Visible = True
    oRepereForm.GetControl(&quot;Label59&quot;).Visible = True
    oRepereForm.GetControl(&quot;Label60&quot;).Visible = True
    oRepereForm.GetControl(&quot;Label61&quot;).Visible = True
    oRepereForm.GetControl(&quot;TextBox32&quot;).Visible = True
    oRepereForm.Model.TextBox12.Text = &quot;f(t)&quot;
    oRepereForm.Model.TextBox31.Text = &quot;g(t)&quot;
    oRepereForm.GetControl(&quot;TextBox31&quot;).Visible = True
    oRepereForm.Model.CheckBox27.State = 0
    oRepereForm.Model.CheckBox28.State = 0
    oRepereForm.GetControl(&quot;CheckBox27&quot;).Visible = False
    oRepereForm.GetControl(&quot;CheckBox28&quot;).Visible = False
    oRepereForm.GetControl(&quot;Image21&quot;).Visible = False
    oRepereForm.GetControl(&quot;Image22&quot;).Visible = False
    oRepereForm.GetControl(&quot;Image23&quot;).Visible = False
    oRepereForm.GetControl(&quot;CheckBox29&quot;).Visible = False
    oRepereForm.GetControl(&quot;TextBox33&quot;).Visible = False
    oRepereForm.Model.TextBox33.Enabled = oRepereForm.Model.CheckBox29.State
End Sub

Private Sub RepereForm_OptionButton2_Click()
    If GetListIndex(oRepereForm, &quot;ComboBox40&quot;) &gt; -1 Then RemplaceItem(oRepereForm, &quot;ComboBox41&quot;, GetListIndex(oRepereForm, &quot;ComboBox40&quot;), oRepereForm.Model.TextBox16.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox17.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.TextBox18.Text &amp; &quot;;&quot; &amp; oRepereForm.Model.CheckBox11.State &amp; &quot;;&quot; &amp; oRepereForm.Model.OptionButton1.State &amp; &quot;;&quot; &amp; oRepereForm.Model.OptionButton2.State &amp; &quot;;&quot; &amp; Trim(Str(oRepereForm.Model.Image8.Backgroundcolor)) &amp; &quot;;&quot; &amp; oRepereForm.Model.Image8.HelpText &amp; &quot;;&quot; &amp; Trim(Str(GetListIndex(oRepereForm, &quot;ComboBox39&quot;))) &amp; &quot;;&quot; &amp; Trim(Str(oRepereForm.Model.Image9.Backgroundcolor)) &amp; &quot;;&quot; &amp; oRepereForm.Model.Image9.HelpText)
End Sub

Private Sub RepereForm_OptionButton3_Click()  rem coordinates
    oRepereForm.Model.Label41.Label = &quot;)&quot; 
    oRepereForm.Model.Label39.Label = &quot;(&quot;
    oRepereForm.GetControl(&quot;Label40&quot;).Visible = True
    oRepereForm.GetControl(&quot;Label42&quot;).Visible = True
    oRepereForm.GetControl(&quot;Label43&quot;).Visible = True
    oRepereForm.GetControl(&quot;TextBox25&quot;).Visible = True
    oRepereForm.GetControl(&quot;TextBox26&quot;).Visible = True
    oRepereForm.GetControl(&quot;OptionButton3&quot;).state=1
End Sub

Private Sub RepereForm_OptionButton4_Click()  rem points
    oRepereForm.Model.Label41.Label = &quot;}&quot;
    oRepereForm.Model.Label39.Label = &quot;{&quot;
    oRepereForm.GetControl(&quot;Label68&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label40&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label42&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label43&quot;).Visible = False
    oRepereForm.GetControl(&quot;TextBox25&quot;).Visible = False
    oRepereForm.GetControl(&quot;TextBox26&quot;).Visible = False
End Sub

Private Sub RepereForm_OptionButton5_Click() rem coordinates
    oRepereForm.Model.Label46.Label = &quot;)&quot;
    oRepereForm.Model.Label48.Label = &quot;(&quot;
    oRepereForm.GetControl(&quot;Label51&quot;).Visible = True 
    oRepereForm.GetControl(&quot;Label45&quot;).Visible = True
    oRepereForm.GetControl(&quot;Label47&quot;).Visible = True
    oRepereForm.GetControl(&quot;Label44&quot;).Visible = True
    oRepereForm.GetControl(&quot;TextBox28&quot;).Visible = True
    oRepereForm.GetControl(&quot;TextBox29&quot;).Visible = True
    oRepereForm.GetControl(&quot;OptionButton5&quot;).state=1
End Sub

Private Sub RepereForm_OptionButton6_Click() rem points
    oRepereForm.Model.Label46.Label = &quot;}&quot;
    oRepereForm.Model.Label48.Label = &quot;{&quot;
    oRepereForm.GetControl(&quot;Label51&quot;).Visible = False 
    oRepereForm.GetControl(&quot;Label45&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label47&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label44&quot;).Visible = False
    oRepereForm.GetControl(&quot;TextBox28&quot;).Visible = False
    oRepereForm.GetControl(&quot;TextBox29&quot;).Visible = False
End Sub

Private Sub RepereForm_OptionButton7_Click()
    oRepereForm.GetControl(&quot;Label52&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label53&quot;).Visible = True
    oRepereForm.GetControl(&quot;Label54&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label55&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label56&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label57&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label58&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label59&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label60&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label61&quot;).Visible = False
    oRepereForm.GetControl(&quot;TextBox32&quot;).Visible = False
    oRepereForm.Model.TextBox12.Text = &quot;f(x)&quot;
    oRepereForm.GetControl(&quot;TextBox31&quot;).Visible = False
    oRepereForm.GetControl(&quot;CheckBox27&quot;).Visible = True
    oRepereForm.GetControl(&quot;CheckBox28&quot;).Visible = True
    oRepereForm.GetControl(&quot;Image21&quot;).Visible = True
    oRepereForm.GetControl(&quot;Image22&quot;).Visible = True
    oRepereForm.GetControl(&quot;CheckBox29&quot;).Visible = True
    oRepereForm.GetControl(&quot;TextBox33&quot;).Visible = True
    oRepereForm.GetControl(&quot;Image23&quot;).Visible = True
    oRepereForm.Model.TextBox33.Enabled = oRepereForm.Model.CheckBox29.State
    &apos;set state, if sub is called without clicking
    oRepereForm.GetControl(&quot;OptionButton7&quot;).State = 1
End Sub

Private Sub RepereForm_OptionButton8_Click()
    oRepereForm.GetControl(&quot;Label52&quot;).Visible = True
    oRepereForm.GetControl(&quot;Label53&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label54&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label55&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label56&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label57&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label58&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label59&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label60&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label61&quot;).Visible = False
    oRepereForm.GetControl(&quot;TextBox32&quot;).Visible = False
    oRepereForm.Model.TextBox12.Text = &quot;f(y)&quot;
    oRepereForm.GetControl(&quot;TextBox31&quot;).Visible = False
    oRepereForm.Model.CheckBox27.State = 0
    oRepereForm.Model.CheckBox28.State = 0
    oRepereForm.GetControl(&quot;CheckBox27&quot;).Visible = False
    oRepereForm.GetControl(&quot;CheckBox28&quot;).Visible = False
    oRepereForm.GetControl(&quot;Image21&quot;).Visible = False
    oRepereForm.GetControl(&quot;Image22&quot;).Visible = False
    oRepereForm.GetControl(&quot;Image23&quot;).Visible = False
    oRepereForm.GetControl(&quot;CheckBox29&quot;).Visible = False
    oRepereForm.GetControl(&quot;TextBox33&quot;).Visible = False
    oRepereForm.Model.TextBox33.Enabled = oRepereForm.Model.CheckBox29.State
End Sub

Private Sub RepereForm_OptionButton9_Click()
    oRepereForm.GetControl(&quot;Label52&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label53&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label54&quot;).Visible = True
    oRepereForm.GetControl(&quot;Label55&quot;).Visible = True
    oRepereForm.GetControl(&quot;Label56&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label57&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label58&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label59&quot;).Visible = False
    oRepereForm.GetControl(&quot;Label60&quot;).Visible = True
    oRepereForm.GetControl(&quot;Label61&quot;).Visible = True
    oRepereForm.GetControl(&quot;TextBox32&quot;).Visible = True
    oRepereForm.Model.TextBox12.Text = &quot;f(t)&quot;
    oRepereForm.Model.TextBox31.Text = &quot;g(t)&quot;
    oRepereForm.GetControl(&quot;TextBox31&quot;).Visible = True
    oRepereForm.Model.CheckBox27.State = 0
    oRepereForm.Model.CheckBox28.State = 0
    oRepereForm.GetControl(&quot;CheckBox27&quot;).Visible = False
    oRepereForm.GetControl(&quot;CheckBox28&quot;).Visible = False
    oRepereForm.GetControl(&quot;Image21&quot;).Visible = False
    oRepereForm.GetControl(&quot;Image22&quot;).Visible = False
    oRepereForm.GetControl(&quot;Image23&quot;).Visible = False
    oRepereForm.GetControl(&quot;CheckBox29&quot;).Visible = False
    oRepereForm.GetControl(&quot;TextBox33&quot;).Visible = False
    oRepereForm.Model.TextBox33.Enabled = oRepereForm.Model.CheckBox29.State
End Sub

Private Sub RepereForm_TextBox4_Change()
    MiseAJourRepere
End Sub

Private Sub RepereForm_TextBox5_Change()
    MiseAJourRepere
End Sub

Private Sub RepereForm_TextBox6_Change()
    MiseAJourRepere
End Sub

Private Sub RepereForm_TextBox7_Change()
    MiseAJourRepere
End Sub

Private Sub RepereForm_UserForm_Activate()
Dim i
    Clear(oRepereForm, &quot;ComboBox25&quot;)
    Add(oRepereForm, &quot;ComboBox25&quot;, &quot;o&quot;)
    Add(oRepereForm, &quot;ComboBox25&quot;, &quot;x&quot;)
    Add(oRepereForm, &quot;ComboBox25&quot;, &quot;+&quot;)
    Add(oRepereForm, &quot;ComboBox25&quot;, &quot;[]&quot;)
    Add(oRepereForm, &quot;ComboBox25&quot;, &quot;&lt;&gt;&quot;)
    SetListIndex(oRepereForm, &quot;ComboBox25&quot;, 1)
    Clear(oRepereForm, &quot;ComboBox39&quot;)
    Add(oRepereForm, &quot;ComboBox39&quot;, &quot;o&quot;)
    Add(oRepereForm, &quot;ComboBox39&quot;, &quot;x&quot;)
    Add(oRepereForm, &quot;ComboBox39&quot;, &quot;+&quot;)
    Add(oRepereForm, &quot;ComboBox39&quot;, &quot;[]&quot;)
    Add(oRepereForm, &quot;ComboBox39&quot;, &quot;&lt;&gt;&quot;)
    SetListIndex(oRepereForm, &quot;ComboBox39&quot;, 1)
    AncienneListe = 0
    Clear(oRepereForm,&quot;ComboBox40&quot;)
    For i = 1 To 5
        Add(oRepereForm, &quot;ComboBox40&quot;, Chaine(&quot;serie&quot;) &amp; &quot; &quot; &amp; Trim(Str(i)))
        dim a
        a = oRepereForm.Model.TextBox16.Text &amp; &quot;;&quot; 
        a = a &amp; oRepereForm.Model.TextBox17.Text &amp; &quot;;&quot;
        a = a &amp; oRepereForm.Model.TextBox18.Text &amp; &quot;;&quot; 
        a = a &amp; oRepereForm.Model.CheckBox11.State &amp; &quot;;&quot;
        a = a &amp; oRepereForm.Model.OptionButton1.State &amp; &quot;;&quot;
        a = a &amp; oRepereForm.Model.OptionButton2.State &amp; &quot;;&quot;
        a = a &amp; Trim(Str(oRepereForm.Model.Image8.Backgroundcolor)) &amp; &quot;;&quot;
        a = a &amp; oRepereForm.Model.Image8.HelpText &amp; &quot;;&quot;
        a = a &amp; Trim(Str(GetListIndex(oRepereForm, &quot;ComboBox39&quot;))) &amp; &quot;;&quot; 
        a = a &amp; Trim(Str(oRepereForm.Model.Image9.Backgroundcolor)) &amp; &quot;;&quot;
        a = a &amp; oRepereForm.Model.Image9.HelpText
        Add(oRepereForm, &quot;ComboBox41&quot;, a)
    Next i
    SetListIndex(oRepereForm, &quot;ComboBox40&quot;, 0)
    IndiceSerie = 0
    LesListes(0) = &quot;ListBox7&quot;
    LesListes(1) = &quot;ListBox8&quot;
    LesListes(2) = &quot;ListBox9&quot;
    LesListes(3) = &quot;ListBox10&quot;
    LesListes(4) = &quot;ListBox11&quot;
    oRepereForm.GetControl(&quot;ListBox7&quot;).Visible = False
    oRepereForm.GetControl(&quot;ListBox8&quot;).Visible = False
    oRepereForm.GetControl(&quot;ListBox9&quot;).Visible = False
    oRepereForm.GetControl(&quot;ListBox10&quot;).Visible = False
    oRepereForm.GetControl(&quot;ListBox11&quot;).Visible = False
    iListeVisible = 0
    MiseAJourRepere
End Sub

Private Sub RepereForm_Polices_Change()
    If Polices.ListIndex &gt;= 0 Then Exemple.Font.Name = Polices.List(Polices.ListIndex)
End Sub

Private Sub RepereForm_Souligne_Click()
    Exemple.Font.Underline = Souligne.State
End Sub

Private Sub RepereForm_Taille_Change()
    Exemple.Font.Size = Val(Taille)
    If Val(Taille) &lt;&gt; SpinTaille.Value Then SpinTaille.Value = Val(Taille)
End Sub

Private Sub RepereForm_SpinTaille_Change()
    If SpinTaille.Value &lt; 0 Then
        SpinTaille.Value = 0
    Else
        Taille = SpinTaille.Value
    End If
End Sub

Private Sub RepereForm_Gras_Click()
    Exemple.Font.Bold = Gras.Value
End Sub

Private Sub RepereForm_Italique_Click()
    Exemple.Font.Italic = Italique.Value
End Sub

Sub RepereForm_CommandButton100()
	oRepereForm.Model.Step = 1
End Sub

Sub RepereForm_CommandButton101()
	oRepereForm.Model.Step = 2
End Sub

Sub RepereForm_CommandButton102()
	oRepereForm.Model.Step = 3
	RepereForm_OptionButton3_Click
End Sub

Sub RepereForm_CommandButton103()
	oRepereForm.Model.Step = 4
	RepereForm_OptionButton5_Click
End Sub

Sub RepereForm_CommandButton104()
	oRepereForm.Model.Step = 5
End Sub

Sub RepereForm_CommandButton105()
	oRepereForm.Model.Step = 6
	RepereForm_OptionButton7_Click()
End Sub

Sub RepereForm_CommandButton106()
	oRepereForm.Model.Step = 7
End Sub

Sub RepereForm_CommandButton107()
	oRepereForm.Model.Step = 8
End Sub

Sub RepereForm_CommandButton108()
	oRepereForm.Model.Step = 9
End Sub

</script:module>