Docsity
EntrarCadastre-se
Docsity
Prepare-se para as provas
Prepare-se para as provas

Estude fácil! Tem muito documento disponível na Docsity

Ganhe pontos para baixar
Ganhe pontos para baixar

Ganhe pontos ajudando outros esrudantes ou compre um plano Premium

Guias e Dicas
Guias e Dicas
Venda na Docsity
Venda na Docsity
EntrarCadastre-se

Prepare-se para as provas

Estude fácil! Tem muito documento disponível na Docsity

Encontrar documentos

Prepare-se para as provas com trabalhos de outros alunos como você, aqui na Docsity

Pesquisar documentos Store

Os melhores documentos à venda: Trabalhos de alunos formados

Videoaulas

Prepare-se com as videoaulas e exercícios resolvidos criados a partir da grade da sua Universidade

Quiz

Responda perguntas de provas passadas e avalie sua preparação.

Pesquise entre todos os recursos de estudo
Docsity AINEW

Resuma seus documentos, faça perguntas, converta-os em questionários e mapas conceituais

TCC e ENEM 2025

Estude com provas passadas, TCCs e dicas úteis

Explorar perguntas

Tire suas dúvidas lendo as respostas dadas por outros alunos como você.

Ganhe pontos para baixar

Ganhe pontos ajudando outros esrudantes ou compre um plano Premium

Compartilhe documentos
download point icon20 Pontos

Por cada documento compartilhado

Responda às perguntas
download point icon5 Pontos

por cada resposta enviada (máx. 1 por dia)

Todas as maneiras de obter pontos grátis
Ganhe pontos imediatamente

Escolha um Plano Premium com todos os pontos que precisa

Oportunidades de estudo

Escolha seu próximo programa de estudos

Entre em contato direto com as melhores Universidades do mundo. Pesquise entre milhares de Universidades e parceiros oficiais

Comunidade

Pergunte à comunidade

Peça ajuda à comunidade e tire suas dúvidas relacionadas ao estudo

Ranking universidades

Descubra as melhores universidades em seu país de acordo com os usuários da Docsity

Guias grátis

Os eBooks que salvam estudantes!

Baixe gratuitamente nossos guias de estudo, métodos para diminuir a ansiedade, dicas de TCC preparadas pelos professores da Docsity

Do blog

Vá para o blog

Jogo da Velha , Notas de aula de Automação

Faculdade Metropolitana de Camaçari (FAMEC)Automação

Trabalho desenvolvido pelos alunos de Eng. de controle e automação da FAMEC 2010.1 (9º semestre) . Jogo da velha desenvolvido em linguagem "Rapid".

Tipologia: Notas de aula

2010

Compartilhado em 09/08/2010

jorge-luiz-8
jorge-luiz-8 🇧🇷

5

(1)

28 documentos

1 / 21

Toggle sidebar

Esta página não é visível na pré-visualização

Não perca as partes importantes!

bg1
FACULDADE METROPOLITANA DE CAMAÇARI FAMEC
CURSO BACHARELADO ENGENHARIA DE CONTROLE E
AUTOMAÇÃO
JORGE LUIZ CARNEIRO DE OLIVEIRA
ORNEI NASCIMENTO
JOGO DA VELHA
CAMAÇARI – BA
2010
pf3
pf4
pf5
pf8
pf9
pfa
pfd
pfe
pff
pf12
pf13
pf14
pf15

Pré-visualização parcial do texto

Baixe Jogo da Velha e outras Notas de aula em PDF para Automação, somente na Docsity!

FACULDADE METROPOLITANA DE CAMAÇARI FAMEC

CURSO BACHARELADO ENGENHARIA DE CONTROLE E

AUTOMAÇÃO

JORGE LUIZ CARNEIRO DE OLIVEIRA

ORNEI NASCIMENTO

JOGO DA VELHA

CAMAÇARI – BA

JORGE LUIZ CARNEIRO DE OLIVEIRA

ORNEI NASCIMENTO

JOGO DA VELHA

Projeto de Jogo da Velha atendendo as exigências

Faculdade Metropolitana de Camaçari FAMEC como

