Programacion C

“Private Sub Command1_Click()

'Utilizaremos el operador iF

If Text1.Text = "estrella0410" Then

Text1.Text = ""

Form2.Show

Else

N = MsgBox("Tu no estas autorizado", 0, "FUERA!")

End

End If

End Sub

Private Sub Command2_Click()

Text2.Text = "estrella0410"

Label2.Visible = True

Text2.Visible = True

End Sub

2. Private Sub Form_Load()

Form1.Hide

End Sub

Private Sub mnucafeteria_Click()

Form5.Show

Form2.Hide

End Sub

Private Sub mnucaja_Click()

Form9.Show

Form2.Hide

End Sub

Private Sub mnucasino_Click()

Form10.Show

Form2.Hide

End Sub

Private Sub mnudiscos_Click()

Form6.Show

Form2.Hide

End Sub

Private Sub mnuondez_Click()

Form1.Show

Form2.Hide

End Sub

Private Sub mnupeliculas_Click()

Form8.Show

Form2.Hide

End Sub

Private Sub mnuperfumes_Click()

Form7.Show

Form2.Hide

End Sub

Private Sub mnureloj_Click()

Form3.Show

Form1.Hide

Form2.Hide

End Sub

Private Sub mnusalir_Click()

End

End Sub

Private Sub mnutienda_Click()

Form4.Show

Form2.Hide

End Sub

3. Private Sub Command1_Click()

Form2.Show

Form3.Hide

End Sub

Private Sub Command2_Click()

Form4.Show

Form3.Hide

End Sub

Private Sub Command3_Click()

Fin = MsgBox("No te vayas", 0 Or vbQuestion, "SALIR")

End Sub

Private Sub Timer1_Timer()

Text1.Text = Date

Text2.Text = Time

End Sub

4. Private Sub Command1_Click()

Form2.Show

Form4.Hide

End Sub

Private Sub Command10_Click()

Image1.Visible = False

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

Image6.Visible = False

Text2.Visible = False

Text3.Visible = False

Text1.Text = ""

End Sub

Private Sub Command2_Click()

Form9.Show

Form4.Hide

End Sub

Private Sub Command3_Click()

Form5.Show

Form4.Hide

End Sub

Private Sub Command4_Click()

Form7.Show

Form4.Hide

End Sub

Private Sub Command5_Click()

Form6.Show

Form4.Hide

End Sub

Private Sub Command6_Click()

Form8.Show

Form4.Hide

End Sub

Private Sub Command7_Click()

Form10.Show

Form4.Hide

End Sub

Private Sub Command8_Click()

Form3.Show

Form4.Hide

End Sub

Private Sub Command9_Click()

If Text1.Text = 1 Then

Text3.Visible = True

Text2.Visible = True

Image1.Visible = True

Text2.Text = "Cajas de Regalo"

Text3.Text = "$30"

ElseIf Text1.Text = 2 Then

Text3.Visible = True

Text2.Visible = True

Image2.Visible = True

Image1.Visible = False

Text2.Text = "Moños"

Text3.Text = "$5"

ElseIf Text1.Text = 3 Then

Text3.Visible = True

Text2.Visible = True

Image3.Visible = True

Image2.Visible = False

Text2.Text = "Peluches"

Text3.Text = "$150"

ElseIf Text1.Text = 4 Then

Text3.Visible = True

Text2.Visible = True

Image4.Visible = True

Image3.Visible = False

Text2.Text = "Cajas Musicales"

Text3.Text = "$200"

ElseIf Text1.Text = 5 Then

Text3.Visible = True

Text2.Visible = True

Image5.Visible = True

Image4.Visible = False

Text2.Text = "Confetti"

Text3.Text = "$20"

ElseIf Text1.Text = 6 Then

Text3.Visible = True

Text2.Visible = True

Image6.Visible = True

Image5.Visible = False

Text2.Text = "Globos"

Text3.Text = "$3"

End If

End Sub

5. Private Sub Command1_Click()

Form2.Show

Form5.Hide

End Sub

Private Sub Command10_Click()

Image1.Visible = False

Image2.Visible = False

Image3.Visible = False

Image4.Visible = False

Image5.Visible = False

Text2.Visible = False

Text3.Visible = False

Text1.Text = ""

End Sub

Private Sub Command2_Click()

Form9.Show

Form5.Hide

End Sub

Private Sub Command3_Click()

Form4.Show

Form5.Hide

End Sub

Private Sub Command4_Click()

Form7.Show

Form5.Hide

End Sub

Private Sub Command5_Click()

Form6.Show

Form5.Hide

End Sub

Private Sub Command6_Click()

Form8.Show

Form5.Hide

End Sub

Private Sub Command7_Click()

Form10.Show

Form5.Hide

End Sub

Private Sub Command8_Click()

Form3.Show

Form5.Hide

End Sub

Private Sub Command9_Click()

If Text1.Text = 1 Then

Text3.Visible = True

Text2.Visible = True

Image1.Visible = True

Text2.Text = "Capuchino"

Text3.Text = "$35"

ElseIf Text1.Text = 2 Then

Text3.Visible = True

Text2.Visible = True

Image2.Visible = True

Image1.Visible = False

Text2.Text = "Pastel"

Text3.Text = "$100"

ElseIf Text1.Text = 3 Then

Text3.Visible = True

Text2.Visible = True

Image3.Visible = True

Image2.Visible = False

Text2.Text = "Galletas"

Text3.Text = "$20"

ElseIf Text1.Text

...