Como programar em QBASIC

Primeiro, o que é QBASIC

• QBASIC é uma linguagem de programação criada pela Microsoft. Foi originada pelo BASIC e originou o Visual Basic.
• QBASIC escreve comandos para MS-DOS

Então, vamos começar

Vamos escrever um campo para digitarmos nosso nome, idade e país:

Digite isso no QBASIC:

'Isso é um comentário
CLS
private sub inicio()
dim nome as String
dim idade as String, pais as String
input "Digite seu nome", nome$
input "Digite sua idade", idade$
input "Escreva seu país", pais$
call calculo(nome,idade,pais)
end sub

private sub calculo(dim nome as String, dim idade as String, dim pais as String)
print ""
print "Seu nome é:" &nome
print "Sua idade é:" &idade
print "Seu país é:" &pais
print""
locate 20,5 : input "Deseja fazer de novo", p$
if p = S then call inicio()
if p = N then exit sub

end sub

O comando PRINT imprime algo na tela. Por exemplo:

print "Olá Mundo mais legal"

Ele vai aparecer:

Olá Mundo mais legal

[espaço vazio]

Pressione qualquer tecla para continuar

O comando CLS apaga a tela
O comando DIM declara uma variável

1. Integer: Pode armazenar 16 bits(até milhões) de números inteiros. Para declarar só digitar dim nome as Integer ou dim nome
2. String: Armazena texto. Para declararsó digitar dim nome as String ou dim nome$
3. Float: Armazena 16 bits de flutuantes(decimais). Para declarar é só digitar dim nome as Float.
4. Double: Armazena32 bits de flutuantes(decimais). Para declarar é só digitar dim nome as Double.

O comando INPUT pergunta ao usuário algo e armazena numa variável.

Ex: input “Pergunta”, variável

Vai aparecer

Pergunta _

[espaço vazio]

Pressione qualquer tecla para continuar

O comando LOCATE coloca as coisas em um ponto da tela

LOCATE <linhas>,<colunas> :
O “:” serve para colocar dois comandos na mesma linha
Comando IF

if <condição> then
expressão…
endif

OU

if <condição verdadeira> then
expressão
else
‘Se a condição for falsa
expressão
end if

OU (se for só um comando)

if<condição> then <expressão>

SUBs

SUB é a abreviação de subrotine (em português, subrotina) e é para fazer processos separados. No QBASIC, para chamá-la, basta digitar CALL <subrotina> (). Os parênteses são para passar atributos. Se não quiser passá-los basta deixar assim:

sub subexemplo ()

Se quiser, você pode passar atributos por meio de variáveis:

call sub subexemplo2(21,11,2009)
sub subexemplo2(dim dia, dim mes, dim ano)

Para testar aperte F5

No próximo ensinarei como colocar cores, fazer functions, exportar para arquivo de texto e para a impressora.