____...____ Tl\EINAl.

-CNJOl DC,UWOLVIMlHTO _________

SHAnP

CURSO BÁSICO DE OPERAÇÃO DO

Setor de Treinamento para Usuários

__________________ ____________....___________ ....

� SHARP Hotbit - Usuários

CURSO BÃSJCO DE OPERAÇÃO 00 HOTBJT

1. Caracterfsticas do Curso
Programa de caráter especffico, centrado no desenvolvimento de habilidades
operacionais e conhecimentos técnicos a respeito do HB.800�.

2. Público a que se destina

Usuários e Representantes de Empresas responsáveis pela operaç�o, manutenção
e utilização dos recursos do equipamento.

3. Objetivos Gerais
Ao final do treinamento, o aluno estará apto a:
. Operar o equipamento, nas suas funções básicas;
Desenvolver os progr·amas básicos apresentados no curso em Linguagem Basic;
Conhecer os aplicativos e periféricos do HB.800�.

4. Objetivos Específicos
Ao final do treinamento, o aluno estará apto a:
Identificar e citar as principais características estruturais do Hotbit,
conforme relação constante do conteúdo programático�
. Identificar a posição e a função das teclas e operá-las;
Identificar os dois modos de operação do equipamento e utilizá-los
adequadamente;
Identificar e citar os aspectos básicos de Hardware do equipamento:
estruturas, especificações e localização das memórias;
Reconhecer os periféricos e aplicativos existentes para o HB.8���;
Reconhecer e elaborar diagrama de blocos e fluxogramas;
Reconhecer e elaborar programas de computação em Linguagem Basic (Nível II) ;
. Utilizar os recursos da expansão de memórias auxiliares do equipamento.

5. Metodologia a ser Adotada

Apresentação teórico-prática, com utilização de exercícios individuais.

6. Recursos Didáticos
. Seis Hotbit
. Transparências

1
 Holbit - Usuários

. Flip-chart
. Quadro magnético
. Gravador
. Apostilas
. Softwares aplicativos
. Disk- drive

7. Número máximo ideal de Treinandos por Curso

12 treinandos (dois em cada equipamento)

