Public Class Form1
Dim person, age, sex As String
Dim lan1, lan2, lan3 As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
person = TextBox1.Text
age = TextBox2.Text
If RadioButton1.Checked = True Then
sex = RadioButton1.Text
End If
If RadioButton2.Checked = True Then
sex = RadioButton2.Text
End If
If CheckBox1.Checked = True Then
lan1 = CheckBox1.Text
End If
If CheckBox2.Checked = True Then
lan2 = CheckBox2.Text
End If
If CheckBox3.Checked = True Then
lan3 = CheckBox3.Text
End If
MsgBox("Name:" &person &Chr(13) &"age:" &age &Chr(13) & "Sex:" &sex &Chr(13) &"Language:" &lan1 &"," &lan2 &" "& lan3 &Chr(13) &"state:" &ListBox1.SelectedItem, ,"My Details")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub
End Class

Fig48


Public Class Form1
Dim person, age, sex As String
Dim lan1, lan2, lan3 As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
person = TextBox1.Text
age = TextBox2.Text
If RadioButton1.Checked = True Then
sex = RadioButton1.Text
End If
If RadioButton2.Checked = True Then
sex = RadioButton2.Text
End If
If CheckBox1.Checked = True Then
lan1 = CheckBox1.Text
End If
If CheckBox2.Checked = True Then
lan2 = CheckBox2.Text
End If
If CheckBox3.Checked = True Then
lan3 = CheckBox3.Text
End If
MsgBox("Name:" &person &Chr(13) &"age:" &age &Chr(13) & "Sex:" &sex &Chr(13) &"Language:" &lan1 &"," &lan2 &" "& lan3 &Chr(13) &"state:" &ListBox1.SelectedItem, ,"My Details")
End Sub

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

Application shown in Fig. 41 is another example of using Panel control. The code follows it.

Fig. 41 Public Class Form1
Dim ADelhi, AAgra, TDelhi, TAgra, Total As Integer
Dim person, age As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ADelhi = 6000
AAgra = 3000
TDelhi = 2000
TAgra = 500
Total = 0
person = TextBox1.Text
age = TextBox2.Text
If Me.RadioButton1.Checked = True Then
If Me.CheckBox1.Checked = True Then
Total = ADelhi
End If
If Me.CheckBox2.Checked = True Then
Total = AAgra
End If
If Me.CheckBox1.Checked And Me.CheckBox2.Checked = True Then
Total = ADelhi + AAgra
End If
MsgBox("Name:" & person & Chr(13) & "age:" & age &Chr(13) & "Air Journey Ticket cost is:" & Total)
End If
If Me.RadioButton2.Checked = True Then
If Me.CheckBox1.Checked = True Then
Total = TDelhi
End If
If Me.CheckBox2.Checked = True Then
Total = TAgra
End If
If Me.CheckBox1.Checked And Me.CheckBox2.Checked = True Then
Total = TDelhi + TAgra
End If
MsgBox("Name:" & person & Chr(13) & "age:" & age &Chr(13) &"Train Journey Ticket cost is:" & Total)
End If
End Sub

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

Program to display Seconds and Minutes
Add two labels and two text boxes, Set Text Property of both to 0. TextBox1 is for Seconds and TextBox2 for Minutes. Add a timer (Fig. 49). Fig. 50 and Fig. 51 display the result.

 Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = False
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Static i
i = i + 1
If i = 60 Then
i = 0
TextBox1.Text = 0
TextBox2.Text = Val(TextBox2.Text) + 1
Else
TextBox1.Text = Val(TextBox1.Text) + 1
End If
End Sub
End Class

 Fig49


Fig50


Fig51


<< Back

Our aim is to provide information to the knowledge


comments powered by Disqus










Footer1