Ir ao conteúdo
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
  • Membro VIP
Simon Viegas
 

Simon Viegas

Postado
  • Membro VIP
Postado

@Semnet, muito bom!! Bem criativo!! :)

 

Sugiro colocar uma estrutura de repetição para cada parte, ou seja: só continuar quando digitar um comando válido... ou só usar apenas Escolha/Caso ou apenas Se/Entao. (acho melhor Escolha/Caso).

 

 

,

  • Curtir 2
  • 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
  • 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
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

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...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!