UNIVERSIDAD LAICA “ELOY ALFARO ” DE MANABI

PROGRAMACION AVANZADA

ING. PATRICIO QUIROZ

ESTE TRABAJO FUE ELABORADO POR:

ANGELA SOLORZANO

RAQUEL ZAMBRANO

CURSO:

5to “A”

2009 - 2010

Ejercicio elaborado en nuestro Universidad

A continuación le damos a conocer la presentación  de los  programas realizada dentro de mi guía de estudio para cualquier usuario, el cual tenga la necesidad de programar.

EJERCICIOS “GAMBAS” CONSOLA

EJERCICIO 1“SUMA”

PUBLIC SUB Main()`Mi primera sumaDIM A AS IntegerDIM B AS IntegerDIM S AS IntegerA = 10B = 20S = A + BPRINT "LA SUMA ES...:"PRINT SEND

EJERCICIO 2“MAYOR DE 3”

‘entre 3 números averiguar cuál es el mayor‘el menor y el intermedio.

PUBLIC SUB Main()

DIM A, B, C AS IntegerA = 6B = 10C = 80

IF A > B AND A > C THEN PRINT "MAYOR ES..: " & A IF C > B THENPRINT "INTERMEDIO ES..: " & CPRINT "MENOR ES..: " & BELSE PRINT "INTERMEDIO ES..: " & BPRINT "MENOR ES..: " & CENDIF

ELSE IF B > C THEN PRINT "MAYOR ES..: " & B IF A > C THENPRINT "INTERMEDIO ES..: " & APRINT "MENOR ES..: " & CELSE PRINT "INTERMEDIO ES..: " & CPRINT "MENOR ES..: " & AENDIF

ELSEPRINT "MAYOR ES..: " & CIF A > B THENPRINT "INTERMEDIO ES..: " & APRINT "MENOR ES..: " & BELSE PRINT "INTERMEDIO ES..: " & BPRINT "MENOR ES..: " & AENDIFENDIF ENDIF

END

EJERCICIO 3“DIGITO AUTOVERIFIC ADOR”

PUBLIC SUB Main() DIM B, C, D, E, F, G, H, I, J, K, W AS Integer DIM A AS String PRINT "INGRESE EL NUMERO DE CEDULA" INPUT A

FOR B = 1 TO 9 STEP 1 C = Str(Mid(A, B, 1)) D = B MOD 2

IF D = 0 THEN I = I + C ELSE H = C * 2

IF H > 9 THEN D = H MOD 10 E = Int(h / 10) F = D + E ELSE F = H ENDIF G = G + F ENDIF

NEXT J = G + I

K = J MOD 10 W = 10 - K PRINT "EL NUMERO VERIFICADOR DE LA CEDULA ES : "PRINT W END

EJERCICIO 4

PUBLIC SUB Main()DIM a AS IntegerDIM NOMBRE, C AS StringDIM F, I, X, T AS IntegerPRINT "INGRESE UN NÚMERO..:"INPUT aPRINT "INGRESE UN NOMBRE..:"INPUT NOMBREPRINT "EL NÚMERO QUE INGRESE ES..", aPRINT "EL NOMBRE ES..", NOMBREC = Mid(NOMBRE, 2, 2)PRINT "EL CARACTER SELECCIONADO ES..:", C F = 1 FOR I = 1 TO 5 F = F * INEXT PRINT "EL FACTORIAL DE 5 ES..: ", F X = 1 WHILE X <= 10 T = 2 * X PRINT "2 X " & Str(X) & "=" & Str(T) X = X + 1 WEND END

EJERCICIO 5“EXPORTACION”

'El Ecuador exporta cafe, cacao y maíz en qq, se desea calcular el total de las exportaciones'y el porcentaje de cada producto exportado, con los siguientes datos'MAIZ 300, CAFE 400, CACAO 800

PUBLIC SUB Main()DIM A AS IntegerDIM B AS IntegerDIM C AS IntegerDIM S AS IntegerDIM P1 AS FloatDIM P2 AS FloatDIM P3 AS FloatA = 300B = 400C = 800S = A + B + CP1 = A * 100 / SP2 = B * 100 / SP3 = C * 100 / SPRINT "El Total de las exportaciones es..: " & SPRINT "El porcentaje de MAIZ es..: " & P1 & "%"PRINT "El porcentaje de CAFE es..: " & P2 & "%"PRINT "El porcentaje de CACAO es..: " & P3 & "%"END

EJERCICIO 6“FUNCIONES”

'PROCEDIMIENTO PRINCIPALPUBLIC SUB Main() DIM a, b, h, z AS Integer PRINT "Ingrese un número.:" INPUT a PRINT "Ingrese un número.:" INPUT b pintamedia(a, b) h = 30 z = 70 pintamedia(h, z)END'PROCEDIMIENTO 1PUBLIC SUB pintamedia(v1 AS Integer, v2 AS Integer) AS Integer DIM s AS Integer s = v1 + v2 PRINT "La suma es..: ", sEND

EJERCICIO 7“PINTAMEDIA”

PUBLIC SUB Main()

DIM a, b AS Integer PRINT "Ingrese un número.:" INPUT a PRINT "Ingrese un número.:" INPUT b 'Llamada a función suma, resta, multiplicación y división PRINT "La suma es..: ", suma(a, b) PRINT "La resta es..: ", resta(a, b) PRINT "La multiplicación es..: ", multiplicacion(a, b) PRINT "La división es..: ", division(a, b)END'Función sumaPUBLIC SUB suma(v1 AS Integer, v2 AS Integer) AS Integer DIM s AS Integer s = v1 + v2 RETURN sEND'Función restaPUBLIC SUB resta(v1 AS Integer, v2 AS Integer) AS Integer DIM r AS Integer r = v1 - v2 RETURN rEND'Función multiplicaciónPUBLIC SUB multiplicacion(v1 AS Integer, v2 AS Integer) AS Integer DIM m AS Integer m = v1 * v2 RETURN mEND'Función divisiónPUBLIC SUB division(v1 AS Integer, v2 AS Integer) AS Integer DIM d AS Integer d = v1 / v2 RETURN dE

EJERCICIO 8“MODULO FIBONACCI”

PUBLIC SUB Main() 'Serie de Fibonacci DIM p, s, x, t AS Integer DIM fibo AS String p = 0 s = 1 fibo = Str(p) & " " & Str(s) WHILE x < 5 t = p + s fibo = fibo & " " & Str(t) p = s s = t x = x + 1 WEND PRINT fiboEND

EJERCICIO 9“OBJETO SUPERHEROE”

PRIVATE Heroe1 AS NEW SUPERHEROEPRIVATE Heroe2 AS NEW SUPERHEROEPUBLIC SUB Main()

Heroe1.Nombre = "Superman"Heroe1.Actor = "Ramón Zambrano"Heroe1.Habilidad = "Volar"Heroe1.Imprime()

WITH Heroe2 .Nombre = "Batman" .Actor = "Ochoa" .Habilidad = "Visión Nocturna" .ImprimeEND WITH

END

EJERCICIO 10“OBJETO SERES VIVOS”

INHERITS SeresVivos

PRIVATE Nombre AS StringPRIVATE Apellido AS String

PUBLIC SUB PoneNombre(cadena AS String) Nombre = cadenaEND PUBLIC SUB PoneApellido(cadena AS String) Apellido = cadenaEND

PUBLIC FUNCTION Nombrecompleto() AS String RETURN Nombre & " " & ApellidoEND

EJERCICIOS “GAMBAS”APLICACIÓN GRAFICA

EJERCICIOS“OPERACIONES BÁSICAS”

PUBLIC SUB Button1_Click() suma.text = Val(num1.text) + Val(num2.text) resta.text = num1.text - num2.text multi.text = num1.text * num2.text divi.text = num1.text / num2.textEND

PUBLIC SUB Button2_Click() num1.text = "" num2.text = "" suma.text = "" resta.text = "" multi.text = "" divi.text = ""END

PUBLIC SUB Button3_Click() ME.CloseEND

EJERCICIO “VENTANA”

PUBLIC SUB Main()DIM vent AS windowvent = NEW windowvent.show()END

EJERCICIO “MENU”

PUBLIC SUB Timer1_Timer() segundos.text = Val(segundos.Text) + 1 IF segundos.text = 59 THEN minutos.text = Val(minutos.text) + 1 segundos.text = "0" segundos.text = Val(segundos.text) + 1 ELSE IF minutos.text = 59 THEN horas.text = Val(horas.text) + 1 minutos.text = "0" ENDIF ENDIF END

PUBLIC SUB Button1_Click() IF Button1.text = "Iniciar" THEN Timer1.enabled = TRUE Button1.caption = "Parar" ELSE Timer1.Enabled = FALSE Button1.text = "Iniciar" ENDIF END

PUBLIC SUB Button2_Click() segundos.text = "0" minutos.text = "0" horas.text = "0"END

EJERCICIO “JUEGO”

PUBLIC SUB Button1_Click() DIM n1, n2, n3 AS Integer RANDOMIZE n1 = Int(Rnd() * 10) n2 = Int(Rnd() * 10) n3 = Int(Rnd() * 10) TextBox1.Text = n1 TextBox2.Text = n2 TextBox3.Text = n3 IF n1 = n2 AND n1 = n3 THEN Message("GANASTES") TextBox5.Text = TextBox4.Text * 2 ELSE IF n1 = 7 AND n2 = 7 AND n3 = 7 THEN Message("CONGRATULATIONS GANASTES EL PREMIO MAYOR") TextBox5.Text = TextBox4.Text * 4 ENDIF ENDIF ENDPUBLIC SUB Button2_Click() ME.CloseEND

EJERCICIO “GRÁFICOS”

PUBLIC r AS IntegerPUBLIC posy AS IntegerPUBLIC posx AS IntegerPUBLIC al AS IntegerPUBLIC ba AS IntegerPUBLIC SUB Form_Open()r = 20ENDPUBLIC SUB Button1_Click() posy = area1.Height / 2 posx = area1.Width / 2 Draw.Begin(area1)

Draw.FillColor = Color.RGB(128, 255, 0) Draw.FillStyle = Fill.Solid Draw.Circle(posx, posy, r) r = r + 20 'Draw.Ellipse(200, 200, 100, 50) Draw.EndENDPUBLIC SUB Button3_Click() ME.CloseENDPUBLIC SUB Button2_Click() area1.Clear posy = area1.Height / 2 posx = area1.Width / 2 Draw.Begin(area1) Draw.FillColor = Color.RGB(128, 255, 0) Draw.FillStyle = Fill.Solid Draw.Circle(posx, posy, r) r = r - 20 'Draw.Ellipse(200, 200, 100, 50) Draw.EndENDPUBLIC SUB Button4_Click() area1.Clear Draw.Begin(area1) posy = area1.Height / 2 posx = area1.Width / 2 Draw.FillColor = Color.RGB(255, 223, 117) Draw.FillStyle = Fill.Solid Draw.Rect(posx, posy, al, ba) Draw.End al = al + 10 ba = ba + 10END

EJERCICIO

“PROTECTOR DE PANTALLA”PUBLIC C1 AS IntegerPUBLIC C2 AS IntegerPUBLIC C AS IntegerPUBLIC r AS Integer

PUBLIC SUB Button1_Click() IF Button1.Text = "Iniciar Fondo" THEN Timer1.Enabled = TRUE Button1.Caption = "Parar" ELSE Timer1.Enabled = FALSE Button1.Text = "Iniciar Fondo" ENDIF END

PUBLIC SUB Button2_Click() ME.CloseEND

PUBLIC SUB Timer1_Timer() C1 = Int(Rnd() * 700) C2 = Int(Rnd() * 700) C = Int(Rnd() * 15) Draw.Begin(area1) Draw.FillColor = Color.RGB((160 + c1), (2 + c2), (c1 + C2)) ' coge los colores que se designen Draw.FillStyle = Fill.Solid Draw.Circle(C1, C2, C) Draw.EndEND

EJERCICIO “CALCULADORA”

PUBLIC BAN AS IntegerPUBLIC OP1 AS FloatPUBLIC OP2 AS FloatPUBLIC SUB Button10_Click() visor.text = visor.Text & "0"ENDPUBLIC SUB Button11_Click() visor.text = visor.Text & "."ENDPUBLIC SUB Button7_Click() visor.text = visor.Text & "1"ENDPUBLIC SUB Button8_Click() visor.text = visor.Text & "2"END

PUBLIC SUB Button9_Click() visor.text = visor.Text & "3"ENDPUBLIC SUB Button4_Click() visor.text = visor.Text & "4"ENDPUBLIC SUB Button5_Click() visor.text = visor.Text & "5"ENDPUBLIC SUB Button6_Click() visor.text = visor.Text & "6" ENDPUBLIC SUB Button1_Click() visor.text = visor.Text & "7"ENDPUBLIC SUB Button2_Click() visor.text = visor.Text & "8"ENDPUBLIC SUB Button3_Click() visor.text = visor.Text & "9"ENDPUBLIC SUB Button12_Click() ME.CloseENDPUBLIC SUB Button16_Click() visor.text = ""ENDPUBLIC FUNCTION operacion(v1 AS Float, v2 AS Float, opera AS Integer) AS FloatDIM re AS Float SELECT CASE opera CASE 1 re = v1 + v2 CASE 2 re = v1 - v2 CASE 3 re = v1 * v2 CASE 4 re = v1 / v2 CASE 5 re = (v1 * v2) / 100 CASE 6 re = v1 ^ 2 CASE 7 re = v1 ^ 3 CASE 8 re = v1 ^ v2 CASE 9 re = 1 / v1 END SELECT RETURN reENDPUBLIC SUB Button13_Click() BAN = 1 IF visor.text <> 0 THEN OP1 = visor.Text ELSE OP1 = 0 ENDIF visor.ClearENDPUBLIC SUB Button14_Click() BAN = 2 IF visor.text <> 0 THEN

OP1 = visor.Text ELSE OP1 = 0 ENDIF visor.ClearENDPUBLIC SUB Button18_Click() BAN = 3 IF visor.text <> 0 THEN OP1 = visor.Text ELSE OP1 = 0 ENDIF visor.ClearENDPUBLIC SUB Button17_Click() BAN = 4 IF visor.text <> 0 THEN OP1 = visor.Text ELSE OP1 = 0 ENDIF visor.ClearENDPUBLIC SUB Button15_Click() IF visor.text <> 0 THEN OP2 = visor.Text ELSE OP2 = 0 ENDIF visor.Text = operacion(OP1, OP2, BAN)ENDPUBLIC SUB Button19_Click() BAN = 5 IF visor.text <> 0 THEN OP1 = visor.Text ELSE OP1 = 0 ENDIF visor.ClearENDPUBLIC SUB Button20_Click() BAN = 6 IF visor.text <> 0 THEN OP1 = visor.Text ELSE OP1 = 0 ENDIF visor.text = OP1 ENDPUBLIC SUB Button21_Click() DIM valor, x1, x2, i AS Integer DIM cadena, cadena2 AS String valor = visor.Text WHILE valor > 0 x1 = valor MOD 2 x2 = Int(valor / 2) cadena = cadena & Str(x1) valor = x2 WEND FOR i = Len(cadena) TO 1 STEP -1 cadena2 = cadena2 & (Mid(cadena, i, 1)) NEXT

visor.text = cadena2ENDPUBLIC SUB Button22_Click() DIM valor, x1, x2, i AS Integer DIM cadena, cadena2 AS String valor = visor.Text WHILE valor > 0 x1 = valor MOD 8 x2 = Int(valor / 8) cadena = cadena & Str(x1) valor = x2 WEND FOR i = Len(cadena) TO 1 STEP -1 cadena2 = cadena2 & (Mid(cadena, i, 1)) NEXT visor.text = cadena2ENDPUBLIC SUB Button23_Click() DIM valor, x1, x2, i AS Integer DIM cadena, cadena2 AS String valor = visor.Text WHILE valor > 0 x1 = valor MOD 16 x2 = Int(valor / 16) IF x1 = 10 THEN cadena = cadena & "A" ELSE IF x1 = 11 THEN cadena = cadena & "B" ELSE IF x1 = 12 THEN cadena = cadena & "C" ELSE IF x1 = 13 THEN cadena = cadena & "D" ELSE IF x1 = 14 THEN cadena = cadena & "E" ELSE IF x1 = 15 THEN cadena = cadena & "F" ELSE cadena = cadena & Str(x1) ENDIF ENDIF ENDIF ENDIF ENDIF ENDIF valor = x2 WEND FOR i = Len(cadena) TO 1 STEP -1 cadena2 = cadena2 & (Mid(cadena, i, 1)) NEXT visor.Text = cadena2 ENDPUBLIC SUB Button24_Click() BAN = 7 IF visor.text <> 0 THEN OP1 = visor.Text ELSE OP1 = 0 ENDIF

visor.text = OP1 ENDPUBLIC SUB Button27_Click() BAN = 8 IF visor.text <> 0 THEN OP1 = visor.Text ELSE OP1 = 0 ENDIF visor.Clear ENDPUBLIC SUB Button25_Click() BAN = 9 IF visor.text <> 0 THEN OP1 = visor.Text ELSE OP1 = 0 ENDIF visor.text = OP1ENDPUBLIC SUB Button26_Click() DIM a, b AS Long DIM valor AS Integer valor = visor.Text b = 1 FOR a = valor TO 1 STEP -1 b = b * a NEXT visor.Text = bENDPUBLIC SUB Button28_Click() DIM r AS Float r = Rad(visor.text) visor.text = Sin(r)ENDPUBLIC SUB Button29_Click() DIM r AS Float r = Rad(visor.text) visor.text = Cos(r)ENDPUBLIC SUB Button30_Click() DIM r AS Float r = Rad(visor.text) visor.text = Tan(r)END

EJERCICIO “FACTURA”PUBLIC r AS IntegerPUBLIC i AS IntegerPUBLIC m AS IntegerPUBLIC SUB Form_Open()TextBox6.SetFocus'Número de columnascuadro.Columns.Count = 5'Número de filascuadro.Rows.Count = 10cuadro.Columns[0].width = 50cuadro.Columns[1].width = 200cuadro.Columns[2].width = 80cuadro.Columns[3].width = 50cuadro.Columns[4].width = 80cuadro[0, 0].text = "NUM"cuadro[0, 1].text = "DETALLE"cuadro[0, 2].text = "PRECIO.U"cuadro[0, 3].text = "CANT"cuadro[0, 4].text = "TOTAL A PAGAR"r = 0i = 0ENDPUBLIC SUB TextBox3_KeyPress() IF Key.code = 65293 THEN IF TextBox3.text = "" THEN Message.Info("Ingrese Valor") TextBox3.SetFocus ELSE i = i + 1 r = r + 1 TextBox4.text = i cuadro[r, 0].text = Val(TextBox4.text) cuadro[r, 1].text = (TextBox1.text) cuadro[r, 2].text = TextBox2.text cuadro[r, 3].text = TextBox3.text 'PRECIO TOTAL TextBox5.Text = (TextBox2.text) * (TextBox3.text) cuadro[r, 4].text = Val(TextBox5.text) m = m + TextBox5.Text TextBox1.text = "" TextBox2.text = "" TextBox3.text = "" TextBox1.SetFocus ENDIF ENDIF ENDPUBLIC SUB Button2_Click() TextBox6.Text = m TextBox7.Text = (m * 7) / 100 TextBox8.Text = (((TextBox6.Text) - (TextBox7.Text) * 12) / 100) TextBox9.Text = (TextBox6.Text) - (TextBox7.Text) + (TextBox8.Text)END

PUBLIC SUB TextBox2_KeyPress() IF Key.code = 65293 THEN IF TextBox2.text = "" THEN Message.Info("Ingrese Precio Unitario") TextBox2.SetFocus ELSE TextBox3.Text.SetFocus ENDIF ENDIF ENDPUBLIC SUB TextBox1_KeyPress() IF Key.code = 65293 THEN IF TextBox1.text = "" THEN Message.Info("Ingrese Detalle") TextBox1.SetFocus ELSE TextBox2.Text.SetFocus ENDIF ENDIF ENDPUBLIC SUB Button1_Click() TextBox4.text = "" TextBox5.text = "" TextBox6.text = "" TextBox7.text = "" TextBox8.text = "" TextBox9.text = ""ENDPUBLIC SUB Button3_Click() ME.CloseEND