EJERCICIOS DEL CUARTO CICLO DE INFORMATICA

EJERCICIOS DE CLASE

FMAIN

EJECUTABLE

' Gambas class file

PUBLIC SUB _new()

Label1.Font = font["serif,20,italic,underline,bold"]

Button1.Font = Font["SERIF,20,ITALIC,UNDERLINE,BOLD"]

END

PUBLIC SUB Button1_Click()

IF TextBox1.Text = "PEPE" OR IF TextBox1.Text = "PEPE"

FMain.Hide

Form1.Show

ELSE

Message("CONTASEÑA INCORRECTA")

TextBox1.Text = ""

TextBox1.SetFocus

ENDIF

END

FMAIN

                                        EJECUTABLE

' Gambas class file

PUBLIC SUB Form_Open()

Timer1.Enabled = TRUE

Timer1.Delay = 3

ProgressBar1.Value = 0.01

Timer2.Enabled = TRUE

Timer2.Delay = 1212

END

PUBLIC SUB Timer1_Timer()

IF ProgressBar1.Value < 1.000 THEN

ProgressBar1.Value = ProgressBar1.Value + 0.01

END IF

END

PUBLIC SUB ProgressBar1_MouseDown()

PUBLIC SUB Timer2_Timer()

ME.Close

Form2.Show

END

END

FMAINE

JECUTABLE

' Gambas class file

PUBLIC SUB Button1_Click()

Form3.Show

Form1.Hide

END

PUBLIC SUB Button3_Click()

QUIT

END

PUBLIC SUB Button2_Click()

Form4.Show

Form1.Hide

END

PUBLIC SUB Button4_Click()

Form5.Show

Form1.Hide

END

PUBLIC SUB Button5_Click()

Form6.Show

Form1.Hide

END

PUBLIC SUB Button6_Click()

Form7.Show

Form1.Hide

END

PUBLIC SUB Form_Open()

END

FMAINE

JECUTABLE

' Gambas class file

PUBLIC SUB Button1_Click()

Label3.foreground = Color.Red

Label3.Text = (TextBox1.Text) ^ 2

Label1.Font = font["serif,20,italic,underline,bold"]

Label2.Font = font["serif,20,italic,underline,bold"]

Label3.Font = font["serif,20,underline,italic,bold"]

Label4.Font = font["serif,20,underline,italic,bold"]

TextBox1.Font = font["serif,20,underline,italic,bold"]

END

PUBLIC SUB Button2_Click()

QUIT

END

PUBLIC SUB Button3_Click()

Form2.Show

Form3.Hide

END

FMAIN

 

 

JECUTABLE

  

  

' Gambas class file

PUBLIC xant AS Float

PUBLIC yant AS Float

PUBLIC SUB DrawingArea1_MouseMove()

Draw.Begin(DrawingArea1)

IF xant = 0 AND yant = 0 THEN

Draw.ForeColor = Color.Blue

Draw.line(Mouse.x + 1, Mouse.Y + 1, Mouse.x, Mouse.y)

yant = Mouse.x + 1

xant = Mouse.y + 1

Draw.LineWidth = 3

Draw.End

ELSE

Draw.ForeColor = Color.Blue

Draw.line(mouse.x + 1, Mouse.y + 1, xant, yant)

xant = Mouse.x + 1

yant = Mouse.y + 1

Draw.LineWidth = 3

draw.End

ENDIF

END

PUBLIC SUB DrawingArea1_MouseDown()

xant = 0

yant = 0

END

PUBLIC SUB Button3_Click()

Form2.Show

Form4.Hide

END

FMAIN

  

EJECUTABLE

' Gambas class file

PUBLIC SUB SALIR_Click()

ME.CLOSE

END

PRIVATE NUMPERSONA AS Integer

PRIVATE NUMPERSONA1 AS Integer

PRIVATE NUMPERSONA2 AS Integer

PRIVATE opcionseleccionada AS Integer

PRIVATE imagen1 AS Picture

PRIVATE imagen2 AS Picture

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

ME.Title = "EJEMPLO CON TREEVIEW"

ME.Center

Arbol.Add("Contactos", "Contactos") 'Nodo Raiz

Arbol.Add("Amistades", "Amistades",, "Contactos") 'Nodo Padre

Arbol.Add("Clientes", "Clientes",, "Contactos") 'Nodo Padre

Arbol.Add("Proveedores", "Proveedores",, "Contactos") 'Nodo Padre

Arbol["Contactos"].Expanded = TRUE ' Permite ver en nodo raiz extendido

