PROGRAMACIÓN ORIENTADA A OBJETOS EN GAMBAS 3

DEFINICIÓN

Programación y Lenguajes de Programación es un programa informático que es un conjunto de instrucciones que una vez ejecutadas realizarán una o varias tareas en una computadora. Este conjunto en general de programas se le denomina software, y así se refiere al equipamiento lógico o soporte lógico de una computadora, es un proceso por la cual se escribe, se prueba, se depura, se compila y se mantiene el código fuente de un programa informático. Es un conjunto de símbolos, reglas sintácticas y semánticas que definen su estructura y el significado de sus elementos y expresiones  mediante la cual el hombre se comunica con la máquina para realizar una determinada tarea. Al conjunto de líneas de texto que describen por completo el funcionamiento de un programa se conoce como código fuente, y es este texto lo que escribe un programador en algún lenguaje de programación para resolver cierto problema. Así como existen diversos lenguajes, también hay distintas formas de programar una aplicación, a lo que le llamamos paradigmas de programación. Un paradigma representa un enfoque particular o filosofía para la construcción del software. Cada paradigma tiene sus ventajas y desventajas, y dependiendo de la clase de problema a resolver, uno de ellos puede ser más adecuado que otro.

La programación imperativa (también conocida como programación secuencial) es un paradigma de programación que describe la programación en términos del estado del programa y sentencias que cambian dicho estado. Se desarrolla de forma ordenada, cada línea de código se ejecuta una por una. Algunos lenguajes que se utilizan para este tipo de programación son Ensamblador, Fortran, Cobol y Basic. Otro paradigma de programación común es la programación orientada a eventos, en la que tanto la estructura como la ejecución de los programas van determinados por los sucesos que ocurran en el sistema, definidos por el usuario o que ellos mismos provoquen. Se deben definirlos eventos que manejarán el programa y las acciones que se realizarán al producirse cada unos de ellos, lo que se conoce como el administrador de evento.

Al comenzar la ejecución de un programa se lleva a cabo las inicializaciones y demás códigos iniciales y a continuación el programa quedará a la espera de alguna acción del usuario o del sistema, es decir, de un evento. El mejor ejemplo de este tipo de sistema es Visual Basic, el primo privativo de Gambas.

Actualmente, el paradigma de programación más usado debido a múltiples ventajas respecto a los demás, es la programación orienta a objetos o POO (OOP según sus siglas en inglés). Donde el elemento fundamental es el objeto, ya que se basa en la idea natural de la existencia de un mundo lleno de objetos, entre los cuales se definen sus interacciones para llevar a cabo una tarea. Su uso se popularizó a principios de la década de los años 1990. Entre sus principales características están la herencia, abstracción, polimorfismo y encapsulamiento; y sus ventajas claves son la reusabilidad y extensibilidad. Entre los conceptos fundamentales de la programación orientada a objetos se destacan:

Clase: definiciones de las propiedades y comportamiento de un tipo de objeto concreto. La instancia es la lectura de estas definiciones y la creación de un objeto a partir de ellas.

Objeto: entidad provista de un conjunto de datos o atributos (propiedades) y de comportamiento o funcionalidad (métodos), los mismo que consecuentemente reaccionan a eventos. Es una instancia de una clase.

Propiedad (o atributo): contenedor de un tipo de dato asociado a un objeto (o a una clase de objetos) y lo define. El acceso a ellos se hace a través de los métodos del mismo objeto.

Método: algoritmo asociado a un objeto (o a una clase de objetos), normalmente empleado para modificar las propiedades del mismo objeto. Desde el punto de vista del comportamiento, es lo que el objeto puede hacer.

Evento: Es un suceso en el sistema (tal como una interacción del usuario con la máquina, o un mensaje enviado por un objeto). El sistema maneja el evento enviando el mensaje adecuado al objeto pertinente.

Instancia: cada objeto es creado a partir de una clase, se dice que tal objeto es una instancia de esa clase. Entonces, crear una instancia de una clase se conoce como instanciar la clase.

Existe un acuerdo acerca de qué características contempla la orientación a objetos, las más importantes son:

Abstracción: Es la propiedad que permite representar las características esenciales de un objeto, sin preocuparse de las demás (no esenciales). Definir una abstracción significa tomar la mejor descripción de una entidad del mundo real y utilizarla en un programa.

Encapsulamiento: El objeto es considerado una cápsula, debe responder a peticiones a través de sus métodos sin la necesidad de exponer los medios utilizados para llegar a brindar sus resultados. Esta cualidad deriva en una de las ventajas de la POO, la reusabilidad de objetos.

Polimorfismo: Es la capacidad del lenguaje para referirse a un método común a varios objetos de diferentes clases (por ejemplo, objetos de diferentes subclases derivadas de una clase base) llamándolo con el mismo nombre.

Herencia: Es la facilidad mediante la cual una clase hereda cada unos de las propiedades y métodos de otra clase, como si esas propiedades y métodos hubiesen sido definidos por la primer clase.

