devair1010

ai Leonardo de souza, tudo bem? : Seu código está bom, só tem alguns erros. Experimente colocar o N de ATE R=N entre aspas assim ate r= " n " , e o N do SE R = " n " também e a palavra então não pode ter TIL. E o SE comparando dois valores tem que ficar entre parenteses assim se( ( i >=1 ) e ( i <=26 ) ) .

Para mudar a cor dos ícones do desktop, é preciso baixar o programa chamado " iconoid " . Nesse vídeo do youtube, explica como fazer para baixar e instalar. Neste vídeo aqui -> https://www.youtube.com/watch?v=_SdLXpg1KRo Mas se não conseguir baixar nesse link aí do vídeo; eu não consegui! Aí pesquisei no google com o nome " iconoid ", e achei esse site aqui: - http://www.sillysot.com/download.htm nele baixei o setup-iconoid-x86.exe e instalei, e ele funcionou bem, e consegui mudar a cor do texto dos ícones do desktop. Quando abre ele é preciso clicar na aba colors e no botão DISABLE DROP SHADOWS, aí vai ativar o botão para mudar a cor, aí clica no Botão text color, e escolhe a cor que quiser e depois clique em OK, pronto a cor será mudada; Aproveite e clique na aba OPTION e marque a primeira caixa onde está escrito START ICONOID WITH WINDOWS, assim toda vez que o windows se iniciar, o ICONOID será aberto e aí é preciso clicar no botão DIASABLE DROP SHADOWS para que a cor fique do jeito que foi colocada; e se quiser que a cor volte a ser branca é só clicar no mesmo botão só que vai estar escrito ENABLE DROP SHADOWS . E clique também na aba HIDING e desmarque a caixa que está escrito HIDE WHEN OFF DESKTOP e a caixa que está escrito HIDE WHEN ON DESKTOP ; Se deixar a setinha do mouse em cima da janela do ICONOID por 5 segundos, os ícones da tela desaparecem, e aí para os ícones voltar é só tirar a setinha do mouse de cima da janela do ICONOID , aí volta ao normal. A mudança da cor é temporária, então quando desliga o computador e liga novamente a cor volta a ficar branca novamente . Aí com o ICONOID aberto clique no botão DISABLE DROP SHADOWS , que a cor fica do jeito que foi colocada. Mas a mudança da cor não melhora muita coisa não, porque na imagem na tela geralmente tem muitas cores, assim se colocar uma cor escura, aí no lugar que for claro fica bom, mas onde for escuro fica ruim, e o mesmo acontece se colocar uma cor clara . Por isso a cor branca é a melhor opção .

