gestor de almacenes
Visual Basic
Publicado el 28 de Octubre del 2022 por Raul
4.352 visualizaciones desde el 28 de Octubre del 2022
Originalmente el codigo esta diseñado para una farmacia, pero la versatilidad del sistema funciona para un almacen.
Se compone de una database tipo ACCESS y el programa cliente
Se compone de una database tipo ACCESS y el programa cliente
Comentarios sobre la versión: 1.0 (2)
calcular-suedoPublic Class calcularsueldoynotas
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim turno As String
Dim pago As Integer
turno = UCase(TextBox1.Text)
If turno = "M" Then pago = 300
If turno = "T" Then pago = 500
If turno = "N" Then pago = 800
MsgBox("El pago es: " & pago, 0, "Pago por turno")
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim CONDICION As String
Dim EDAD As Integer
EDAD = TextBox1.Text
If EDAD < 18 Then
CONDICION = "MENOR DE EDAD"
MsgBox(CONDICION, 0, "condición")
End If
If EDAD >= 18 Then
CONDICION = "MAYOR DE EDAD"
MsgBox(CONDICION, 0, "condición")
End If
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim nota1, nota2, nota3, promedio As Integer
nota1 = TextBox2.Text
nota2 = TextBox3.Text
nota3 = TextBox4.Text
promedio = (nota1 + nota2 + nota3) / 3
If promedio >= 13 Then
MsgBox("El promedio es: " & promedio & " APROBADO", 0, "Promedio de notas")
Else
MsgBox("El promedio es: " & promedio & " DESAPROBADO", 0, "Promedio de notas")
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
End Class