Programa Educativo

Este programa consiste en crear programas que sean educativos y ayuden en las tareas del colegio. Como los siguientes 3 Programas hechos en Visual Basic.

CULTURAS PERUANAS:

Cultura Chavín:

Para este ejercicio consiste en que responder las preguntas de y dar click en revisar y te saldrá si es correcta o incorrecta representada en una imagen de carita triste o feliz.

Para ello se utilizará la siguiente codificación:

Private Sub cbopuntaje_Click()
If cbopuntaje.Text = "0 Buenas" Then
txtresultado.Text = "Tienes 0 Puntos"
Else
End If
If cbopuntaje.Text = "1 Buena" Then
txtresultado.Text = "Tienes 10 Puntos"
Else
End If
If cbopuntaje.Text = "2 Buenas" Then
txtresultado.Text = "Tienes 15 Puntos"
Else
End If
If cbopuntaje.Text = "3 Buenas" Then
txtresultado.Text = "Tienes 20 Puntos"
Else
End If

End Sub

Private Sub Command1_Click()
If Option2 Then
Label6.Caption = "Bien"
Image1.Visible = True
Image2.Visible = False
Else
Label6.Caption = "Mal"
Image1.Visible = False
Image2.Visible = True
End If
End Sub

Private Sub Command2_Click()
If Option4 Then
Label7.Caption = "Bien"
Image3.Visible = True
Image4.Visible = False
Else
Label7.Caption = "Mal"
Image3.Visible = False
Image4.Visible = True
End If
End Sub

Private Sub Command3_Click()
If Option9 Then
Label8.Caption = "Bien"
Image5.Visible = True
Image6.Visible = False
Else
Label8.Caption = "Mal"
Image5.Visible = False
Image6.Visible = True
End If
End Sub

Private Sub Form_Load()
Randomize
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
cbopuntaje.Clear
cbopuntaje.AddItem "0 Buenas"
cbopuntaje.AddItem "1 Buena"
cbopuntaje.AddItem "2 Buenas"
cbopuntaje.AddItem "3 Buenas"
End Sub

Cultura Mochica:

Para este ejercicio consiste en que responder las preguntas de y dar click en revisar y te saldrá si es correcta o incorrecta representada en una imagen de carita triste o feliz.

Para ello realizaremos la siguiente codificación:

Private Sub Command1_Click()
If Option3 Then
Label2.Caption = "Bien"
Text1.Text = "6"
Image1.Visible = True
Image2.Visible = False
Else
Label2.Caption = "Mal"
Text1.Text = "0"
Image1.Visible = False
Image2.Visible = True
End If
End Sub


Private Sub Command2_Click()
If Option4 Then
Label5.Caption = "Bien"
Text2.Text = "6"
Image3.Visible = True
Image4.Visible = False
Else
Label5.Caption = "Mal"
Text2.Text = "0"
Image3.Visible = False
Image4.Visible = True
End If
End Sub

Private Sub Command3_Click()
If Option8 Then
Label6.Caption = "Bien"
Text3.Text = "6"
Image5.Visible = True
Image6.Visible = False
Else
Label6.Caption = "Mal"
Text3.Text = "0"
Image5.Visible = False
Image6.Visible = True
End If
End Sub

Private Sub Command4_Click()
Label8.Caption = Val(Text1) + Val(Text2) + Val(Text3)
End Sub

Private Sub Form_Load()
Randomize
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
End Sub

Cultura Nazca:

Para este ejercicio consiste en que responder las preguntas de y dar click en revisar y te saldrá si es correcta o incorrecta representada en una imagen de carita triste o feliz.

Para ello daremos la siguiente codificación:

Private Sub Command1_Click()
If Option1 Then
Label2.Caption = "Bien"
Text1.Text = "6"
Image1.Visible = True
Image2.Visible = False
Else
Label2.Caption = "Mal"
Text1.Text = "0"
Image1.Visible = False
Image2.Visible = True
End If
End Sub

Private Sub Command2_Click()
If Option5 Then
Label3.Caption = "Bien"
Text2.Text = "6"
Image3.Visible = True
Image4.Visible = False
Else
Label3.Caption = "Mal"
Text2.Text = "0"
Image3.Visible = False
Image4.Visible = True
End If
End Sub

Private Sub Command3_Click()
If Option9 Then
Label4.Caption = "Bien"
Text3.Text = "6"
Image5.Visible = True
Image6.Visible = False
Else
Label4.Caption = "Mal"
Text3.Text = "0"
Image5.Visible = False
Image6.Visible = True
End If
End Sub

Private Sub Command4_Click()
Label5.Caption = Val(Text1) + Val(Text2) + Val(Text3)
End Sub

Private Sub Form_Load()
Randomize
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
Image6.Visible = False
End Sub