MISIÓN Y VISIÓN DE LA UNVERSIDAD ESTATAL DE BOLÍVAR

Un programa muy sencillos de realizar, para ello debemos crear un contraseña en el Fmain con un TextBox1, un Button y Label..

 

' Gambas class file

Public Sub _new()

 Me.Center

End

Public Sub Form_Open()

End

Public Sub Button1_Click()

  If TextBox1.Text = "MESIAS" Or TextBox1.Text = "mesias" Then
    FMain.Hide
    Form1.Show
    Else
      Message("Estas Perdida !!!!")
      TextBox1.SetFocus
  Endif

End

 Creamos un sistema de seguridad en un From1 con un ProgressBar, dos Timer y un Label.

 

' Gambas class file

Public Sub _new()

  Me.Center

End

Public Sub Form_Open()

  Timer1.Enabled = True
  Timer1.Delay = 60
  ProgressBar1.Value = 0.01
  Timer2.Enabled = True
  Timer2.Delay = 7000
 
End

Public Sub Timer1_Timer()

  If ProgressBar1.Value < 100 Then
  ProgressBar1.Value = ProgressBar1.Value + 0.01
  Endif

End

Public Sub Timer2_Timer()

  Me.Close
  Form2.Show

End

Ahora continuamos creamos un Menú de Opciones en el Form2 con cuatros Buttons.

 

' Gambas class file

Public Sub _new()

  Me.Center

End

Public Sub Form_Open()
 
End

Public Sub Button1_Click()

  Form2.Hide
  Form3.Show

End

Public Sub Button2_Click()

  Form2.Hide
  Form6.Show

End

Public Sub Button3_Click()

  Form2.Hide
  Form9.Show

End

Public Sub Button4_Click()

  Me.Close

End
Creamos el primer submenú para la Misión y Visión de la Universidad Estatal de Bolívar, utilizamos en el tercer Form3 cuatro Buttons.

' Gambas class file

Public Sub _new()

  Me.Center

End

Public Sub Form_Open()
 
End

Public Sub Button1_Click()

  Form3.Hide
  Form4.Show

End

Public Sub Button2_Click()

  Form3.Hide
  Form4.Show

End

Public Sub Button3_Click()

  Form3.Hide
  Form5.Show

End

Public Sub Button4_Click()

  Form3.Hide
  Form5.Show

End

Public Sub Button5_Click()

 Form2.Show
 Form3.Hide

End

Public Sub Button6_Click()

  Me.Close

End

En el From4 creamos la Misión de la U.E.B, utilizamos un LabelText y cinco Buttons.

' Gambas class file

Public Sub _new()

  Me.Center

End

Public Sub Form_Open()
 
End

Public Sub Button1_Click()

  TextLabel1.Text = "Generamos formación profesional de calidad y excelencia, humanista, social, intercultural, científica, investigativa, emprendedora, vinculada con el plan nacional de desarrollo para alcanzar el buen vivir"

End


Public Sub Button2_Click()

  TextLabel1.Text = ""

End

Public Sub Button3_Click()

  Form3.Show
  Form4.Hide

End

Public Sub Button4_Click()

  Form2.Show
  Form4.Hide

End

Public Sub Button5_Click()

  Me.Close

End


Ahora en el From5 creamos la Visión de la U.E.B, utilizamos  un LabelText y cinco Buttons.

' Gambas class file

Public Sub _new()

  Me.Center

End

Public Sub Form_Open()
 
End

Public Sub Button1_Click()

  TextLabel1.Text = "Institución de educación superior con reconocimiento nacional e internacional que responde a la construcción del derecho al buen vivir, en el marco de la interculturalidad, del respeto a la diversidad y a la convivencia armónica con la naturaleza"

End

Public Sub Button2_Click()

  TextLabel1.Text = ""

End

Public Sub Button3_Click()

  Form3.Show
  Form5.Hide

End

Public Sub Button4_Click()

  Form2.Show
  Form5.Hide

End

Public Sub Button5_Click()

  Me.Close

End

Creamos el segundo submenú para la Misión y Visión de la Facultad de Ciencia de la Educación, Sosiales, Filosóficas y Humanisticas, como ya lo diseñamos en el primer submenú con los mismos elementos, y utilizamos un sexto Form6 y cuatro Buttons.

' Gambas class file

Public Sub _new()

  Me.Center

End

Public Sub Form_Open()
 
End

Public Sub Button1_Click()

  Form6.Hide
  Form7.Show

End

Public Sub Button2_Click()

  Form6.Hide
  Form7.Show

End

Public Sub Button3_Click()

  Form6.Hide
  Form8.Show

End

Public Sub Button4_Click()

  Form6.Hide
  Form8.Show

End

Public Sub Button5_Click()

  Form2.Show
  Form6.Hide

End

Public Sub Button6_Click()

  Me.Close

