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

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

Imagens e áudio no banco de dados Oracle

Gambas2 e MySQL, aprofundando relações

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

Instalação e Configuração do Puppet

Criando um banco de dados no Flamerobin (Firebird)

Leitura recomendada

Asterisk: Entendendo o arquivo extensions.conf

Acesso seguro a um desktop remoto utilizando Linux, OpenVPN e Nxserver

Bacula + Webacula + Bacula-web + bat no CentOS 6.3

LTSP - Linux Terminal Service

Instalando o Songbird no Linpus Linux Lite (Acer Aspire One)

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