Unit Conversion Validation and Budget Tracker Logic

End Class

Exercice n°2 :

Public Class Form2

Public Sub Maj()

Dim i, sd, sc As Single

sd = 0

sc = 0

For i = 0 To lcrd.Items.Count - 1

sc = sc + Val(lcrd.Items(i))

sd = sd + Val(ldeb.Items(i))

Next

tcrd.Text = CStr(sc)

tdeb.Text = CStr(sd)

tbal.Text = CStr(sc - sd)

End Sub

Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles

MyBase.Load

becri.Enabled = False

bann.Enabled = False

binit.Enabled = False

tmnt.Focus()

End Sub

Private Sub tmnt_TextChanged(sender As Object, e As System.EventArgs) Handles

tmnt.TextChanged

If (tmnt.Text = "") Then

becri.Enabled = False

Else

becri.Enabled = True

End If

End Sub

Private Sub tmnt_Validated(sender As Object, e As System.EventArgs) Handles

tmnt.Validated

If Not IsNumeric(tmnt.Text) Or (Val(tmnt.Text) < 1) Then

ErrorProvider1.SetError(tmnt, "Valeur non valide")

tmnt.Text = ""

tmnt.Focus()

Else

becri.Enabled = True

ErrorProvider1.Clear()

End If

End Sub

Private Sub becri_Click(sender As Object, e As System.EventArgs) Handles

becri.Click

If (rdeb.Checked = True) Then

ldeb.Items.Add(tmnt.Text)

lcrd.Items.Add(0)

Maj()

tmnt.Text = ""

bann.Enabled = True

binit.Enabled = True

Else

If (rcrd.Checked = True) Then

lcrd.Items.Add(tmnt.Text)

Badri Sabrine LFIG

Badri Sabrine 2éme LFIG

ldeb.Items.Add(0)

Maj()

tmnt.Text = ""

bann.Enabled = True

binit.Enabled = True

Else

MessageBox.Show("Veuillez choisir le type du l'option")

End If

End If

End Sub

Private Sub binit_Click(sender As Object, e As System.EventArgs) Handles

binit.Click

tmnt.Text = ""

lcrd.Items.Clear()

ldeb.Items.Clear()

becri.Enabled = False

bann.Enabled = False

rcrd.Checked = False

rdeb.Checked = False

Maj()

End Sub

Private Sub bann_Click(sender As Object, e As System.EventArgs) Handles bann.Click

lcrd.Items.RemoveAt(lcrd.Items.Count - 1)

ldeb.Items.RemoveAt(ldeb.Items.Count - 1)

Maj()

End Sub

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

Form3.Show()

End Sub

Private Sub bquit_Click(sender As System.Object, e As System.EventArgs) Handles

bquit.Click

End

End Sub

Private Sub bmenu_Click(sender As System.Object, e As System.EventArgs) Handles

bmenu.Click

Form5.Show()

Me.Hide()

End Sub

End Class

Exercice n°3 :

Public Class Form3

Private Sub Form3_Load(sender As System.Object, e As System.EventArgs) Handles

MyBase.Load

bajout.Enabled = False

bcal.Enabled = False

bsup.Enabled = False

tnote.Focus()

End Sub

Public Sub calculer()

Dim i As Integer

Dim som As Single

For i = 0 To (lnote.Items.Count - 1)

som = som + Val(lnote.Items(i))

Next

Badri Sabrine LFIG

Badri Sabrine 2éme LFIG

lmoy.Text = CStr(som / lnote.Items.Count)

End Sub

Private Sub tnote_Validated(sender As Object, e As System.EventArgs) Handles

tnote.Validated

If (Val(tnote.Text) < 0) Or (Val(tnote.Text) > 20) Then

ErrorProvider1.SetError(tnote, "valeur invalid")

tnote.Text = ""

tnote.Focus()

Else

bajout.Enabled = True

ErrorProvider1.Clear()

End If

End Sub

Private Sub bajout_Click(sender As Object, e As System.EventArgs) Handles

bajout.Click

lnote.Items.Add(tnote.Text)

bcal.Enabled = True

tnote.Text = ""

bsup.Enabled = True

tnote.Focus()

End Sub

Private Sub bsup_Click(sender As Object, e As System.EventArgs) Handles bsup.Click

lnote.Items.RemoveAt(lnote.Items.Count - 1)

calculer()

End Sub

Private Sub bcal_Click(sender As Object, e As System.EventArgs) Handles bcal.Click

calculer()

End Sub

Private Sub bquit_Click(sender As Object, e As System.EventArgs) Handles

bquit.Click

End

End Sub

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

Handles tnote.TextChanged

If (tnote.Text = "") Then

bajout.Enabled = False

Else

bajout.Enabled = True

End If

End Sub

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

Handles Button1.Click

Form5.Show()

Me.Hide()

End Sub

End Class

Exercice n°4 :

Public Class Form4

Private Sub Form4_Load(sender As System.Object, e As System.EventArgs) Handles

MyBase.Load

tval.Focus()

bremp.Enabled = False

baff.Enabled = False

bini.Enabled = False

Badri Sabrine LFIG

Badri Sabrine 2éme LFIG

End Sub

Private Sub baff_Click(sender As Object, e As System.EventArgs) Handles baff.Click

Dim i, j, n As Integer

Dim aux As Single

Dim t(Val(tval.Text)) As Integer

n = Val(tval.Text)

For i = 0 To n - 1

t(i) = lal.Items(i)

Next

For i = 0 To n - 1

For j = i + 1 To n

If (t(i) < t(j)) Then

aux = t(i)

t(i) = t(j)

t(j) = aux

End If

Next

Next

For i = 0 To n - 1

ltri.Items.Add(t(i))

Next

End Sub

Private Sub bini_Click(sender As System.Object, e As System.EventArgs) Handles

bini.Click

lal.Items.Clear()

ltri.Items.Clear()

bremp.Enabled = False

baff.Enabled = False

tval.Text = ""

tval.Focus()

bini.Enabled = False

End Sub

Private Sub bremp_Click(sender As System.Object, e As System.EventArgs) Handles

bremp.Click

Dim i, n, r As Integer

n = Val(tval.Text)

Randomize()

For i = 0 To n - 1

r = Rnd() * 99 + 1

lal.Items.Add(r)

Next

baff.Enabled = True

bini.Enabled = True

End Sub

Private Sub tval_TextChanged(sender As Object, e As System.EventArgs) Handles

tval.TextChanged

If (tval.Text = "") Then

bremp.Enabled = False

baff.Enabled = False

bini.Enabled = False

Else

bremp.Enabled = True

End If

End Sub

Private Sub tval_Validated(sender As Object, e As System.EventArgs) Handles

tval.Validated

If Not IsNumeric(tval.Text) Or (Val(tval.Text) < 0) Then

ErrorProvider1.SetError(tval, "Valeur Invalid")

tval.Text = ""

Badri Sabrine LFIG

Badri Sabrine 2éme LFIG

tval.Focus()

Else

bremp.Enabled = True

ErrorProvider1.Clear()

End If

End Sub

Private Sub bquit_Click(sender As System.Object, e As System.EventArgs) Handles

bquit.Click

End

End Sub

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles

bmenu.Click

Form5.Show()

Me.Hide()

End Sub

End Class

Badri Sabrine LFIG