numpersona = 1 'Inicializa el contador de personas

NUMPERSONA1 = 1

NUMPERSONA2 = 1

END

PUBLIC SUB Button4_Click()

Form5.Show

Form2.Hide

END

PUBLIC SUB Borrarelem_Click()

IF Arbol.Key <> "Contactos" AND Arbol.Key <> "Amistades" AND Arbol.Key <> "Clientes" AND Arbol.Key <> "Proveedores" THEN

Arbol.Remove(Arbol.Key)

ELSE

Message.Info("No se puede eliminar el nodo raiz o padre")

ENDIF

END

PUBLIC SUB Adicionarelem_Click()

IF RadioButton1.Value = TRUE

opcionseleccionada = 0

ENDIF

IF RadioButton2.Value = TRUE

opcionseleccionada = 1

ENDIF

IF RadioButton3.Value = TRUE

opcionseleccionada = 2

ENDIF

SELECT CASE opcionseleccionada

CASE 0

Arbol.Add("Persona-" & NUMPERSONA, "Persona-" & NUMPERSONA, imagen1, "Amistades")

NUMPERSONA += 1

CASE 1

Arbol.Add("Cliente-" & NUMPERSONA1, "Cliente-" & NUMPERSONA1, imagen1, "Clientes")

NUMPERSONA1 += 1

CASE 2

Arbol.Add("Proveedor-" & NUMPERSONA2, "Proveedor-" & NUMPERSONA2, imagen1, "Proveedores")

NUMPERSONA2 += 1

END SELECT

END

FMAIN

JECUTABLE

' Gambas class file

PUBLIC SUB Button1_Click()

Form6.HIDE

Form2.Show

END

PUBLIC SUB Form_Open()

'Establecer cuantas columnas vas a utilizar en este caso 3 columnas con nonbre, apellido,edad, direccion, pais, provincia y canton

ColumnView1.Columns.Count = 7

'Primera columna

'Establece el nonbre de la primera columna

ColumnView1.Columns[0].Text = " Nombre"

'El ancho de la primera columna

ColumnView1.Columns[0].Width = "300"

'La direccion del texto en este caso es izquierdo(1), derecho(2), cdentrado (3)

ColumnView1.Columns[0].Alignment = 3

'SEGUNDA COLUMNA

'Establece el nonbre de la PRIMERA columna

ColumnView1.Columns[1].Text = "Apellido"

'El ancho de la primera columna

ColumnView1.Columns[1].Width = "300"

'La direccion del texto en este caso es izquierdo

ColumnView1.Columns[1].Alignment = 3

'TERCERA COLUMNA

'Establece el nonbre de la PRIMERA columna

ColumnView1.Columns[2].Text = "edad"

'El ancho de la primera columna IZQUIERDO

ColumnView1.Columns[2].Width = "100 "

ColumnView1.Columns[2].Alignment = 3

'CUARTA COLUMNA

'Establece el nonbre de la PRIMERA columna

ColumnView1.Columns[3].Text = " direccion"

'El ancho de la primera columna

ColumnView1.Columns[3].Width = "100"

'La direccion del texto en este caso es IZQUIERDO

ColumnView1.Columns[3].Alignment = 3

'QUINTA COLUMNA

'Establece el nonbre de la PRIMERA columna

ColumnView1.Columns[4].Text = " pais "

'El ancho de la primera columna

ColumnView1.Columns[4].Width = "100"

'La direccion del texto en este caso es IZQUIERDO

ColumnView1.Columns[4].Alignment = 3

'SEXTA COLUMNA

'Establece el nonbre de la PRIMERA columna

ColumnView1.Columns[5].Text = " provincia"

'El ancho de la primera columna

ColumnView1.Columns[5].Width = "100"

'La direccion del texto en este caso es IZQUIERDO

ColumnView1.Columns[5].Alignment = 3

'SEPTIMA COLUMNA

'Establece el nonbre de la PRIMERA columna

ColumnView1.Columns[6].Text = "canton"

'El ancho de la primera columna

ColumnView1.Columns[6].Width = "300"

'La direccion del texto en este caso es V

ColumnView1.Columns[6].Alignment = 3

END

PUBLIC SUB Button2_Click()

'Agregar datos a la ColumnView1

'Agrego el primer dato "JOSE" con un key "0" para luego seguir agregando datos

ColumnView1.Add(0, "JUAN JOSE")

ColumnView1.Add(1, "MIGUEL ALEJANDRO")

'Agrego otro dato "especificandoel key y la columna key "0", columna "2"