Olá Da_ni_el e Allangadelha Eu conheço o basic da época em que começou os computadores no Brasil Eu tinha um TK 85 em 1986, porém atualmente existem outros basic que usam estes mesmos comandos. Tem um Programa chamado " Blitz Basic 3D " que é fácil de se programar com ele e que usa estes e mais alguns outros comandos além de ter nele um tutorial ensinando a usar estes comandos. Os Comandos Do Basic São os Seguintes: Print ou Text - para escrever alguma coisa na tela CLS - para limpar a tela( desmanchar tudo que estiver na tela) Goto - para pular pra outra linha ou label do programa Gosub - para ir pra uma subrotina do programa Return - para finalizar uma subrotina do programa IF - para comparar um dado com outro EndIF - para finalizar a comparação do dado Then - Usado após a comparação com IF Input - pede a entrada de um dado (numero ou letra) Run - para rodar o programa Plot - para desenhar um ponto na tela gráfica Unplot - para desmanchar um ponto na tela gráfica For - para fazer um Loop Next - para finalizar o Loop iniciado com For To - usado como complemento do FOR Step - usado junto com FOR para estabelecer o passo(de 1 em 1 ou 2 em 2) Delay - para fazer uma pausa no programa Break ou Stop - para parar a execução do programa definitivamente Let - para atribuir valor a uma variável Save - para salvar o programa List - para listar as linhas do programa Rem - para fazer comentários nas linhas de programação Code - pega o valor numérico de uma letra Chr$ - transforma um valor numérico em uma letra Str$ - transforma uma letra em um valor numérico Rnd - atribui um valor randomico (entre 0 e 1) a uma variável Sin - pega o seno (em radiano) de um numero Cos - pega o coseno (em radiano) de um numero Tan - pega a tangente (em radiano) de um numero Arcsin - pega o arcoseno ( em radiano) de um numero ArcCos - pega o arcoseno ( em radiano) de um numero Arctan - pega o arcotangente ( em radiano) de um numero Abs - pega o valor absoluto de um numero (sem o sinal + ou -) Sqr - extrai a raiz quadrada de um numero Ln - pega o valor do logarítimo natural de um numero Len - verifica quantos caracteres tem em uma string (palavra) Usr - usado para rodar um prorama em linguagem de máquina(assembler) Or - usado na comparação (um dado "OU" outro dado) And - usado na comparação (um dado "E" outro dado) Inkey$ - verifica qual tecla foi pressionada no teclado PI - cujo valor é 3.14159265359 Load - para carregar um programa Scroll - puxa tudo que estiver na tela uma linha para cima Dim - É um array numérico wait ou pause - para e espera um tecla ser pressionada Os comandos do antiryad gx são complicados, mas você pode ver estes comandos abrindo a listagem de alguns programas que vem junto com o antiryad gx, na pasta workspaces, e aí estudar estes comandos pra ver o que eles fazem. Eu tenho aqui o antiryad gx da versão 1.9 que vem com dois programas e eles funcionam bem. com o antiryad win 32 a gente roda os programas clicando em TooLs / GeL Execute e aí escolher qual programa rodar. Aqui estão alguns comandos do GEL BASIC do Antiryad gx: gx_winbox::printconsol(string::"qualquer coisa") - para escrever qualquer coisa na tela gx_screen::drawbox(c,l,20,20,5,5,255,1,gx_bitmap_drawflat,128,64,128,255)- para desenhar um quadrado na tela.c,l é coluna e linha da tela 20,20 é o tamanho e 5,5,255,1 é cor gx_screen::drawline(c,l,c+150,l+150,255,128,128,128,gx_bitmap_drawflat,128,128,255,64)- desenha uma linha na tela começando na coluna c e linha l até c+150,l+150 gx_winbox::showdirectconsol() - para mostrar tudo que está na tela gx_sound::play2d(string::"sino.wav",255,256,0,0) - para tocar o som wave que está entre aspas gx_mouse::getleftbutton(0),==,gx_button_statetriggered - para ver se o botão esquerdo do mouse foi pressionado gx_mouse::getrightbutton(0),!=,gx_button_statetriggered- para ver se o botão direito do mouse foi pressionado c=790 ---------- para atribuir o valor 790 à variável c IF(c,>=,790) - para verificar se c é maior ou igual a 790 endif ------------ para finalizar a comparação gx_sound::reset()- para desabilitar o som function main ------ para estabelecer uma nova função endfunction -------- para finalizar uma função dim c,int ------------ para declarar a variável c declarefunction nothing,main,nothing - para declarar uma nova função gx_sound::init()-- para habilitar o som Do ------------------- para iniciar um Loop Loop ---------------- para finalizar um Loop for(n,0,<,200,1)-- para fazer um Loop com valor estipulado aqui vai de 0 até 200 de 1 em 1 next ----------------- para finalizar o Loop com valor estipulado

