PROGRAMACIÓN EN GAMBAS

PROGRAMACIÓN EN
GAMBAS
DFSI
ING. STALIN RODRIGUEZ
JEAN CARLOS VILLA ALCIVAR -->AUTOR
3ero “C” Sistemas

Para realizar programas o aplicaciones en gambas haremos lo
siguiente:
1. Abrimos la aplicación GAMBAS
2.Escoger opción nuevo proyecto.
3.Elegimos el tipo de aplicación que queramos hacer.

4.Elegimos donde se guardara la aplicación.
5.Escribimos el título y el nombre de nuestra aplicación.
6.Presionamos OK y ya hemos creado nuestro proyecto.

APLICACIONES EN CONSOLA
1) Primer programa de cadena de texto
Public Sub Main ( )
Dim Nombre as String
Dim Apellidos as String
Nombre = “ Manuel ”
Apellidos = “Alvares Gómez”
Print Apellidos & “ , ” & Nombre
End
2) Crear un programa que me permita mostrar el nombre de la
institución
Public sub Main ( )
Dim Institución as String
Dim País as String
Dim Provincia as String
Dim Cantón as String
Institución = “ UNIDAD EDUCATIVA HUGO CRUZ ANDRADE ”
País = “ECUADOR”
Provincia = “MANABI”
Cantón = “EL CARMEN”
Print Institución
Print Cantón & “ - ” & Provincia & “-” & País
End
3) Crear un programa que me permita mostrar la suma y el
promedio de un estudiante
Public sub Main ( )
Dim N1 as single
Dim N2 as single
Dim N3 as single
Dim S as single
Dim P as single
Print “ingrese la primer nota”
Input N1
Print “ingrese la segunda nota”
Input N2
Print “ingrese la tercera nota”
Input N3
S = N1 + N2+ N3
P = S / 3
Print “ la suma es : ”, S
Print “el promedio es : ”, P
End

4) Exportaciones en el ecuador exporta café, cacao y maíz en
quintales se desea calcular el total de portaciones y el
porcentaje de cada uno. Productos exportados con los
siguientes datos: maíz 300, café 400, cacao 800
5) Crear un programa que calcule el IVA de un producto por
consola, se debe mostrar el IVA.
Public sub Main ( )
Dim Valor as single
Dim Producto as String
Dim Total as single
Print “ ingrese el producto ”
Input Producto
Print “ingrese el valor ”
Input Valor
Total = (Valor * 12 ) / 100
Print “el nombre del producto es : ” & Producto
Print “el valor del IVA es: ” & Total
End
6) Programa que calcule el área de un triángulo teniendo como
datos de entrada la base y la altura
Public sub Main ( )
Dim Base as single
Dim Altura as single
Dim Área as single
Print “ ingrese el altura del triángulo que desea calcular el área ”
Input Altura
Public sub Main ( )
Dim Cacao as integer
Dim Café as integer
Dim Maíz as integer
Dim P1 as single
Dim P2 as single
Dim Suma as integer
Café = 400
Cacao = 800
Maíz = 300
Suma = Café + Cacao + Maíz
P1 = (Café / Suma ) * 100
P2 = (Cacao / Suma ) * 100
P3 = (Maíz / Suma ) * 100
Print “el total de exportaciones es : ” & Suma
Print “el porcentaje del café es : ” & P1 & “ % ”
Print “el porcentaje del Cacao es : ” & P2 & “ % ”
Print “el porcentaje del Maíz es : ” & P3 & “ % ”
End

Print “ingrese la base del triángulo que desea calcular la el área ”
Input Base
Área = (Altura * Base ) / 2
Total = (Valor * 12 ) / 100
Print “el área de triangulo es : ” & Área
End
7) Programa que permita recibir como dato de entrada una
distancia medida en metros y convertirla a kilómetros
Public sub Main ( )
Dim Metro as single
Dim Kilometro as single
Print “ ingrese la medida en metros para convertirla a kilómetros ”
Input Metro
Kilometro = Metro / 1000
Print “la medida en km es : ” Kilometro
End
8) Crear un programa que me permita resolver la siguiente
ecuación
y = x3 – x2 +2 - 3”
Public sub Main ( )
Dim x as byte
Dim y as single
Print “ resolvamos la siguiente ecuación y = x3 – x2 +2 - 3”
Print “se le da el valor a x”
Input x
y = x ^ 3 – x ^ 2 +2 – 3
Print “el resultado de la ecuación es : ” & y
End
9) Crear un programa que me permita recibir como dato de
entrada una distancia medida en metros y convertirla a
kilómetros
PUBLIC SUB Main ( )
DIM Metro AS Single
DIM Kilometro AS Single
PRINT “ingrese la medida en metros para convertirla a kilómetros ”
INPUT Metro
Kilometro = Metro / 1000
PRINT “la medida en km es : ” & Kilometro
END