End
En el From7 creamos la Misión de la Facultada de Ciencias de Educación, utilizamos un LabelText y cinco Buttons.

 ' Gambas class file

Public Sub _new()

  Me.Center

End

Public Sub Form_Open()
  
End

Public Sub Button1_Click()

  TextLabel1.Text = "Formar profesionales humanistas, lideres, emprendedores, competentes, con valores para servir y apoyar el desarrollo humano sostenible"

End

Public Sub Button2_Click()

  TextLabel1.Text = ""

End

Public Sub Button3_Click()

  Form6.Show
  Form7.Hide

End

Public Sub Button4_Click()

  Form2.Show
  Form7.Hide

End

Public Sub Button5_Click()

  Me.Close

End
En el From8 creamos la Visión de la Facultada de Ciencias de Educación, utilizamos un LabelText y cinco Buttons.

' Gambas class file

Public Sub _new()

  Me.Center

End

Public Sub Form_Open()
 
End

Public Sub Button1_Click()

  TextLabel1.Text = "Facultad Humanista, Emprendedora; gestora de investigación, ciencia, tecnología e innovación; impulsora de la interculturalidad, competente, vinculada a sectores sociales y redes de cooperación nacional e internacional; orientada hacia la transformación, y desarrollo humano sostenible"
End

Public Sub Button2_Click()

  TextLabel1.Text = ""

End

Public Sub Button3_Click()

  Form6.Show
  Form8.Hide

End

Public Sub Button4_Click()

  Form2.Show
  Form8.Hide

End

Public Sub Button5_Click()

  Me.Close

End
Finalmente creamos el tercer submenú para la Misión y Visión de la Carrera de Ciencias de la Informática, con los mismos elementos que utilizamos anteriormete, un noveno Form y cuatro Buttons.

' Gambas class file

Public Sub _new()

  Me.Center

End

Public Sub Form_Open()
 
End

Public Sub Button1_Click()

  Form9.Hide
  Form10.Show

End

Public Sub Button2_Click()

  Form9.Hide
  Form10.Show

End

Public Sub Button3_Click()

  Form9.Hide
  Form11.Show

End

Public Sub Button4_Click()

  Form9.Hide
  Form11.Show

End

Public Sub Button5_Click()

  Form2.Show
  Form9.Hide

End

Public Sub Button6_Click()

  Me.Close

End
En el From9 creamos la Misión de la Carrera de Ciencias de la Informática, utilizamos un LabelText y cinco Buttons.

' Gambas class file

Public Sub _new()

  Me.Center

End

Public Sub Form_Open()
   
End

Public Sub Button1_Click()

  TextLabel1.Text = "Garantizar la formación de profesionales e investigadores competentes en Ciencias de la Educación mención Informática Educativa, con un enfoque humanista; lider, emprendedor; con valores para servir y apoyar al desarrollo humano sostenible"

End

Public Sub Button2_Click()

  TextLabel1.Text = ""

End

Public Sub Button3_Click()

  Form9.Show
  Form10.Hide

End

Public Sub Button4_Click()

  Form2.Show
  Form10.Hide

End

Public Sub Button5_Click()

  Me.Close

End
En el From11 creamos la Visión de la Carrera de Ciencias de la Informática, utilizamos un LabelText y cinco Buttons.

' Gambas class file

Public Sub _new()

  Me.Center

End

Public Sub Form_Open()
 
End

Public Sub Button1_Click()

  TextLabel1.Text = "Ser una carrera de excelencia academíca en la docencia de la informática; humanista, emprendedora, gestora de investigación, ciencia y tecnología e innovación educativa; impulsora de la interculturalidad; competente, vinculada a sectores sociales y redes de cooperación nacional e internacional, orientado hacia la transformación y desarrollo humano sostenible"

End

Public Sub Button2_Click()

  TextLabel1.Text = ""

End

Public Sub Button3_Click()

  Form9.Show
  Form11.Hide

End

Public Sub Button4_Click()

  Form2.Show
  Form11.Hide

End

Public Sub Button5_Click()

  Me.Close

End

EJERCICIOS DE TAREAS

' Gambas class file

Public Sub _new()

  Me.Center

End

Public Sub Form_Open()

 Label1.Font = Font["URW Chancery L,18,italic,underline,bold"]
 Button1.Font = Font["URW Chancery L,18,italic,underline,bold"]
End

Public Sub Button1_Click()

  If TextBox1.Text = "MESIAS" Or TextBox1.Text = "mesias" Then
    FMain.Hide
    Form1.Show
    Else
      Message("Estas perdida!!!")
      TextBox1.SetFocus
  Endif

End
-----------------------------------------------------------------------------------------------------------------

' Gambas class file

Public Sub _new()

  Me.Center

End

Public Sub Form_Open()

  Label1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Timer1.Enabled = True
  Timer1.Delay = 60
  ProgressBar1.Value = 0.01
  Timer2.Enabled = True
  Timer2.Delay = 7000
 
