Gissela

Integrante
Gissela Moreira
Curso:
Tercero Bachillerato
Paralelo:
“C”
Especialidad:
SISTEMAS
LIC: Stalin Rodríguez
EL CARMEN –MANABI – ECUADOR
2015

CREAR UN PROYECTO EN GAMBAS
Para realizar programas o aplicaciones en gambas haremos lo siguiente:
Abrimos la aplicación GAMBAS
Escoger opción nuevo proyecto.
Elegimos el tipo de aplicación que queramos hacer.
Elegimos donde se guardara la aplicación.

2.Escribimos el título y el nombre de nuestra aplicación.
3.Presionamos OK y ya hemos creado nuestro proyecto.
APLICACIONES EN CONSOLA

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
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

Crear un programa que me permita mostrar la suma y el promedio de un estudiante
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
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

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
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

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
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
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
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
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
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
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
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
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
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
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
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
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 más 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

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
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
Print “ingrese un valor ”
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

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
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

Definir el valor de un número:
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
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
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
1) 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

2) 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 _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

1) 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

Gissela

Más contenido relacionado

La actualidad más candente (19)

Destacado (16)

Similar a Gissela (11)

Último (20)

Gissela