10) Crear un programa que me permita resolver la Suma, Resta,
División y la Multiplicación de dos números.
Public sub Main ( )
Dim B as byte
Dim C as byte
B = 20
C = 65
Print B +C
Print B – C
Print B / C
Print B * C
End
11) Crear un programa que me permita resolver la Suma de
dos números.
12) Crear un programa que me permita leer la cantidad y el
precio de un producto el mismo que tiene un descuento de 5%
mostrar por pantalla el precio total
Public sub Main ( )
Dim Cantidad as single
Dim Precio as single
Dim Sud as single
Dim Des as single
Dim Prt as single
Dim Producto as String
Print “Bienvenido a mi programa”
Print “ingrese el nombre del producto”
Input Producto
Print “ingrese la cantidad del producto”
Input Cantidad
Print “ingrese el precio del producto”
Input Precio
Sud = Cantidad * Precio
Des = Sud * 0.05
Prt = Prt – Des
Print “el precio total de producto será ”
Print Prt
End
Public sub Main ( )
Dim A as byte
Dim B as byte
Dim S as byte
A = 20
B = 65
S = A +B
Print “la suma es : ” & S
End

13) Crear un programa que me permita calcula el salario de un
trabajador que gana 5 dólares por hora y trabaja 8 horas diarias
Public sub Main ( )
Dim Salario as single
Dim Horas as single
Dim Total as single
Salario = 5
Horas = 8
Total = Salario * Horas * Horas
Print “el salario semanal del empleado es”
Print Total
End
14) Crear un programa que me permita calcular el porcentaje
de un aula de clases donde hay 42 alumnos que está dividido en
30 mujeres y 12 varones
Public sub Main ( )
Dim Mujeres as integer
Dim Varones as integer
Dim Suma as integer
Dim P1 as integer
Dim P2 as integer
Mujeres = 30
Varones = 12
Suma = Mujeres + Varones
P1 = Mujeres / Suma * 100
P2 = Varones / Suma * 100
Print “el porcentaje de mujeres y varones es”
Print “mujeres :” & P1& “%”
Print “Varones:” & P2 & “%”
End
15) Crear un programa que me permita ingresar el valor de un
producto, y el número de unidades del mismo, mostrar por
pantalla el total de importaciones, y también que muestre la
comisión del 15%
Public sub Main ( )
Dim N_producto as String
Dim V_producto as single
Dim Unidades as integer
Dim Importación as single
Dim Comisión as single
Dim V_total as single
Print “ingrese el nombre de su producto”

Input N_producto
Print “ingrese el valor por producto”
Input V_producto
Print “ingrese la unidades de su producto”
Input Unidades
Importación = Unidades * V_producto
Print “el total de la importaciones”
Print “la comisión del 15%”
Print Comisión
V_total = Comisión + Importación
Print “el total por el producto la venta es :”Print N_producto & V_total
End
Select case
16) Aplicar un select case para determinar el descuento que
se otorga en la próxima compra a un cliente habitual dicho
cliente cuenta con tarjeta d crédito d la tienda RETAIL y el
descuento está relacionado al monto de su factorización del
mas de enero se considera con cuatro niveles de factorización.
Monto facturado
ENERO
DESCUENTO DE LA
PROXIMA COMPRA
>450
300y<=450
>150y<=300
<15
40%
30%
20%
10%
Public sub main ( )
Dim des as integer
Dim Fac as integer
...
Select case des
Case 0 to 150
Fac = 10
Case 151 to 300
Fac = 20
Case 301 to 450
Fac = 30
Case > 450
Fac = 40
Case else
Print “para la próxima compra tendrá un descuento del: ”
Print fac & ”%”
End select