Olá Da_ni_el . Tem um vídeo no youtube com o nome "Tutorial Antiryad GX" que explica alguma coisa sobre esse programa. E aqui tem o código de um programa simples apenas pra exercitar, eu fiz com um quadrado. porque ainda não descobri como desenhar um circulo. o antiryad que eu tenho é o da versão 1.9. As versões mais novas costuma não rodar este programa. As duas barras ou barra e asterisco aí no código significa o inicio de comentários do programa, se não quiser não precisa digitar . Digite os comandos exatamente como está escrito. o código do programa é o seguinte : declarefunction nothing,main,nothing // declaração de funções (tem que ser exatamente assim) dim c,int /* declaração de variáveis (se não declarar dá erro) */ dim l,int dim x,int dim y,int dim n,int function main gx_sound::init() gx_winbox::printconsol(string::"Press left mouse button to play sound, and right mouse button to exit.") /*imprime mensagem na tela, A mensagem é o que esta entre */ /*as aspas ai na linha de cima*/ c=500 /* pra variável manter o valor ela tem que estar dentro da função */ l=10 // L é a linha da tela e C é a coluna da tela x=0 // X controla a coluna se vai pra esquerda ou direita y=0 // Y controla a linha se vai pracima ou prabaixo gx_winbox::showdirectconsol() // este comando é que mostra a mensagem na tela do // Aqui é o inicio do Loop IF(x,==,0) /* tem que ser assim entre parenteses e dois sinais de igualdade */ c=c+10 endif IF(x,==,1) /* tem que ser assim entre parenteses e dois sinais de igualdade */ c=c-10 endif IF(y,==,0) /* tem que ser assim entre parenteses e dois sinais de igualdade */ l=l+9 endif IF(y,==,1) /* tem que ser assim entre parenteses e dois sinais de igualdade */ l=l-9 endif IF(l,>=,590) // Tem que ser assim entre parenteses e com os sinais >= // O tamanho da tela é 800 x 600. (começando do canto esquerdo e emcima), Ai se L >= 600 então passou prabaixo da tela gx_sound::play2d(string::"sino.wav",255,256,0,0) // Toca o som. E este som wave (pequeno, com 20 KB) tem que estar na mesma pasta onde o programa foi salvo e com // esse mesmo nome l=590 y=1 l=590 endif IF(l,<=,-10) /* tem que ser entre parenteses. se L <= 0 (zero) então passou pracima da tela */ gx_sound::play2d(string::"sino.wav",255,256,0,0) //Toca o som. E este som wave (pequeno, com 20 KB) tem que estar na mesma pasta onde o prog foi salvo e com esse // mesmo nome l=-10 // L = - 10 y=0 // Y = 0 endif IF(c,>=,790) /* tem que ser entre parenteses e com os sinais >=. Ai se c >= 800 então passou do tamanho máximo da tela do lado direito */ gx_sound::play2d(string::"sino.wav",255,256,0,0) //Toca o som. E este som wave (pequeno, com 20 KB) tem que estar na mesma pasta onde o prog foi salvo e com esse // mesmo nome c=790 x=1 c=790 endif IF(c,<=,-10) /* tem que ser entre parenteses e com os sinais <=. Ai se C <= 0(zero) então passou prafora da tela do lado esquerdo */ gx_sound::play2d(string::"sino.wav",255,256,0,0) //Toca o som. E este som wave (pequeno, com 20 KB) tem que estar na mesma pasta onde o prog foi salvo e com esse // mesmo nome c=-10 x=0 c=-10 endif IF(gx_mouse::getleftbutton(0),==,gx_button_statetriggered) // verifica se o botão esquerdo do mouse foi pressionado gx_winbox::printconsol(string::"Play sound.") // imprime a mensagem, que está entre aspas, na tela gx_sound::play2d(string::"sino.wav",255,256,0,0) //Toca o som. E este som wave, com este mesmo nome, tem que estar na mesma pasta onde o prog foi salvo endif gx_winbox::showdirectconsol() // este comando imprime todas as mensagens na tela gx_screen::drawbox(c,l,20,20,5,5,255,1,gx_bitmap_drawflat,128,64,128,255) // desenha um quadrado na posicao c,l com tamanho 20x20 e na cor RGB(5,255,1) // G é green(verde) que vai de 0 a 255 e R é (Red)vermelho que vai de 0 a 255 e // B é (Blue)azul que vai de 0 a 255. Quanto maior o valor mais claro gx_mouse::displaydynamic() // este comando é que verifica se algum botão do mouse foi pressionado loopwhile(gx_mouse::getrightbutton(0),!=,gx_button_statetriggered) // Fim do Loop, que termina quando se pressiona o botão direito do mouse gx_sound::reset() // Desabilita o som return(0) endfunction // Fim da funcão