Recordar?
Bienvenido a , Visitante. por favor Registrese o logeate.

Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo Mensagem [Página 1 de 1]

AuthorMessage

1 Just Basic, uma programação super simples! em Ter Dez 30, 2014 12:30 am

Meliodas

avatar
Moderador
Moderador
[Você precisa estar registrado e conectado para ver esta imagem.]

Just Basic! Uma linguagem de programação extremamente simples!

Eu conheci essa linguagem a muito tempo, eu quase nem uso, mas vim traze-lá para vocês.

Vocês deviam ficar apavorados com a simplicidade dessa linguagem, ela é absurdamente simples e você pode fazer tudo nela.
Ela é uma escolha excelente para quem tá começando em programação como eu.

Você pode fazer muitas coisas com ela, engines, softwares, programas, calculadoras. E isso é só na sua versão grátis, porque na paga, a Liberty Basic, é quase infinita as coisas possíveis.

[Você precisa estar registrado e conectado para ver esta imagem.]

Com essa linguagem você pode criar um programa sério.

Aqui vai um código de calculadora:


Codigo:

nomainwin

'Textbox
textbox #calculator.text, 5, 5, 110, 25

'Number Buttons
button #calculator, " 7 ", seven, UL,  5, 34
button #calculator, " 8 ", eight, UL, 44, 34
button #calculator, " 9 ", nine,  UL, 83, 34
button #calculator, " 4 ", four,  UL,  5, 63
button #calculator, " 5 ", five,  UL, 44, 63
button #calculator, " 6 ", six,   UL, 83, 63
button #calculator, " 1 ", one,   UL,  5, 92
button #calculator, " 2 ", two,   UL, 44, 92
button #calculator, " 3 ", three, UL, 83, 92
button #calculator, " 0 ", zero,  UL, 44, 121

'Other Buttons
button #calculator, " C ", [c],  UL, 122, 5
button #calculator, " = ", [eq],  UL, 83, 121
button #calculator, " + ", [plus],  UL, 122, 34
button #calculator, " - ", [minus],  UL, 122, 63
button #calculator, " x ", [times],  UL, 122, 92
button #calculator, " / ", [divide],  UL, 122, 121
button #calculator, " . ", decimal,  UL, 5, 122

'hight and width of window
WindowWidth = 168
WindowHeight = 177
'Window
open "Jman - Cacl" for window as #calculator
#calculator "trapclose [quit]"

[display]
print #calculator.text, "!setfocus";
num$ = ""
print #calculator.text, "";num$
let plus$ = "n"
let minus$ = "n"
let times$ = "n"
let divide$ = "n"

[loop]
print #calculator.text, "";num$
input a$
if a$ = "zero" then let num$ = num$ + "0"
if a$ = "one" then let num$ = num$ + "1"
if a$ = "two" then let num$ = num$ + "2"
if a$ = "three" then let num$ = num$ + "3"
if a$ = "four" then let num$ = num$ + "4"
if a$ = "five" then let num$ = num$ + "5"
if a$ = "six" then let num$ = num$ + "6"
if a$ = "seven" then let num$ = num$ + "7"
if a$ = "eight" then let num$ = num$ + "8"
if a$ = "nine" then let num$ = num$ + "9"
if a$ = "decimal" then goto [decimal]
goto [loop]

[plus]
print #calculator.text, "!contents? num1$";
print #calculator.text, ""
let num$ = ""
let plus$ = "y"
goto [loop]


[minus]
print #calculator.text, "!contents? num1$";
print #calculator.text, ""
let num$ = ""
let minus$ = "y"
goto [loop]


[times]
print #calculator.text, "!contents? num1$";
print #calculator.text, ""
let num$ = ""
let times$ = "y"
goto [loop]


[divide]
print #calculator.text, "!contents? num1$";
print #calculator.text, ""
let num$ = ""
let divide$ = "y"
goto [loop]


[decimal]
if instr(num$, ".") > 1 then goto [loop]

[eq]
print #calculator.text, "!contents? num2$";
print #calculator.text, ""
let num$ = ""
if plus$ = "y" goto [eqplus]
if minus$ = "y" goto [eqminus]
if times$ = "y" goto [eqtimes]
if divide$ = "y" goto [eqdivide]
goto [loop]
wait



   [eqplus]
   num11 = val(num1$)
   num22 = val(num2$)
   print #calculator.text, "" + str$(num11 + num22)
   wait
   goto [c]

   [eqminus]
   num11 = val(num1$)
   num22 = val(num2$)
   print #calculator.text, "" + str$(num11 - num22)
   wait
   goto [c]

   [eqtimes]
   num11 = val(num1$)
   num22 = val(num2$)
   print #calculator.text, "" + str$(num11 * num22)
   wait
   goto [c]

   [eqdivide]
   num11 = val(num1$)
   num22 = val(num2$)
   print #calculator.text, "" + str$(num11 / num22)
   wait
   goto [c]

[c]
print #calculator.text, ""
let num$ = ""
let num1$ = ""
let num2$ = ""
let plus$ = "n"
let minus$ = "n"
let times$ = "n"
let divide$ = "n"
goto [display]

[quit]
close #calculator
end


--Depois...--

[Você precisa estar registrado e conectado para ver esta imagem.]


Simples, não?

Você pode baixar ele por esse site:
[Você precisa estar registrado e conectado para ver este link.]


Ou pagar pelo Liberty Basic, que custa 50 dólares.

Vejo vocês no próximo tópico, falou! xD


#TópicoRápidoPqS

Lee


Administrador
Administrador
Achei bem legal, vou dar uma olhada e tentar usar
Mas por enquanto fica com esse REP+ Very Happy

Perê

avatar
Dono
Dono
Rep+ Pela informação Wink

http://gpdforum.forumeiros.com

Conteúdo patrocinado


Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum