Hola gente de T soy estudiante de informática y hoy vengo a compartir algunos de mis pequeños proyectos en VB 2008 para aquellos que se están introduciendo en este lenguaje de programación. Para comenzar les dejo un software que realiza un presupuesto:
-Agregare su respectivo código fuente
-Pronto subiré su ejecutable por falta de tiempo
- En este programa insertamos la prenda que el cliente comprara y su respectiva cantidad a comprar luego nos dará el precio unitario de la prenda y el total de la prenda multiplicado por la cantidad que ingresamos, también nos dará un sub total que es sin IVA, nos sacara el IVA y nos dará el total con IVA y si se desea despachar los productos y cuanto saldrá el despacho agregando el valor al total
Public Class Form2
Dim zapatilla As Integer = 5000
Dim mucasine As Integer = 6000
Dim botas As Integer = 7000
Dim polera As Integer = 3000
Dim pantalon As Integer = 4000
Dim camisa As Integer = 5000
Dim falda As Integer = 3500
Dim sosten As Integer = 2000
Dim abrigo As Integer = 8000
Dim relog As Integer = 15000
Dim aros As Integer = 25000
Dim pulsera As Integer = 13000
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.txtSubTotal.Text = Val(txtAccesorio.Text) + Val(txtRopaM.Text) + Val(txtZapatos.Text) + Val(txtRopaH.Text)
Me.txtIva.Text = Val(txtSubTotal.Text) * 0.19
Me.txtTotalIva.Text = Val(txtSubTotal.Text) + Val(txtIva.Text)
Me.TextBox13.Text = Val(txtSubTotal.Text) + Val(txtIva.Text) + Val(txtDespacho.Text)
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton1.Checked = True Then
Me.txtDespacho.Visible = True
Me.Label13.Visible = True
Me.TextBox13.Visible = True
Me.Label14.Visible = True
Else
Me.txtDespacho.Visible = False
Me.Label13.Visible = False
Me.TextBox13.Visible = False
Me.Label4.Visible = False
End If
End Sub
Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
If cbcZapatos.SelectedIndex <> -1 Then
ptZapatos.Text = zapatilla * NumericUpDown1.Value
Me.txtZapatos.Text = zapatilla
If cbcZapatos.SelectedIndex <> 0 Then
Me.txtZapatos.Text = ""
Me.ptZapatos.Text = ""
Me.txtZapatos.Text = "6000"
Me.ptZapatos.Text = NumericUpDown1.Value * mucasine
If cbcZapatos.SelectedIndex <> 1 Then
Me.txtZapatos.Text = ""
Me.ptZapatos.Text = ""
Me.txtZapatos.Text = "7000"
Me.ptZapatos.Text = NumericUpDown1.Value * botas
End If
End If
End If
End Sub
Private Sub NumericUpDown2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown2.ValueChanged
If cbcRopaH.SelectedIndex <> -1 Then
Me.txtRopaH.Text = "3000"
Me.ptRopaH.Text = NumericUpDown2.Value * polera
If cbcRopaH.SelectedIndex <> 0 Then
Me.txtRopaH.Text = ""
Me.ptRopaH.Text = ""
Me.txtRopaH.Text = "4000"
Me.ptRopaH.Text = NumericUpDown2.Value * pantalon
If cbcRopaH.SelectedIndex <> 1 Then
Me.txtRopaH.Text = ""
Me.ptRopaH.Text = ""
Me.txtRopaH.Text = "5000"
Me.ptRopaH.Text = NumericUpDown2.Value * camisa
End If
End If
End If
End Sub
Private Sub NumericUpDown3_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown3.ValueChanged
If cbcRopaM.SelectedIndex <> -1 Then
Me.txtRopaM.Text = "3000"
Me.ptRopaM.Text = NumericUpDown3.Value * falda
If cbcRopaM.SelectedIndex <> 0 Then
Me.txtRopaM.Text = ""
Me.ptRopaM.Text = ""
Me.txtRopaM.Text = "4000"
Me.ptRopaM.Text = NumericUpDown3.Value * sosten
If cbcRopaM.SelectedIndex <> 1 Then
Me.txtRopaM.Text = ""
Me.ptRopaM.Text = ""
Me.txtRopaM.Text = "5000"
Me.ptRopaM.Text = NumericUpDown2.Value * abrigo
End If
End If
End If
End Sub
Private Sub NumericUpDown4_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown4.ValueChanged
If cbcAccesorios.SelectedIndex <> -1 Then
Me.txtAccesorio.Text = "15000"
Me.ptAccesorio.Text = NumericUpDown4.Value * relog
If cbcAccesorios.SelectedIndex <> 0 Then
Me.txtAccesorio.Text = ""
Me.ptAccesorio.Text = ""
Me.txtAccesorio.Text = "25000"
Me.ptAccesorio.Text = NumericUpDown4.Value * aros
If cbcAccesorios.SelectedIndex <> 1 Then
Me.txtAccesorio.Text = ""
Me.ptAccesorio.Text = ""
Me.txtAccesorio.Text = "13000"
Me.ptAccesorio.Text = NumericUpDown4.Value * pulsera
End If
End If
End If
End Sub
End Class
___________________________________________________________________________________________
-El siguiente es un validador de usuario sin Base de datos al que tenemos que ingresar con un Usuario y una contraseña predefinidos en el código, lo que ara el programa sera al momento de estar correcto los datos abrir otro form y si no que envíe un mensaje de error diciendo que los datos no son correctos. Acá hay una imagen:
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If txtUsuario.Text = "user" And txtPass.Text = "pass" Then
MsgBox("Bienvenido a CALPROM"
frmCalcu.ShowDialog()
Me.txtPass.Text = ""
Me.txtUsuario.Text = ""
Me.Close()
Else
MsgBox("Vuelve a intentarlo", MsgBoxStyle.Critical, "Error"
Me.txtPass.Text = ""
Me.txtUsuario.Text = ""
End If
End Sub
End Class
-Continuamos con un formulario que calcula las notas de certamenes trabajos o talleres el promedio, la nota final y el estado si esta aprobado o reprobado... con 5 botones: uno para calcular todo los datos ingresados, otro limpiar para dejar en blanco todos los textbox un botón ingresar nombre donde ingresamos un nombre y lo cambiara por el label donde dice "nombre" un botón que muestra en un mensaje los que fueron aprobados y por ultimo el botón salir... Acá la imagen:
Public Class frmCalcu
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim A As Integer = 3
Dim B As Double = 0.7
Dim c As Double = 0.3
txtPromedio1.Text = Val(txtCuno.Text) + Val(txtCdos.Text) + Val(txtTaller.Text)
txtPromedio1.Text = Val(txtPromedio1.Text) / A
txtPromedio2.Text = Val(txtUno2.Text) + Val(txtDos2.Text) + Val(txtTalleres2.Text)
txtPromedio2.Text = Val(txtPromedio2.Text) / A
txtPromedio3.Text = Val(txtUno3.Text) + Val(txtDos3.Text) + Val(txtTalleres3.Text)
txtPromedio3.Text = Val(txtPromedio3.Text) / A
txtnt1.Text = Val(txtPromedio1.Text) * B + Val(txtExamen1.Text) * c
txtnt2.Text = Val(txtPromedio2.Text) * B + Val(txtExamen2.Text) * c
txtnt3.Text = Val(txtPromedio3.Text) * B + Val(txtExamen3.Text) * c
If txtnt1.Text > "40" Then
txtEstado1.Text = "Aprobado"
Else
txtEstado1.Text = "Reprobado"
End If
If txtnt2.Text > "40" Then
txtEstado2.Text = "Aprobado"
Else
txtEstado2.Text = "Reprobado"
End If
If txtnt3.Text > "40" Then
txtEstado3.Text = "Aprobado"
Else
txtEstado3.Text = "Reprobado"
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label4.Text = InputBox("ingresa nombre", "nombre"
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
txtCdos.Text = ""
txtCuno.Text = ""
txtDos2.Text = ""
txtDos3.Text = ""
txtEstado1.Text = ""
txtEstado2.Text = ""
txtEstado3.Text = ""
txtExamen1.Text = ""
txtExamen2.Text = ""
txtExamen3.Text = ""
txtnt1.Text = ""
txtnt2.Text = ""
txtnt3.Text = ""
txtPromedio1.Text = ""
txtPromedio2.Text = ""
txtPromedio3.Text = ""
txtTaller.Text = ""
txtTalleres2.Text = ""
txtTalleres3.Text = ""
txtUno2.Text = ""
txtUno3.Text = ""
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If txtnt1.Text > "40" Then
MessageBox.Show(Label7.Text)
If txtnt2.Text > "40" Then
MessageBox.Show(Label8.Text)
If txtnt3.Text > "40" Then
MessageBox.Show(Label4.Text)
End If
End If
End If
End Sub
End Class
__________________________________________________________________________
- El siguiente es un formulario con 3 botones que nos dirige a sus respectivos campos:
Public Class Form1
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Form2.ShowDialog()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form3.ShowDialog()
End Sub
End Class
_________________________________________________________________________________________
- Con el formulario anterior podemos dirigirnos al campo pescados donde nos aparecerá el formulario que les mostrare a continuación en donde podemos elegir el tipo de pescado que queremos y su acompañamiento donde nos arrojara el total de ellos también si deseamos ensalada o no en donde se no agregara el valor adicional en el total y si deseamos ingresar un 10% de propina y al decir que si nos mostrara el total con un 10% para la propina. Acá la imagen:
Public Class Form2
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbSi.CheckedChanged
Dim ensalada As Integer = 1300
If rbSi.Checked = True Then
txtTotal.Text = Val(txtTotal.Text) + ensalada
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ri As String
Dim pr As Double = 0.1
Label3.Visible = True
txtTotalpr.Visible = True
ri = InputBox("Ingresa si o no para agregar propina", ""
If ri = "si" Then
txtTotalpr.Text = Val(txtTotal.Text) * pr + Val(txtTotal.Text)
End If
End Sub
Private Sub cbPescado_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbPescado.SelectedIndexChanged
If cbAcompaña.SelectedIndex = 0 And cbPescado.SelectedIndex = 0 Then
txtTotal.Text = "3000"
ElseIf cbAcompaña.SelectedIndex = 1 And cbPescado.SelectedIndex = 0 Then
txtTotal.Text = "2000"
ElseIf cbAcompaña.SelectedIndex = 2 And cbPescado.SelectedIndex = 0 Then
txtTotal.Text = "4000"
''segundo caso
ElseIf cbAcompaña.SelectedIndex = 0 And cbPescado.SelectedIndex = 1 Then
txtTotal.Text = "3500"
ElseIf cbAcompaña.SelectedIndex = 1 And cbPescado.SelectedIndex = 1 Then
txtTotal.Text = "3500"
ElseIf cbAcompaña.SelectedIndex = 2 And cbPescado.SelectedIndex = 1 Then
txtTotal.Text = "4500"
''tercer caso
ElseIf cbAcompaña.SelectedIndex = 0 And cbPescado.SelectedIndex = 2 Then
txtTotal.Text = "4000"
ElseIf cbAcompaña.SelectedIndex = 1 And cbPescado.SelectedIndex = 2 Then
txtTotal.Text = "4000"
ElseIf cbAcompaña.SelectedIndex = 2 And cbPescado.SelectedIndex = 2 Then
txtTotal.Text = "5000"
''
End If
End Sub
Private Sub cbAcompaña_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbAcompaña.SelectedIndexChanged
''primer caso
If cbPescado.SelectedIndex = 0 And cbAcompaña.SelectedIndex = 0 Then
txtTotal.Text = "3000"
ElseIf cbPescado.SelectedIndex = 1 And cbAcompaña.SelectedIndex = 0 Then
txtTotal.Text = "2000"
ElseIf cbPescado.SelectedIndex = 2 And cbAcompaña.SelectedIndex = 0 Then
txtTotal.Text = "4000"
''segundo caso
ElseIf cbPescado.SelectedIndex = 0 And cbAcompaña.SelectedIndex = 1 Then
txtTotal.Text = "3500"
ElseIf cbPescado.SelectedIndex = 1 And cbAcompaña.SelectedIndex = 1 Then
txtTotal.Text = "3500"
ElseIf cbPescado.SelectedIndex = 2 And cbAcompaña.SelectedIndex = 1 Then
txtTotal.Text = "4500"
''tercer caso
ElseIf cbPescado.SelectedIndex = 0 And cbAcompaña.SelectedIndex = 2 Then
txtTotal.Text = "4000"
ElseIf cbPescado.SelectedIndex = 1 And cbAcompaña.SelectedIndex = 2 Then
txtTotal.Text = "4000"
ElseIf cbPescado.SelectedIndex = 2 And cbAcompaña.SelectedIndex = 2 Then
txtTotal.Text = "5000"
End If
End Sub
Private Sub rbNo_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbNo.CheckedChanged
Dim ensalada1 As Integer = 1300
If rbNo.Checked = True Then
txtTotal.Text = Val(txtTotal.Text) - ensalada1
End If
End Sub
End Class
__________________________________________________________________________________________
- Por ultimo al seleccionar el botón colación nos enviara a otro formulario en donde seleccionaremos la colación que deseamos y la cantidad de porciones que queremos y luego nos arrojara el total y si deseamos ensalada o no y si agregamos propina. Acá la imagen:
Public Class Form3
Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
If cb1.SelectedIndex = 0 Then
txtTotal.Text = "3000" * NumericUpDown1.Value
End If
If cb1.SelectedIndex = 1 Then
txtTotal.Text = "4000" * NumericUpDown1.Value
End If
If cb1.SelectedIndex = 2 Then
txtTotal.Text = "5000" * NumericUpDown1.Value
End If
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbSi.CheckedChanged
Dim porciento As Integer = 1300
If rbSi.Checked = True Then
txtTtTotal.Text = Val(txtTotal.Text) + porciento
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim re As String
Dim pr As Double = 0.1
Label6.Visible = True
txtpf.Visible = True
re = InputBox("Ingresa si o no para agregar propina", ""
If re = "si" Then
txtpf.Text = Val(txtTtTotal.Text) * pr + txtTtTotal.Text
End If
End Sub
End Class
Aclarar que son programas sencillos para quienes recién están comenzando con la programación en vb ya que nadie nace sabiendo es algo de ayuda
Adios
-Agregare su respectivo código fuente
-Pronto subiré su ejecutable por falta de tiempo
- En este programa insertamos la prenda que el cliente comprara y su respectiva cantidad a comprar luego nos dará el precio unitario de la prenda y el total de la prenda multiplicado por la cantidad que ingresamos, también nos dará un sub total que es sin IVA, nos sacara el IVA y nos dará el total con IVA y si se desea despachar los productos y cuanto saldrá el despacho agregando el valor al total
Public Class Form2
Dim zapatilla As Integer = 5000
Dim mucasine As Integer = 6000
Dim botas As Integer = 7000
Dim polera As Integer = 3000
Dim pantalon As Integer = 4000
Dim camisa As Integer = 5000
Dim falda As Integer = 3500
Dim sosten As Integer = 2000
Dim abrigo As Integer = 8000
Dim relog As Integer = 15000
Dim aros As Integer = 25000
Dim pulsera As Integer = 13000
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.txtSubTotal.Text = Val(txtAccesorio.Text) + Val(txtRopaM.Text) + Val(txtZapatos.Text) + Val(txtRopaH.Text)
Me.txtIva.Text = Val(txtSubTotal.Text) * 0.19
Me.txtTotalIva.Text = Val(txtSubTotal.Text) + Val(txtIva.Text)
Me.TextBox13.Text = Val(txtSubTotal.Text) + Val(txtIva.Text) + Val(txtDespacho.Text)
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
If RadioButton1.Checked = True Then
Me.txtDespacho.Visible = True
Me.Label13.Visible = True
Me.TextBox13.Visible = True
Me.Label14.Visible = True
Else
Me.txtDespacho.Visible = False
Me.Label13.Visible = False
Me.TextBox13.Visible = False
Me.Label4.Visible = False
End If
End Sub
Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
If cbcZapatos.SelectedIndex <> -1 Then
ptZapatos.Text = zapatilla * NumericUpDown1.Value
Me.txtZapatos.Text = zapatilla
If cbcZapatos.SelectedIndex <> 0 Then
Me.txtZapatos.Text = ""
Me.ptZapatos.Text = ""
Me.txtZapatos.Text = "6000"
Me.ptZapatos.Text = NumericUpDown1.Value * mucasine
If cbcZapatos.SelectedIndex <> 1 Then
Me.txtZapatos.Text = ""
Me.ptZapatos.Text = ""
Me.txtZapatos.Text = "7000"
Me.ptZapatos.Text = NumericUpDown1.Value * botas
End If
End If
End If
End Sub
Private Sub NumericUpDown2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown2.ValueChanged
If cbcRopaH.SelectedIndex <> -1 Then
Me.txtRopaH.Text = "3000"
Me.ptRopaH.Text = NumericUpDown2.Value * polera
If cbcRopaH.SelectedIndex <> 0 Then
Me.txtRopaH.Text = ""
Me.ptRopaH.Text = ""
Me.txtRopaH.Text = "4000"
Me.ptRopaH.Text = NumericUpDown2.Value * pantalon
If cbcRopaH.SelectedIndex <> 1 Then
Me.txtRopaH.Text = ""
Me.ptRopaH.Text = ""
Me.txtRopaH.Text = "5000"
Me.ptRopaH.Text = NumericUpDown2.Value * camisa
End If
End If
End If
End Sub
Private Sub NumericUpDown3_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown3.ValueChanged
If cbcRopaM.SelectedIndex <> -1 Then
Me.txtRopaM.Text = "3000"
Me.ptRopaM.Text = NumericUpDown3.Value * falda
If cbcRopaM.SelectedIndex <> 0 Then
Me.txtRopaM.Text = ""
Me.ptRopaM.Text = ""
Me.txtRopaM.Text = "4000"
Me.ptRopaM.Text = NumericUpDown3.Value * sosten
If cbcRopaM.SelectedIndex <> 1 Then
Me.txtRopaM.Text = ""
Me.ptRopaM.Text = ""
Me.txtRopaM.Text = "5000"
Me.ptRopaM.Text = NumericUpDown2.Value * abrigo
End If
End If
End If
End Sub
Private Sub NumericUpDown4_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown4.ValueChanged
If cbcAccesorios.SelectedIndex <> -1 Then
Me.txtAccesorio.Text = "15000"
Me.ptAccesorio.Text = NumericUpDown4.Value * relog
If cbcAccesorios.SelectedIndex <> 0 Then
Me.txtAccesorio.Text = ""
Me.ptAccesorio.Text = ""
Me.txtAccesorio.Text = "25000"
Me.ptAccesorio.Text = NumericUpDown4.Value * aros
If cbcAccesorios.SelectedIndex <> 1 Then
Me.txtAccesorio.Text = ""
Me.ptAccesorio.Text = ""
Me.txtAccesorio.Text = "13000"
Me.ptAccesorio.Text = NumericUpDown4.Value * pulsera
End If
End If
End If
End Sub
End Class
___________________________________________________________________________________________
-El siguiente es un validador de usuario sin Base de datos al que tenemos que ingresar con un Usuario y una contraseña predefinidos en el código, lo que ara el programa sera al momento de estar correcto los datos abrir otro form y si no que envíe un mensaje de error diciendo que los datos no son correctos. Acá hay una imagen:
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If txtUsuario.Text = "user" And txtPass.Text = "pass" Then
MsgBox("Bienvenido a CALPROM"
frmCalcu.ShowDialog()
Me.txtPass.Text = ""
Me.txtUsuario.Text = ""
Me.Close()
Else
MsgBox("Vuelve a intentarlo", MsgBoxStyle.Critical, "Error"
Me.txtPass.Text = ""
Me.txtUsuario.Text = ""
End If
End Sub
End Class
-Continuamos con un formulario que calcula las notas de certamenes trabajos o talleres el promedio, la nota final y el estado si esta aprobado o reprobado... con 5 botones: uno para calcular todo los datos ingresados, otro limpiar para dejar en blanco todos los textbox un botón ingresar nombre donde ingresamos un nombre y lo cambiara por el label donde dice "nombre" un botón que muestra en un mensaje los que fueron aprobados y por ultimo el botón salir... Acá la imagen:
Public Class frmCalcu
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim A As Integer = 3
Dim B As Double = 0.7
Dim c As Double = 0.3
txtPromedio1.Text = Val(txtCuno.Text) + Val(txtCdos.Text) + Val(txtTaller.Text)
txtPromedio1.Text = Val(txtPromedio1.Text) / A
txtPromedio2.Text = Val(txtUno2.Text) + Val(txtDos2.Text) + Val(txtTalleres2.Text)
txtPromedio2.Text = Val(txtPromedio2.Text) / A
txtPromedio3.Text = Val(txtUno3.Text) + Val(txtDos3.Text) + Val(txtTalleres3.Text)
txtPromedio3.Text = Val(txtPromedio3.Text) / A
txtnt1.Text = Val(txtPromedio1.Text) * B + Val(txtExamen1.Text) * c
txtnt2.Text = Val(txtPromedio2.Text) * B + Val(txtExamen2.Text) * c
txtnt3.Text = Val(txtPromedio3.Text) * B + Val(txtExamen3.Text) * c
If txtnt1.Text > "40" Then
txtEstado1.Text = "Aprobado"
Else
txtEstado1.Text = "Reprobado"
End If
If txtnt2.Text > "40" Then
txtEstado2.Text = "Aprobado"
Else
txtEstado2.Text = "Reprobado"
End If
If txtnt3.Text > "40" Then
txtEstado3.Text = "Aprobado"
Else
txtEstado3.Text = "Reprobado"
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label4.Text = InputBox("ingresa nombre", "nombre"
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
txtCdos.Text = ""
txtCuno.Text = ""
txtDos2.Text = ""
txtDos3.Text = ""
txtEstado1.Text = ""
txtEstado2.Text = ""
txtEstado3.Text = ""
txtExamen1.Text = ""
txtExamen2.Text = ""
txtExamen3.Text = ""
txtnt1.Text = ""
txtnt2.Text = ""
txtnt3.Text = ""
txtPromedio1.Text = ""
txtPromedio2.Text = ""
txtPromedio3.Text = ""
txtTaller.Text = ""
txtTalleres2.Text = ""
txtTalleres3.Text = ""
txtUno2.Text = ""
txtUno3.Text = ""
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If txtnt1.Text > "40" Then
MessageBox.Show(Label7.Text)
If txtnt2.Text > "40" Then
MessageBox.Show(Label8.Text)
If txtnt3.Text > "40" Then
MessageBox.Show(Label4.Text)
End If
End If
End If
End Sub
End Class
__________________________________________________________________________
- El siguiente es un formulario con 3 botones que nos dirige a sus respectivos campos:
Public Class Form1
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Form2.ShowDialog()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form3.ShowDialog()
End Sub
End Class
_________________________________________________________________________________________
- Con el formulario anterior podemos dirigirnos al campo pescados donde nos aparecerá el formulario que les mostrare a continuación en donde podemos elegir el tipo de pescado que queremos y su acompañamiento donde nos arrojara el total de ellos también si deseamos ensalada o no en donde se no agregara el valor adicional en el total y si deseamos ingresar un 10% de propina y al decir que si nos mostrara el total con un 10% para la propina. Acá la imagen:
Public Class Form2
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbSi.CheckedChanged
Dim ensalada As Integer = 1300
If rbSi.Checked = True Then
txtTotal.Text = Val(txtTotal.Text) + ensalada
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ri As String
Dim pr As Double = 0.1
Label3.Visible = True
txtTotalpr.Visible = True
ri = InputBox("Ingresa si o no para agregar propina", ""
If ri = "si" Then
txtTotalpr.Text = Val(txtTotal.Text) * pr + Val(txtTotal.Text)
End If
End Sub
Private Sub cbPescado_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbPescado.SelectedIndexChanged
If cbAcompaña.SelectedIndex = 0 And cbPescado.SelectedIndex = 0 Then
txtTotal.Text = "3000"
ElseIf cbAcompaña.SelectedIndex = 1 And cbPescado.SelectedIndex = 0 Then
txtTotal.Text = "2000"
ElseIf cbAcompaña.SelectedIndex = 2 And cbPescado.SelectedIndex = 0 Then
txtTotal.Text = "4000"
''segundo caso
ElseIf cbAcompaña.SelectedIndex = 0 And cbPescado.SelectedIndex = 1 Then
txtTotal.Text = "3500"
ElseIf cbAcompaña.SelectedIndex = 1 And cbPescado.SelectedIndex = 1 Then
txtTotal.Text = "3500"
ElseIf cbAcompaña.SelectedIndex = 2 And cbPescado.SelectedIndex = 1 Then
txtTotal.Text = "4500"
''tercer caso
ElseIf cbAcompaña.SelectedIndex = 0 And cbPescado.SelectedIndex = 2 Then
txtTotal.Text = "4000"
ElseIf cbAcompaña.SelectedIndex = 1 And cbPescado.SelectedIndex = 2 Then
txtTotal.Text = "4000"
ElseIf cbAcompaña.SelectedIndex = 2 And cbPescado.SelectedIndex = 2 Then
txtTotal.Text = "5000"
''
End If
End Sub
Private Sub cbAcompaña_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbAcompaña.SelectedIndexChanged
''primer caso
If cbPescado.SelectedIndex = 0 And cbAcompaña.SelectedIndex = 0 Then
txtTotal.Text = "3000"
ElseIf cbPescado.SelectedIndex = 1 And cbAcompaña.SelectedIndex = 0 Then
txtTotal.Text = "2000"
ElseIf cbPescado.SelectedIndex = 2 And cbAcompaña.SelectedIndex = 0 Then
txtTotal.Text = "4000"
''segundo caso
ElseIf cbPescado.SelectedIndex = 0 And cbAcompaña.SelectedIndex = 1 Then
txtTotal.Text = "3500"
ElseIf cbPescado.SelectedIndex = 1 And cbAcompaña.SelectedIndex = 1 Then
txtTotal.Text = "3500"
ElseIf cbPescado.SelectedIndex = 2 And cbAcompaña.SelectedIndex = 1 Then
txtTotal.Text = "4500"
''tercer caso
ElseIf cbPescado.SelectedIndex = 0 And cbAcompaña.SelectedIndex = 2 Then
txtTotal.Text = "4000"
ElseIf cbPescado.SelectedIndex = 1 And cbAcompaña.SelectedIndex = 2 Then
txtTotal.Text = "4000"
ElseIf cbPescado.SelectedIndex = 2 And cbAcompaña.SelectedIndex = 2 Then
txtTotal.Text = "5000"
End If
End Sub
Private Sub rbNo_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbNo.CheckedChanged
Dim ensalada1 As Integer = 1300
If rbNo.Checked = True Then
txtTotal.Text = Val(txtTotal.Text) - ensalada1
End If
End Sub
End Class
__________________________________________________________________________________________
- Por ultimo al seleccionar el botón colación nos enviara a otro formulario en donde seleccionaremos la colación que deseamos y la cantidad de porciones que queremos y luego nos arrojara el total y si deseamos ensalada o no y si agregamos propina. Acá la imagen:
Public Class Form3
Private Sub NumericUpDown1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
If cb1.SelectedIndex = 0 Then
txtTotal.Text = "3000" * NumericUpDown1.Value
End If
If cb1.SelectedIndex = 1 Then
txtTotal.Text = "4000" * NumericUpDown1.Value
End If
If cb1.SelectedIndex = 2 Then
txtTotal.Text = "5000" * NumericUpDown1.Value
End If
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbSi.CheckedChanged
Dim porciento As Integer = 1300
If rbSi.Checked = True Then
txtTtTotal.Text = Val(txtTotal.Text) + porciento
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim re As String
Dim pr As Double = 0.1
Label6.Visible = True
txtpf.Visible = True
re = InputBox("Ingresa si o no para agregar propina", ""
If re = "si" Then
txtpf.Text = Val(txtTtTotal.Text) * pr + txtTtTotal.Text
End If
End Sub
End Class
Aclarar que son programas sencillos para quienes recién están comenzando con la programación en vb ya que nadie nace sabiendo es algo de ayuda
Adios