Existem comandos no BASIC que permitem a manipulação de funções e caracteres.
No G-BASIC, esses comandos são:
Funções numéricas: ABS(X), SGN(X), RND(X)
Funções de caracteres: ASC(X$), CHR$(X), STR$(X), LEFT$(X$, n), RIGHT$(X$, n), MID$(X$, m, n), LEN(X$), HEX$(X), VAL(X$), INKEY$(n)
Funções especiais: POS(0), STICK(X), STRIG(X), CSRLIN, SCR$(X.Y.Sw)
FUNÇÕES NUMÉRICAS
VALOR ABSOLUTO
Objetivo: Mostrar o valor absoluto de X
Sintaxe: ABS(x)
X deve ser uma expressão ou constante numérica, entre -32768 até 32767.
10 A= 10
20 B=ABS (A+2)-7
30 PRINT A, ABS (B)
40 END
RUN ↲
-10 1
SINAL
Objetivo: Mostra(X)
Sintaxe: SGN(X)
Se: X>0 SGN(X)= 1
X=0 SGN(X)= 0
X<0 SGN(X)= 1
10 PRINT SGN(41), SGN(0), SGN(-41)
20 END
RUN ↲
1 0 -1
ALEATÓRIO
Objetivo: Dá um número aleatório entre 0 e X
Sintaxe RND(X
10 S=0
20 FOR 1=1 TO 10
30 A=RND(10);B=RND(10)
40 N=1
50 PRINT A;" + ";B; “=”;
60 INPUT C
70 IF C=A+B THEN 110
80 PRINT "ERRADO! TENTE NOVAMENTE"
90 N=N+1
100 GOTO 50
110 PRINT "CERTO! MUITO BEM" :IF N<3 THEN S=S+10
120 NEXT
130 PRINT "TOTAL=";$
140 END
MANIPUÇÃO DE CARACTERES
INPUT DE LINHA
Objetivo: Obter uma linha inteira de dados pelo teclado para cada sequência variável após o comando LINPUT
Sintaxe: [n° da linha] LINPUT [(“mensagem”)], | ;] variável
10 LINPUT “STRING=” , A$
20 PRINT A$
RUN ↲
STRING= EU SOU UM ESTUDANTE ↲
STRING= EU SOU UM ESTUDANTE
OMPARAÇÃO ENTRE STRINGS
Temos como exemplo a comparação entre A$ e B$. O método é assim:
Se os códigos GSCII em cada string é o mesmo, as strings são iguais
Se os códigos GSCII são diferentes, o número de código menor irá preceder o número de código maior
Se o sistema chegar ao fim de uma string durante a comparação, a string que acabar antes será considerada menor, definindo que as duas strings são iguais até aquele ponto. Os espaços em branco de uma string também são comparados.
Obs.: Os códigos GSCII paro o Magic Computer se localizam no Apêndice.
10 READ A$, B$
20 IF A$="Q" THEN 70
30 IF A$=B$ THEN PRINT 1, ; GOTO 10
40 IF A$>B$ THEN PRINT 2, ; GOTO 10
50 IF A$<B$ THEN PRINT 3, ; GOTO 10
60 DATA LAGLE, LANZGE, YOUR, YOU, "123","123", IF, IF, Q, Q
70 END
RUN ↲
3 2 1 1
FUNÇÕES DE CARACTERE
OBS.: Nesta parte os nome dos itens são também as sintaxes para os mesmos
1)ASC(X$)
Objetivo: Retornar um valor numérico relativo ao código GSCII do primeiro caractere da string X$, onde X$ é uma string constante com apenas caracteres
2)CHR$(x)
Objetivo: Converter um código GSCII para seu caractre equivalente. Este comando é o oposto do comando anterior (ASC(X$)), e o X varia de 0 a 255, ou &H0 a &HFF relativamente. Todos os números hexadecimais começam com o símbolo “&H”
10 A= %H1F
20 INPUT B
30 PRINT A, B
40 C$= CR$ (66)
50 PRINT CHR$ (B), C$
60 END
RUN ↲
? & 41 (ASSOCIA NÚMEROS HEXADECIMAIS A B)
31 65 (IMPRIME VALOR COM NOTAÇÃO DECIMAL)
A B
3)HEX$(X)
Objetivo: Retorna a string que representa o valor hexadecimal de X HEX$ converte valores decimais de -32768 até 32767.
Se X é negativo, se usa forma de complemento binário.
10 FOR I=0 TO 20
20 PRINT I; “=&H” ; HEX$(I)
30 NEXT
40 END
ESTE PROGRAMA CONVERTE NÚMEROS DECIMAIS DE
0 A 20 EM NÚMEROS HEXADECIMAIS
4)VAL (X$)
Objerivo: Retorna o valor numérico da string X$
Se X$ não é uma string numérica decimal ou hexadecimal, o valor retornado será zero.
Strings com números hexadecimais podem ser convertidas para números decimais, com a adição de &H. Uma string com números decimais pode ser transferida para o mesmo número de números decimais.
Uma string numérica decimal tem valor de -32768 a 32767. Uma string numérica hexadecimal varia de &H0 a &H7FFF são números positivos, &H8000 a &HFFFF são negativos (complementos).
10 INPUT A$
20 V=VAL (A$)
30 PRINT A$= “=” ;V
40 GOTO 10
RUN ↲
? & H7FFF
& H7FFF= 32767
? 10
10= 10
? AB
AB= 0
? (APERTE BREAK PARA INTERROMPER)
5) STR$(X)
Objetivo: Retornar a representação do valor de X em string.
STR$ é a função complementária de VAL(X$).
10 INPUT A,B
20 A$= STR$ (A)
30 B$= STR$ (B)
40 PRINT A; B; A+B
50 PRINT A$; B$; A$ +B$
60 END
6) LEFT$ (X$,n)
Objetivo: Retornar uma string que equivale a n caracteres à esquerda de X$. X$não pode ser maior que 31 caracteres.
7) RIGHT$(X$,n)
Objetivo: Retornar uma string que equivale a n caracteres à direita de X$. X$ não pode ser maior que 31 caracteres.
8)MID(X$,M,N)
Objetivo: Retornar uma string de m caracteres do X$, começando com o caractere n° n.
9) LEN(A$)
Objetivo: Retornar o número da caracteres de A$.
A$= “ABCDEF”, LEN(A$)= 6
10 A$= “ABCDEF”
20 S=LEN(A$)
30 B$=LEFT$ (AS$, 3) : C$= RIGHT$ (A$,3)
40 PRINT S
50 PRINT C$ ; “-” ;B$; “-” MID$ (A$, 3, 2)
60 END
RUN ↲
6
DEF-ABC-CD
10) INKEY$ ou INKEY$(n)
Objetivo: Retornar um caractere obtido a partir do teclado. Se não especificado, n é 0. O programa vai parar no INKEY$ até um caractere ser inserido.
Quando não é o valor correto, o programa fica parado no comando INKEY$ até que o caractere certo seja digitado.
LOCATE E CLS
O G-BASIC divide a tela em 28 colunas (verticais) (x) e 24 linhas (horizontais) (y). X pode ser entre 0 e 27 e y entre 0 e 23.
A sintaxe de LOCATE é LOCATE X,Y deve ser combinado com PRINT para apresentar o desejado (strings, operações…) em um ponto definido da tela.
CLS é o comando que limpa todo conteúdo da tela e retornar o cursor ao canto superior esquerdo da tela.
10 CLS
20 FOR X=1 TO 7
30 FOR A=1 TO 2*X-1
40 LOCATE 13+A-X,X
50 PRINT “*”
60 NEXT
70 NEXT
80 END