requisito parcial para aprovação no 9º Semestre da

disciplina Robótica do Curso de Bacharelado em

Engenharia de Controle e Automação.

CAMAÇARI – BA

006,0.860072,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]];

CONST robtarget p1290:=[[1138.61,4.41,1414.25],[0.51017,-1E- 006,0.860074,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1280:=[[1138.61,4.41,1414.25],[0.51017,-1E- 006,0.860074,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1270:=[[948.69,-136.37,1414.25],[0.510171,-1E- 006,0.860073,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1260:=[[1125.18,-271.92,1414.25],[0.510172,-1E- 006,0.860073,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1250:=[[1239.96,-136.21,1414.25],[0.510173,-1E- 006,0.860072,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1240:=[[1159.26,-2.52,1414.25],[0.510174,-1E- 006,0.860072,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1230:=[[1119.65,249.8,1414.25],[0.510169,-1E- 006,0.860074,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1220:=[[1119.65,249.8,1414.25],[0.510169,-1E- 006,0.860074,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1210:=[[933.8,138.77,1414.25],[0.51017,-1E- 006,0.860074,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1200:=[[1092.8,2.92,1414.25],[0.510171,-1E- 006,0.860073,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1190:=[[1228.53,137.63,1414.25],[0.510172,-1E- 006,0.860073,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1180:=[[1097.47,253.55,1414.25],[0.510173,-1E- 006,0.860072,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1170:=[[1042.1,512.56,1414.25],[0.51016,-3E-006,0.86008,- 1E-006],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1160:=[[1065.99,508.45,1422.39],[0.504698,- 0.005374,0.863279,0.001474],[0,- 1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1150:=[[951.23,371.07,1422.39],[0.504698,- 0.005374,0.863278,0.001474],[0,- 1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1140:=[[1127.37,256.29,1422.39],[0.504699,- 0.005374,0.863278,0.001474],[0,- 1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1130:=[[1200.56,394.58,1422.39],[0.5047,- 0.005374,0.863277,0.001474],[0,- 1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1120:=[[1117.22,512.37,1414.25],[0.510173,-1E- 006,0.860072,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1110:=[[834.35,509.42,1414.25],[0.510167,-2E- 006,0.860076,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1100:=[[834.35,509.42,1414.25],[0.510167,-2E- 006,0.860076,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1090:=[[698.87,384,1414.25],[0.510168,-2E- 006,0.860075,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1080:=[[820.19,260.71,1414.25],[0.510169,-2E- 006,0.860075,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1070:=[[946.31,388.11,1414.25],[0.51017,-2E- 006,0.860074,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1060:=[[839.68,511.09,1414.25],[0.510171,-1E- 006,0.860073,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1050:=[[622.71,-4.71,1415],[0.510161,-5.7E- 005,0.860079,2.7E-005],[-1,0,- 1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1040:=[[588.79,2.09,1414.25],[0.510169,-1E- 006,0.860075,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1030:=[[574.42,-252.87,1414.25],[0.51017,-1E- 006,0.860074,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1020:=[[622.71,-4.71,1415],[0.510161,-5.7E- 005,0.860079,2.7E-005],[-1,0,- 1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]];

CONST robtarget p1010:=[[427.3,-134.43,1415],[0.510162,-5.7E- 005,0.860079,2.7E-005],[-1,0,- 1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p1000:=[[588.47,-248.3,1415],[0.510163,-5.7E- 005,0.860078,2.7E-005],[-1,0,- 1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p990:=[[694.08,-120.88,1415],[0.510164,-5.7E- 005,0.860078,2.7E-005],[-1,0,- 1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p980:=[[567.95,-0.05,1415],[0.510164,-5.7E- 005,0.860077,2.7E-005],[-1,0,- 1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p970:=[[388.42,257.4,1414.25],[0.510169,-2E- 006,0.860074,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p960:=[[388.42,257.4,1414.25],[0.510169,-2E- 006,0.860074,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p950:=[[440.98,126,1414.25],[0.510171,-1E- 006,0.860073,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p940:=[[641.94,-1.92,1414.25],[0.510172,-1E- 006,0.860073,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p930:=[[703.37,122.14,1414.25],[0.510172,-1E- 006,0.860073,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p920:=[[581.85,256.41,1414.25],[0.510173,-1E- 006,0.860072,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p910:=[[1027.76,-2.52,1414.25],[0.510174,-1E- 006,0.860071,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p900:=[[1027.76,-2.52,1414.25],[0.510174,-1E- 006,0.860071,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p890:=[[1027.76,-2.52,1414.25],[0.510174,-1E- 006,0.860071,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p880:=[[867.67,2.28,1414.25],[0.510168,-1E- 006,0.860075,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p870:=[[867.67,2.28,1414.25],[0.510168,-1E- 006,0.860075,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p860:=[[698.51,-127.64,1414.25],[0.51017,-1E- 006,0.860074,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p850:=[[836.08,-266.35,1414.25],[0.51017,-1E- 006,0.860074,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p840:=[[948.78,-120.82,1414.25],[0.510171,-1E- 006,0.860073,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p830:=[[885.68,-2.52,1414.25],[0.510173,-1E- 006,0.860072,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p820:=[[828.07,-8.45,1414.25],[0.51017,-1E- 006,0.860074,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p810:=[[828.07,-8.45,1414.25],[0.51017,-1E- 006,0.860074,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p800:=[[713.94,-126.67,1414.25],[0.510171,-1E- 006,0.860073,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p790:=[[854.45,-251.23,1414.25],[0.510172,-1E- 006,0.860073,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p780:=[[961.9,-134.2,1414.25],[0.510173,-1E- 006,0.860072,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p770:=[[890.27,-2.52,1414.25],[0.510174,-1E- 006,0.860072,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p760:=[[823.07,250.26,1414.25],[0.510168,-1E- 006,0.860075,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p750:=[[823.07,250.26,1414.25],[0.510168,-1E- 006,0.860075,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p740:=[[687.37,136.32,1414.25],[0.510169,-1E- 006,0.860074,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p730:=[[840.71,-10.64,1414.25],[0.510171,-1E- 006,0.860074,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p720:=[[969.01,121.51,1414.25],[0.510172,-1E-

CONST robtarget p400:=[[994.54,-273.54,1414.25],[0.510171,-1E- 006,0.860074,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p390:=[[742.31,-289.62,1414.25],[0.510173,-1E- 006,0.860072,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p380:=[[745.12,-0.44,1414.25],[0.510171,-1E- 006,0.860073,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p370:=[[1027.76,-264.92,1414.25],[0.510173,-1E- 006,0.860072,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p360:=[[1027.76,-2.52,1414.25],[0.510174,-1E- 006,0.860071,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p350:=[[727.75,-273.26,1414.25],[0.510171,-1E- 006,0.860074,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p340:=[[727.75,-273.26,1414.25],[0.510171,-1E- 006,0.860074,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p330:=[[473.2,-3.38,1414.25],[0.510172,-1E- 006,0.860073,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p320:=[[473.2,-271.62,1414.25],[0.510173,-1E- 006,0.860072,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p310:=[[746.82,-2.52,1414.25],[0.510173,-1E- 006,0.860072,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p300:=[[445.3,6.22,1414.25],[0.510169,-2E- 006,0.860075,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p290:=[[445.3,6.22,1414.25],[0.510169,-2E- 006,0.860075,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p280:=[[746.57,253.1,1414.25],[0.510171,-1E- 006,0.860074,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p270:=[[746.57,-7.13,1414.25],[0.510171,-1E- 006,0.860073,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p260:=[[446.16,254.15,1414.25],[0.510172,-1E- 006,0.860073,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p250:=[[448.89,266.15,1414.25],[0.510169,-2E- 006,0.860075,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p240:=[[448.89,266.15,1414.25],[0.510169,-2E- 006,0.860075,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p230:=[[707.62,537.82,1414.25],[0.51017,-2E- 006,0.860074,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p220:=[[707.62,276.45,1414.25],[0.51017,-1E- 006,0.860074,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p210:=[[445.92,537.74,1414.25],[0.510172,-1E- 006,0.860073,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p200:=[[1027.76,-2.52,1414.25],[0.510174,-1E- 006,0.860071,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p190:=[[1027.76,-2.52,1414.25],[0.510174,-1E- 006,0.860071,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p180:=[[1027.76,-2.52,1414.25],[0.510174,-1E- 006,0.860071,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p170:=[[1027.76,-2.52,1414.25],[0.510174,-1E- 006,0.860071,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p160:=[[725.98,-313.26,1414.25],[0.51017,-1E- 006,0.860074,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p150:=[[725.98,-313.26,1414.25],[0.51017,-1E- 006,0.860074,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p140:=[[1003.83,-21.8,1414.25],[0.510171,-1E- 006,0.860073,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p130:=[[1027.76,-294.32,1414.25],[0.510173,-1E- 006,0.860072,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p120:=[[1027.76,-2.52,1414.25],[0.510174,-1E- 006,0.860071,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p110:=[[1015.67,-40.82,1414.25],[0.510171,-1E- 006,0.860073,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p100:=[[1015.67,-40.82,1414.25],[0.510171,-1E- 006,0.860073,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p90:=[[716.08,225.21,1414.25],[0.510172,-1E-

006,0.860073,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]];

CONST robtarget p80:=[[716.08,-14.4,1414.25],[0.510173,-1E- 006,0.860072,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p70:=[[1009.37,244.15,1414.25],[0.510173,-1E- 006,0.860072,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget home:=[[1027.76,-2.52,1414.25],[0.510174,-1E- 006,0.860071,0],[-1,0,-1,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p60:=[[1027.76,251.55,1414.25],[0.510175,-1E- 006,0.860071,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p50:=[[1027.76,251.55,1414.25],[0.510175,-1E- 006,0.860071,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p40:=[[1027.76,251.55,1414.25],[0.510176,-1E- 006,0.860071,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p30:=[[765.92,542.53,1414.25],[0.510177,-1E- 006,0.86007,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p20:=[[748.74,257.24,1414.25],[0.51018,0,0.860068,0],[0,- 1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]]; CONST robtarget p10:=[[1027.76,518.85,1414.25],[0.510174,-1E- 006,0.860072,0],[0,-1,0,0],[9E+009,9E+009,9E+009,9E+009,9E+009,9E+009]];

PROC t159() MoveJ p1530,v200,z50,tool0; MoveL p1540,v200,z50,tool0; MoveJ home,v200,z50,tool0; ENDPROC

PROC t753() MoveJ p1490,v200,z50,tool0; MoveL p1500,v200,z50,tool0; MoveJ home,v200,z50,tool0; ENDPROC

PROC t963() MoveJ p1460,v200,z50,tool0; MoveL p1470,v200,z50,tool0; MoveJ home,v200,z50,tool0; ENDPROC

PROC t852() MoveJ p1430,v200,z50,tool0; MoveL p1440,v200,z50,tool0; MoveJ home,v200,z50,tool0; ENDPROC

PROC t741() MoveJ p1400,v200,z50,tool0; MoveL p1410,v200,z50,tool0; MoveJ home,v200,z50,tool0; ENDPROC

PROC t789() MoveJ p1370,v200,z50,tool0; MoveL p1380,v200,z50,tool0; MoveJ home,v200,z50,tool0; ENDPROC

PROC t456() MoveJ p1330,v200,z50,tool0; MoveL p1340,v200,z50,tool0; MoveJ home,v200,z50,tool0; ENDPROC

PROC o1() MoveJ p650,v200,z50,tool0; MoveC p660,p670,v200,z10,tool0; MoveC p680,p690,v200,z10,tool0; MoveJ home,v200,z50,tool0; ENDPROC

PROC TAB()

MoveJ p560,v200,z50,tool0; MoveL p570,v200,z50,tool0; MoveL p580,v200,z50,tool0; MoveL p640,v200,z50,tool0; MoveL p600,v200,z50,tool0; MoveL p610,v200,z50,tool0; MoveL p620,v200,z50,tool0; MoveL p630,v200,z50,tool0; MoveJ home,v200,z50,tool0; ENDPROC

PROC x9() MoveJ p510,v200,z50,tool0; MoveL p520,v200,z50,tool0; MoveL p530,v200,z50,tool0; MoveL p540,v200,z50,tool0; MoveJ home,v200,z50,tool0; ENDPROC

PROC x8() MoveJ p460,v200,z50,tool0; MoveL p470,v200,z50,tool0; MoveL p480,v200,z50,tool0; MoveL p490,v200,z50,tool0; MoveJ home,v200,z50,tool0; ENDPROC

PROC x7() MoveJ p410,v200,z50,tool0; MoveL p420,v200,z50,tool0; MoveL p430,v200,z50,tool0; MoveL p440,v200,z50,tool0; MoveJ home,v200,z50,tool0; ENDPROC

PROC x6() MoveJ p360,v200,z50,tool0; MoveL p370,v200,z50,tool0; MoveL p380,v200,z50,tool0; MoveL p390,v200,z50,tool0; MoveJ home,v200,z50,tool0; ENDPROC

PROC x3() MoveJ p310,v200,z50,tool0; MoveL p320,v200,z50,tool0; MoveL p330,v200,z50,tool0; MoveL p340,v200,z50,tool0; MoveJ home,v200,z50,tool0; ENDPROC

PROC x2() MoveJ p260,v200,z50,tool0; MoveL p270,v200,z50,tool0; MoveL p280,v200,z50,tool0; MoveL p290,v200,z50,tool0; MoveJ home,v200,z50,tool0; ENDPROC

PROC x1() MoveJ p210,v200,z50,tool0; MoveL p220,v200,z50,tool0; MoveL p230,v200,z50,tool0; MoveL p240,v200,z50,tool0; MoveJ home,v200,z50,tool0; ENDPROC

PROC x5() MoveL p70,v200,z50,tool0; MoveL p80,v200,z50,tool0; MoveL p90,v200,z50,tool0; MoveL p100,v200,z50,tool0; MoveJ home,v200,z50,tool0; ENDPROC

PROC x4() MoveJ p10,v200,z50,tool0; MoveL p20,v200,z50,tool0; MoveL p30,v200,z50,tool0; MoveL p40,v200,z50,tool0; MoveJ home,v400,z50,tool0; ENDPROC

PROC main()

RESET:

Clear reg1; Clear reg2; Clear reg3; Clear reg4; Clear reg5; Clear reg6; Clear reg7; Clear reg8; Clear reg9; Clear reg10; Clear reg20; Clear reg30; Clear reg40; reg40:= 0 ; reg20:= 0 ; reg10:= 1 ; reg9:= 0 ; reg8:= 0 ; reg7:= 0 ; reg6:= 0 ; reg5:= 0 ; reg4:= 0 ; reg3:= 0 ; reg2:= 0 ; reg1:= 0 ; TPWrite "Jogo da Velha FAMEC 2010.1..."; WaitTime 2 ; TPErase;

reg20:=reg20+ 1 ; IF reg1= 1 AND reg3= 1 THEN t123; TPWrite "JOGADOR X VENCEU"; WaitTime 2 ; GOTO RESET; ELSE IF reg5= 1 AND reg8= 1 THEN t852; TPWrite "JOGADOR X VENCEU"; WaitTime 2 ; GOTO RESET; ELSE TPWrite "jogada concluida"; WaitTime 2 ; GOTO inicio; ENDIF ENDIF ELSE TPWrite "jogada ja realizada"; WaitTime 2 ; GOTO jogx; ENDIF CASE 3 : IF reg3= 0 THEN x3; reg3:= 1 ; reg10:= 0 ; reg20:=reg20+ 1 ; IF reg2= 1 AND reg1= 1 THEN t123; TPWrite "JOGADOR X VENCEU"; WaitTime 2 ; GOTO RESET; ELSE IF reg6= 1 AND reg9= 1 THEN t963; TPWrite "JOGADOR X VENCEU"; GOTO RESET; ELSE IF reg5= 1 AND reg7= 1 THEN t753; TPWrite "JOGADOR X VENCEU"; WaitTime 2 ; GOTO RESET; ELSE TPWrite "jogada concluida"; WaitTime 2 ; GOTO inicio; ENDIF ENDIF ENDIF ELSE TPWrite "jogada ja realizada"; WaitTime 2 ; GOTO jogx; ENDIF CASE 4 : IF reg4= 0 THEN x4; reg4:= 1 ; reg10:= 0 ; reg20:=reg20+ 1 ;

IF reg1= 1 AND reg7= 1 THEN t741; TPWrite "JOGADOR X VENCEU"; WaitTime 2 ; GOTO RESET; ELSE IF reg5= 1 AND reg6= 1 THEN t456; TPWrite "JOGADOR X VENCEU"; GOTO RESET; ELSE TPWrite "jogada concluida"; WaitTime 2 ; GOTO inicio; ENDIF ENDIF ELSE TPWrite "jogada ja realizada"; WaitTime 2 ; GOTO jogx; ENDIF CASE 5 : IF reg5= 0 THEN x5; reg5:= 1 ; reg10:= 0 ; reg20:=reg20+ 1 ; IF reg1= 1 AND reg9= 1 THEN t159; TPWrite "JOGADOR X VENCEU"; WaitTime 2 ; GOTO RESET; ELSE IF reg3= 1 AND reg7= 1 THEN t753; TPWrite "JOGADOR X VENCEU"; GOTO RESET; ELSE IF reg6= 1 AND reg4= 1 THEN t456; TPWrite "JOGADOR X VENCEU"; WaitTime 2 ; GOTO RESET; ELSE IF reg2= 1 AND reg8= 1 THEN t852; TPWrite "JOGADOR X VENCEU"; WaitTime 2 ; GOTO RESET; ELSE TPWrite "jogada concluida"; WaitTime 2 ; GOTO inicio; ENDIF ENDIF ENDIF ENDIF ELSE TPWrite "jogada ja realizada"; WaitTime 2 ; GOTO jogx; ENDIF CASE 6 :

reg8:= 1 ; reg10:= 0 ; reg20:=reg20+ 1 ; IF reg7= 1 AND reg9= 1 THEN t789; TPWrite "JOGADOR X VENCEU"; WaitTime 2 ; GOTO RESET; ELSE IF reg2= 1 AND reg5= 1 THEN t852; TPWrite "JOGADOR X VENCEU"; GOTO RESET; ELSE TPWrite "jogada concluida"; WaitTime 2 ; GOTO inicio; ENDIF ENDIF ELSE TPWrite "jogada ja realizada"; WaitTime 2 ; GOTO jogx; ENDIF CASE 9 : IF reg9= 0 THEN x9; reg9:= 1 ; reg10:= 0 ; reg20:=reg20+ 1 ; IF reg1= 1 AND reg5= 1 THEN t159; TPWrite "JOGADOR X VENCEU"; WaitTime 2 ; GOTO RESET; ELSE IF reg3= 1 AND reg6= 1 THEN t963; TPWrite "JOGADOR X VENCEU"; GOTO RESET; ELSE IF reg7= 1 AND reg8= 1 THEN t789; TPWrite "JOGADOR X VENCEU"; WaitTime 2 ; GOTO RESET; ELSE TPWrite "jogada concluida"; WaitTime 2 ; GOTO inicio; ENDIF ENDIF ENDIF ELSE TPWrite "jogada ja realizada"; WaitTime 2 ; GOTO jogx; ENDIF DEFAULT: TPWrite "POSICAO INCORRETA"; GOTO jogx; ENDTEST ELSE

jog0: TPReadNum reg30,"Escolha posicao jogador 0, de 1 a 9 "; TEST reg CASE 1 : IF reg1= 0 THEN o1; reg1:= 2 ; reg10:= 1 ; reg20:=reg20+ 1 ; IF reg2= 2 AND reg3= 2 THEN t123; TPWrite "JOGADOR O VENCEU"; WaitTime 2 ; GOTO RESET; ELSE IF reg4= 2 AND reg7= 2 THEN t741; TPWrite "JOGADOR O VENCEU"; GOTO RESET; ELSE IF reg5= 2 AND reg9= 2 THEN t159; TPWrite "JOGADOR O VENCEU"; WaitTime 2 ; GOTO RESET; ELSE TPWrite "jogada concluida"; WaitTime 2 ; GOTO inicio; ENDIF ENDIF ENDIF ELSE TPWrite "jogada ja realizada"; WaitTime 2 ; GOTO jog0; ENDIF CASE 2 : IF reg2= 0 THEN o2; reg2:= 2 ; reg10:= 1 ; reg20:=reg20+ 1 ; IF reg1= 2 AND reg3= 2 THEN t123; TPWrite "JOGADOR O VENCEU"; WaitTime 2 ; GOTO RESET; ELSE IF reg5= 2 AND reg8= 2 THEN t852; TPWrite "JOGADOR O VENCEU"; WaitTime 2 ; GOTO RESET; ELSE TPWrite "jogada concluida"; WaitTime 2 ; GOTO inicio; ENDIF ENDIF ELSE TPWrite "jogada ja realizada"; WaitTime 2 ;

CASE 5 :

IF reg5= 0 THEN o5; reg5:= 2 ; reg10:= 1 ; reg20:=reg20+ 1 ; IF reg1= 2 AND reg9= 2 THEN t159; TPWrite "JOGADOR O VENCEU"; WaitTime 2 ; GOTO RESET; ELSE IF reg3= 2 AND reg7= 2 THEN t753; TPWrite "JOGADOR O VENCEU"; GOTO RESET; ELSE IF reg6= 2 AND reg4= 2 THEN t456; TPWrite "JOGADOR O VENCEU"; WaitTime 2 ; GOTO RESET; ELSE IF reg2= 2 AND reg8= 2 THEN t852; TPWrite "JOGADOR O VENCEU"; WaitTime 2 ; GOTO RESET; ELSE TPWrite "jogada concluida"; WaitTime 2 ; GOTO inicio; ENDIF ENDIF ENDIF ENDIF ELSE TPWrite "jogada ja realizada"; WaitTime 2 ; GOTO jog0; ENDIF CASE 6 : IF reg6= 0 THEN o6; reg6:= 2 ; reg10:= 1 ; reg20:=reg20+ 1 ; IF reg3= 2 AND reg9= 2 THEN t963; TPWrite "JOGADOR O VENCEU"; WaitTime 2 ; GOTO RESET; ELSE IF reg4= 2 AND reg5= 2 THEN t456; TPWrite "JOGADOR O VENCEU"; GOTO RESET; ELSE TPWrite "jogada concluida"; WaitTime 2 ; GOTO inicio; ENDIF ENDIF

ELSE

TPWrite "jogada ja realizada"; WaitTime 2 ; GOTO jog0; ENDIF CASE 7 : IF reg7= 0 THEN o7; reg7:= 2 ; reg10:= 1 ; reg20:=reg20+ 1 ; IF reg1= 2 AND reg4= 2 THEN t741; TPWrite "JOGADOR O VENCEU"; WaitTime 2 ; GOTO RESET; ELSE IF reg3= 2 AND reg5= 2 THEN t753; TPWrite "JOGADOR O VENCEU"; GOTO RESET; ELSE IF reg8= 2 AND reg9= 2 THEN t789; TPWrite "JOGADOR O VENCEU"; WaitTime 2 ; GOTO RESET; ELSE TPWrite "jogada concluida"; WaitTime 2 ; GOTO inicio; ENDIF ENDIF ENDIF ELSE TPWrite "jogada ja realizada"; WaitTime 2 ; GOTO jog0; ENDIF CASE 8 : IF reg8= 0 THEN o8; reg8:= 2 ; reg10:= 1 ; reg20:=reg20+ 1 ; IF reg7= 2 AND reg9= 2 THEN t789; TPWrite "JOGADOR O VENCEU"; WaitTime 2 ; GOTO RESET; ELSE IF reg2= 2 AND reg5= 2 THEN t852; TPWrite "JOGADOR O VENCEU"; GOTO RESET; ELSE TPWrite "jogada concluida"; WaitTime 2 ; GOTO inicio; ENDIF ENDIF ELSE TPWrite "jogada ja realizada";