Prueba Blog (programa Visual Basic)
Option Explicit On
Module Module1
Structure vehiculo
Dim placa As String
Dim modelo As Integer
Dim color As String
Dim propietario As String
End Structure
Structure user
Dim tipo As String
Dim clave As Integer
Dim nombre As String
End Structure
Structure repuesto
Dim codigo As Integer
Dim item As String
Dim precio As Decimal
End Structure
sub main
dim opcion as integer
dim cont1 as integer
msgbox ("bienvenido") & chr(13)
msgbox ("menu") & chr(13)
opcion = imputbox ("digite 1 si desea ingresar")&chr(13)("digite 2 si desea salir")
select case (opcion)
case 1: call pedir_clave
case 2: end
end_select
end sub
Sub pedir_clave()
Dim datos(10) As vehiculo
Dim usuario(4) As user
Dim rep(10) As repuesto
Dim type As Integer
MsgBox("menú principal")
InputBox("Bienvenido")
type = InputBox("¿que tipo de usuario es ud?")
If type = 1 Then
Call tecnico(datos)
ElseIf type = 2 Then
Call mecanico()
ElseIf type = 3 Then
Call administrador()
End If
End Sub
Sub tecnico(ByRef datos() As vehiculo)
Dim i As Integer
i = 0
Do While i < 10
datos(i).placa = InputBox("ingrese la placa del vehículo")
datos(i).modelo = InputBox("ingrese el modelo del vehículo")
datos(i).color = InputBox("ingrese el color del vehículo")
datos(i).propietario = InputBox("ingrese el nombre del propietario del vehículo")
i = i + 1
Loop
End Sub
Sub mecanico()
End Sub
Sub administrador()
Dim opcion As Integer
Call menu_admon(opcion)
Do While opcion <> 4
If opcion = 1 Then
Call registrar(usuario)
ElseIf opcion = 2 Then
Call repuestos(rep)
ElseIf opcion = 3 Then
Call consulta()
End If
Loop
End Sub
Sub cajero()
End Sub
Sub menu_admon(ByVal opcion)
Dim m As Integer
m = "menu administrador" & Chr(13)
m = m & "1.registrar nuevo usuario" & Chr(13)
m = m & "2.ingresar repuestos" & Chr(13)
m = m & "3.consultar datos" & Chr(13)
m = m & "4.salir" & Chr(13)
opcion = InputBox(m)
End Sub
Sub registrar(ByRef usuario() As user)
Dim j As Integer
j = 0
Do While j < 4
usuario(j).tipo = InputBox("escriba el tipo de usuario")
usuario(j).nombre = InputBox("escriba el nombre del usuario")
usuario(j).clave = InputBox("asignele una clave al usuario")
j = j + 1
Loop
If usuario(j).tipo = "mecanico" Then
Call registro_mecanicos()
End If
End Sub
Sub repuestos(ByRef rep() As repuesto)
Dim k As Integer
k = 0
Do While k < 10
rep(k).codigo = InputBox("ingrese el código del repuesto")
rep(k).item = InputBox("ingrese el nombre del repuesto")
rep(k).precio = InputBox("ingrese el precio del repuesto")
k = k + 1
Loop
End Sub
Sub consulta()
Dim selec As Integer
Call Menu_consulta(selec)
Do While selec <> 8
If selec = 1 Then
Call un_mec(usuario)
ElseIf selec = 2 Then
Call totalmec()
ElseIf selec = 3 Then
Call un_vehic()
ElseIf selec = 4 Then
Call totalvehic()
ElseIf selec = 5 Then
Call un_rep()
ElseIf selec = 6 Then
Call totalrep()
ElseIf selec = 7 Then
Call facturacion()
End If
Loop
End Sub
Sub menu_consulta(ByVal selec)
Dim n As String
n = "menu administrador" & Chr(13)
n = n & "1.consultar datos de un mecánico" & Chr(13)
n = n & "2.consultar datos de todos los mecánicos" & Chr(13)
n = n & "3.consultar datos de un vehículo" & Chr(13)
n = n & "4.consultar datos de todos los vehículos" & Chr(13)
n = n & "5.consultar datos de un repuesto" & Chr(13)
n = n & "6.consultar datos de todos los repuestos" & Chr(13)
n = n & "7.consultar el total facturado por reparaciones" & Chr(13)
End Sub
Sub un_mec(ByRef usuario() As user)
Dim a As Integer
a = InputBox("¿De cual mecánico desea conocer los datos?")
End Sub
Sub totalmec()
End Sub
Sub un_vehic()
End Sub
Sub totalvehic()
End Sub
Sub un_rep()
End Sub
Sub totalrep()
End Sub
Sub facturacion()
End Sub
Sub registro_mecanicos()
Dim x As Integer
x = 0
Do While x < 2
Loop
End Sub
End Module
sub asignarturno
dim opcion as integer
opcion = imputbox("digite 1 para registrar vehiculo")&chr(13)("digite 2 para asginar mecanico")&chgr(13)
select case (opcion)
case 1: call registrar vehiculo
case 2: call registrar mecanico
end_select
end_sub
sub registrar vehiculo
if (cont1<=9)
carros(cont1).placa=imputbox("digite la placa")
carros(cont1).color=imputbox("digite el color")
carros(cont1).modelo=imputbox("digite el modelo")
carros(cont1).propietario=imputbox("digite el propietario")
cont1=cont1+1
else
msgbox ("el carro no puede ser ingresado por max de turnos")
end_if
end_sub
sub asignar mecanico
dim cont2 as integer
dim pos as integer
dim cont 3 as integer
for(pos=0 to 2)
for(cont2=0 to 2)
if(mecanico(cont2).turno(pos)=0)
mecanico(cont2).turno=1
mecanico(cont2).placa=carros(cont1).placa
cont2=4
pos=4
end_if
if pos=3 and cont2=3 then
msgbox("no hay ningun mecanico disponible")
end_if
next
next
end_sub
sub liberar
dim h as integer
dim k as integer
dim contra as integer
dim nom as string
dim pla as string
nom=imputbox("ingrese nombre de usuario")
contra=imputbox("ingrese contraseña")
for(k=0 to 2)
if nom=mecanico(k).nombre and contra=mecanico(k).contraseña
then
pla=mecanico(k).placa
mecanico(k).placa=""
for (j=2 to 0)
if mecanico(k).turno(j)=1 then
mecanico(k).turno(j)=0
j=0
k=2
end_if
next
end_if
next
for (h=0 to 9)
if pla=carros(h).placa then
carros(h).placa=""
carros(h).color=""
carros(h).modelo=""
carros(h).propietario=""
h=9
end_if
next
end_sub
