Ir ao conteúdo
  • Cadastre-se
Regras do Clube do Hardware

VisualG avalie minha smart tv feita por min no visualg

Semnet

Por Semnet
em Programação - iniciantes

 Compartilhar

Posts recomendados

Semnet
 

Semnet

Postado
Postado

Fala galera  eu fiz um Smart Tv no visualg , ela contem Netflix , Playstation e Spotify , comente o que você achou do codigo ai em baixo 

algoritmo "SmartTV"       '
// Criador Cauã Souza
// Data de criação: 13/10/2019
var
   TV , pro, lg , mail, busca: Caractere
   series, filmes : caractere  // netflix
   ps, game , jogar: caractere // parte do playstation
   spotify , plano, play, Tocar: caractere // parte do spotify
   pass: Inteiro  // netflix/playtation senha
Procedimento Musica()
inicio
   Escreval("|~-~-~-~-~-~-~-~-~-~-~-~-~-~-~|")
   Escreval("|           <  =  >           |")
   Escreval("|0:00 .__________________ 3:20|")
FimProcedimento
inicio
   // USE PARA DIGITAR O PROGRAMA/MUSICA/FILMES DESEJADO O Q TIVER DEPOIS DO
   // 'TRAÇO' como THE WALKING DEAD - TWD . USE SOMENTE O 'TWD'
   Repita
      Escreval("Ligar TV ? S/N")
      Leia(TV)
   Ate TV = "S"
   Limpatela
   Escreval("~-~-~-~-~-~-SAMSUNG~-~-~-~-~-~-")
   Escreval("Programas: Netflix , Playstation")
   Escreval("Spotify")
   Escreval("Selecione o programa desejado: ")
   Leia(pro)
   LimpaTela
   Escolha pro // netflix --------------
   Caso "Netflix"
      Escreval("Abrindo Netflix")
      Escreval("Digite seu email:")
      Leia(Mail)
      Escreval("Digite sua senha:")
      Leia(Pass)
      Escreval("Bem Vindo")
      LimpaTela
      Escreval("Filmes ou Series")
      Leia(busca)
      Escolha busca
      Caso "Series"
         Limpatela
         Escreval("Series Em Alta ")
         Escreval("The Walking Dead em Breve - TWD")
         Escreval("Games Of Thrones - GOT")
         Escreval("Stranger Things - ST")
         Escreval("Lucifer ")
         Leia(series)
         LimpaTela
         Se (series = "TWD") entao
            Escreval("The Walking Dead")
            Escreval("10º Temporada")
            Escreva("Episodios:16")
         senao
            Se (series = "GOT") entao
               Escreval("Game Of Thrones")
               Escreval("8º Temporada")
               Escreval("Episodios:6")
            senao
               Se (Series = "ST")entao
                  Escreval("Stranger Things")
                  Escreval("3º Temporada")
                  Escreval("Epsodios: 8")
               senao
                  Se (series = "Lucifer") entao
                     Escreval("Lucifer")
                     Escreval("4º Temporadas")
                     Escreval("Episodios: 10")
                  FimSe
               FimSe
            FimSe
         FimSe
      Caso "Filmes"
         Limpatela
         Escreval("Filmes Em Alta")
         Escreval("Coringa")
         Escreval("Vingadores Ultimato - VU")
         Escreval("ToyStore 4 - TS4")
         Escreval("Zumbilandia 2 - ZM2")
         Leia(Filmes)
         limpaTela
         Se (filmes = "Coringa") entao
            Escreval("Coringa")
            Escreval("Lançamento: 2019")
            Escreval("Duração: 2h2m")
            Escreval("Suspense/Drama")
         senao
            Se (filmes = "VU") entao
               Escreval("Vingadores Ultimato")
               escreval("Lançamento: 2019")
               escreval("Duração:3h2m ")
               Escreval("Fantasia/Fic.C")
            senao
               Se (Filmes = "TS4")
                  Escreval("Toy Store 4")
                  Escreval("Lançamento: 2019")
                  Escreval("Duração: 1h40m")
                  Escreval("Aventura/Fantasia")
               senao
                  Se (filmes = "ZM2")
                     Escreval("Zumbilandia 2")
                     Escreval("Lançamento: 2019")
                     Escreval("Duração: 1h39m")
                     Escreval("Acão/Zumbi")
                  Fimse
               FimSe
            FimSe
         FimSe
      FimEscolha//netflix final ----------------
   Caso "Playstation"
      Escreval("Abrindo PlayStation")
      Escreval("Logue em sua conta")
      Escreval("Login:")
      leia(Mail)
      Escreval("Senha:")
      Leia(pass)
      Escreval("Bem Vindo")
      Escreval("Ver Loja ou Jogos intalados? - Loja/Instalados")
      leia(ps)
      Limpatela
      Escolha ps
      Caso "Instalados"
         Escreval("Jogos instalados na sua conta:")
         Escreval("The Last of Us - TLFU")
         Escreval("Grnad Theft Auto V - GTA5")
         Escreval("Fortnite")
         Escreval("Homem Aranha - HA")
         Escreval("God of War 4 - GOW4")
         Escreval("Selecione algum jogo")
         Leia(jogar)
      Caso "Loja"
         Escreval("Bem Vindo as lojas")
         Escreval("----EM DESTAQUE----")
         Escreval("")
         Escreval("PROMOÇÕES ANIVERSARIO SONY----")
         Escreval("RESIDENT EVIL 7 - RE7")
         Escreval("One Piece Grand Cruise - OPGC")
         Escreval("Doom VRF - DOOM")
         Escreval("Ice Combat 7 - IC7")
         Escreval("")
         Escreval("PROMOCÕES DIAS DAS CRIANÇAS----")
         Escreval("Red Dead Redeption 2 - RDR2")
         Escreval("Resident Evil 2 Remake - RE2")
         Escreval("Overwatch")
         Escreval("Grand Theft Auto V - GTA V")
         Escreval("Qual jogo voce quer ver?")
         Leia(game)
         LimpaTela
         Se (game = "RE7") entao
            Escreval("Resident Evil 7")
            Escreval("Capcom")
            Escreval("Survivor Horror")
         senao
            Se (game = "OPGC")entao
               Escreval("One Piece Grand Cruise")
               Escreval("BANDAI NAMCO")
               escreval("Aventura/Ação")
            senao
               Se (game = "DOOM")entao
                  Escreval("DOOM VRF")
                  Escreval("Bethesda")
                  Escreval("RealidadeVirtual/Tiro")
               senao
                  Se (game = "RE2")entao
                     Escreval("Resident Evil 2 Remake")
                     Escreval("Capcom")
                     escreval("Survivor Horror")
                  senao
                     Se (game = "IC7")entao
                        Escreval("Ice Combat 7")
                        Escreval("BANDAI NAMCO/Project Aces")
                        escreval("Simulador Combate Aereo ")
                     senao
                        Se (game = "RDR2")entao
                           Escreval("Red Dead Redeption 2")
                           Escreval("Rockstar Games")
                           Escreval("Acao - Aventura")
                        senao
                           Se (game = "Overwatch")entao
                              Escreval("Overwatch")
                              Escreval("Blizzard")
                              escreval("Acao em Primeira Pessoa")
                           senao
                              Se (game = "GTA5")entao
                                 Escreval("Grand Theft Auto V")
                                 Escreval("Rockstar Games")
                                 Escreval("Acao e Aventura")
                              FimSe
                           FimSe
                        FimSe
                     FimSe
                  Fimse
               FimSe
            fimSe
         fimse
      Fimescolha
      // playstation final ----
   Caso "Spotify"
      Escreval("   ABRINDO SPOTIFY   ")
      Escreval("Bem Vindo")
      Escreval("Sua Conta Ja Estava Logada")
      Escreval("TESTAR PREMIUM GRATIS POR 3 MESES - Premium")
      Escreval("Abrir MediaPlayer - MediaPlayer")
      Leia(Spotify)
      limpaTela
      Se (Spotify = "Premium")entao
         Escreval("~-~-PLANOS~-~-")
         Escreval("Premium - 3 Meses Gratis - SOLO")
         Escreval("Valor: R$16.90")
         Escreval("Prmium Duo - 3 Meses Gratis - DUO")
         Escreval("Valor: R$21.90")
         Escreval("Prmium Familiar - 3 Meses Gratis - FAMILIAR")
         EscrevaL("Valor: R$26.90 ")
         Leia(Plano)
         LimpaTela
         Se (Plano = "Solo")entao
            Escreval("Comprando...")
            Escreval("Você acabou de aitvar o Spotify")
            Escreval("Abrindo MediaPlayer")
         senao
            Se (plano = "Duo")entao
               Escreval("Comprando...")
               Escreval("Você acabou de ativar o Spotify Duo")
               Escreval("Abrindo MediaPlayer")
            senao
               Se (plano = "Familiar")entao
                  Escreval("Comprando...")
                  Escreval("Você acabou de ativar o Spotify Familiar")
                  Escreval("Abrindo MediaPlayer ")
               fimSe
            Fimse
         fimSe
      FimSe
      Se(Spotify = "MediaPlayer")entao
         Escreval("Abrindo MediaPlayer")
      FimSe
      Escreval("TOCADO RECENTEMENTE~-~-~-~-~-~-")
      Escreval("")
      Escreval("Musica Eletronica - Eletronica")
      Escreval("")
      Escreval("MALHAÇÃO~-~-~-~-~-~-~-~-~-~-~-~")
      Escreval("")
      Escreval("Pop Warmup 130 - Pop")
      Escreval("Projeto Verão - Projeto")
      Escreval("Workout")
      Leia(Play)
      LimpaTela
      Se (Play = "Eletronica")entao
         Escreval("Musica Eletronica")
         Escreval("Martin Garrix - Wizard")
         Escreval("R3HAB - Tiger")
         Escreval("Borgeus - BigBang")
         Escreval("KSHMR ,R3HAB - Karate")
         Escreval("Axwell - More Than You Know ")
         Escreval("Escreva o SOMENTE o nome do cantor")
         Leia(Tocar)
         limpaTela
         Se (tocar = "Martin Garrix") entao
            Escreval("Martin Garrix -Wizard")
            Musica()
         senao
            Se (tocar = "R3HAB")entao
               Escreval("R3HAB - Tiger")
               Musica()
            senao
               Se (tocar = "Borgeus")entao
                  Escreval("Borgeus - BigBang")
                  Musica()
               senao
                  Se (tocar = "KSHRM")entao
                     Escreval("Borgeus ,R3HAB - Karate")
                     Musica()
                  senao
                     Se (tocar = "Axwell")entao
                        Escreval("Axwell - More Than You Know")
                        Musica()
                     FimSe
                  FimSe
               fimse
            FimSe
         Fimse
      FimSe
      Se (Play = "Pop")entao
         Escreval("Playslist Pop Warmup")
         Escreval("Martin Garrix - In the Name Of Love")
         Escreval("Imagine Dragons - Beliver")
         Escreval("Avicci - Without You")
         Escreval("Galantis - No Money")
         Escreval("Cash Cash - All My Love")
         Escreval("Escreva SOMENTE o nome do cantor")
         Leia(Tocar)
         LimpaTela
         Se (tocar = "Martin Garrix")entao
            Escreval("Martin garrix - In the Name Of Love")
            Musica()
         senao
            Se (tocar = "Imagine Dragons") entao
               Escreval("Imagine Dragons - Beliver")
               Musica()
            senao
               Se (tocar = "Avicci - Without You") entao
                  escreval("Galantis - No Money")
                  Music()
               senao
                  Se (tocar = "Cash Cash")entao
                     Escreval("Cash Cash - All My Love")
                     Musica()
                  fimSe
               FimSe
            FimSe
         FimSe
      FimSe
      Se (Play = "Projeto")entao
         Escreva("Playlist Projeto Verão")
         Escreval("Alok - Never Let Me Go")
         Escreval("Vitor Kley - O Sol")
         Escreval("Macklemore - Glorious")
         Escreval("Cat Dealers - Sober")
         Escreval("Kygo - First Time")
         Escreval("Escreva SOMENTE o nome do cantor")
         Leia(tocar)
         limpaTela
         Se (tocar = "Alok")entao
            Escreval("Alok - Never Let me Go")
            Musica()
         senao
            Se (tocar = "Vitor Kley") entao
               Escreval("Vitor Kley - O Sol")
               Musica()
            senao
               Se (tocar = "Macklemore")entao
                  Escreval("Macklemore - Glorious")
                  Musica()
               senao
                  Se (tocar = "Cat Dealers")entao
                     Escreval("Cat Dealers - Sober")
                     Musica()
                  senao
                     Se (tocar = "Kygo") entao
                        Escreval("kygo - Fist Time")
                        Musica()
                     fimSe
                  fimSe
               FimSe
            FimSe
         FimSe
      fimse
      Se (play = "Workout") entao
         Escreval("Playlist Workout")
         Escreval("Hardwell - Power")
         Escreval("Logic - Everyday")
         Escreval("Imagine Dragons - Natural ")
         Escreval("R3HAB - Rumors")
         Escreval("Bourgeus - BigBang")
         Escreval("Escreva SOMENTE o nome do cantor")
         Leia(Tocar)
         LimpaTela
         Se (tocar = "Hardwell")entao
            Escreval("Hardwell - Power")
            Musica()
         senao
            Se (tocar = "Logic")entao
               Escreval("Logic - Everyday")
               Musica()
            senao
               Se (tocar = "Imagine Dragons")entao
                  Escreval("Imagine Dragons - Natural")
                  Musica()
               senao
                  Se (tocar = "R3HAB")entao
                     Escreval("R3HAB - Rumors")
                     Musica()
                  senao
                     Se (tocar = "Borgeus")entao
                        Escreval("Borgeus - BigBang")
                        Musica()
                     FimSe
                  FimSe
               fimSe
            fimSe
         fimSe
      FimSe
   FimEscolha