End

Public Sub Timer1_Timer()

  If ProgressBar1.Value < 1.00 Then
  ProgressBar1.Value = ProgressBar1.Value + 0.01
  Endif

End

Public Sub Timer2_Timer()

  Me.Close
  Form2.Show

End
-------------------------------------------------------------------------------------------------------------

' Gambas class file

Public Sub _new()

  Me.Center

End

Public Sub Form_Open()

  Button1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button2.Font = Font["URW Chancery L,18,italic,underline,bold"]

End

Public Sub Button1_Click()

  Form2.Hide
  Form3.Show

End

Public Sub Button2_Click()

  Form2.Hide
  Form7.Show

End

Public Sub Button3_Click()

  Me.Close

End
---------------------------------------------------------------------------------------------------------------------

' Gambas class file

Public Sub _new()

  Me.Center

End

Public Sub Form_Open()

  Button1.Font = font["URW Chancery L,18,italic,underline,bold"]
  Button3.Font = font["URW Chancery L,18,italic,underline,bold"]
  Button2.Font = font["URW Chancery L,18,italic,underline,bold"]
  Button4.Font = font["URW Chancery L,18,italic,underline,bold"]
  Button5.Font = font["URW Chancery L,18,italic,underline,bold"]
  Button6.Font = font["URW Chancery L,18,italic,underline,bold"]
  Button8.Font = font["URW Chancery L,18,italic,underline,bold"]

End

Public Sub Button1_Click()

 Form2.Hide
 Form4.Show

End

Public Sub Button2_Click()
 
  Form2.Hide
  Form4.Show

 End

Public Sub Button3_Click()

  Form2.Hide
  Form5.Show

End

Public Sub Button4_Click()
 
  Form2.Hide
  Form5.Show

End

Public Sub Button5_Click()

  Form2.Hide
  Form6.Show

End

Public Sub Button6_Click()

  Form2.Hide
  Form6.Show
 
End

Public Sub Button7_Click()

  Form2.Show
  Form3.Hide

End

Public Sub Button8_Click()

  Me.Close

End
----------------------------------------------------------------------------------------------------------------------

' Gambas class file

Public Sub _new()

  Me.Center

End

Public Sub Form_Open()

End

Public Sub Button1_Click()

  TextBox3.Text = CInt(TextBox1.Text * TextBox2.Text / 2)
  Label3.Text = "El área del Tiángulo es:"
  TextBox1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  TextBox2.Font = Font["URW Chancery L,18,italic,underline,bold"]
  TextBox3.Font = Font["URW Chancery L ,18,italic,underline,bold"]
  Label1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Label2.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Label3.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button2.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button3.Font = Font["URW Chancery L,18,italic,underline,bold"]

End

Public Sub Button2_Click()

  TextBox1.Text = ""
  TextBox2.Text = ""
  TextBox3.Text = ""

End

Public Sub Button3_Click()

 Form3.Show
 Form4.Hide

End

Public Sub Button4_Click()

  Quit

End
------------------------------------------------------------------------------------------------------------------------

' Gambas class file

Public Sub _new()

  Me.Center

End

Public Sub Form_Open()
 
End

Public Sub Button1_Click()
 
  TextBox2.Text = (TextBox1.Text) * (TextBox1.Text) * 3.14
  Label2.Text = "El área del cículo es:"
  TextBox1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  TextBox2.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Label1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Label2.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button2.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button3.Font = Font["URW Chancery L,18,italic,underline,bold"]
 
End

Public Sub Button2_Click()

 TextBox1.Text = ""
 TextBox2.Text = ""

End

Public Sub Button3_Click()

  Form3.Show
  Form5.Hide
End

Public Sub Button4_Click()

  Quit

End
----------------------------------------------------------------------------------------------------------------------

' Gambas class file

Public Sub _new()

  Me.Center

End

Public Sub Form_Open()

End

Public Sub Button1_Click()

  TextBox2.Text = CInt(TextBox1.Text) * (TextBox1.Text)
  Label2.Text = "El área del cuadrado es:"
  TextBox1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  TextBox2.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Label1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Label2.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button2.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button3.Font = Font["URW Chancery L,18,italic,underline,bold"]

End

Public Sub Button2_Click()

  TextBox1.Text = ""
  TextBox2.Text = ""
  Label2.Text = ""

End

Public Sub Button3_Click()

  Form2.Show
  Form6.Hide

End

Public Sub Button4_Click()

  Quit

End
------------------------------------------------------------------------------------------------------------------

' Gambas class file

Public Sub _new()

  Me.Center

End

Public Sub Form_Open()

  Button1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button2.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button3.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button4.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button5.Font = Font["URW Chancery L,18,italic,underline,bold"]
 
End

Public Sub Button1_Click()

  Form7.Hide
  Form8.Show

End

Public Sub Button2_Click()

  Form7.Hide
  Form9.Show

