Algoritmos

Solo disponible en BuenasTareas
  • Páginas : 4 (852 palabras )
  • Descarga(s) : 0
  • Publicado : 31 de mayo de 2011
Leer documento completo
Vista previa del texto
Private Sub form_load()
Form1.WindowState = 0
Form1.Visible = True

Rem dia lunes
Dim cuernitos_lunes As Single, mantecadas_lunes As Single, donas_lunes As Single, viscochos_lunes As Single,bolillo_lunes As Single, campechanas_lunes As Single, costo_pan_lunes As Single, dinero_lunes As Single
Dim cambio_lunes As Single, tot_pan_lunes As Single

Dim opc As Integer
b1:
Cls
Print ("menuprincipal")
Print ("(1).- dia lunes")
Print ("(2).- dia martes")
Print ("(3).- dia miercoles")
Print ("(4).- dia jueves")
Print ("(5).- dia viernes")
Print ("(6).- salir del programa")

opc =InputBox(" elegir la opcion del 1 al 6")
If opc = 1 Then
ElseIf opc = 6 Then
End

End If

GoTo a1

a1:
Cls
Print ("dia lunes")
Print ("(1).- cuernitos")
Print ("(2).- mantecadas")
Print("(3).- donas")
Print ("(4).- biscochos")
Print ("(5).- bolillo")
Print ("(6).- campechanas")
Print ("(7).- cobrar")
Print ("(8).- pasar al siguiente dia")

opc = InputBox("elegir la opcion del1 al 8")

If opc = 1 Then
cuernitos = InputBox(" cuantos cuernitos")
GoTo a1
ElseIf opc = 2 Then
mantecadas = InputBox(" cuantas mantecadas")
GoTo a1
ElseIf opc = 3 Then
donas = InputBox("cuantas donas")
GoTo a1
ElseIf opc = 4 Then
biscochos = InputBox("cuantos biscochos")
GoTo a1
ElseIf opc = 5 Then
bolillos = InputBox("cuantos bolillos")
GoTo a1
ElseIf opc = 6 Thencampechanas = InputBox("cuantas campechanas")
GoTo a1
ElseIf opc = 7 Then
tot_pan_lunes = (cuernitos * 2 + mantecadas * 4 + donas * 6 + biscochos * 8 + bolillos * 10 + campechanas * 12)
MsgBox ("el cobro es" & tot_pan_lunes)

dinero_lunes = InputBox("recivi dinero= ")
cambio_lunes = (dinero_lunes) - (tot_pan_lunes)
MsgBox ("el cambio es " & cambio_lunes)

ElseIf opc = 8 Then
GoTo b1
EndIf

Private Sub form_load()
Form1.WindowState = 0
Form1.Visible = True

Rem valores de entrada
Dim nom As Single, rfc As Single, metros_lineales As Single, metros_cuadrados As Single, lote...
tracking img