fimalgoritmo

 

  • Curtir 3
Link para o comentário
Compartilhar em outros sites
  • Membro VIP
Simon Viegas
 

Simon Viegas

Postado
  • Membro VIP
Postado

@Semnet, como você já está entusiasmado, sugiro migrar para uma linguagem de programação mais robusta, como Pascal ou C++. O VisualG é uma "pseudo-linguagem" mais voltada para iniciantes mesmo, mas com o foco em "facilitar o primeiro contato", ou seja: utilizando os comandos em português (língua nativa) e estruturas mais simples.

 

Para exemplificar, abaixo comecei a fazer um código em Pascal baseado no seu: 

program Samsung_SmartTV_v2;
uses
  CRT;
var
  comando :string;
  mail,
  password :string;

procedure tocarMusica();
  begin
  writeln('|~-~-~-~-~-~-~-~-~-~-~-~-~-~-~|');
  writeln('|           <  =  >           |');
  writeln('|0:00 .__________________ 3:20|');
  end;

BEGIN
   repeat
     writeln('Ligar TV ? S/N');
     readln(comando);
     comando := UpCase(comando);     
   until comando = 'S';
   ClrScr;
   writeln('~-~-~-~-~-~-SAMSUNG~-~-~-~-~-~-');
   writeln;
   writeln('Programas:                     ');
   writeln('  Netflix                      ');
   writeln('  Playstation                  ');
   writeln('  Spotify                      ');
   writeln('');
   writeln('Selecione o programa desejado  ');
   write  ('=> ');
   readln(comando);
   comando := UpCase(comando);
   ClrScr;
   if (comando = 'NETFLIX') then
     begin
     writeln('Abrindo Netflix');
     writeln('Digite seu email:');
     readln(mail);
     writeln('Digite sua senha:');
     readln(password);
     writeln('Bem Vindo');
     ClrScr;
     writeln('[F]ilmes ou [S]eries');
     readln(comando);
     comando := UpCase(comando);
     if comando = 'FILME' then
       begin
       writeln('Filmes...');
       end
     else if (comando = 'SERIES') then
       begin
       writeln('Séries...');
       end;
    end
  else
    begin
    if (comando = 'SPOTIFY') then
      begin
      //...
      tocarMusica()
      end;
    end;
