Introducción a Small Basic
• Small Basic es un lenguaje de programación
que está diseñado para hacer la programación
muy sencilla, accesible y divertida para los
principiantes.
• El objetivo de Small Basic es romper cualquier
barrera y servir de piedra angular para el
increíble mundo de la programación.
Descargar Small Basic
Ingresar a
[Link]
Instalación
Nuestro primer programa
Imprimir el mensaje HolaMundo.
[Link]("Hola Mundo")
TextWindow
Proporciona funcionalidades para escribir
información por consola o solicitar información
desde la consola (Entrada y salida de datos)
Uso de variables
Sintaxis
nombrevariable=valor
[Link]("Escriba su nombre: ")
nombre = [Link]() 'Lee lo escrito por el usuario
[Link]("Hola " + nombre)
' Comentario
Write, WriteLine y Read
[Link]("Escriba su nombre: ")
nombre = [Link]()
[Link]("Hola " + nombre + ". ")
[Link]("¿Cómo está " + nombre + "?")
Las variables no tienen tipo de dato
numero1 = 20
numero2 = 10
numero3 = numero1 + numero2
[Link](número3)
El usuario ingresa los datos
[Link]("Ingrese un número:")
numero1 = [Link]()
[Link]("Ingrese otro número:")
numero2 = [Link]()
numero3 = número1 + número2
[Link]("El resultado de la suma es:"+número3)
Condicionales
Condición Simple
If (condicion) Then
'Instrucciones a ejecutar si se cumple la ejecución
EndIf
Ejemplo
If ([Link] < 12) Then
[Link]("Buenos días mundo")
EndIf
If ([Link] >= 12) Then
[Link]("Buenas tardes mundo")
EndIf
Condición completa
If (condicion) Then
'Instrucciones a ejecutar si se cumple la condición
Else
'Instrucciones a ejecutar si no cumple la condición
EndIf
Mismo ejemplo anterior
If ([Link] < 12) Then
[Link]("Buenos días mundo")
Else
[Link]("Buenas tardes mundo")
EndIf
Condición Compuesta
Ejemplo
If ([Link] < 12) Then
[Link]("Buenos días mundo")
Else
If ([Link] >= 12 and [Link] <18) Then
[Link]("Buenas tardes mundo")
Else
[Link]("Buenas Noches mundo")
EndIf
EndIf
[Link]("Hoy es:"+ [Link])
Error en sintaxis
If ([Link] < 12)
[Link]("Buenos días mundo")
Else
[Link]("Buenas tardes mundo")
EndIf
Función clock
Esta función permite obtener la fecha actual del
sistema.
Ejercicio
Hacer un programa que solicite un número e
imprima si el número es par o impar
Ayuda: La función [Link](Numerodividendo,
Numerodivisor) , divide el primer número entre el segundo y
devuelve el resto.
Solución
[Link]("Introduzca un número: ")
número = [Link]()
resto = [Link](número, 2)
If (resto = 0) Then
[Link]("El número es par")
Else
[Link]("El número es impar")
EndIf
Ciclos o bucles
Ciclo For
For i = valorinicio To valorfin
'Instrucciones a ejecutar
EndFor
Ejemplo
For i = 1 To 24
[Link](i)
EndFor
Incremento de 2 en 2
For i = 1 To 24 Step 2
[Link](i)
EndFor
For i = 10 To 1 Step -1
[Link](i)
EndFor
Bucle While
While (condiciones)
'instrucciones a depurar
EndWhile
Ejemplo
numero = 100
While (numero > 1)
[Link](número)
número = número / 2
EndWhile
Gráficos
Así como tenemos TextWindow, que nos
permite trabajar con texto y números, Small
Basic también tiene GraphicsWindow (ventana
de gráficos), que podemos usar para dibujar
cosas.
[Link]()
Propiedades de la ventana
[Link] = "SteelBlue" 'Fondo
[Link] = "Mi ventana de gráficos" ‘Titulo
[Link] = 320 'Ancho
[Link] = 200 'Alto
[Link]() 'Mostrar la ventana
Dibujando Líneas
[Link] = 200
[Link] = 200
[Link](10, 10, 100, 100)
[Link](10, 100, 100, 10)
Los primeros dos números que siguen a DrawLine (dibujar una línea) especifican las
coordenadas X e Y iniciales y los otros especifican las coordenadas X e Y finales.
Propiedades de la línea
[Link] = 200
[Link] = 200
[Link] = 10 'Ancho de línea
[Link] = "Green" 'Color de la linea
[Link](10, 10, 100, 100)
[Link] = "Gold"
[Link](10, 100, 100, 10)
Dibujando 10 líneas
[Link] = "Black"
[Link] = 200
[Link] = 160
[Link] = "Blue"
For i = 1 To 10
[Link] = i
[Link](20, i * 15, 180, i * 15) EndFor
Draw y Fill
[Link] = 400
[Link] = 300
[Link] = "Red"
[Link](20, 20, 300, 60)
[Link] = "Green"
[Link](60, 100, 300, 60)
[Link] = 400
[Link] = 300
[Link] = "Red"
[Link](20, 20, 300, 60)
[Link] = "Green"
[Link](60, 100, 300, 60)
[Link] = 400
[Link] = 300
[Link] = "Red"
[Link](20, 20, 100, 100)
[Link] = "Green"
[Link](100, 100, 100, 100)
[Link] = "Black" 'Negro
[Link] = "LightBlue" 'Celeste
[Link] = 200
[Link] = 200
For i = 1 To 100 Step 5
[Link](100 - i, 100 - i, i * 2, i * 2)
EndFor
Publicar soluciones
Se pueden compartir los programas que
realicemos. Solo dar clic en la opción Publicar
