Visual Basic Practicas

PRACTICA 1

Public Class Form1

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text= ""

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If ComboBox1.Text = "suma" Then
TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
ElseIf ComboBox1.Text = "resta" Then
TextBox3.Text = Val(TextBox1.Text) - Val(TextBox2.Text)
ElseIf ComboBox1.Text ="multiplicacion" Then
TextBox3.Text = Val(TextBox1.Text) * Val(TextBox2.Text)
ElseIf ComboBox1.Text = "divicion" Then
TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
ElseIf ComboBox1.Text = "mod" Then
TextBox3.Text = Val(TextBox1.Text) Mod Val(TextBox2.Text)

End If
End Sub
End Class
NO COPIEN TODO!!! (SOLO LO IMPORTANTE)PRACITCA 2
Public Class Form1

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End

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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox4.Text = (TextBox1.Text) & " " & (TextBox2.Text) & " " & (TextBox3.Text)

End Sub
End Class
NO COPIEN TODO!!! (SOLO LO IMPORTANTE)

PRACTICA 3
Public Class Form1

Private Sub Button3_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles Button3.Click
End

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
If RadioButton1.Checked = False Then
ElseIf RadioButton2.Checked = False Then
ElseIf RadioButton3.Checked = False ThenElseIf RadioButton4.Checked = False Then

End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButton1.Checked = True Then
TextBox2.Text = Val(TextBox1.Text) * 1000
ElseIf RadioButton2.Checked = True Then
TextBox2.Text = Val(TextBox1.Text) * 100ElseIf RadioButton3.Checked = True Then
TextBox2.Text = Val(TextBox1.Text) * 10
ElseIf RadioButton4.Checked = True Then
TextBox2.Text = Val(TextBox2.Text) * 0.001

End If
End Sub
End Class
NO COPIEN TODO!!! (SOLO LO IMPORTANTE)

PRACTICA 4
Public Class Form1

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click
End

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 = ""
If RadioButton1.Checked = False Then
ElseIf RadioButton2.Checked = False Then
ElseIf RadioButton3.Checked= False Then
ElseIf RadioButton4.Checked = False Then

End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If RadioButton1.Checked = True Then
TextBox3.Text = Val(TextBox1.Text) / Val(TextBox2.Text)
ElseIf RadioButton2.Checked = True Then
TextBox3.Text...