END.

Repare que é bem parecido com VisualG... no bem da verdade, o Pascal é meio que o pai dele! :)

 

 

"Ah! acho que vou colocar uma animação para ir atualizando o tempo da música tocando". No Pascal dá para fazer de boa. Ex.:
  

program Samsung_SmartTV_v2;
uses
  CRT;
var
  comando :string;
  mail,
  password :string;

procedure tocarMusica();
  procedure playTempo(t :word);
    var
      m, s :byte;
      mStr, sStr :string;
      tempoExecucao :string;
      i :word; 
    begin
    CursorOff;
    TextColor(Yellow);
    s := 0;
    m := 0;
    for i := 1 to t do
      begin
      s := s + 1;
      if (s > 59) then
        begin
        s := 0;
        m := m + 1;
        end;
      Str(m:2, mStr);
      Str(s:2, sStr);
      tempoExecucao := mStr + 'h' + sStr;
      GotoXY(2, 3); write  (tempoExecucao);
      Delay(1000);
      end;
    CursorOn;
    end;  
  begin
  ClrScr;
  writeln('|~-~-~-~-~-~-~-~-~-~-~-~-~-~-~|');
  writeln('|           <  =  >           |');
  writeln('|     .__________________03:20|');
  playTempo(10);
  end;

BEGIN
   repeat
     writeln('Ligar TV ? S/N');
     readln(comando);
     comando := UpCase(comando);
   until comando = 'S';
   ClrScr;
   writeln('~-~-~-~-~-~-SAMSUNG~-~-~-~-~-~-');
   writeln;
   writeln('Programas:                     ');
   writeln('  Netflix                      ');
   writeln('  Playstation                  ');
   writeln('  Spotify                      ');
   writeln('');
   writeln('Selecione o programa desejado  ');
   write  ('=> ');
   readln(comando);
   comando := UpCase(comando);
   ClrScr;
   if (comando = 'NETFLIX') then
     begin
     writeln('Abrindo Netflix');
     writeln('Digite seu email:');
     readln(mail);
     writeln('Digite sua senha:');
     readln(password);
     writeln('Bem Vindo');
     ClrScr;
     writeln('[F]ilmes ou [S]eries');
     readln(comando);
     comando := UpCase(comando);
     if comando = 'FILME' then
       begin
       writeln('Filmes...');
       end
     else if (comando = 'SERIES') then
       begin
       writeln('Séries...');
       end;
    end
  else
    begin
    if (comando = 'SPOTIFY') then
      begin
      //...
      tocarMusica();
      end;
    end;