End

Public Sub Button3_Click()

  Form7.Hide
  Form10.Show
 
End

Public Sub Button4_Click()

  Form7.Hide
  Form11.Show

End

Public Sub Button5_Click()

  Form7.Hide
  Form12.Show

End

Public Sub Button6_Click()

  Me.Close

End
----------------------------------------------------------------------------------------------------------------------

' Gambas class file

Public Sub _new()

  Me.Center

End

Public Sub Form_Open()
 
 End

Public Sub Button1_Click()

  TextBox2.Text = CInt(TextBox1.Text) * (TextBox1.Text) * (TextBox1.Text) + CInt(TextBox1.Text) * (TextBox1.Text) * (3) - CInt(TextBox1.Text) * (5) + CInt(3)
  Label2.Text = "El valor de Y es:"
  TextBox1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  TextBox2.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Label1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Label2.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button2.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button3.Font = Font["URW Chancery L,18,italic,underline,bold"]

End

Public Sub Button2_Click()

  TextBox1.Text = ""
  TextBox2.Text = ""
  Label2.Text = ""

End

Public Sub Button3_Click()

  Form7.Show
  Form8.Hide

End

Public Sub Button4_Click()

  Me.Close

End
---------------------------------------------------------------------------------------------------------------------

' Gambas class file

Public Sub _new()

  Me.Center

End

Public Sub Form_Open()
 
 End

Public Sub Button1_Click()

  TextBox2.Text = CInt(TextBox1.Text * TextBox1.Text) - CInt(TextBox1.Text * (2)) + CInt(5)
  Label2.Text = "El valor de Y es:"
  TextBox1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  TextBox2.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Label1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Label2.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button2.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button3.Font = Font["URW Chancery L,18,italic,underline,bold"]

End

Public Sub Button2_Click()

  TextBox1.Text = ""
  TextBox2.Text = ""
  Label2.Text = ""

End

Public Sub Button3_Click()

  Form7.Show
  Form9.Hide

End

Public Sub Button4_Click()

  Me.Close

End
------------------------------------------------------------------------------------------------------------------

' Gambas class file

Public Sub _new()

  Me.Center

End

Public Sub Form_Open()
 
 End

Public Sub Button1_Click()

  TextBox2.Text = CInt(TextBox1.Text) * 12
  TextBox1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  TextBox2.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Label1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Label2.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button2.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button3.Font = Font["URW Chancery L,18,italic,underline,bold"]

End

Public Sub Button2_Click()

  TextBox1.Text = ""
  TextBox2.Text = ""
 
End

Public Sub Button3_Click()

  Form7.Show
  Form10.Hide

End

Public Sub Button4_Click()

  Me.Close

End
-------------------------------------------------------------------------------------------------------------------------

' Gambas class file

Public Sub _new()

  Me.Center

End

Public Sub Form_Open()
 
 End

Public Sub Button1_Click()
  TextBox2.Text = (TextBox1.Text) + (8) + (TextBox1.Text) + (4) + (TextBox1.Text) - (2)
  Label2.Text = "El valor de Y es:"
  TextBox1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  TextBox2.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Label1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Label2.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button2.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button3.Font = Font["URW Chancery L,18,italic,underline,bold"]

End

Public Sub Button2_Click()

  TextBox1.Text = ""
  TextBox2.Text = ""
  Label2.Text = ""

End

Public Sub Button3_Click()

  Form7.Show
  Form11.Hide

End


Public Sub Button4_Click()

  Me.Close

End
-----------------------------------------------------------------------------------------------------------------------------

' Gambas class file

Public Sub _new()

  Me.Center

End

Public Sub Form_Open()
 
 End

Public Sub Button1_Click()

  TextBox2.Text = (2) + (TextBox1.Text) + (4) + (TextBox1.Text) + (8) - (7) - (TextBox1.Text)
  Label2.Text = "El valor de X es:"
  TextBox1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  TextBox2.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Label1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Label2.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button1.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button2.Font = Font["URW Chancery L,18,italic,underline,bold"]
  Button3.Font = Font["URW Chancery L,18,italic,underline,bold"]

End

Public Sub Button2_Click()

  TextBox1.Text = ""
  TextBox2.Text = ""
  Label2.Text = ""

End

Public Sub Button3_Click()

  Form7.Show
  Form12.Hide

End

Public Sub Button4_Click()

  Me.Close

End

CONTROLADORES Y VIEW

' Gambas class file

Public Sub _new()

Me.Center

End

Public Sub Form_Open()

Label1.Font = Font["URW Chancery L,18,italic,underline,bold"]

TextBox1.Font = Font["URW Chancery L,18,italic,underline,bold"]

Button1.Font = Font["URW Chancery L,18,italic,underline,bold"]

End

Public Sub Button1_Click()

If TextBox1.Text = "MESIAS" Or TextBox1.Text = "mesias" Then

