Jump to content
Sign in to follow this  
joninho

Qbasic - MiniTutorial

Recommended Posts

joninho

Este é um mini breve tutorial que fiz, para mostrar ao ppl o que é o qbasic...

bem, começamos com um programa pa somar 2 números

>Programa Soma em QBasic:

| introduzindo um " ' " (apóstrofe) em qbasic o programa ignora essa linha |

O================SOMA=============================O

DIM num1, num2 AS INTEGER
'a cima declaramos as variaveis num1 e num2 do tipo inteiro
    CLS
'o cls faz um clean screen, limpa o ecrã.
    PRINT "Por Favor introduza o 1º Número a somar"
'aqui tamos a indicar ao utilizador para introduzir um numero
    INPUT num1
'aqui o utilizador introduz o numero que é guardado na variavel num1
    PRINT "Por Favor introduza o 2º Número a somar"
' a mema história k em cima
    INPUT num2
'a mesma história k em cima
    PRINT "a soma de";num1;"com ";num2;"é:";num1+num2
'aqui mostra no ecrã, exemplo: a soma de 5 com 3 é 8
END
'este comando é para fexar o programa
 

====================SOMA====================O

Tipos de variaveis:

>String: Variavel de caracteres

>booleana: variavel que so entra dois valores verdadeiro ou falso

>integer: variavel do tipo inteiro, so pode entrar valores inteiros

>single:variavel do tipo real, pode entrar valores reais e inteiros até 8 bits

>double: variavel do tipo real, pode entrar valores reais e inteiros até 16 bits

comandos basícos:

>input: lêr

>print: escrevêr

>color: para mudar a cor do texto ou até do fundo s meter color 2 , 4; o 2 é para o texto e o 4 é para o fundo.

>locate: Este comando consiste em alinhar um texto. sintaxe: LOCATE Nºdelinha, Nº de coluna | é usado antes do print

>cls: limpa ecrã | deve ser usado knd começa o programa, depois de declararmos as variaveis

>dim: para declarar as variaveis

>end: pa fexar o programa

comandos principais matemáticos:

>Int(x) - retorna o maior inteiro menor ou igual à expressão numérica x

ex: int(9,8)=9

       int(-9,8)=10

>cint(x) - arredonda a expressão numérica para um número inteiro

ex: cint(9,2)=9

       cint(9,8)=10

>Sqr(x) - Retorna a raíz quadrada da expressão numérica x

ex: sqr(4) = 2

comandos principais de String:

>len(string) - devolve o comprimento da string

ex: len("joninho") = 7

>mid$(string,i,c) - devolve o nº de caracteres (c) começando num dado valor (i)

ex: mid("joninho",2,3) = ONI

Estruturas de controlo:

>estruturas de decisão:

(SE)

   

 If nota>10 then
           print "tirou positiva"
     elseif nota = 10 then
   print "tirou positiva, à rasca"
     else 
   print "tirou negativa"
     end if
 

| traduzindo: se a nota do aluno for maior ou igual a 10, então o programa escreve "tirou positiva" senão, se nota for = a 10 então escreve "Tirou positiva, à rasca" senão, escreve "Tirou negativa", e END IF pa termianr a opção estrutura IF|

>estruturas ciclicas:

  - Ciclo For...To...

| este programa agora vai dar uma sequencia de números de 1 a 20 de 2 em 2 |

dim n as integer
' n é o nosso contador
for n= 1 to 20 step 2
	print n
next
' o step faz o contador saltar 2 em 2  e next é pa fexar o ciclo
' a variavel n, kada volta k o ciclo dá, aumenta um numero a cima e só sai do ciclo, quando xegar a 20
end
 

  - Ciclo While ... condição ...

|vou apresentar agora um programa que apresenta no nosso monitor a sequencia de numeros d 1 a 20 com intervalo de 3 |

| no ciclo while, o contador n ha contador,mas nao se esqueçam que o contador nao muda sozinho como no ciclo For...To... |

dim n as integer
n = 1
while n <= 20
	print n
	n = n + 3
' aki nesta linha tamos a aumentar o contador, enquanto que ele for menor ou igual a 20 faz o k esta dentro di ciclo, senão sai fora
wend
' WEND é para fexar o ciclo
end
 

  - Ciclo DO.. é considerado ciclo repetir.

Do

.

.

LOOP UNTIL condição

| neste programa  o ciclo repete sempre, so quando a = 0 ek para e sai |

dim a as integer
cls
do
	input a
	print a + 2
loop until a = 0
end
 

======================================================================================

Isto é um tutorial muito básico para quem quiser começar a programar qbasic, claro que se quiser aprefeiçoar, há melhores tutoriais em sites...

desculpai os erros...  :confused:

Cumps

Share this post


Link to post
Share on other sites
Narchotyck_Killer

Ha tanto tempo! Comecei com essa brincadeira era ainda (mais ainda) puto.

ainda dava p fazer uns joguitos engraçados :D

Parabens! Realmente neste forum não escapa nenhuma linguagem!

Share this post


Link to post
Share on other sites
joninho

Ha tanto tempo! Comecei com essa brincadeira era ainda (mais ainda) puto.

ainda dava p fazer uns joguitos engraçados :P

Parabens! Realmente neste forum não escapa nenhuma linguagem!

:P lol sabes como é, nunca substimes este forum :) lol

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.