Qbasic - MiniTutorial

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

Cumps

[deathseeker25]

Bom tutotrial joninho  😁

[joninho]

yah, eu vi que faltava qbasic aqui no fórum... 😕 e decidi inserir aqui um tutorial

[David Pintassilgo]

Fiz uma pequena edição no teu post. Espero que não te importes.  ok? 😕

[joninho]

Na boa, ficou melhor... 😕

cumps

[Narchotyck_Killer]

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

ainda dava p fazer uns joguitos engraçados 😄

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

[joninho]

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

ainda dava p fazer uns joguitos engraçados 😛

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

😛 lol sabes como é, nunca substimes este forum 🙂 lol