FMain.Hide

Form1.Show

Else

Message("Esta Equivovada nena!!!!!")

TextBox1.SetFocus

Endif

End 

SISTEMA

' Gambas class file

Public Sub _new()

Me.Center

End

Public Sub Form_Open()

Label1.Font = Font["URW Chancery L,18,italic,underline,bold"]

Timer1.Enabled = True

Timer1.Delay = 60

ProgressBar1.Value = 0.01

Timer2.Enabled = True

Timer2.Delay = 7000

End

Public Sub Timer1_Timer()

If ProgressBar1.Value < 1.00 Then

ProgressBar1.Value = ProgressBar1.Value + 0.01

Endif

End

Public Sub Timer2_Timer()

Me.Close

Form2.Show

End 

MANÚ

' Gambas class file

Public Sub _new()

Me.Center

End

Public Sub Form_Open()

Button1.Font = Font["URW Chancery L,18,italic,underline,bold"]

Button2.Font = Font["URW Chancery L,18,italic,underline,bold"]

End

Public Sub Button1_Click()

Form2.Hide

Form3.Show

End

Public Sub Button2_Click()

Form2.Hide

Form6.Show

End

Public Sub Button3_Click()

Me..Close

End

MENÚ DE OPCIONES N° 1

' Gambas class file

Public Sub _new()

Me.Center

End

Public Sub Form_Open()

Button1.Font = Font["URW Chancery L,18,italic,underline,bold"]

Button2.Font = Font["URW Chancery L,18,italic,underline,bold"]

Button3.Font = Font["URW Chancery L,18,italic,underline,bold"]

Button4.Font = Font["URW Chancery L,18,italic,underline,bold"]

End

Public Sub Button1_Click()

Form3.Hide

Form4.Show

End

Public Sub Button2_Click()

Form3.Hide

Form4.Show

End

Public Sub Button3_Click()

Form3.Hide

Form5.Show

End

Public Sub Button4_Click()

Form3.Hide

Form5.Show

End

Public Sub Button5_Click()

Me.Close

Form2.Show

End

Public Sub Button6_Click()

Quit

End 

CONTROLADORES

' Gambas class file

Public Sub _new()

Me.Center

End

Public Sub Form_Open()

End

Public Sub Button1_Click()

Label3.foreground = Color.Red

Label3.Text = CInt(TextBox1.Text) ^ 2

Label1.Font = Font["URW Chancery ,18,italic,underline,bold"]

Label2.Font = Font["URW Chancery ,18,italic,underline,bold"]

Label3.Font = Font["URW Chancery ,18,underline,italic,bold"]

TextBox1.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button1.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button2.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button3.Font = Font["URW Chancery ,18,underline,italic,bold"]

End

Public Sub Button2_Click()

TextBox1.Text = ""

Label3.Text = ""

End

Public Sub Button3_Click()

Form3.Show

Form4.Hide

End

Public Sub Button4_Click()

Quit

End 

NÚMERO CUBÍCO

' Gambas class file

Public Sub _new()

Me.Center

End

Public Sub Form_Open()

End

Public Sub Button1_Click()

TextBox2.Text = CInt(TextBox1.Text) ^ 3

TextBox1.Font = Font["URW Chancery ,18,underline,italic,bold"]

TextBox2.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button1.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button2.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button3.Font = Font["URW Chancery ,18,underline,italic,bold"]

End

Public Sub Button2_Click()

TextBox1.Text = ""

TextBox2.Text = ""

End

Public Sub Button3_Click()

Form3.Show

Form5.Hide

End

Public Sub Button4_Click()

Quit

End 

MENÚ DE OPCIONES N° 2

'Gambas class file

Public Sub _new()

Me.Center

End

Public Sub Form_Open()

Button1.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button2.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button3.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button4.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button5.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button6.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button7.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button8.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button9.Font = Font["URW Chancery ,18,underline,italic,bold"]

Button10.Font = Font["URW Chancery ,18,underline,italic,bold"]

End

Public Sub Button1_Click()

Form6.Hide

Form7.Show

End

Public Sub Button2_Click()

Form6.Hide

Form7.Show

End

Public Sub Button3_Click()

Form6.Hide

Form8.Show

End

Public Sub Button4_Click()

Form6.Hide

Form8.Show

End

Public Sub Button5_Click()

Form6.Hide

Form9.Show

End

Public Sub Button6_Click()

Form6.Hide

Form9.Show

End

Public Sub Button7_Click()

Form6.Hide

Form10.Show

End

Public Sub Button8_Click()

Form6.Hide

Form10.Show

End

Public Sub Button9_Click()

Form6.Hide

Form11.Show

End

Public Sub Button10_Click()

Form6.Hide

Form11.Show

End

Public Sub Button11_Click()

Me.Close

Form2.Show

End

Public Sub Button12_Click()

Quit

End 

GRAWINGAREA

' Gambas class file

Public Sub _new()