END.

aaa.gif

 

 

No exemplo acima, utilizei o PascalZim... a ferramenta também é em português (a sintaxe do Pascal que é em inglês, mas é bem fácil acostumar).

 

Verás que terá muito mais flexibilidade...dá para mudar a cor do texto e fundo apenas das letras novas; dá para passar vetor por parâmetro para funções; dá para igualar um vetor a outro (posição por posição); dá para reposicionar o cursor na tela; os erros de sintaxe são retornados logo na compilação (em vez de ser em tempo de execução - só ver quando o programa chega lá - , como no VisualG) etc etc

 

Ou se preferir, pode ir pro C ou C++ também...nele eu manjo pouco, mas tem uma galera bacana lá no fórum!

  • Curtir 1
Link para o comentário
Compartilhar em outros sites
  • Membro VIP
Simon Viegas
 

Simon Viegas

Postado
  • Membro VIP
Postado

Adendo:

Em relação a esse "relógio", veja que está sem o "0" a esquerda... e outro problema é que, da forma que foi implementada, terá que esperar o tempo terminar para o programa continuar, ou seja: a tela fica presa... Então, no caso, para esses dois exemplos, também é possível contornar... (implementar uma lógica para inserir um 0 quando o número tiver apenas um dígito e implementar um recurso que pare de "contar" quando pressionar uma tecla).. por aí vai. É bem flexível... O C é ainda mais robusto e mais popular para o mercado.

 

Daí você pode optar:

- continuar no VisualG; (não recomendo, mas dá para ainda aprender técnicas por ele)

- migrar para o Pascal, que é próximo do VisualG, só que bem mais robusto;

- migrar para o C ou C++. Que é ainda mais robusto e profissional. Mas terá que se adaptar um pouco mais.

- migrar para outra linguagem...

  • Curtir 1
Link para o comentário
Compartilhar em outros sites
Semnet
 

Semnet

Postado
  • Autor
Postado
Em 16/10/2019 às 09:47, Simon Viegas disse:

Daí você pode optar:

 

Eu estou pensando em quando acabar o visualg (falta aprender matrizes e vetores) eu pretendo ir  para JavaScript , Eu quero focar nessa linguagem porque eu ja tive contato com ela em julho eu fiz um curso e me sai ate que bem nela mas a falta de logica me atrapalhou nos finais. E porque esta em alta e é bem atualizada , essa vai ser minha linguagem principal  

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
 Compartilhar
Ir à lista de tópicos

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

Mais

×
×
  • Criar novo...