Introdução as Gambas (parte 1)

joserribeirojuni

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: 34.047 ]

Por: Jose Ribeiro em 06/01/2009 | Blog: https://serviceup.com.br/

0 0

Denuncie Favoritos Indicar Impressora

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)

Gambas2 e MySQL, aprofundando relações

Gallery - Álbum de fotos no seu site

Gambas2: Inserindo dados em tabela SQLite

OTRS - Revolucione seu Help Desk com esta ferramenta

Leitura recomendada

WebTorrent - Interface WEB + cliente torrent

Implementando Cacti em distribuições Debian

Visualização do status das contas no GAIM

Usando Linux para operar plataformas de análise gráfica na Bovespa (B3)

WhatsApp com Chamadas no Linux via Waydroid

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

0 0

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

Valeu...

0 0

[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

0 0

[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.

0 0

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

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

0 0

[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.

0 0