Me.Center

End

Public Sub Form_Open()

End

Public Xant As Float

Public Yant As Float

Public Sub DrawingArea1_MouseMove()

Draw.Begin(DrawingArea1)

If Xant = 0 And Yant = 0 Then

' [GB2:FCOL] Draw.ForeColor = Color.Blue

Draw.Foreground = 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

' [GB2:FCOL] Draw.ForeColor = Color.Blue

Draw.Foreground = 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 Button2_Click()

Dim Destino As String

Dim Dibujo As New Picture

Dibujo = DrawingArea1.Grab()

Dialog.Title = "Escriba un nombre de archivo para guadar la imagen"

If Not Dialog.SaveFile() Then

If Upper(Right(Dialog.Path, 4) <> ".BMP") Then

Destino = Dialog.Path & "BMP"

Else

Destino = Dialog.Path

Endif

Dibujo.SaveDestino

Endif

End

Public Sub Button3_Click()

Form6.Show

Form7.Hide

End

Public Sub Button4_Click()

Quit

End

Public Sub Button5_Click()

Me.Colse

End 

TREEVIEW

' Gambas class file

Public Sub _new()

Me.Center

End

Public Sub TreeView1_Click()

End

Private NumPersona As Integer

Private Amistad As Integer

Private Cliente As Integer

Private Proveedor As Integer

Private OpcionSeleccionada As Integer

Private Imagen1 As Picture

Private Imagen2 As Picture

Public Sub Form_Open()

Me.Title = "EJEMPLO CON TREEVIEW"

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

TreeView1.Add("Amistades", "Amistades",, "Contactos") 'Nodo Padre1

TreeView1.Add("Clientes", "Clientes",, "Contactos") 'Nodo Padre2

TreeView1.Add("Proveedores", "Proveedores",, "Contactos") 'Nodo Padre3

TreeView1["Contactos"].Expanded = True ' Permite ver en nodo raiz extendido

'Para hacer el contador de lo que se va a ingresar

NumPersona = 1 'Inicializa el contador de personas

Amistad = 1

Proveedor = 1

Cliente = 1

End

Public Sub AdicionarElem_Click()

If RadioButton1.Value <> 0 Then

Select Case OpcionSeleccionada

Case 0

TreeView1.Add("Amistad-" & Amistad, "Amistad-" & Amistad, Imagen1, "Amistades")

End Select

Amistad += 1

Endif

If RadioButton2.Value <> 0 Then

Select Case OpcionSeleccionada

Case 0

TreeView1.Add("Cliente-" & Cliente, "Cliente-" & Cliente, Imagen1, "Clientes")

End Select

Cliente += 1

Endif

If RadioButton3.Value <> 0 Then

Select Case OpcionSeleccionada

Case 0

TreeView1.Add("Proveedor-" & Proveedor, "Proveedor-" & Proveedor, Imagen1, "Proveedores")

End Select

Proveedor += 1

Endif

End

Public Sub BorrarElem_Click()

If TreeView1.Key <> "Contactos" And TreeView1.Key <> "Amistades" And TreeView1.Key <> "Clientes" And TreeView1.Key <> "Proveedores" Then

TreeView1.Remove(TreeView1.Key)

Else

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

Endif

End

Public Sub Volver_Click()

Form6.Show

Form8.Hide

End

Public Sub Salir_Click()

Me.Close

End 

COLUMNVIEW

' Gambas class file

Public Sub _new()

Me.Center

End

Public Sub Form_Open()

'Establese cuantas columnas vas autilizar en este caso 6

ColumnView1.Columns.Count = 7

'Primera columna

'Establece el nombre de la primera columna

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

'El ancho de la primera columna

ColumnView1.Columns[0].Width = 300

'La alineacion del texto en este caso izquierda

ColumnView1.Columns[0].Alignment = 3

'Segunda columna

'Establece el nombre de la segunda columna

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

'El ancho de la segunda columna

ColumnView1.Columns[1].Width = 300

'La alineacion del texto en este caso izquierda

ColumnView1.Columns[1].Alignment = 3

'Tercera columna

'Establece el nombre de la tercera columna

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

'El ancho de la tercera columna

ColumnView1.Columns[2].Width = 300

'La alineacion del texto en este caso izquierda

ColumnView1.Columns[2].Alignment = 3

'Cuarta columna

'Establece el nombre de la cuarta columna

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

'El ancho de la cuarta columna

ColumnView1.Columns[3].Width = 300

'La alineacion del texto en este caso izquierda'

ColumnView1.Columns[3].Alignment = 3

'Quinta columna

'Establece el nombre de la quinta columna

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

'El ancho de la quinta columna

ColumnView1.Columns[4].Width = 300

'La alineacion del texto en este caso izquierda

ColumnView1.Columns[4].Alignment = 3

'Sexta columna

'Establece el nombre de la sexta columna

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

'El ancho de la sexta columna

