Compte Rendu VB Net
Compte Rendu VB Net
Compte Rendu VB Net
BERRECHID
Baroudi Nizar
Génie informatique
A.U : 2010/2011
FORME 2 : AFFICHAGE DE LA DATE ET DU TEMP
CODE SOURCE :
CODE SOURCE:
CODE SOURCE:
End Sub
End Class
CODE SOURCE :
CODE SOURCE :
CODE SOURCE :
End Sub
End Class
CODE SOURCE :
Option Explicit On
Public Class Form8
Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
If RadioButton4.Checked = True Then
TextBox2.Text = 500
End If
End Sub
Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton1.Checked = True Then
TextBox1.Text = 500
End If
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
If RadioButton2.Checked = True Then
TextBox1.Text = 1000
End If
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
If RadioButton3.Checked = True Then
TextBox1.Text = 2000
End If
End Sub
Private Sub RadioButton5_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles RadioButton5.CheckedChanged
If RadioButton5.Checked = True Then
TextBox2.Text = 1000
End If
End Sub
Private Sub RadioButton6_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles RadioButton6.CheckedChanged
If RadioButton6.Checked = True Then
TextBox2.Text = 1500
End If
End Sub
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
TextBox3.Text = Val(TextBox3.Text) + 500
Else
TextBox3.Text = Val(TextBox3.Text) - 500
End If
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked = True Then
TextBox3.Text = Val(TextBox3.Text) + 200
Else
TextBox3.Text = Val(TextBox3.Text) - 200
End If
End Sub
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
If CheckBox3.Checked = True Then
TextBox3.Text = Val(TextBox3.Text) + 150
Else
TextBox3.Text = Val(TextBox3.Text) - 150
End If
End Sub
Private Sub RadioButton7_CheckedChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles RadioButton7.CheckedChanged
TextBox4.Text = ""
RadioButton8.Checked = False
RadioButton7.Checked = True
TextBox4.Text = "10%"
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
TextBox5.Text = Val(TextBox1.Text) + Val(TextBox2.Text) +
Val(TextBox3.Text)
If TextBox5.Text >= 2000 Then
RadioButton7.Enabled = False
RadioButton8.Enabled = True
TextBox4.Text = Val(TextBox5.Text) * 0.2
Else
RadioButton8.Enabled = False
RadioButton7.Enabled = True
TextBox4.Text = Val(TextBox5.Text) * 0.1
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
TextBox6.Text = Val(TextBox5.Text) - Val(TextBox4.Text)
End Sub
End Class
CODE SOURCE:
CODE SOURCE:
CODE SOURCE :
CODE SOURCE :
Public Class Form13
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim NoteBD As Integer
For i As Integer = 0 To 9
NoteBD = InputBox("Saisir la Note de Base de Donnée ")
If NoteBD >= 0 And NoteBD <= 20 Then
ListBox1.Items.Add(NoteBD)
Else
MsgBox("NoteBD Incorrecte")
End If
Next
End Sub
ListBox1.Items.Add(TextBox1.Text & " " & TextBox2.Text & " " &
TextBox3.Text & " " & TextBox4.Text)
Next
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
End Sub
Private Sub Form15_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
ComboBox1.Items.Add(choix.homme)
ComboBox1.Items.Add(choix.femme)
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
ComboBox1.SelectedIndexChanged
End Sub
End Class
CODE SOURCE :
End Sub
End Class