Nouvelle communication fixe

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 196 fois - Téléchargée 19 fois

Contenu du snippet

Interface d'ajouter une nouvelle communication de téléphone fixe pour assurer l'analyse complète des Clients au sein de l'Agence de Tunisie Télécom de Mahdia.
l'Enregistrement des données est effectue dans un ensemble des fichiers.

Source / Exemple :


Imports System.Math
Public Class Form7
    Dim Rev As Double
    Dim Cff As Integer
    Dim Cfmt As Integer
    Dim Cfm As Integer
    Dim Cfi As Integer
    Dim sva As Integer
    Dim adsl As Integer
    Dim red As Integer
    Dim tva As Double
    Dim total1 As Double
    Dim total2 As Double
    Dim total3 As Double
    Dim THV As Double
    Dim mean As Double
    Dim fm As Integer
    Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox11.Text = ""

        '***********Trimestre 2*******************'
        TextBox12.Text = ""
        TextBox13.Text = ""
        TextBox14.Text = ""
        TextBox15.Text = ""
        TextBox16.Text = ""
        TextBox17.Text = ""
        TextBox18.Text = ""
        TextBox19.Text = ""
        TextBox20.Text = ""
        TextBox21.Text = ""

        '***********Trimestre 3*******************'
        TextBox22.Text = ""
        TextBox23.Text = ""
        TextBox24.Text = ""
        TextBox25.Text = ""
        TextBox26.Text = ""
        TextBox27.Text = ""
        TextBox28.Text = ""
        TextBox29.Text = ""
        TextBox30.Text = ""
        TextBox31.Text = ""

        '****************Autres********************'
        TextBox32.Text = ""
        TextBox33.Text = ""
        TextBox34.Text = ""
        TextBox35.Text = ""
        TextBox36.Text = ""
        TextBox37.Text = ""
        TextBox38.Text = ""
        TextBox39.Text = ""

        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        PictureBox4.Visible = False
        PictureBox5.Visible = False
        PictureBox6.Visible = False
        PictureBox7.Visible = False
        PictureBox8.Visible = False
        PictureBox9.Visible = False
        PictureBox11.Visible = False
        PictureBox13.Visible = False
        PictureBox14.Visible = False
        PictureBox15.Visible = False
        PictureBox16.Visible = False
        PictureBox17.Visible = False
        PictureBox18.Visible = False
        PictureBox19.Visible = False
        PictureBox20.Visible = False
        PictureBox21.Visible = False
        PictureBox23.Visible = False
        PictureBox24.Visible = False
        PictureBox25.Visible = False
        PictureBox26.Visible = False
        PictureBox27.Visible = False
        PictureBox28.Visible = False
        PictureBox29.Visible = False
        PictureBox30.Visible = False
        PictureBox31.Visible = False
    End Sub

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
        TextBox2.Text = ""
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        PictureBox1.Visible = True
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        PictureBox2.Visible = True
    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
        PictureBox3.Visible = True
    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
        PictureBox5.Visible = True
    End Sub

    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged
        PictureBox4.Visible = True
    End Sub

    Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged
        PictureBox7.Visible = True
    End Sub

    Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
        PictureBox6.Visible = True
    End Sub

    Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged
        PictureBox9.Visible = True
    End Sub

    Private Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox9.TextChanged
        PictureBox8.Visible = True
    End Sub

    Private Sub TextBox10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox10.TextChanged
        PictureBox11.Visible = True
    End Sub

    Private Sub TextBox21_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox21.TextChanged
        PictureBox21.Visible = True
    End Sub

    Private Sub TextBox20_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox20.TextChanged
        PictureBox20.Visible = True
    End Sub

    Private Sub TextBox19_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox19.TextChanged
        PictureBox19.Visible = True
    End Sub

    Private Sub TextBox18_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox18.TextChanged
        PictureBox18.Visible = True
    End Sub

    Private Sub TextBox17_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox17.TextChanged
        PictureBox17.Visible = True
    End Sub

    Private Sub TextBox16_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox16.TextChanged
        PictureBox16.Visible = True
    End Sub

    Private Sub TextBox15_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox15.TextChanged
        PictureBox15.Visible = True
    End Sub

    Private Sub TextBox14_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox14.TextChanged
        PictureBox14.Visible = True
    End Sub

    Private Sub TextBox13_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox13.TextChanged
        PictureBox13.Visible = True
    End Sub

    Private Sub TextBox31_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox31.TextChanged
        PictureBox31.Visible = True
    End Sub

    Private Sub TextBox30_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox30.TextChanged
        PictureBox30.Visible = True
    End Sub

    Private Sub TextBox29_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox29.TextChanged
        PictureBox29.Visible = True
    End Sub

    Private Sub TextBox28_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox28.TextChanged
        PictureBox28.Visible = True
    End Sub

    Private Sub TextBox27_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox27.TextChanged
        PictureBox27.Visible = True
    End Sub

    Private Sub TextBox26_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox26.TextChanged
        PictureBox26.Visible = True
    End Sub

    Private Sub TextBox25_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox25.TextChanged
        PictureBox25.Visible = True
    End Sub

    Private Sub TextBox24_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox24.TextChanged
        PictureBox24.Visible = True
    End Sub

    Private Sub PictureBox23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox23.Click
        TextBox23.Text = ""
    End Sub

    Private Sub TextBox11_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox11.TextChanged

        
    End Sub

    Private Sub TextBox12_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox12.TextChanged
        
    End Sub

    Private Sub PictureBox11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox11.Click
        TextBox10.Text = ""
    End Sub

    Private Sub TextBox23_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox23.TextChanged
        PictureBox23.Visible = True
    End Sub

    Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click
        TextBox4.Text = ""
    End Sub

    Private Sub PictureBox8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox8.Click
        TextBox9.Text = ""
    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        TextBox1.Text = ""
    End Sub

    Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
        TextBox3.Text = ""
    End Sub

    Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
        TextBox5.Text = ""
    End Sub

    Private Sub PictureBox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.Click
        TextBox6.Text = ""
    End Sub

    Private Sub PictureBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.Click
        TextBox7.Text = ""
    End Sub

    Private Sub PictureBox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox9.Click
        TextBox8.Text = ""
    End Sub

    Private Sub PictureBox21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox21.Click
        TextBox21.Text = ""
    End Sub

    Private Sub PictureBox20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox20.Click
        TextBox20.Text = ""
    End Sub

    Private Sub PictureBox19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox19.Click
        TextBox19.Text = ""
    End Sub

    Private Sub PictureBox18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox18.Click
        TextBox18.Text = ""
    End Sub

    Private Sub PictureBox17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox17.Click
        TextBox17.Text = ""
    End Sub

    Private Sub PictureBox16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox16.Click
        TextBox16.Text = ""
    End Sub

    Private Sub PictureBox15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox15.Click
        TextBox15.Text = ""
    End Sub

    Private Sub PictureBox14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox14.Click
        TextBox14.Text = ""
    End Sub

    Private Sub PictureBox13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox13.Click
        TextBox13.Text = ""
    End Sub

    Private Sub PictureBox31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox31.Click
        TextBox31.Text = ""
    End Sub

    Private Sub PictureBox30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox30.Click
        TextBox30.Text = ""
    End Sub

    Private Sub PictureBox29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox29.Click
        TextBox29.Text = ""
    End Sub

    Private Sub PictureBox28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox28.Click
        TextBox28.Text = ""
    End Sub

    Private Sub PictureBox27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox27.Click
        TextBox27.Text = ""
    End Sub

    Private Sub PictureBox26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox26.Click
        TextBox26.Text = ""
    End Sub

    Private Sub PictureBox25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox25.Click
        TextBox25.Text = ""
    End Sub

    Private Sub PictureBox24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox24.Click
        TextBox24.Text = ""
    End Sub

    Private Sub TextBox22_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox22.TextChanged
        
    End Sub

    Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
        Label3.Text = "Trimestre 1 " + DateTimePicker1.Value.Year.ToString()
        Label14.Text = "Trimestre 2 " + DateTimePicker1.Value.Year.ToString()
        Label15.Text = "Trimestre 3 " + DateTimePicker1.Value.Year.ToString()

    End Sub

    Private Sub TextBox32_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox32.TextChanged
       
    End Sub

    Private Sub TextBox33_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox33.TextChanged
        
    End Sub

    Private Sub TextBox35_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox35.TextChanged
        
    End Sub

    Private Sub TextBox34_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox34.TextChanged
        
    End Sub

    Private Sub TextBox37_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox37.TextChanged
       
    End Sub

    Private Sub TextBox36_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox36.TextChanged
        
    End Sub

    Private Sub TextBox38_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox38.TextChanged
       
    End Sub

    Private Sub TextBox39_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox39.TextChanged
        
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Trimestre 1'
        '*******N° Ligne********'
        If (Not IsNumeric(TextBox1.Text)) Then
            Me.ErrorProvider1.SetError(TextBox1, "N° Ligne doit etre Numérique")
        ElseIf (TextBox1.TextLength <> 8) Then
            Me.ErrorProvider1.SetError(TextBox1, "N° Ligne devient 8 chiffres")
            '****Revedance******'
        ElseIf (Not IsNumeric(TextBox2.Text)) Then
            Me.ErrorProvider1.SetError(TextBox2, "Revedance doit etre Numérique")

        ElseIf (Not IsNumeric(TextBox3.Text)) Then
            Me.ErrorProvider1.SetError(TextBox3, "Prix Fixe-Fixe doit etre Numérique")

        ElseIf (Not IsNumeric(TextBox4.Text)) Then
            Me.ErrorProvider1.SetError(TextBox4, "Prix Fixe-Mobile TT doit etre Numérique")

        ElseIf (Not IsNumeric(TextBox5.Text)) Then
            Me.ErrorProvider1.SetError(TextBox5, "Prix Fixe-Mobile doit etre Numérique")

        ElseIf (Not IsNumeric(TextBox6.Text)) Then
            Me.ErrorProvider1.SetError(TextBox6, "Prix Fixe-International doit etre Numérique")

        ElseIf (Not IsNumeric(TextBox7.Text)) Then
            Me.ErrorProvider1.SetError(TextBox7, "SVA doit etre Numérique")

        ElseIf (Not IsNumeric(TextBox8.Text)) Then
            Me.ErrorProvider1.SetError(TextBox8, "Prix ADSL doit etre Numérique")

        ElseIf (Not IsNumeric(TextBox9.Text)) Then
            Me.ErrorProvider1.SetError(TextBox9, "Valeur de Réduction doit etre Numérique")

        ElseIf (Not IsNumeric(TextBox10.Text)) Then
            Me.ErrorProvider1.SetError(TextBox10, "TVA doit etre Numérique")
            'Trimestre 2'
        ElseIf (Not IsNumeric(TextBox13.Text)) Then
            Me.ErrorProvider1.SetError(TextBox13, "TVA doit etre Numérique")

        ElseIf (Not IsNumeric(TextBox14.Text)) Then
            Me.ErrorProvider1.SetError(TextBox12, "Valeur de Réduction doit etre Numérique")
        ElseIf (Not IsNumeric(TextBox15.Text)) Then
            Me.ErrorProvider1.SetError(TextBox11, "Prix ADSL doit etre Numérique")
        ElseIf (Not IsNumeric(TextBox16.Text)) Then
            Me.ErrorProvider1.SetError(TextBox16, "SVA doit etre Numérique")

        ElseIf (Not IsNumeric(TextBox17.Text)) Then
            Me.ErrorProvider1.SetError(TextBox17, "Prix Fixe-International doit etre Numérique")

        ElseIf (Not IsNumeric(TextBox18.Text)) Then
            Me.ErrorProvider1.SetError(TextBox4, "Prix Fixe-Mobile TT doit etre Numérique")

        ElseIf (Not IsNumeric(TextBox19.Text)) Then
            Me.ErrorProvider1.SetError(TextBox5, "Prix Fixe-Mobile doit etre Numérique")
        ElseIf (Not IsNumeric(TextBox20.Text)) Then
            Me.ErrorProvider1.SetError(TextBox3, "Prix Fixe-Fixe doit etre Numérique")

        ElseIf (Not IsNumeric(TextBox21.Text)) Then
            Me.ErrorProvider1.SetError(TextBox19, "Revedance doit etre Numérique")
            'Trimestre 3'
        ElseIf (Not IsNumeric(TextBox23.Text)) Then
            Me.ErrorProvider1.SetError(TextBox13, "TVA doit etre Numérique")

        ElseIf (Not IsNumeric(TextBox24.Text)) Then
            Me.ErrorProvider1.SetError(TextBox12, "Valeur de Réduction doit etre Numérique")
        ElseIf (Not IsNumeric(TextBox25.Text)) Then
            Me.ErrorProvider1.SetError(TextBox11, "Prix ADSL doit etre Numérique")
        ElseIf (Not IsNumeric(TextBox26.Text)) Then
            Me.ErrorProvider1.SetError(TextBox16, "SVA doit etre Numérique")

        ElseIf (Not IsNumeric(TextBox27.Text)) Then
            Me.ErrorProvider1.SetError(TextBox17, "Prix Fixe-International doit etre Numérique")

        ElseIf (Not IsNumeric(TextBox28.Text)) Then
            Me.ErrorProvider1.SetError(TextBox4, "Prix Fixe-Mobile TT doit etre Numérique")

        ElseIf (Not IsNumeric(TextBox29.Text)) Then
            Me.ErrorProvider1.SetError(TextBox5, "Prix Fixe-Mobile doit etre Numérique")
        ElseIf (Not IsNumeric(TextBox30.Text)) Then
            Me.ErrorProvider1.SetError(TextBox3, "Prix Fixe-Fixe doit etre Numérique")

        ElseIf (Not IsNumeric(TextBox31.Text)) Then
            Me.ErrorProvider1.SetError(TextBox19, "Revedance doit etre Numérique")
        Else
            'Trimestre 1'
            Me.ErrorProvider1.SetError(TextBox1, "")

            Me.ErrorProvider1.SetError(TextBox2, "")

            Me.ErrorProvider1.SetError(TextBox3, "")

            Me.ErrorProvider1.SetError(TextBox4, "")

            Me.ErrorProvider1.SetError(TextBox5, "")

            Me.ErrorProvider1.SetError(TextBox6, "")

            Me.ErrorProvider1.SetError(TextBox7, "")

            Me.ErrorProvider1.SetError(TextBox8, "")

            Me.ErrorProvider1.SetError(TextBox9, "")

            Me.ErrorProvider1.SetError(TextBox10, "")
            'Trimestre 2'
            Me.ErrorProvider1.SetError(TextBox21, "")

            Me.ErrorProvider1.SetError(TextBox20, "")

            Me.ErrorProvider1.SetError(TextBox19, "")

            Me.ErrorProvider1.SetError(TextBox18, "")

            Me.ErrorProvider1.SetError(TextBox17, "")

            Me.ErrorProvider1.SetError(TextBox16, "")

            Me.ErrorProvider1.SetError(TextBox15, "")

            Me.ErrorProvider1.SetError(TextBox14, "")

            Me.ErrorProvider1.SetError(TextBox13, "")
            'Trimestre 3'

            Me.ErrorProvider1.SetError(TextBox23, "")

            Me.ErrorProvider1.SetError(TextBox24, "")

            Me.ErrorProvider1.SetError(TextBox25, "")

            Me.ErrorProvider1.SetError(TextBox26, "")

            Me.ErrorProvider1.SetError(TextBox27, "")

            Me.ErrorProvider1.SetError(TextBox28, "")

            Me.ErrorProvider1.SetError(TextBox29, "")

            Me.ErrorProvider1.SetError(TextBox30, "")

            Me.ErrorProvider1.SetError(TextBox31, "")

            Dim retour As Integer

            SaveFileDialog1.InitialDirectory = "C:\Analyse_Clients\Lignes\"
            SaveFileDialog1.Filter = "All files (*.*)|*.docx|All files (*.doc)|*.*"

            retour = SaveFileDialog1.ShowDialog()

            If retour = 1 Then
                FileOpen(1, SaveFileDialog1.FileName, OpenMode.Binary)
                FilePut(1, "                                Fiche Ligne                               ")
                FilePut(1, "                                                                                   ")
                FilePut(1, "                                                                                   ")
                FilePut(1, "N° Ligne:    " + TextBox1.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "Date de Création:     " + DateTimePicker1.Value.ToString())
                FilePut(1, "                                                                                   ")
                FilePut(1, "                                                                                   ")

                '********************Trimestre 1****************************'
                FilePut(1, "                  " + Label3.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "                                                                                   ")

                FilePut(1, "Revedance:  " + TextBox2.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "Fixe-Fixe:  " + TextBox3.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "Fixe-MobileTT:  " + TextBox4.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "Fixe-Mobile:  " + TextBox5.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "Fixe-International:  " + TextBox6.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "SVA:  " + TextBox7.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "ADSL:  " + TextBox8.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "Réduction:  " + TextBox9.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "TVA:  " + TextBox10.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "TOTAL:  " + TextBox11.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "                                                                                   ")

                '***************Trimestre 2*************************'
                FilePut(1, "                     " + Label14.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "                                                                                   ")

                FilePut(1, "Revedance:  " + TextBox21.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "Fixe-Fixe:  " + TextBox20.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "Fixe-MobileTT:  " + TextBox19.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "Fixe-Mobile:  " + TextBox18.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "Fixe-International:  " + TextBox17.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "SVA:  " + TextBox16.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "ADSL:  " + TextBox15.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "Réduction:  " + TextBox14.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "TVA:  " + TextBox13.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "TOTAL:  " + TextBox12.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "                                                                                   ")

                '**************Trimestre 3***********************'
                FilePut(1, "                       " + Label15.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "Revedance:  " + TextBox31.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "Fixe-Fixe:  " + TextBox30.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "Fixe-MobileTT:  " + TextBox29.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "Fixe-Mobile:  " + TextBox28.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "Fixe-International:  " + TextBox27.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "SVA:  " + TextBox26.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "ADSL:  " + TextBox25.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "Réduction:  " + TextBox24.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "TVA:  " + TextBox23.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "TOTAL:  " + TextBox22.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "                                                                                   ")

                '*****************Fixe************************'
                FilePut(1, "                    " + GroupBox2.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "                                                                                   ")
                FilePut(1, "3 Mois:  " + TextBox32.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "1 Mois:  " + TextBox33.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "                                                                                   ")

                '*****************Mobile************************'
                FilePut(1, "                   " + GroupBox3.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "                                                                                   ")
                FilePut(1, "3 Mois:  " + TextBox35.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "1 Mois:  " + TextBox34.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "                                                                                   ")

                '*****************Post Payé************************'
                FilePut(1, "                    " + GroupBox4.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "                                                                                   ")
                FilePut(1, "Fixe:  " + TextBox37.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "Mobile:  " + TextBox36.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "International:  " + TextBox38.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "Total:  " + TextBox39.Text)
                FilePut(1, "                                                                                   ")
                FilePut(1, "                                                                                   ")
                FileClose(1)
                MsgBox("Enregistrement Terminer", MsgBoxStyle.Information, "Enregistrement")
                TextBox1.Text = ""
                '***********Trimestre 1*******************'
                TextBox2.Text = ""
                TextBox3.Text = ""
                TextBox4.Text = ""
                TextBox5.Text = ""
                TextBox6.Text = ""
                TextBox7.Text = ""
                TextBox8.Text = ""
                TextBox9.Text = ""
                TextBox10.Text = ""
                TextBox11.Text = ""

                '***********Trimestre 2*******************'
                TextBox12.Text = ""
                TextBox13.Text = ""
                TextBox14.Text = ""
                TextBox15.Text = ""
                TextBox16.Text = ""
                TextBox17.Text = ""
                TextBox18.Text = ""
                TextBox19.Text = ""
                TextBox20.Text = ""
                TextBox21.Text = ""

                '***********Trimestre 3*******************'
                TextBox22.Text = ""
                TextBox23.Text = ""
                TextBox24.Text = ""
                TextBox25.Text = ""
                TextBox26.Text = ""
                TextBox27.Text = ""
                TextBox28.Text = ""
                TextBox29.Text = ""
                TextBox30.Text = ""
                TextBox31.Text = ""

                '****************Autres********************'
                TextBox32.Text = ""
                TextBox33.Text = ""
                TextBox34.Text = ""
                TextBox35.Text = ""
                TextBox36.Text = ""
                TextBox37.Text = ""
                TextBox38.Text = ""
                TextBox39.Text = ""

            End If
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim Revv As Double
        Dim Cffv As Integer
        Dim Cfmtv As Integer
        Dim Cfmv As Integer
        Dim Cfiv As Integer
        Dim svav As Integer
        Dim adslv As Integer
        Dim redv As Integer
        Dim tvav As Double
        Revv = TextBox2.Text
        Cffv = TextBox3.Text
        Cfmtv = TextBox4.Text
        Cfmv = TextBox5.Text
        Cfiv = TextBox6.Text
        svav = TextBox7.Text
        adslv = TextBox8.Text
        redv = TextBox9.Text
        tvav = TextBox10.Text
        THV = Revv + Cffv + Cfmtv + Cfmv + Cfiv + svav + adslv + redv
        total1 = THV + (THV * (tvav / 100))
        TextBox11.Text = total1
        Dim Revz As Double
        Dim Cffz As Integer
        Dim Cfmtz As Integer
        Dim Cfmz As Integer
        Dim Cfiz As Integer
        Dim svaz As Integer
        Dim adslz As Integer
        Dim redz As Integer
        Dim tvaz As Double
        Revz = TextBox21.Text
        Cffz = TextBox20.Text
        Cfmtz = TextBox19.Text
        Cfmz = TextBox18.Text
        Cfiz = TextBox17.Text
        svaz = TextBox16.Text
        adslz = TextBox15.Text
        redz = TextBox14.Text
        tvaz = TextBox13.Text
        THV = Revz + Cffz + Cfmtz + Cfmz + Cfiz + svaz + adslz + redz
        total2 = THV + (THV * (tvaz / 100))
        TextBox12.Text = total2

        Dim Revx As Double
        Dim Cffx As Integer
        Dim Cfmtx As Integer
        Dim Cfmx As Integer
        Dim Cfix As Integer
        Dim svax As Integer
        Dim adslx As Integer
        Dim redx As Integer
        Dim tvax As Double

        Revx = TextBox31.Text
        Cffx = TextBox30.Text
        Cfmtx = TextBox29.Text
        Cfmx = TextBox28.Text
        Cfix = TextBox27.Text
        svax = TextBox26.Text
        adslx = TextBox25.Text
        redx = TextBox24.Text
        tvax = TextBox23.Text
        THV = Revx + Cffx + Cfmtx + Cfmx + Cfix + svax + adslx + redx
        total3 = THV + (THV * (tvax / 100))
        TextBox22.Text = total3

        Cff = TextBox3.Text
        Cfi = TextBox20.Text
        Cfm = TextBox30.Text
        mean = (Cff + Cfi + Cfm) / 3
        TextBox32.Text = mean

        TextBox33.Text = mean / 3

        Dim cfmm As Integer
        Dim cf As Integer

        cfmm = TextBox4.Text
        Cfmt = TextBox5.Text
        Cff = cfmm + Cfmt
        '*******************************'
        adsl = TextBox18.Text
        sva = TextBox19.Text
        tva = adsl + sva
        '*******************************'
        red = TextBox28.Text
        fm = TextBox29.Text
        Rev = red + fm
        '*******************************'
        cf = (Cff + tva + Rev) / 3
        TextBox35.Text = cf

        Dim rek As Integer
        Dim Ren As Integer
        Dim adsls As Integer
        Dim fml As Integer

        rek = TextBox3.Text
        Ren = TextBox20.Text
        adsls = TextBox30.Text
        fml = (red + Rev + adsl)
        TextBox37.Text = fml
        Dim meant As Integer

        meant = TextBox35.Text
        TextBox34.Text = meant / 3

        Dim Cfmk As Integer
        Dim Cfmts As Integer
        Dim Cfff As Integer
        Dim adsln As Integer
        Dim svan As Integer
        Dim tvan As Integer
        Dim redn As Integer
        Dim fmv As Integer
        Dim Revn As Integer
        Dim svat As Integer
        Dim Revb As Integer
        Dim tvat As Integer
        Dim sval As Integer
        Dim Revo As Integer
        Dim tvao As Integer

        Cfmk = TextBox4.Text
        Cfmts = TextBox5.Text
        Cfff = Cfm + Cfmt
        '*******************************'
        adsln = TextBox18.Text
        svan = TextBox19.Text
        tvan = adsl + sva
        '*******************************'
        redn = TextBox28.Text
        fmv = TextBox29.Text
        Revn = red + fm
        '*******************************'
        TextBox36.Text = Cfff + tvan + Revn

        svat = TextBox6.Text
        tvat = TextBox17.Text
        Revb = TextBox27.Text
        TextBox38.Text = svat + Revb + tvat

        sval = TextBox38.Text
        tvao = TextBox37.Text
        Revo = TextBox36.Text
        TextBox39.Text = sval + tvao + Revo
    End Sub
End Class

A voir également

Ajouter un commentaire

Commentaire

NHenry
Messages postés
14655
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
23 février 2020
139
Bonjour,

Ton code est très gros pour ce qu'il fait :
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
PictureBox2.Visible = True
End Sub

En utilisant habillement les dictionnaires :
Dicrionary(Of TextBox, PictureBox)
Tu pourrais regrouper tout tes évènements ou presque en un seul coup.

FilePut, en .NET, on privilégie largement les fluxs (Stream), renseignes-tou à ce sujet), c'est plus propre et nettement plus "Framework).

Profites-en aussi pour :
- Activer Option Explicit et Option Strict dans les propriétés de ton projet.
- Retirer l'import automatique de l'espace de nom "Microsoft.VisualBasic" (onglet "Références" des propriétés du projet).

Ensuite, reviens avec le code corrigé et, si tu bloques, on pourras t'aider.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.