Introdução as Gambas (parte 1)

Este é o primeiro de uma série de artigos sobre o Gambas2, uma IDE realmente útil para o desenvolvimento de sistemas, sejam comerciais ou não. Sua interface lembra muito o Visual Basic, inclusive a linguagem usada é o BASIC.

[ Hits: 31.705 ]

Por: Jose Ribeiro em 06/01/2009 | Blog: https://otrsinbox.cloud


Exemplo básico



Uma calculadora simples:

' Gambas class file
PUBLIC SUB RadioButton1_Click()
  Label1.Text = "+"
END

PUBLIC SUB RadioButton2_Click()
    Label1.Text = "-"
END

PUBLIC SUB RadioButton3_Click()
    Label1.Text = "*"
END

PUBLIC SUB RadioButton4_Click()
    Label1.Text = "/"
END

PUBLIC SUB ToggleButton1_Click()
  IF (Label1.Text = "+") THEN Message.Info(Val(TextBox1.Text) + Val(TextBox2.Text))
  IF (Label1.Text = "-") THEN Message.Info(Val(TextBox1.Text) - Val(TextBox2.Text))
  IF (Label1.Text = "*") THEN Message.Info(Val(TextBox1.Text) * Val(TextBox2.Text))
  IF (Label1.Text = "/") THEN Message.Info(Val(TextBox1.Text) / Val(TextBox2.Text))
END

Explicação trecho a trecho:

PUBLIC SUB RadioButton1_Click()
  Label1.Text = "+"
END

PUBLIC SUB RadioButton2_Click()
    Label1.Text = "-"
END

PUBLIC SUB RadioButton3_Click()
    Label1.Text = "*"
END

PUBLIC SUB RadioButton4_Click()
    Label1.Text = "/"
END

Atribui à label 1 os respectivos valores: + - * /, que serão comparados mais tarde.

PUBLIC SUB ToggleButton1_Click()
  IF (Label1.Text = "+") THEN Message.Info(Val(TextBox1.Text) + Val(TextBox2.Text))
  IF (Label1.Text = "-") THEN Message.Info(Val(TextBox1.Text) - Val(TextBox2.Text))
  IF (Label1.Text = "*") THEN Message.Info(Val(TextBox1.Text) * Val(TextBox2.Text))
  IF (Label1.Text = "/") THEN Message.Info(Val(TextBox1.Text) / Val(TextBox2.Text))
END

Compara pra saber a operação que o usuário quer, pega o valor de textbox1 e textbox2 e realiza a operação já dentro da message.info, já que é possível realizar operação dentro dela.

Faça o download do mini-projeto de calculadura completo aqui.

Página anterior    

Páginas do artigo
   1. Introdução
   2. Conhecendo a linguagem
   3. Exemplo básico
Outros artigos deste autor

Introdução ao Gambas2 (parte 2)

Projeto Gerenciador de Lan House

Gallery - Álbum de fotos no seu site

BrOffice.org BASE: Criando banco de dados em 5 minutos

Gambas2 e MySQL, aprofundando relações

Leitura recomendada

Segurança em sistemas abertos e fechados

Comando: journalctl - Monitoramento de LOGs

OpenMeeting 1.9.1 - Instalando no Debian Squeeze virtualizado

Interação entre MLdonkey e Mozilla no Linux

Instalação do SAGU-PRO em Debian Etch Linux

  
Comentários
[1] Comentário enviado por willian.firmino em 06/01/2009 - 11:07h

Só para ressaltar o pacote para Slackware do linuxpackages.net é muito antigo recomendo pegar no slack.eu pois sempre tem a versão mais nova no caso hoje a 2.10.2 segue link:

http://www.slacky.eu/aadm/pkgs/index.php?ver=6&pkg=134

[2] Comentário enviado por joserribeirojuni em 06/01/2009 - 14:51h

Valeu...

[3] Comentário enviado por Brunonormandia em 06/01/2009 - 15:11h

Gostei muito do artigo! Parabéns!
Achei só que faltou você explicar como deve ser feita a interação entre o script e o aplicativo gráfico em si.
Fora isso, nota 10!
abraço

[4] Comentário enviado por arcanjo23 em 06/01/2009 - 16:36h

Bom, acho que aqui não é o melhor local pra isso, mas como sou novo no Linux e programo um pouco com
Basic tenho tentado instalar o Gambas para testar essa nova linguagem, mas esbarro na falta de conhecimento de como
instala-lo no Suse, a aplicação que utilizo. Todos os autores descrevem o código de instalação esquecem de explicar
para leigos como eu aonde eu digito esses códigos. qual ferramenta do Sistema Operacional devo usar para
instalar o programa. Enfim, já li uns livros sobre o Sistema, porém com essa variedade de
Sistemas Livres que existem esqueceram de explicar como se instala um simples programa
no maravilhoso Linux.

[5] Comentário enviado por joserribeirojuni em 06/01/2009 - 21:14h

Ja tentou utilizar o gerenciador de pacote do proprio suse ?
Abraço.

[6] Comentário enviado por Tenente em 08/01/2009 - 14:24h

Amigo arcadyum acho que vc precisa se inteirar melhor sobre o SISTEMA LINUX que usa, pois tb sou iniciante como vc, e pelo que vi não é dificil instalar programas no LINUX.

Acho que vc ta lendo muito, mas esqueceu de ler sobre como USAR O LINUX.


Contribuir com comentário