8. Programa
. Apresentação do grupo, objetivos e programa do curso (20')
Características do equipamento (201)
Explicação dos modos de operação do equipamento e principais comandos (3 0')
Explicação dos principais sinais gráficos do teclado (15')
Aplicação do modo direto e alguns cálculos de aritmética,álgebra e
trigonometria (85 1 )
Explicação do mapa de memórias e subdivisões (201)
. Explicação da utilização de variáveis,instrução FRE e suas aplicações (551)
Princípios de lógica em computação (1�')
Apresentação do diagrama de blocos (101 )
. Explicação e aplicação do fluxograma ( 10')
Explicação e aplicação das linhas de programa (101 )
Introdução ao modo indireto de operação e Linguagem Basic (10')
. Explicação e aplicação das instruções de entrada,saída e execução de dados
(INPUT,PRINT,LET) (201)
. Explicação e aplicação das instruções de execução,listagem e limpeza de
programas (RUN, LJST, NEW, CLEAR) (151)
. Explicação e aplicação das instruções de formatação,arredondamento,inteiro,
valor absoluto e verificação de sinais (PRINT USING,INT,FIX,ABS,SGN) (140')
Explicação e aplicação das instruções de desvio de programas e eliminação de
uma linha de programa (GOTO, ONGOTO, DELETE) ( 301)
Explicação e aplicação das instruções de mudança de cor e tamanho da tela do
vídeo (COLOR,WIDTH,RENUM) (3 �1 )
Explicação e aplicação das instruções e sinais de comparação (IF,THEN,ELSE,
OR,ANO,) ,(,=,) =,(=,() ) (14�1)
Explicação do acumulador e contador ( 3g1)

2
 Hotbit - Usuários

. Aplicação do acumulador e contador (55')

. Explicação e aplicação das instruções de Looping condicional (FOR, TO, NEXT,
STEP) (85')
. Explicação e aplicação das instruções de sub-rotinas (GOSUB,RETURN, ON GOSUB)
(7fJ 1 )
. Explicação e aplicação da instrução que determina urna matriz (DIM) (1�0')
. Explicação e aplicação das instruções de armazenamento, leitura e recuperação
de dados (DATA, READ, RESTORE) (5e')
Explicação e aplicação das instruções de tabulação e geração de números
aleatórios (RNO, TAB, TIME) (40'1)
Explicação e ap 1 icação das instruções de numeração e renumeração automática e
inclusão de comentários nos programas (AUTO, REM) (1 0')
Explicação e aplicação das instruções relacionadas nas teclas programáveis
(KEY, KEY LIST, KEY ON/OFF) (20')
. Explicação e aplicação da instrução que determina a localização do cursor na
tela de vídeo {LOCATE) (10')
Explicação e aplicação da instrução que gera sons no equipamento (PLAY)
(40')
. Explicação e aplicação da instrução que determina o tipo de tela do vídeo
{SCREEN) (1�')
Explicação e aplicação das instruções que traçam linhas, círculos e colorem
os desenhos elaborados (LINE, CIRCLE, PAINT) (1��')
Explicação e aplicação das instruções que imprimem um único ponto na tela de
vídeo e que fazem a leitura da cor especificada para o ponto (PRESET, PSET)
(70')
. Explicação e aplicação da instrução (DRAW} (85')
Explicação e aplicação das instruções que elaboram arquivos na memória do
equipamento (OPEN,CLOSE, PRINT #, MAXFILES) (140')
Explicação e aplicação dos comandos para gravação em fita K7 (CLOAD, CSAVE)
(50')
. Demonstração e abordagem sobre a utilização de impressora e disk-drive,
cartuchos; Hot-texto, Hot-arte,entre outros (1�0')
. Encerramento do curso (201)

9. Duração e Distribuição da Carga Horária

Duração prevista: aproximadamente 3� horas/aula
Distribuição: 1� dias úteis,com 3 horas aula/dia, ou 5 dias com 6 horas aula/dia.

3
 Hotbit - Usuários

1.'1. Ava 1 iaç:io

. Aplicação de pré e pós teste com 25 questões teóricas,versando sobre o
conteúdo programático (50 1 ) .
Folha de avaliação de reaç�o (não obrigatória) sobre:
- Conteúdo do curso (pontos fortes e fracos)
- Conduta do instrutor (pontos fortes e fracos)
- Sugestões
- Acompanhamento pelo instrutor,das atividades práticas.

1 1. Apostilas a serem Distribuídas

Relação de softwares,do equipamento,existentes no mercado;
Lista com nome, endereço e telefone de todos os participantes do curso;
Resumo teórico dos tópicos abordados em aula, montado durante o curso.

4
� SHARP Hotbit - Usuários

CONTEÚDO DO CURSO

BÁSJCO DE OPERAÇÃO 00 HOTBJT

Objetivo: Proporcionar noções básicas para operação do Hotbit e escl arecer dúvidas
quanto aos manuais e equipamento.

Programa de Curso:

1 º Dia - Apresentação
Programa de curso
. Características do Hotbit
. Comandos do teclado
Modos de Operação do Hotbit
Sinais Gráficos
. Modo Direto

2º Dia - Mapa de Memórias

Diagrama de Blocos
. Fluxograma
Introdução em Linguagem Basic

3º ao 9Q Dia - Instruções Básicas da Linguagem Basic

Hfº Dia - Recursos da Expansão de Memória

. Periféricos existentes no Mercado
. Demonstração dos Periféricos
Encerramento do curso.

5
'iJ&[Q) SHARP Hotbit - Usuários

CARACTERÍSTICAS 00 HOTBIT

- T rês Microprocessadores:
. Central (Z-8 0/\)
. Vfdeo (TMS- 9128)
. Audio (AY- 3-8910)

- RAM 64 Kbytes (expansfveis até 512K)

- VRAM 16 Kbytes

- ROM 32 Kbytes

- Resolução Gráfica (256 x 192 pontos)

- Resolução Texto (4fl colunas x 24 linhas)

- 16 cores

- 32 Níveis de Sprites

- Geração de Som:
. Três canais independentes
. 96 notas
.. 8 oitavas

- Sistemas Operacionais
. MCP (compati�el com CP/M)
. HB- OOS (Compatível com MS-DOS (IBM- PC))

- Dois Slots (expansíveis até B slots)

- Dois Joysticks

6
'iK@[g) SHARP Hotbit - Usuários

- Teclado:
73 teclas
. Cursor independente
. 10 funções programáveis
. Acentuação português e espanhol
. Maiúscula e minúscula
. 256 caracteres

- Módulo único (110/220 V)

- Saídas
. Vídeo
. Áudio
TV
. Impressora
Cassete

7
� SHARP Hotbit - Usuários

COMANDOS DO TECLADO

STOP Função de pausa na execução de programas

l Fl a
F0
1 ) Teclas programáveis

1 SHIFT 1 Seleciona a segunda função das teclas

1 CLS
1 Limpeza da tela de video

1 HOME I Posiciona o cursor na extremidade superior do video

1 INS
1 Inserção de caracteres

1 DEL Deleção de caracteres

[ ... ... Elimina caracteres a esquerda do cursor

[ TAB Tabulação do cursor em oito espaços

1 CRTL Controle de comandos juntamente com outras teclas

1 RETURN l Entrada e execução de dados

( CAPS 1 Seleciona letras maiúsculas e minúsculas

1 GRAPH 1 Seleciona símbolos gráficos

1 CODE 1 Seleciona caracteres especiais

1 ESC I Utilizado no HB-DOS

[ SLTC 1 Utilizado no HB-DOS

8
�[Q) SHARP Hotbit - Usuários

MODOS DE OPERAÇÃO

- D i ret o :
. Cálculo de aritmética, álgebra, trigonometria
. Execução de programas

- Indireto
. Programar o micro
Listagem de programas

TECLADO - SINAIS GRÁFICOS

Grafismo, declarar uma variável de simples precisão

11
0€finir um STRING (cordão de caracteres)
# Formatar resultados, declarar uma variável de dupla precisão e determinar um
arquivo
$ Grafismo, definir variável alfanumérica
% Grafismo, declarar uma variável inteira
& Converter n�mero binário, octal e hexadecimal para decimal
? Grafismo, comparação de programas e representação da instrução PRINT
Grafismo, separar instruções na mesma linha
Grafismo, separar entrada de dados na mesma linha
.
, Grafismo, separar saída de dados na mesma linha
@ Grafismo
Grafismo, representação da instrução CALL (HB-DOS)
>,< , = Grafismo, sinais de comparação
A Grafismo, expoente

9
'IB&J>l]) SHARP Hotbit - Usuários

MODO OJR[TO

Prioridade de Cálculo
( ), funções, ", \, (*, /) , (+, - )

1 . 123
+89 -+ ? 123 + 89 1 RETURN 1 R: 212

2. 876
-345 -+ ? 876 - 345 1 RETURN 1 -R: 531

3. 45 + 77 - 32 45 + 77 - 32 1 RETURN ] R: 90

4. 215 X 3 --+ ? 215 * 3 1 RETURN l R: 645

5. 15
8
X 3
-+ ? 15 * 3/8 [ RETURN ) R: 5.625

6. 1250 + 3fü3
1a20 + 2f'.m
-+ ? (1250 + 300) / (1820 + 200} 1 RETURN ) R: 0.767326...

7. 1fü3'
63
X
X
4
3 --+ ? 100 * 4 / (63 * 3) f RETURN 1 R: 2.116402...

8. 3
4 -+ ? 3 /\ 4 l RETURN 1 R: 81

9. /81 -+ ? SQR (81) l RETURN J R: 9

10
 Hotbit - Usuários

10. 3/2ãi' -+ ? 280 /\ ( 1/3) [ RETURN ] R: 6.542132 .. .

1 1. 45 1.0 2& ? 45 * 10 " 22 / (75 * 10 " 23) l RETURN )

( RETURN 1
X -+ R: 0.06
75 X 1923 -+ ? 45 E 22 / 75 E 23

.{h2. ( 750 + M + 4,8 x 20 + � )x 0,3 + 25 - 30

T8

? (750 + 33/20 + 4,8 * 20 + 380 / 20) * . 3 + 25 - 30 / 18 { RET URN J R: 283.3283�

13. 35 + / 3r x 10 + 55 + 6 x 10 22 '+ 300

15 +

? ( 35 + SQR ( 30 * 10 + 5 " 5 + 6 * 10 " 22) + 300) / (15 + 4) 1 RETURN 1

R: 12892051295.437

14. 3/102 + 3 22 1 + (122 + 15)2

3/ (289 + 335) 2 + 253 ' + 330

? ( ( 10 /\ 2 + 32 /\2) /\ (1/ 3) + (122 + 15 ) 1\ 2) / ( ( (289 + 3 35} /\ 2 + 25 /\ 3) /\

(1/3) + 330) 1 RET URN 1 R: 46.485218 • . .

15. SENO 30 + COSSENO 45

LOG 100
-+ ? (SI N ( 30) + COS ( 45)) / LOG ( 100) 1 RETURN 1
R: -.100476...

OBS: Funções matemáticas -+ pág nº 52 {manual de instruções)

11
�lF>SHARP Hotbit - Usu�rios

Mt\PA OE MEMÓRIAS

RAM
64K
ROM
32K VRAM
16K

Z80-A � processa somente 64K

ROM
32K

RAM
28K

ÁRE A DE
TRABALHO 4K

? FRE (0) ( RETURN J

28815

qLJ L.l!!.PUT A1 ( RETURN J

6

? FRE (0) [ RETURN )

� NQ de passos disponíveis

12
'iJt&[Jf) SHARP Hotbit - Usuários

VARIÁVEIS NUMtRJCAS

Objetivo: Guardar valores numéricos (14 dígitos)

1º Grupo - A, 8, C, D . . . . .. . . . . . . . . .. . . . .. . . . .. . . . . . . . . X, Y, Z.
SUB-TOTAL = 26 VARIÁVEIS

2º Grupo - A , A 1 ... ..... ............................ . A8, A

"' g
B , s B8, 8
"' 1 9
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . • . . . .

Z ,
z ........... ............. . .... ...... . . z , z
� 1 8 9
SUB-TOTAL 260 VARIÁVEIS =

JQ Grupo - AA, AB . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . AY, AZ

BA, BB . . . . . . . . . . . . . . . . . . . . • . . • . . . . . . . . . . . . . . BY, BZ

ZA, ZB . • . . . . . . . . . • . . • . • . . . . . . . . . • . . • . ....... ZY, ZZ

SUB-TOTAL = 676 VARIÁVEIS

TOTAL = 962
- 4 (IF, ON, TO, OR)
TOTAL = 9 58 Variáveis Numéricas

13
'iJ(@J]) SHARP Hotbit - Usuários

Exemplo: 275 -+ A

A = 275 fRETURN) ? A (RETURN J

B = 300 ( RETURNJ 1 B (RETURN)

z = I A2 + 82 1 -+ z = SQR (A /\ 2 + B /\ 2) 1 RETURNJ
? Z 1 RETURN)
A = 500. (RETURNJ
? Z ( RETURNJ

a
P ra Limpar:

A = 0 ( RETURN J
ou
CLEAR IRETURN)

14
'iJ(@[Q) SHARP Hotbit - Usuários

VARIÁVEIS ALFANUM�RJCAS

Objetivo: Guardar um String (cordão de caracteres)

1º Grupo - AS, 8$, C$ . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . Z$

SUB-TOTAL = 26 VARIÁVEIS

2º Grupo - A0$, A1$ A9$

80$, 81$ 89$

Z0$, Z1$ Z9$

SUB - T OTAL = 260 VARIÁVEIS

JQ Grupo - AA$, AB$ AZ$

BA$, BB$ BZ$

ZA$, ZB$ ZZ$

SUB-TOTAL = 676 VARIÁVEIS

TOTAL = 962
-4
-. (IF$, ON$, TO$, OR$)
TOTAL = 958 Variáveis Alfanuméricas

15
� SHARP Hotbit - Usu�rios

Exemplo: HOTBIT -+ AS

AS = 11HOTBJT 11 j RETURN ) ? A$ {RETURN)

BS = 11SHARP11 j RETURNJ ? 8$ (RETURN)

zs = A$ + 8$ 1 RETURNJ ? zs ( RETURN )

Para Limpar:

11
A$ =
11 ( RETURN J
ou
CLEAR ( RETURN )
- capacidade: 255 caracteres

CLEAR (NQ ) � Aumentar a área de variável na memória

Exemplo: CLEAR 500

A$ = 11digite 250 caracteres" 1 RETURN)

? A$ ( RETURN J

16
� SHARP Hotbit - Usu�rios

MODO INDIRETO (PROGRAMAÇÃO)

ENTRADA PROCESSAMENTO SAfOA

Linhas de programas:

Início: Endereço (0 a 65529)

Corpo: Instruções, variáveis, etc.

Fim: I RETURNJ

17
� SHARP Hotbit - Usuários

DIAGRAMA OE BLOCOS

e ENO ) Início ou fim

Entrada de dados no visor

Ln Execução

Saída de dados

� Comparação
�
FOO-NEXT
Looping
e
Conexão
o

6 Saída de dados na
impressora

18
fK@[Q) SHARP Hotbit - Usu�rios

FLUXOGRAMAS

A = 1

B = ?
e = I A2 + 82'
e = ?

INICIO

C = SQR(A A 2f8 A 2)

EHD

19
� SHARP Hotbit - Usuários

1 ,0 INPUT A
20 INPUT 8
30 LETC= SQR (A "' 2 + B "' 2)
4,0 PRINT C
50 END

Para executar o programa: RUN (RETURNJ

LIST � Faz a listagem de programas

CLS
LJST (RETURN 1
LIST 3 0 IRETURN)
LIST 20- (RETURN J
LJST -4Z IRETURNI
LIST 20-4 0 (RETURN)
? A (RETURN1
? B ( RETURNj
CLEAR (RETURNf Zera as variáveis
�

1 A

? B
NEW (RETURNJ � Apaga programas e variáveis
LJST [RETURNI

20
Wf>J]) SHARP Hotbit - Usuários
M = A+ B + C + D

1 0 INPUT "A=" A
20 INPUT 11B=1 1 B
30 INPUT 11C =1 1 C
40 INPUT 110=" O
50 LET M = (A+B+C+0)/4
6 0 PRINT 11MEO IA= 1 1 ; M
7� END

Capital -. C
Taxa ""*

Período -+ N

M = e * (1 •
1�rr
)N
M = Montante?

=
80 INPUT "CAPITAL CZ$11 ; C : INPUT "TAXA=" INPUT "PERf ODO=" N
9 0 M = C* ( 1 + I / 1�0) A N '

1.00 PRINT "MONTANTE = CZ$ 11 ; M

1 1.0' END

21
'iMP@ SHARP Holbit - Usuários

FORMAT AÇÃO

PRJNT USING 11STRING 11 ; LISTA OE VARIAVEIS

Ex : 105 PR 1 NT US ING 11 # # # # # . # # 11 ;
. M

OBS: Arredonda automaticamente

Pág. 80 - Contém símbolos utilizados na formatação:

{ #, /, &, . , +, - , *, $, " , !)

INT EIRO

INT ou FIX {Variável ou Nº)

Ex.: 95 M = FIX (M) (�R-ET- URN
- -
)
ou
95 M = INT (M) ( RET URN J

VAL OR ABSOL UT O

ABS (Variável ou NQ)

Ex. : ? ABS (-33) ( R-ET- U-RN---.J ,.... R: 3 3

VERIFICAÇÃO DE SINAL

SGN (Variável ou N2)

-
. - ---.
Ex.: ?SGN (-5)(,...RET URN J R: -1
?SGN (5) ( RET URN 1 R: 1

22
� SHARP Hotbit - Usuários

Valor � vista -+ V
Taxa -+ 1

Perfodo -+ N

p = V * [ 1 �

(1 +

P = Prestação

H? INPUT " VALOR À VISTA = CZ$11 V : INPUT "TAXA=" ; INPUT_ "PERÍODO=" N

20 I = J / 10e : P = V * ( 1 / ( 1 - 1 / ( 1 + J ) " N))
30 I = J * 10('
4.0 PRINT " VALO:: À VISTA = CZ$" ; PRINT USING 11 # # # # # # # # # # # 11 V
.

5.0 PRINT "TAXf...=" ; : PRINT USING " ## #" ; 1 ; : PRINT "%"

6$3 PRINT "PERÍODO=" ; :. PRINT US ING 11# # #" ; N ; : PRINT "MESES"
7.0 PRINT "PRESTAÇÃO = CZ$" ; : PRJNT USING "# # # # ## # # # . # # " p . PRINT
,

11 P/M11
813' END

Desvio de Programa:

GOTO NQ DE LINHA
Exemplo: 8.0' GOTO 10

ON VARIÁVEL GOTO NQ DE LINHA, Nº DE LINHA, etc.

Exemplo: 5 INPUT A
80 ON A GOTO 5, 90
90 END

23
'fi&@ SHARP Hotbit - Usuário�

Apagar uma linha de programa:

DELETE Nº DA LINHA INICIAL - NQ DA LINHA FINAL

Exemplo: DELETE 20-40 ( RETURN J
ou
NQ DA LINHA I RETURNJ
Ex. : 90 ( RETURN 1

Mudança de Cor

COLOR A,

Cor da Moldura (SCREEN 2 E 3)

Cor do Fundo
Cor do Caracter

S- Transparer:e 8 - Vermel ho Médio

1- Preto 9 - Vermelho Claro
2- Verde Médic 1� - Amarelo Escuro
3- Verde Claro 11 - Amarelo Claro
4- Azul Escuro 12 - Verde Escuro
5- Azul Claro 13 - Magenta
6- Vermelho Escuro 14 - Cinza
7 - Ciano 15 - Branco

Exemplo: COLOR 2, 1 ! RETURN)

Tamanho da Tela
WIOTH NQ DE CARACTERES POR LINHA (0 - 40)
Exemplo: WIDTH 15 ( RETURNJ

Renumeração de Linhas
RENUM I RETURN I

24
'f1&[P) SHARP Hotbit - Usuários

Comparaçao de Dados
10 INPUT "A= , B=" ; A, B
2� M (A + B) / 2
=

30 PRINT "MtOIA=" ; M

lf - THEN - ELSE

Sj (condição for V) ENJÃO execute a instrução, SE NÃO execute outra instrução

�

OIJ o , (
, ==, ) ::: ' (=, < ) H THEN 1 { HSEJ

1 - M: 5
0 5 1�

40 IF M) =5 THEI� PRINT 11APROVAD011 GOTO 60

50 PRJNT "REPRO','AOO"

3 5

(3 (= M ( = 5)
M) 3 = E �'. ( 5

ANO
l
5f1 IF M) 3 ANJ M ( 5 THEN PRINT 11RECUPERAC Ã011 ELSE PRINT "REPROVADO"
==

60 GOTO 10

-
� 3 5 1�

M (3 OU M ) = 5
1
OR

60 IF M ( 3 OR M) = 5 THEN PRINT "BOAS FÉRIAS " ELSE PRINT ºESTUDE MAIS11

70 GOTO 10

25
'iK@[Q) SHARP Hotbit - Usuários

1 PREÇO UNITÁRIO
QUANT l DADE
-+

-+
P
Q

T = p * Q
TOTAL = ?

TOTAL IMPOSTO

Até 10�, 0� ... 10 %

-+ 2ÇJ'%
10 0, 01 à 200
2 0 0, 01 à 3 �0 ... 30 %
acima 300 ... 4 �%

TOTAL C/ IMPOSTO = ?

100 INPUT "PREÇO UNIT = CZ$ 11 ; P : INPUT "QUANTIDADE= " ; Q

110 T P* Q =

120 IF T (= 10{.t THEN I = T * 1.1 ELSE IF T (= 200 THEN 1=T * 1.2

ELSE IF T (=3 00THEN I = T * 1.3 ELSE 1= T * 1.4
130 PRINT ºTOTAL S/ IMP = CZ$ 11 PRINT USING 11 ############ . ##" ; T
140 PRINT ºTOTAL C/ IMP = CZ$ 11 ; : PRINT USING 11 ############ ·## "
150 GOTO 100

26
� SHARP Hotbit - Usuários

Acumulador Contador

S =S + V e = e + 1

100 B =0 : A = 0
110 INPUT 11Nº DE NOTAS=11 ; N : INPUT 11NQ DE ALUNOS=11 X
120 s = 0 : e 0 =

130 INPUT 11VALOR DA NOTA=" ; V

140 s = s + v : e e + 1=

15 0 1F C ( N THEN GOTO 130 ELSE M = SIC

160 PRINT "MÉDIA=" ; M
170 B =B + M : A=A + 1
180 IF A (X THEN GOTO 120 ELSE G = B/X
190 PRINT "MÉDIA GERAL=" ; G : END

lota l Parcial
PNEU
RODA
VOLANTE
Total Geral

200 CLEAR
210 INPUT 11PNEU=, RODA=, VOLANTE=" ; P, R, V
220 PP PP + p : RR = RR + R : vv = vv + V : e = e + 1
=

230 INPUT "FHI. DO DIA (S/N) ? 11 ; A$

24$1 IF A$ 11S 1 1 THEN GOTO 250 ELSE IF A$=11N11 THEN GOTO 210 ELSE GOTO 230
=

250' T = PP + RR + VV : PRINT 11T. RODAS=11 ; RR : PRINT 11T. PNEUS=" ; PP

260 PRINT " T VOLANTES=" VV : PRINT "T. GERAL=11 ; T
270 PRINT 11T . CLIENTES=" ; C : END

27
IBW@ SHARP Hotbit - Usuários

For - Next (Looping Condicional)

- 32768 � 32767

10 FOR A 1 TO
== 5 STEP 2 (s6 inteiro)
20 PRINT A
30 NEXT A
40 ==
FOR B 1 TO 3
50 FOR A = 1 TO 3
60 C= A * B
70 PRINT A ; "*li
B u =11 e
80 NEXT A
90 NEXT B EN)

Imprimir os números pares de � a 1��

100 FOR A 0 TO = 100 STEP 2

110 PRINT A
120 NEXT A : Et\D

Fatorial � 5! = 5 X 4 X 3 X 2 X 1

200 INPUT 11N != 1 ' ; N

210 =
V 1
220 FOR A = 1 TO N
230 V =V * A
240 NEXT A
250 PRINT 11 N ! =11 V Obs: Capacidade (E) = 62
260 GOTO 100 Maior fatorial é 48

28
'[f@fQ) SHARP Hotbit - Usuários

Gosub - Return

� = 82 - 4 AC

X =
- B ± ,/t;'
2A
10 INPUT 11A=, B=, C= 11 ; A, B, C
20 o = B A 2 - 4 * A * e
30 GOSUB 100
4 � PRINT 11X1=11 X1
50 GOSUB 200
60 PRINT 11 X2= 11 X2
70 GOTO 10

100 =
X1 {-B + SQR (O)) I (2*A)
110 RETURN

200 X2 = (-B - SQR {O)) / (2*A)

210 RETURN

Elabore um programa que busque seus dados pessoais em sub-rotinas

300 INPUT "DADOS PESSOAIS (S/N}? 11 ; C$

310 IF C$ = 1 1S 11 THEN GOSUB 500 ELSE ENO
320 PRINT "NOME: " ; A$
330 PRINT "END: 11 B$
34,0 PRINT 11TEL: 11 ; A
350 ENO

50$1 A$ ::: 11DAUMAS 11

510 B$ = 11RUA VERGUEIRO 1759"
520 A = 571. 069 7
530 RETURN

29
'il&[D) SHARP Hotbit - Usuárioi

Kl\TRIZ UNIDIRECIONAL

19 passo é dimensionar a matriz

Alfanumérica Numérica
OIM A$ (6) * 8 DIM A (6)

A$ (0) A (0)
A$ (1) A ( 1)
A$ (2) A {2)
A$ A$ (3) A A (3)
A$ (4) A (4)
A$ (5) A (5)
A$ (6) A (6)

Máx. --+ OIM AS (255) * 255 Máx. -+ DJM A (255)

1 - Sapato .... 40�, 00

2 - Meia ....
50, 0.0
3 - Calça -+
300, 00
4 - Camisa .... 350, 00
5 - Camiseta -+
100, 00
6 - Gravata ....
75,00

800 OIM A$ (6) , A (6)

=
FOR X 1 TO 6
810
820 INPUT 1 1PRODUT0= 11 ; A$ (X) : INPUT "PREÇO = CZ $11 ; A (X)
830 NEXT X
840 INPUT 11CÚOIGO DO PRODUTO=" ; e : INPUT 11 QUANTIDADE= 11 ; Q
850 T = A (C) * Q
860 PRINT Q ; A$ (C) ; 11 = CZ$ 11 ; T : GOTO 840
Obs: O RUN zera as variáveis, logo não pode digitar RUN 800. Para executar digite
GOTO 800.

30
fR&[D) SHARP Hotbit - Usuários

MATRIZ BIDIRECIONAL

NUMrRICA - OJM A (L. C)

Ex.: DIM A (5, 5)

0,0 0,1 0,2 0,3 0 ,4 0,5

1,0 1,1 1,2 1,3 1'4 1 '5

2,0 2'1 2,2 2,3 2,4 2,5

A 3, 1
3,0 3,2 3,3 3,4 3,5

4,0 4,1 4,2 4,3 4,4 4,5

5,0 5,1 5,2 5,3 5,4 5,5

MÁXIMO: DJM A (2 [b
COLUNAS
LINHAS

ALFANUMÉRICA
Ex . : OIM A$ (5, 5)

0,0 0,1 0,2 0,3 0,4 0,5

1,0 1'1 1,2 1,3 1,4 1,5

2,0 2,1 2,2 2,3 2,4 2,5

A$ __,.
3,0 3,1 3,2 3,3 3,4 3,5

4,0 4,1 4,2 4,3 4,4 4,5

5,0 5'1 5,2 5,3 5,4 5,5

MÁXIMO: - OIM A$ (255, 255) * 255

L COLUNAS
1�LINHAS
31
it(@[[) SHARP Hotbit - Usuários

� $
4 6 12 18

10�@� �, 0523 0, 1291 f), 1613 0, 2$:178

20000 0, 0745 0, 1387 0, 1724 0, 2134
acima de 0, �914 0, 1471 0, 1835
200)10 0, 2295

900 DIM A (2, 3)

910 FOR L = 0 TO 2

920 FOR C 0 = 3 TO
930 INPUT A ( L, C )
940 NEXT C
950 NEXT L
960 INPUT 11LINHA=11 INPUT 11COLUNA=11
; L : e
970 INPUT "VALOR FINANCIAD0=1 1 ; V
980 P = V * A ( L, C )
990 PRINT "PAGAMENTO MENSAL= Czº 11 p GOTO 960

32
'fW@ SHARP Hotbit - Usuários

Ex.: Elaborar um programa para armazenar sua agenda de telefones.

10 CLS
20 PRINT 11Agenda de telefones 11
30 D 1 M A$ (10). A (10)
40 FORB =
1 TO 10
50 READ A$ (B), A (B)
60 NEXT B: PRINT
;
70 X = 0 : 1 NPUT "NOME: 11 C�

80 IF C$ = A$ (X) THEN PRINT A$ (X), A(X): GOTO 70: ELSE X = X+ 1

90 IFX = 10 THEN PRINT "!!!nome não consta!!!" ELSE GOTO 80

100 GOTO 70
110 DATA Andreia, 813.5995, Beatriz, 575. 2187
120 DATA Claudia, 264.3391, Denise, 223.6671
130 DATA Eliane, 883.2121, Fernanda, 260.8346
140 DATA Gisele, 221.4981, Helena, 210.6273
150 DATA Jeane, 261.5547, Lilian, 211.3966

33
 'iJt&IJD SHARP Hotbit - Us uários

DATA - READ - RESTORE

DATA - Faz a especificação de dados em programas.

READ - Introduz os dados especificados pela função DATA nas variáveis
especificadas pela função READ.
RESTORE - Recupera os dados da sentença DATA e identifica qual linha será lida.

Ex.: 10 READ A, B, C, O, E

100 DATA 1�, 20, 30, 4 0, 5�

Ex. : 10 READ A$, A, 8$, B, C$, C, D$, D, E$, E, F$, F, G$, G, H$, H, 1$, 1,

J�, J, K�, K, L�, L

200 DATA JAN, 31, FEV, 28, MAR, 31, ABR, 30, MAI, 31, JUN, 30
210 DATA JUL, 31, AGO, 31, SET, 30, OUT, 31, NOV, 30, DEZ, 31

1� CLEAR
20 OJM A$ (12), A (12)
30 FOR X 1 TO 12
=

40 READ A$ (X), A (X)

50 PRINT A$ ( X); A (X )
60 NEXT X
70 RESTORE
80 INPUT 11MES= 11 ; e
90 PRINT A$ ( C), A (C) "DIAS"
1� 0 GOTO 80
200 DATA: . .. ..·;:\-·/· � .,. .
'·

210 DATA .. . .. .. . .. ...

34
íJ&m SHARP Hotbit - Usuários

RND - TAB - TIME

RND - Gera números aleatórios

TAB - Tabula a posição de impressão
TIME - Variável numérica que está em constante mudança.
Torna os números mais aleatórios

RND ( 1 ) -. 0 ( N ( 1

0, 187943
�, 235166
0, 879233

RND 1 /\ 2 = 2
2 /\ 3 =
8
=
3*2 6
4 /\ 2 =
16
=
5 /\ 3 125
=
6* 2 12

65000

TAB 0 3 9 12 15 18 21 24 27 A . X
- -
1 -+ 0 3* �
..----- 4� caracteres ------ •
=

2 -+ ::
3 3* 1
3 -+ 6 =
3* 2
4 -+ g =
3* 3
5 -+ 12 =
3* 4

35
'fMf{l5) SHARP Hotbit - Usu�rios

Ex.: 300 INPUT 11NQ OE DEZENAS ? 11 ; N

310 IF N ( 5 OR N ) 1� THEN GOTO 3��
320 =
FOR A 1 TO N
330 B INT (RNO (-TIME) * 10�)
=

340 X (A-1) * 3
=

350 PRINT TAB (X) ; B ,

•

360 NEXT A : PRJNT

370 GOTO 300

36
 Hotbit - Usuários

NUMERAÇÃO AUTOMÁTICA DOS NÚMEROS OE LINHAS

AUTO A, B
1 1 Incremento
� Nº da linha inicial

Ex.: Auto 230r, 10

\ RETURN )

COMENTÁRIOS NOS PROGRAMAS

REM "COMENTÁRIOS OE EXECUÇÃO"

Ex.: 10 RE M "ESTE PROGR. CALC. MÉDIAS11

37
'il@>[p) SHARP Hotbit - Usuários

PROGRAMAÇÃO DE TECLAS RESERVÁVEIS

KEY - Controla as teclas reserváveis

KEY ON/OFF - Introduz ou apaga as funções na imagem do vídeo
Ex. : KEY OFF f RETURN J
KEY ON f RETURN}

KEY LIST - Lista de teclas programáveis

Ex.: KEY LIST ! RETURN )

KEY NQ, "STRING" - Determina uma nova função para a tecla

Ex.: KEY 3, 1 I NPUT11 1 RETURN]

POSIÇÃO DO CURSOR

LOCATEX, Y - Posiciona o cursor nas coordenadas X e Y

Ex.: 1� CLS
20 LOCATE 10, 10
30 PR 1 NT 11SHARP11
40 END

38
'fK&[õ) SHARP Hotbit - Usuários

GERAÇÃO OE SONS

PLAY - Reproduz os sons de notas musicais a partir da linguagem macro

relacionada abaixo:

NOTAS : A, B, C, D, E, F, G
(LA) (SI) (DÓ) (RÉ) (MI) (FÁ) (SOL)

+ OU# -+ Indica a nota Sustenido

-+ Indica a nota Bemol
l (X) -+ Indica a duração do som (1 à 64)
R (X) -+ Indica o comprimento da pausa (1 à 64}
T (X) -+ Indica a velocidade da música (32 à 255)
V (X) -+ Indica o volume do som (1 à 15)
o (X) -+ Selecionar as oitavas (1 a 8)

Ex.: 10 PLAY 11CDEFGAB"

20 PLAY 11L10 CDEFGAB11
30 PLAY 11T255 L10 COEFGAB 11
40 PLAY "V10 T255 l 1� CDEFGAB11
50 PLAY 1 1V10 T255 L 10 CDEFGAB R2� BAGFEDC11
60 GOTO 10

Programar uma música.

39
'iJ&[Q) SHARP Hotbil - Usuários

MODO GRÁFICO

{SCREEN 2 ou 3)

SCREEN (0-3) -+ Oetermina o tipo de tela

0 -+ Texto 4� x 24
1
2
3
-+

-+

-+
Texto 32 x 24
Gráfico alta resolução 256 x 192
Gráfico baixa resolução 64 x 32
} - somente via programa

LINE - Traça linhas a partir de 2 pontos.

UNE (X Y) (X ' y 1) , e , BF

L Fecha um retângulo a
partir de 2 pontos opostos

Define a cor
Coordenadas do 2Q ponto
Coordenadas do 1Q ponto

Ex. : 3000 SCREEN 2

3010 LINE (70, 30) - (190, 160), 1, BF
3�20 GOTO 3020

Programe um quadrado.

40
� SHARP Hotbit - Usuários

CJRCLE - Traça cfrculos.

CIRCLE (X ' Y) '

Define a cor
Define o raio
,_______
_ ____
... , Coordenadas da origem do cfrculo

Ex.: 3030 SCREEN 2

304� CI RCLE (128, 96), 5�, 10
3050 GOTO 3050

Programe um círculo.

PAINT - Faz a pintura da figura desenhada até seus limites.

PAINT (X ' Y) ' e

...______
__ __..
,
L Oefine a cor
Coordenadas do ponto que iniciará a pintura

Ex.: 3045 PAINT {128, 96), 10

Programe um círculo e um quadrado de cores diferentes. �

41
 Hotbit - Usuários

PSET - Fixaçao de pontos na tela.

PSET {X , V) , e

1
L+ Define a cor
�-----• Coordenadas do ponto a ser fixado

Ex.: 4� 00 SCREEN 3
4010 PSET (50, 100), 6
4020 GOTO 4.02.0

PRESET - Fixação e eliminação de pontos na tela.

PRESET (X Y) e

_,
L Define a cor
Coordenadas do ponto a ser fixado
....____
..__

Ex.: 4010 PRESET (50, 100), 6

Ex.: 4015 PRESET (50, 100)
4.02� GOTO 4010

Programe vários pontos aleatórios na tela.

10' SCREEN 2 : COLOR 1, 1, 2

20 X = RN O (1) * 255
30 Y = RNO {1) * 191
4.0 C = RN D (1) * 15
5.0 PSET (X, Y), e
60' GOTO 20

42
íf(@[õ) SHARP Hotbit - Usuários

ORAW - Traça linhas a partir da linguagem macrográfica

A instruç�o ORA� usa as seguintes instruções macrográficas, para desenhar as linhas:

Un: Movimenta para cima

Dn: Movimenta para baixo
Ln: · Movimenta para esquerda
Rn: Movimenta para direita
En: Movimenta diagonalmente para cima e direita
Fn: Movimenta diagonalmente para baixo e direita
Gn: Movimenta diagonalmente para baixo e esquerda
Hn: Movimenta diagonalmente para cima e esquerda
Cn: Especifica a cor (0 ( = n ( = 15)

Ex.: 10 SCREEN 2
20 PSET (100, 80)
30 DRAW "C12 U20 E20 R20 F20 020 G20 L20 H2011
40 GOTO 40

Programa: Escrever o nome com utilizaçao da instruçao DRAW

100 SCREEN 2
110 PSET (50, 80) DRAW 1105 R10 U20"
120 PSET (65, 65) DRAW 11020 R10 U20 L10"
130 PSET ( Be, 85) DRAW " U20 R10 020 U10 L1011
140 PSET (95, 65) ORAW 11020 R10 U20 L10"
150 GOTO 150

43
'[f(&[Q) SHARP Hotbit - Usuário�

ELABORAÇÃO DE ARQUIVOS

MAXFILES - Determina o número de arquivos a serem abertos.

MAXFILES = NQ de arquivos

OPEN - Faz a abertura de arquivos.

OPEN 110ispositivo do periférico: NOME 00 ARQ11 FOR OUTPUT AS# Nº DO ARQUIVO

PRINT # - Imprimir o conteúdo do arquivo.

PRI NT # NQ DO ARQ., 11 CONTEÚ D011

CLOSE - Fechamento do arquivo

CLOSE NQ DO ARQUIVO

Ex.: 10 SCREEN 2 : MAXFI LES = 3

20 LINE (120, 5� )- (190, 110), 2, BF
30 OPEt\ 11GRP . li FOR OUTPUT AS#
•
1
40 OPEf\ "GRP : 11 FOR OUTPUT AS # 2
50 OPEN 11 GRP :11 FOR OUTPUT AS# 3
60 PSET (128, 96) PRI N T# 1, 11 DAUMAS11
70 PSET (128, 56) : PR INT # 2, 11JOÃ011
80 PSET (128' 76) : PRINT# 3, 11 CARLOS11
90 CLOSE# 1, # 2, #3
100 GOTO 100

44
'flt1P[Q) SHARP Hotbit - Usu�rios

Programa: Elaborar o logotipo SHARP

10 SCREEN 3 : T IME = 0
2.0 LINE (5.0, 30) - (194, 1.00), 6, BF
30 LI NE (50, 134) - (194, 164), 6, BF
40 PSET (50, 104)
50 OPEN "GRP : " FOR OUTPUT AS# 1
60 PRINT # 1, 11SHARP"
70 IF TIME = 360 THEN ENO ELSE GOTO 70

ou

10' SCREEN 2
2� LIN E (80, 30) - (180, 1.el.0), 6, BF
3.0 LINE (80, 120) - (180, 150), 6, BF
40 PSET (80, 115) : ORAW 1104 R17 U9 L17 U9 R17 0411
50 PSET (1_!'.10, 119) : DRAW 11U18 09 R17 U9 018"
60 PSET (12.(1, 119) : DRAW "U18 R17 018 U9 L1711
70 PSET (140, 119) DRAW 11U18 R17 09 L17 R10 F9"
80 PSET (160, 119) : DRAW "U18 R17 09 L1811
90 GOTO 90

45
W?l]) SHARP Hotbit - Usuário�

Programa: Elaborar o seguinte gráfico de vendas

Peças
'

5000 ..
--------- ---- --,.--�

40.00
� - - -r-----.

- - - - - - - - - ..----

Mês
JAN FEV MAR

46