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