ColumnView1.Columns[5].Width = 300

'La alineacion del texto en este caso izquierda

ColumnView1.Columns[5].Alignment = 3

'Septima columna

'Establece el nombre de la septima columna

ColumnView1.Columns[6].Text = "Cantón"

'El ancho de la septima columna

ColumnView1.Columns[6].Width = 300

'La alineacion del texto en este caso izquierda

ColumnView1.Columns[6].Alignment = 3

End

Public Sub Mostrar_Click()

'Agregarle datos a la ColumnView1

'Agregar el primer dato"José" con un key "0" para despues seguir agregando mas datos

'Agregar otro dato especificando el key y la columna key "0", columna "1"

ColumnView1.Add(0, "Juan José")

'Agregar otro dato especificando el key y la columna key "0", columna "2"

ColumnView1.Add(1, "Miguel Alejandro")

'Agregar otro dato especificando el key y la columna key "0", columna "3"

ColumnView1.Add(2, "Adriana Beatriz")

ColumnView1[0][1] = "Agualongo Arévalo"

ColumnView1[1][1] = "Naranjo Núñez"

ColumnView1[2][1] = "Torres Espinoza"

ColumnView1[0][2] = "22"

ColumnView1[1][2] = "16"

ColumnView1[2][2] = "35"

ColumnView1[0][3] = "Caceiche"

ColumnView1[1][3] = "Murcia"

ColumnView1[2][3] = "Gabriel Ignacio de Veintimilla"

ColumnView1[0][4] = "Ecuador"

ColumnView1[1][4] = "España"

ColumnView1[2][4] = "Ecuador"

ColumnView1[0][5] = "Bolívar"

ColumnView1[1][5] = "Córdova"

ColumnView1[2][5] = "Bolívar"

ColumnView1[0][6] = "Guaranda"

ColumnView1[1][6] = "Madrid"

ColumnView1[2][6] = "Guaranda"

End

Public Sub Limpiar_Click()

ColumnView1.Clear

End

Public Sub Volver_Click()

Form6.Show

Form9.Hide

End

Public Sub Salir_Click()

Me.Close

End 

TABLEVIEW

' Gambas class file

Public Sub _new()

Me.Center

End

Public Sub Form_Open()

'Cantidad de columnas 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[0].Text = "Ocupacion"

'Ancho de la segunda columna

TableView1.Columns[1].Width = 200

End

Public Sub Clear_Text()

TextBox1.Clear

TextBox2.Clear

TextBox3.Clear

End

Public Sub Button4_Click()

'Guardo en la variable row la cantidad de filas que existen

Dim row As Integer = TableView1.Rows.Count

'Comparo si los tres textbox estan vacios op no

If TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" Then

'Agrego una fila si los tres textbox contienen informacion

TableView1.Rows.Count += 1

'Agrego el nombre, ocupacion,direccion 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 eliminar los datos escritos en el textbox

Else 'Si los textboxs estan vacios mandara el siguiente mensaje

Message.Info("Debe llenar los datos")

Endif

End

Public Sub Button5_Click()

TableView1.Clear

End

Public Sub Button6_Click()

Form6.Show

Form10.Hide

End

Public Sub Salir_Click()

Me.Close

End

GRIDVIEW

' Gambas class file

Public Sub _new()

Me.Center

End

Public Sub Form_Open()

GridView1.Columns.Count = 3 'Especifico cuantas columnas llevara el GridView

GridView1.Columns[0].Text = "NOMBRE" 'No de la primera columna

GridView1.Columns[0].Width = 250 'Espacifica el ancho de la primera columna

GridView1.Columns[1].Text = "EDAD" 'Nombre de la primera columna

GridView1.Columns[1].Width = 100 'Ancho de la segunda columna

GridView1.Columns[2].Text = "DIRECCION" 'Nombre de la psegunda columna

GridView1.Columns[2].Width = 250 'Ancho de la segunda columna

GridView1.Rows.Count = 3 'Cantidad de filas que se utilizara para agregar datos"

End

Public Sub Mostrar_Click()

'Primer dato

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

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

'Inserte el primer nombre a la primera columna

GridView1[0, 0].Text = "Marco Gonzales"

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

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

'Inserte el primer nombre a la primera a la primera columna

GridView1[0, 2].Text = "Chimbo"

'Segundo dato

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

GridView1[1, 0].Text = "Francisco Torres"

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

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

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

'Inserte el primer nombre a la primera a la primera columna

GridView1[1, 2].Text = "San Miguel"

'Tercer dato

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

GridView1[2, 0].Text = "Marco chaves"

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

GridView1[2, 1].Text = "22"

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

'Inserte el primer nombre a la primera a la primera columna

GridView1[2, 2].Text = "Guaranda"

End

Public Sub Borrar_Click()

GridView1.Clear

End

Public Sub Volver_Click()

Form6.Show

Form11.Hide

End

Public Sub Salir_Click()

Me.Close

End