ColumnView1[0][1] = "AGUALONGO AREVALO"

ColumnView1[1][1] = "NARANJO NUNEZ"

ColumnView1[0][2] = "22"

ColumnView1[1][2] = "18"

ColumnView1[0][3] = "CASECHE"

ColumnView1[1][3] = "VIA LA PRENSA"

ColumnView1[0][4] = "ECUADOR"

ColumnView1[1][4] = "ECUADOR"

ColumnView1[0][5] = "BOLIVA"

ColumnView1[1][5] = "BOLIVAR"

ColumnView1[0][6] = "GUARANDA"

ColumnView1[1][6] = "SAN MIGUEL"

END

FMAIN

JECUTABLE

' Gambas class file

PUBLIC SUB Form_Open()

'Cantidad de colimnas que vamos a usar

TableView1.Columns.count = 3

'Nombre de la primera columna

TableView1.Columns[0].Text = "NOMBRE"

'Ancho de ñla primera columna

TableView1.Columns[0].Width = 200

'NOMBRE DE LA SEGUNDA COLUMNA

TableView1.Columns[1].Text = "OCUPACION"

'Ancho de ñla primera columna

TableView1.Columns[1].Width = 200

'TERCERA COLUMNA

TableView1.Columns[2].TEXT = "DIRECCION"

TableView1.Columns[2].Width = 200

END

PRIVATE SUB Clear_text()

TextBox1.Clear

TextBox2.Clear

TextBox3.Clear

END

PUBLIC SUB Button1_Click()

'Guardar la variable con ñaa cantifad de filas que existe

DIM row AS Integer = TableView1.Rows.Count

'comparo si los 3 textbox estan vacis o no

IF TextBox1.Text <> "" AND TextBox2.Text <> "" AND TextBox2.Text <> "" THEN

'Agrego una nueva fila si los 3 textbox contiene informacion

TableView1.Rows.Count += 1

'Agrego nonbre, ocupacion ,dioreccion a la fila

TableView1[row, 0].Text = TextBox1.Text

TableView1[row, 1].Text = TextBox2.Text

TableView1[row, 2].Text = TextBox3.Text

Clear_text() 'Subrutina para elininar los datos escritos en el texbox

ELSE 'Si los textbox estan vacios mandara el siguiente ,mensaje

Message.Info("debe llenar los datos")

ENDIF

END

PUBLIC SUB Button3_Click()

Form7.Hide

Form2.SHOW

END

PUBLIC SUB Button2_Click()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

END

 

FMAIN

JECUTABLE

' Gambas class file

PUBLIC SUB Form_Open()

GridView1.Columns.count = 3 'especifico cuantas columnas que levara el gridview

GridView1.Columns[0].text = "nombre" ' nombre de la primera columna

GridView1.Columns[0].width = 180 'especifico el ancho de la columna

GridView1.Columns[1].text = "edad " ' nombre de la segunda columna

GridView1.Columns[1].width = 100 'especifico el ancho de la columna

GridView1.Columns[2].text = "direccion " ' nombre de la tercera columna

GridView1.Columns[2].width = 100 'especifico el ancho de la columna

GridView1.Rows.count = 10 'cantidad de filas que se utilizaran para agregar datos

'primer dato

'alineo el texto de la primera columna y la primera fila al centro

GridView1[0, 0].Alignment = Align.Center

'inserto el primer nombre a la fila y la primera columna

GridView1[0, 0].text = " marcos gonzalez"

'alineo el texto de la segunda columna y la primera fila al centro

GridView1[0, 1].Alignment = Align.Center

'agrego el dato 15 a la primera fila de la segunda columna

GridView1[0, 1].text = "15"

'alineo el texto de la primera columna y la primera fila al centro

GridView1[0, 2].Alignment = Align.Center

'agrego el chimbo a la primera fila de la segunda columna

GridView1[0, 2].text = "chimbo"

'segundo dato

GridView1[1, 0].Alignment = Align.Center

GridView1[1, 0].text = " marcos torres"

GridView1[1, 1].Alignment = Align.Center

GridView1[1, 1].text = "17"

GridView1[1, 2].Alignment = Align.Center

GridView1[1, 2].text = "chillanes"

'tercer dato

GridView1[2, 0].Alignment = Align.Center

GridView1[2, 0].text = " ivan morales"

GridView1[2, 1].Alignment = Align.Center

GridView1[2, 1].text = "20"

GridView1[2, 2].Alignment = Align.Center

GridView1[2, 2].text = "san pablo"

END