Uso de Patrones de Diseño en Gambas3

By Julio Sanchez Berro

Price: $6.79

En este libro se presentan ejemplos del uso de patrones de diseño en el lenguaje de programación Gambas3

 Comprar

 http://jsbsan.blogspot.com/

Curso De Gambas3

 

 By Julio Sanchez Berro

Price: $8.97

 Empezar a programar, con un lenguaje sencillo, visual, explicado paso a paso, desde el principio: algoritmos, seudocódigos, sentencias, flujos, controles visuales, con muchos ejemplos, para que sea fácil aprender. ¿si sabes usar una calculadora, por que no puedes hacer tus programas? Gambas3, para gnu/linux. La libertad en tus manos. En este libro se ha volcado el contenido del curso de gambas3, de mi blog http://cursogambas.blogspot.com.es/, siendo asi más sencillo su lectura, sin estar conectado a internet, como ocurre con el blog.

Postapase: recomiendo comprar este libro de Julio, no solo por la importancia de un curso actualizado, de poderlo tener sin necesidad de internet, sino para apoyarlo económicamente, tantas cosas que nos deja Julio sin pedir nada a cambio, cuanto más se ayuda a un hombre altruista mas se ayuda a las acciones altruistas. Se me ocurre que es un lindo regalo que una madre o padre puede hacerle a su hijo que tenga pinta o perfil de programador jaja. Saludos gente.

Balloon

Balloon ( Message AS String, Control AS Control [ , Icon AS Picture, X AS Integer, Y AS Integer ] )

Message AS String: un texto cualquiera entre comillas:  "hola soy postapase" o en una variable string  previamente declarada


Control AS Control: aquí indicamos en que control tiene que aparecer, puede ser el mismo control u otro


Icon AS Picture: una imagen puede ser una  variable de tipo picture antes declarada o como se ve en el ejemplo de este post.


X AS Integer: coordenadas x dentro del control donde sale el balloon, se pueden poner números o variables númericas


Y AS Integer : coordenadas y dentro del control donde sale el balloon se pueden poner números o variables númericas



' Gambas class file


Public Sub _new()

End

Public Sub Form_Open()

End

Public Sub Button1_Click()
  TextArea1.Clear
  Balloon("hola amigos como estan?soy Button1", Button1)
  TextArea1.Text = File.Load("Text1")
End

Public Sub Button2_Click()
  TextArea1.Clear
  Balloon("hola amigos como estan?soy Button2", Button2,, 20, 15)
  TextArea1.Text = File.Load("Text2")
End

Public Sub Button3_Click()
  TextArea1.Clear
  Balloon("hola amigos como estan?soy Button3", Button3, Picture["logo-32.png"], 550, 10)
  TextArea1.Text = File.Load("Text3")
End

Public Sub Button4_Click()
  TextArea1.Clear
  Balloon("hola amigos como estan?\nsoy Button4\neste es el código fuente para que yo pueda salir así!", TextArea1, Picture["logo-32.png"], 200, 100)
  TextArea1.Text = File.Load("Text4")
End

Código fuente: Ballon-0.0.1.tar.gz

Usando InputBox

' Gambas class file
'colocar un label en el formulario

Public Sub Form_Open()
Dim frase As String

frase = InputBox("Inserte contraseña", "Autentificación", "Ingrese contraseña aquí")
If frase = "gambas2345" Then
  Label1.Caption = "Bienvenido administrador"
Else
  Me.Close
Endif


End