Dfsi

Ejercicios Gráficos y en
Consola
UNIDAD EDUCATIVA
“HUGO CRUZ ANDRADE”
Parroquia 4 de Diciembre – El Carmen – Manabí
ACUERDO N°087
CURSO:
Tercero de Bachillerato
PARALELO:
“C”
ESPECIALIDAD:
Ingeniería en Sistemas
Ing.
Stalin Rodríguez
AUTOR MARCILLO CEDEÑO JUAN
JOSE

ejerciciosdegambas.blogspot.com
CREAR UN PROYECTO EN GAMBAS
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 titulo 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 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

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
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.
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
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
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.
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
Promedio
9 - 10  dar
7 - 8.99  aar
4.01 - 6.99  para
< = naar

SENTENCIA IF
18) Programa para definir cuál valor es Mayor
A B C
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
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

APLICACIONES GRAFICAS
CAJA DE HERRAMIENTAS EDITOR DE PROPIEDADES

23)CALCULADORA BÁSICA:
Para realizar esta calculadora básica utilizamos de la caja de herramientas:
 Label
 Textbox
 Botton
La codificación utilizada seria:
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
Public sub label4_mousedown()
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

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
label4_mousedown()
End
Public sub
label3_mousedown()
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
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

Dfsi

Más contenido relacionado

La actualidad más candente (20)

Destacado (17)

Similar a Dfsi (12)

Último (20)

Dfsi