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
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.