Small Basic: responder preguntas con puntaje (código)


a1

v     Cree una serie de afirmaciones y muéstrelas en la ventana de gráficos.

v     Cree dos botones: uno con el texto “Verdadero” y el otro con el texto “Falso”.

v     Para cada una de las afirmaciones, el usuario hará clic en “Verdadero” o en “Falso”.

v     El usuario consigue puntos por identificar si la afirmación es verdadera o falsa.

  1. ‘ Copyright (c) Microsoft      Corporation.  Todos los      derechos reservados.
  2. GraphicsWindow.Hide()
  3. anVent      = 500
  4. alVent      = 350
  1. cuadroPuntajesIzq      = 175
  2. preguntaAprobada      = 0
  1. puntuación      = 0
  2. elección      = “”
  3. i =      1
  1. P[1]      = “El Nilo es el río más largo del mundo.”
  2. P[2]      = “La montaña más alta del mundo es el monte Everest.”
  3. P[3]      = “Zambia también se conoce como ‘el país del cobre’.”
  4. P[4]      = “El lugar más frío del mundo se encuentra en Siberia.”
  5. P[5]      = “Sídney es la capital de los Estados Unidos.”
  6. P[6]      = “El río Jordán desemboca en el mar Muerto.”
  7. P[7]      = “Mumbai es la capital de la India.”
  8. P[8]      = “África es el continente con la mayor producción de café en el      mundo.”
  9. P[9]      = “El desierto más grande del mundo es el desierto del Sáhara.”
  10. P[10]      = “Londres es la capital del Reino Unido.”
  1. R[1]      = “Verdadero”
  2. R[2]      = “Verdadero”
  3. R[3]      = “Verdadero”
  4. R[4]      = “Verdadero”
  5. R[5]      = “Falso”
  6. R[6]      = “Verdadero”
  7. R[7]      = “Falso”
  8. R[8]      = “Falso”
  9. R[9]      = “Verdadero”
  10. R[10]      = “Verdadero”
  1. matrizAleat[1]      = “5234162”
  2. matrizAleat[2]      = “1896523”
  3. matrizAleat[3]      = “5974216”
  4. matrizAleat[4] =      “2756194”
  1. númAleat =      Math.GetRandomNumber(Array.GetItemCount(matrizAleat))
  1. GraphicsWindow.CanResize =      “False”
  2. GraphicsWindow.Width = anVent
  3. GraphicsWindow.Height = alVent
  4. GraphicsWindow.Top =      (Desktop.Height – alVent) / 2
  5. GraphicsWindow.Left =      (Desktop.Width – anVent) / 2
  6. GraphicsWindow.Title =      “Verdadero o Falso”
  7. GraphicsWindow.Show()
  1. Controls.ButtonClicked =      AlHacerClic
  1. CrearInterfazUsuario()
  1. Sub CrearInterfazUsuario
  2. GraphicsWindow.BrushColor =      “Purple”
  3. GraphicsWindow.FontName =      “Verdana”
  4. GraphicsWindow.FontSize = 14
  5. GraphicsWindow.DrawRectangle(10,      10, 480, 330)
  1. btnVerdadero  =      Controls.AddButton(“Verdadero”, 30, 210)
  2. btnFalso =      Controls.AddButton(“Falso”, 320, 210)
  3. Controls.SetSize(btnVerdadero,      150, 100)
  4. Controls.SetSize(btnFalso, 150,      100)
  1. GraphicsWindow.DrawText(220,      300, “Resultado”)
  2. cuadroTxtResultado =      Shapes.AddText(“”)
  3. Shapes.Move(cuadroTxtResultado,      220, 250)
  1. cuadroTxtPuntuación = Shapes.AddText(“Puntuación:      0”)
  2. Shapes.Move(cuadroTxtPuntuación,      365, 15)
  3. IniciarJuego()
  4. EndSub
  1. Sub      IniciarJuego
  2. preguntaAprobada      = Text.GetSubText(matrizAleat[númAleat], i, 1)
  3. If i <= 7 Then
  4. px = 60
  5. py = 90
  6. GraphicsWindow.BrushColor =      “LightBlue”
  7. GraphicsWindow.FillRectangle(200,      220, 100, 80)
  8. GraphicsWindow.FillRectangle(20,      50, 460, 100)
  9. GraphicsWindow.BrushColor =      “Blue”
  10. GraphicsWindow.DrawBoundText(px      – 20, py, 420 “” + P[preguntaAprobada])
  11. respuestaCorrecta      = R[preguntaAprobada]
  12. Else
  13. Program.Delay(1000)
  14. GraphicsWindow.ShowMessage(“Su      puntuación es ” + puntuación, “FIN”)
  15. Program.End()
  16. EndIf
  17. i = i + 1
  18. EndSub
  1. Sub      AlHacerClic
  2. respuestaJugador      = Controls.GetButtonCaption(Controls.LastClickedButton)
  1. If      respuestaJugador = respuestaCorrecta Then
  2. últimaRespuesta      = “Correcto”
  3. Shapes.Move(cuadroTxtResultado,      220, 250)
  4. puntuación      = puntuación + 1
  5. Else
  6. últimaRespuesta      = “Incorrecto”
  7. Shapes.Move(cuadroTxtResultado,      212, 250)
  8. EndIf
  1. Shapes.SetText(cuadroTxtResultado,      últimaRespuesta)
  2. Shapes.SetText(cuadroTxtPuntuación,      “Puntuación: ” + puntuación)
  1. IniciarJuego()
  2. EndSub

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s