17) Crear un programa que permita Promediar las notas de
un x estudiante.
SENTENCIA IF
18) Programa para definir cuál valor es Mayor
Promedio
9 - 10  dar
7 - 8.99  aar
4.01 - 6.99  para
< = naar
Public sub main ( )
Dim a as single
Print “ingrese un valor ”
Input a
...
Select case
Case a > = 9 do a < = 10
Print “dar ”
Else
Case a > = 7 do a < = 8.99
Print “aar ”
Else
Case a < = 6.99
Print “paar ”
Else
Case a < = 4
Print “naar ”
End select
End
Public sub main ( )
Dim a as integer
Dim b as integer
Dim c as integer
Input a
Print “ingrese otro valor ”
Input b
Print “ingrese un último valor ”
Input c
...
If a > b and a > c
Print “mayor es a ”
If b > c and b > a
Print “mayor es b ”
Else
Print “mayor es c ”
Endif
A B C

19) Forma de pago: 1.2, o 3.
 Si es 1 el descuento será 10% del valor.
 Si es 2 será 15%.
 Si es 3 no habrá descuento.
Public sub main ( )
Dim a as single
Dim fp as integer
Dim des1 as single
Print “ingrese un valor”
Input a
Print “ingrese una forma de pago”
Input fp
...
If fp = 1 then
Des1 = (a * 10)/100
Print “el descuento será de: ” des1
Else
If fp = 2 then
Des1 = (a * 15)/100
Print “el descuento será de: ” des1
Else
Print “no habrá descuento ”
Endif
20) Definir el valor de un numero:
Positivo, negativo, neutro
Public sub main ( )
Dim a as single
Input a
...
If a > 0
Print “positivo ”
Else
If a < 0
Print “negativo ”
Else
If a = 0
Print “neutro ”
Endif

SENTENCIA FOR
21) Realiza un programa utilizando la sentencia FOR para
mostrar 10 veces la palabra “AMOR”.
Public sub main ( )
Dim a as integer
For a = 1 to 10
Lisbox.add(a)
Next
22) Realizar una aplicación que muestre los múltiplos de 3
hasta el 99.
Public sub main ( )
Dim b as integer
For b = 3 to 99 step 3
Lisbox.add(b)
Next

23) CALCULADORA BÁSICA:
Para realizar esta calculadora básica
utilizamos de la caja de herramientas:
 Label
 Textbox
 Botton
La codificación utilizada seria:
CAJA DE HERRAMIENTAS EDITOR DE PROPIEDADES

24) APLICACIÓN PARA LA EDAD:
Para realizar esta aplicación utilizamos de la caja de herramientas:
 Label
 Textbox
 Botton
Public sub _new()
End
Public sub form_open()
End
Public sub dial1_change()
End
Public sub radiobutton1_click()
End
Public sub listbox1_click()
End
Public sub label2_mousedown()
End
End
Public sub textbox1_keypress()
End
Public sub button3_click()
End
End
Public sub btnsuma_click()
Txtresul.text = txtprival.text +
txtsegval.text
End
End
Public sub btnlimpiar_click()
Txtprival.txt = ""
Txtsegval.txt = ""
Txtresul.txt = ""
End
Public sub btnsalir_click()
Me.close
End
Public sub btnresta_click()
Txtresul.text = txtprival.text - txtsegval.text
End
Public sub btnmulti_click()
Txtresul.text = txtprival.text * txtsegval.text
End
Public sub btndiv_click()
Txtresul.text = txtprival.text /
txtsegval.text
End
Public sub txtsegval_keypress()
End

Public sub btnejecut_click ()
Dim numero as integer
Dim a as integer
Numero = txtnumero.text
A = número mod 2
If a <= 0
Message ("par")
Else
Message (“impar")
Endif
End
Public sub _new()
End
Public sub form_open()
End
End
End
Public sub btnejecutar_click()
Dim edad as integer
Edad = txtedad.text
If edad < 2 and edad > 0 then
Txtresul.text = "bebé."
Else
If edad < 12 then
Txtresul.text = "niño...”
Else
If edad < 18 then
Txtresul.text = "adolecente…"
Else
Txtresul.text = "adulto...”
Endif
Endif
Endif
End
Public sub btnlimpiar_click()
Txtnombre.text = ""
Txtedad.text = ""
Txtresul.text = ""
End
Public sub btnsalir_click()
Me.close
End
25) PAR O IMPAR:
Public sub _new ()
End
Public sub form_open ()
End
Public sub button3_click ()
End
Public sub btnlimp_click ()
Txtnumero.text = ""
End
Public sub btnsalir_click ()
Me.close
End

PROGRAMACIÓN EN GAMBAS

Más contenido relacionado

La actualidad más candente (20)

Similar a PROGRAMACIÓN EN GAMBAS (15)

Último (20)

PROGRAMACIÓN EN GAMBAS