Date post: | 17-Oct-2015 |
Category: |
Documents |
Upload: | ronald-ivan |
View: | 42 times |
Download: | 0 times |
of 51
http://hugocidm.wordpress.com/2010/11/13/ejemplo-for-vb-net/
Primer programa (EJERCICIO 1)
PrivateSubbtnres_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handlesbtnres.Click
DECLARAMOS VARIABLESLas variables en VB son iguales minsculas y maysculas Dim vn1, vn2, vnresAsInteger vn1 = txtn1.Text vn2 = txtn2.Textvnres = vn1 + vn2txtres.Text = vnres
EndSub
OTRA FORMAtxtres.Text = CInt(txtn1.Text) + CInt(txtn2.Text)
Las funciones de conversin empiezan con CEjemploCChar, CDate, Cint,CAMBIO DE PROPIEDADES EN TIEMPO DE DISEO (EJERCICIO 2) Seleccionamos el objeto En propiedades se cambian los valores
TextBox4.Text = CStr((CInt(TextBox1.Text) + CInt(TextBox2.Text) + CInt(TextBox3.Text)) / 3)
If CDbl(TextBox4.Text) >= 10.5 Then Label5.Text = "Aprobado"Else Label5.Text = "Desaprobado"End If-------------------
Public Class Form1
PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click
Dim vn1, vn2, vn3, vpromAsDouble vn1 = TextBox1.Text vn2 = TextBox2.Text vn3 = TextBox3.Text
vprom = (vn1 + vn2 + vn3) / 3 TextBox4.Text = vprom
Ifvprom>= 10.5 Then TextBox4.ForeColor = Color.Blue TextBox4.BackColor = Color.YellowMessageBox.Show("Aprobado") Label5.Text = "Aprobado"ElseTextBox4.ForeColor = Color.BlueMessageBox.Show("Desaprobado") Label5.Text = "Desaprobado"EndIf
End Sub
Private Sub Button2_Click(By Val sender As System.Object, By Val e As System.EventArgs) Handles Button2.Click
Space(0)Sirve para limpiar cajas de texto TextBox1.Text = Space(0) TextBox2.Text = Space(0) TextBox3.Text = Space(0) TextBox4.Text = Space(0)TextBox1.Focus()End SubEnd Class
(EJERCICIO 3)Public Class Form2
Private Sub Button1_Click(By Val sender As System. Object, By Val e As System. EventArgs) Handles Button1.ClickDim sue, dess As Double
sue = TextBox1.TextIf sue >= 350 ThenIf sue = 350 ThenIf sue n2 Thenmenor = n2EndIf
Ifmenor> n3 Thenmenor = n3EndIf
Ifmenor> n4 Thenmenor = n4
EndIfsum = n1 + n3 + n2 + n4 - menorTextBox5.Text = sum / 3
'usar la funcionMath.Min anidados EndSubEndClass
----------------- PublicClassForm2
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim c AsInteger
If CheckBox1.Checked Then c = c + 1
EndIfIf CheckBox2.Checked Then c = c + 1
EndIfIf CheckBox3.Checked Then c = c + 1
EndIfMessageBox.Show(c)
EndSubEndClass
03/04/2011
Habilitado significa que va a recibir eventosPublicClassForm1
PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.ClickDimvsb, vdesAsDoublevdes = 0vsb = CDbl(TextBox1.Text)
If CheckBox1.Checked Thenvdes = vdes + vsb * 0.11EndIfIf CheckBox2.Checked Thenvdes = vdes + 15
EndIfIf CheckBox3.Checked Thenvdes = vdes + CDbl(TextBox2.Text)EndIf TextBox3.Text = vdes TextBox4.Text = CStr(vsb - vdes)EndSub
PrivateSub CheckBox3_CheckedChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles CheckBox3.CheckedChanged
TextBox2.Enabled = CheckBox3.Checked
'If CheckBox3.Checked Then' TextBox2.Enabled = True'Else'TextBox2.Enabled = False'TextBox2.Text = Space(0)'TextBox2.Clear()'End If
EndSub
PrivateSub Form1_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load TextBox2.Enabled = FalseEndSub
PrivateSub TextBox2_EnabledChanged(ByVal sender AsObject, ByVal e AsSystem.EventArgs) Handles TextBox2.EnabledChanged'se activa cuando se habilita la caja TextBox2.Clear()EndSub
EndClass
**************************
PublicClassForm2
PrivateSub GroupBox1_Enter(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles GroupBox1.EnterDim a, b AsDouble a = TextBox1.TextIf RadioButton1.Checked Then b = 0.1 * aElseIf RadioButton2.Checked Then b = 0.2 * aElseIf RadioButton3.Checked Then b = 0.35 * aElse b = 0EndIf TextBox2.Text = b TextBox3.Text = b + aEndSub
EndClass--------------------- otra forma ------------------ SIN BOTON-------------
PublicClassForm2
Dim b AsDouble
PrivateSub RadioButton3_Click(ByVal sender AsObject, ByVal e AsSystem.EventArgs) Handles RadioButton3.Click b = 0.35 * CDbl(TextBox1.Text) TextBox2.Text = b TextBox3.Text = b + CDbl(TextBox1.Text)EndSub
PrivateSub RadioButton2_Click(ByVal sender AsObject, ByVal e AsSystem.EventArgs) Handles RadioButton2.Click b = 0.2 * CDbl(TextBox1.Text) TextBox2.Text = b TextBox3.Text = b + CDbl(TextBox1.Text)EndSub
PrivateSub RadioButton1_Click(ByVal sender AsObject, ByVal e AsSystem.EventArgs) Handles RadioButton1.Click b = 0.1 * CDbl(TextBox1.Text) TextBox2.Text = b TextBox3.Text = b + CDbl(TextBox1.Text)
EndSub
EndClass
--------------------------------------------------------DECLARACION DE VARIABLES A NIVEL DE MODULOS(PARA SER RECONOCIDAD EN TODOS LOS FORMULARIOS DEL SISTEMA)
En esta parte se declaran las variables globales ModuleModule1Public variables AsIntegerEndModule
PRACTICAEJERCICIOS 1
PublicClassForm1
PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.ClickDim x, y, z AsDouble
x = TextBox1.Text y = TextBox2.Text z = TextBox3.Text
TextBox4.Text = (Math.Sqrt(3 * Math.Pow(x, 4) + 2 * x * Math.Pow(y, 2) * z) + 5 * Math.Pow(x, 2) * y) / (3 + Math.Pow(x, 2) * Math.Pow(y, 2) * Math.Pow(z, 2))EndSubEndClass
EJERCICIO 2
PublicClass Form2
PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.ClickDimangAsDouble
ang = CDbl(TextBox1.Text) * Math.PI / 180
TextBox2.Text = Math.Cos(ang) TextBox3.Text = Math.Sin(ang) TextBox4.Text = Math.Tan(ang)
EndSubEndClass
EJERCICIO 3
PublicClass Form3
PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.ClickDim n1, n2, n3, n4 AsDouble
n1 = CDbl(TextBox1.Text) n2 = CDbl(TextBox2.Text) n3 = CDbl(TextBox3.Text) n4 = CDbl(TextBox4.Text)
TextBox5.Text = Math.Min(n4, Math.Min(n3, Math.Min(n1, n2))) TextBox6.Text = Math.Max(n4, Math.Max(n3, Math.Max(n1, n2)))
EndSubEndClass
EJERCICIO 4
PublicClassForm4
PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.ClickDimvsb, vbon, vdesAsDouble
vsb = TextBox1.Textvdes = 0
If RadioButton1.Checked Thenvbon = vsb * 0.08ElseIf RadioButton2.Checked Thenvbon = 500ElseIf RadioButton3.Checked Thenvbon = CDbl(TextBox2.Text)EndIf TextBox4.Text = vbon
If CheckBox1.Checked Thenvdes = vdes + vsb * 0.1EndIfIf CheckBox2.Checked Thenvdes = vdes + 15EndIfIf CheckBox3.Checked Thenvdes = vdes + CDbl(TextBox3.Text)EndIf
TextBox5.Text = vdes TextBox6.Text = vsb + vbon - vdes
EndSubPrivateSub RadioButton3_CheckedChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles RadioButton3.CheckedChanged TextBox2.Enabled = RadioButton3.CheckedEndSubPrivateSub CheckBox3_CheckedChanged(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles CheckBox3.CheckedChanged TextBox3.Enabled = CheckBox3.CheckedEndSubEndClass
EJERCICIO 5
PublicClassForm5
PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.ClickDimvcAsIntegerDimvmAsDouble
vc = 0If CheckBox1.Checked Thenvm = vm + 80.99vc = vc + 1EndIfIf CheckBox2.Checked Thenvm = vm + 75vc = vc + 1EndIfIf CheckBox3.Checked Thenvm = vm + 65.5vc = vc + 1EndIfIf CheckBox4.Checked Thenvm = vm + 150vc = vc + 1EndIfIf CheckBox5.Checked Thenvm = vm + 130.75vc = vc + 1EndIf
TextBox1.Text = vc TextBox2.Text = vm
EndSubEndClass
EJERCICIO 6:
PublicClassForm6Dim n1, n2 AsDouble
PrivateSub RadioButton1_Click(ByVal sender AsObject, ByVal e AsSystem.EventArgs) Handles RadioButton1.Click
n1 = TextBox1.Text n2 = TextBox2.Text
TextBox3.Text = n1 + n2
EndSub
PrivateSub RadioButton2_Click(ByVal sender AsObject, ByVal e AsSystem.EventArgs) Handles RadioButton2.Click n1 = TextBox1.Text n2 = TextBox2.Text
TextBox3.Text = n1 - n2EndSub
PrivateSub RadioButton3_Click(ByVal sender AsObject, ByVal e AsSystem.EventArgs) Handles RadioButton3.Click n1 = TextBox1.Text n2 = TextBox2.Text
If n2 = 0 ThenMessageBox.Show("no se puededividir!!!")Else TextBox3.Text = n1 / n2EndIfEndSub
PrivateSub RadioButton4_Click(ByVal sender AsObject, ByVal e AsSystem.EventArgs) Handles RadioButton4.Click n1 = TextBox1.Text n2 = TextBox2.Text TextBox3.Text = n1 * n2EndSubEndClass
EJERCICIO 7:
PublicClassForm7PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.ClickDim n1, n2 AsDouble
n1 = TextBox1.Text n2 = TextBox2.Text
If n1 > n2 Then Label3.Text = ">"ElseIf n1 < n2 Then Label3.Text = ""ElseIf n1 < n2 Then Label3.Text = "