Diegostf

Entendi kuroi! obrigado pela explicação! so mais uma duvida! como faço para Label mostrar na tela o timer se regredindo!? eu deveria colocar no FORM_LOAD por exemplo? label.text = timer1 ou algo do tipo? Obrigado!

então rafael desculpe pela demora de postar, tive um problema na net! então voltando ao assunto! na base da logica eu faço o seguinte! supondo que um timer vai se regredindo de 2 Horas 59 Minutos, 59 segundos ATE 0:00 var Hora,minuto,segundo:inteiro inicio hora <- 2 minuto <- 59 segundo <- 59 ENQUANTO (hora <> -1) FACA timer 1000 timer 0 segundo <- segundo - 1 SE segundo = 0 então minuto <- minuto -1 segundo <- 59 FIMSE SE minuto = 0 então hora <- hora - 1 minuto <- 59 FIMSE limpatela escreva (hora,":",minuto,":",segundo) FIMENQUANTO certo que tem algums erros ai porque fiz correndo! mais a questao e como eu passo isso no VB? eu teria que colocar esse codigo na ABA da ferramenta "TIMER" por exemplo? ou algum botao? ai esta a duvida! e como eu faria pra ele ir regredindo e ir mostrando na FORM por uma LABEL! Abraços :wub:

então pessoal é que eu to começando estudar VB agora e to meio confuso! não to conseguindo montar uma logica.... e nem mexer com TIMER direito! tentei pegar algums exemplos na net mesmo assim ainda estou confuso! voces poderia me ajudar a montar-lo! abrigado!

Galera alguém poderia me ajudar a criar um timer so que ao invez de contar ele diminuir 2 minutos por exemplo, ate chegar ao 0! Abraços!

Galera tenho uma duvida me ajudem! bom estou começando no VB agora então não sei a ultilidade de todas ferramentas e nem como usam direito! fiz um programinha para abrir Imagens JPG,BMP Openfiledialog. dlgabrir.ShowDialog() If dlgabrir.FileName <> " " Then picimagen.Load(dlgabrir.FileName) arquivo.text = dlgabrir.FileName End If Aqui ele abre a Imagen e Mostra o nome do arquivo e a pasta que se encontra! gostaria de saber como uso a ferramenta Savefiledialog para salvar o arquivo que esta aberto na Picturebox Abraços!

Boa noite galera, Bom não sei se aqui seria a área certa para postar essa duvida mais vamos la! estou no segundo ano do colegial, tenho 18 anos, e tenho algumas duvidas! gosto muito desta area de programação, e mais para frente vou fazer uma faculdade na área! mais por enquanto gostaria da opinição de voces para saber se vale a pena me aprofundar em cursos Livres! exemplo: fiz um curso de Logica de programação no Senac a pouco tempo, agora estou fazendo Visual Basic 2005 na Impacta e logo mais pretendo fazer outros C# ou C , SQL etc e por ai vai.... mais sei la, alguns amigo dizem que estou jogando dinheiro fora fazendo esses cursos ai fico na duvida de parar ou continuar! se realmente esses cursos por fora, não sendo nada técnico, ajudaria a arruma um Emprego ate eu conseguir entrar em uma Faculdade mais para frente, bom por isso venho aqui pedir a opinião do pessoal que já e mais experiente! bom espero que o pessoal deem suas Opiniões! abraço a todos!

Iae pessoall ngm sabe uma coisa Simples dessa? ou não querem ajudar ou tal preguiça de escrever kkkk ngm??!?

Boa noite pessoal! terminei meu Curso de logica a pouco tempo, e pretendo começar o curso de VB mais antes estou estudando para já ir me acostumando! e tenho a seguinte duvida! Com vetores e o Comando de repetição FOR quero fazer o Seguinte.... Colocar em uma Form um Button e um TextBox Mudar o nome do Button para Adicionar! e cada vez que e Digitado um Numero no TextBox e clicar no Botao "Adicionar" ele guarda no Vetor o numero! eu queria repetir isto 10 vezes! e depois que adicionar 10 Numeros ele mostrar os 10 numeros guardados no vetor! Bom na logica mesmo montando isso no programinha que tenho e super Simples já no VB como estou começando agora me atrapalhei todo! Bom para dizer que não tentei fazer ta ai oque saiu Dim vet(10) As Integer Dim contador As Integer For contador = 0 To 10 vet(contador) = txtbox.Text Next For contador = 0 To 10 MsgBox(vet(contador)) Next End Sub alguém me ajuda Obrigado!

então eu baixei o manual e nele não explica quase nada, so como montar o vetor mais isto eu já sabia!! olha outro Exemplo que sempre da erro!! Exercicio: Criar um vetor para Armazenar o nome de 15 pessoas!! var pessoas:vetor[1..15]de caractere pessoa:caractere n_pessoas:numerico i:numerico inicio i <- 0 n_pessoas <- 0 ENQUANTO n_pessoas < 15 FACA leia (pessoa) i <- i + 1 pessoas[i] <- (pessoa) n_pessoas <- n_pessoas +1 FIMENQUANTO Ai mando executa da o erro aqui: pessoas <- (pessoa) ERRO: O indice de um vetor deve ser uma Expressao do tipo INTEIRO ai eu mudo para expressao INTEIRO o erro continua mesma coisa!!

Galera alguém poderia me ajudar, é o Seguinte eu uso o VISUALG para fazer meus exercicios e geralmente oque aprendo no CURSO tento montar no VISUALG e treino ate conseguir ficar bom e intender tudo,e logo quando comecei a aprender VETOR ate agora não consegui montar 1 Exercicio no visualg porque sempre da erro de Sintaxe, tento montar como aprendi e não da de geito nenhum e fico perdido, no curso já estamos avançando para Matriz e não consigui pegar a manha do vetor ainda por causa do Visualg que não colabora, porque o Unico geito de treinar para mim e no VISUALG porque no lapiz e papel não consigo!! por favor quem puder me ajudar!! Vou postar um Simples Exercicio que não consegui montar no Visualg por causa de Erro de Sintaxe Exercicio: Ler o nome de 5 pessoas, e imprimir os nome na ordem inversa!! algoritmo "semnome" // Função : // Autor : // Data : 29/9/2008 // Seção de Declarações var pessoa:vetor[1..5] de caractere p:inteiro inicio PARA p DE 1 ATE 5 FACA leia (pessoa[p]) FIMPARA Para (p) DE 5 ATE 1 FACA escreva (pessoa[p]) FIMPARA fimalgoritmo Deste jeito que o professor montou o Exercicio e mesmo com a resposta não consigo monta-lo no Visual-G alguém me de uma luz =)

Bom comecei a aprender [Vetor] Agora e estou Muito perdido!! gostaria da ajuda de Vocês para resolver o Seguinte exercicio!! 1) Um armazém contem 400 Produtos e para cada tipo de produto Existe um Código. Faça um algoritmo para ler o Código do produto e a quantidade em estoque. Depois,Monte dois Vetores para armazenar respectivamente os Códigos das Mercadorias e a quantidade dos produtos --------------------------------------------------- Tentei fazer!! codigo_produto:numerico quantidade_estoque:numerico codigo:vetor[1..400]numerico quantidade:vetor[1..400]numerico cont:inteiro tentei fazer mais estou muito confuso e não estou conseguindo nem sair do Começo!! se alguém puder me ajudar a fazer eu agradeço!! OBS: este exercicio e apenas para treino!!

Obrigado Pela ajuda Monica =)

Galera è o seguinte exercicio e gostaria de uma ajudinha!! 1) Na declaração de imposto de renda devem constar os dados: Nome do contribuinte,Renda Anual,Numero dependentes. Os calculos são feitos da forma a seguir a) Desconto de R$ 110,00 Por dependente b ) Com base na renda liquida (Renda anual Menos desconto) é calculada a liquota de contrubuição de acordo com a tabela: __________________________________________________ |RENDA LIQUIDA________________| ALIQUOTA (%) | |________________________________________________| |ATE R$ 900--------------------------------( INSENTO ) |DE R$ 901,00 ATE 5,000,00--------------( 5 ) |DE R$ 5,001,00 ATE 10,000,00----------( 10 ) |ACIMA DE R$10,001,00-------------------( 15 ) __________________________________________________ Faça um algoritmo para Calcular os valores dos Impostos a serem pagos por um numero indeterminado de contribuentes, Não se esqueã que, para facilitar seu trabalho, voce deve adotar um FLAG. ________________________________________________ tentei fazer assim , Deem uma olhada!! nome_contri:literal renda_anual,n_dependente,desconto,aliquota,rendaliq:numerico inicio Escreva ("Digite o nome do Contribuinte, ou FIM para terminar: ") leia (nome_contri) ENQUANTO (nome_contri <> "FIM") FACA Escreva ("Digite a Renda Anual :") leia (renda_anual) escreva ("Digite o Numero de Dependentes :") leia (n_dependente) desconto <- (n_dependente * 110) rendaliq <- (renda_anual - desconto) SE rendaliq <= 900 então aliquota <- 0 SE rendaliq <= 5000 então aliquota <- (rendaliq * 5%) SE rendaliq <= 10000 então aliquota <- (rendaliq * 10%) SENAO rendaliq > 10001 então aliquota <- (rendaliq * 15%) FIMSE FIMSE FIMSE escreva (aliquota) FIMENQUANTO _____________________________________________________________ Fiz assim mais acho que não esta correto, deve estar faltando algo!! no VISUALG no final ele da o resultado sempre como 0. se alguém poder me ajudar, me dizer onde esta errado, onde devo arrumar, Obrigado!!

Obrigado por responder "Monica" então como voce disse faltou as Variaveis num1,num2 tinha me esquecido! tentei fazer assim de uma Olhada!! Inicio | |num1,num2,tentativas:numerico | |tentativas <- 0 | |Leia (num1) |Leia (num2) | |ENQUANTO (num1) <> (num2) FAÇA |tentativas <- tentativas +1 |escreva ("tente novamente,voce errou") |Leia (num2) | |FIMENQUANTO | |escreva ("voce acertou o numero",num1,"em",tentativas,"tentativas" FIM

Obrigado por responder "db00m" então como você disse Aqui! le o numero 1 le num 2 enquanto for diferente.... Eu fiz o Seguinte!! Inicio | |num1,num2,tentativas:numerico | |tentativas <-0 | |ENQUANTO (num1) <> (num2) FAÇA | tentativas <- tentativas +1 |.... |FIMENQUANTO FIM Dentro dessa estrutuda de "ENQUANTO/FAÇA/FIMENQUANTO" pode ter comparação de 2 variaveiz? que no caso ali é num1 comparando com num2? tenho essa duvida poderia me responder?? Obrigado!!

Galera é o seguinte Exercicio!! Simular o jogo de advinhação: o jogador 1 escolhe um numero entre 1 e 10; o jogador 2 insere numeros na tentativa de acertar o numero escolhido pelo jogador 1. Quando ele acertar, o algoritmo deve informar que ele acertou o numero X (escolhido pelo jogador 1) em X tentativas (quantidade de tentativas do jogador 2). Eu aprendi a estrutura de Repatição ENQUANTO/faça/fim-enquanto. repita/ate que. para/faça/fim-para. E mesmo assim Nem consegui começar a fazer este exercicio!! eu não estou pedindo a resposta do exercicio gente, porque este exercicio e só para treino,so quero que alguém me ajude a fazer por favor, não sei nem como começar! =) Obrigado!!

Boa Denis, agora sim aprendi :D obrigado mesmo!! Logo logo posto mais duvidas para voce me ajudar hehehe abraços!!

Obrigado por responder Denis!! então eu fiz baseando nesse começo que voce fez olha como saiu!! var pessoa1,pessoa2,pessoa3,meio_pessoa,maior_pessoa,menor_pessoa:literal nota_pessoa1,nota_pessoa2,nota_pessoa3,maior_nota,menor_nota,meio_nota:numerico inicio Escreva ("Digite seu nome: ") leia (pessoa1) Escreva ("Digite sua nota: ") leia (nota_pessoa1) Escreva ("Digite seu nome: ") leia (pessoa2) escreva ("Digite sua nota: ") leia (nota_pessoa2) Escreva ("Digite seu nome: ") leia (pessoa3) escreva ("Digite sua nota: ") leia (nota_pessoa3) SE (nota_pessoa1 > nota_pessoa2) e (nota_pessoa1 > nota_pessoa3) então maior_nota <- nota_pessoa1 maior_pessoa <- pessoa1 SE (nota_pessoa2 > nota_pessoa3) então meio_nota <- nota_pessoa2 meio_pessoa <- pessoa2 SENAO meio_nota <- nota_pessoa3 meio_pessoa <- pessoa3 FIMSE FIMSE Se (nota_pessoa2 > nota_pessoa1) e (nota_pessoa2 > nota_pessoa3) então maior_nota <- nota_pessoa2 maior_pessoa <- pessoa2 SE (nota_pessoa1 > nota_pessoa3) então meio_nota <- nota_pessoa1 meio_pessoa <- pessoa1 SENAO meio_nota <- nota_pessoa3 meio_pessoa <- pessoa3 FIMSE FIMSE Se (nota_pessoa3 > nota_pessoa1) e (nota_pessoa3 > nota_pessoa2) então maior_nota <- nota_pessoa3 maior_pessoa <- pessoa3 SE (nota_pessoa1 > nota_pessoa2) então meio_nota <- nota_pessoa1 meio_pessoa <- pessoa1 SENAO meio_nota <- nota_pessoa2 meio_pessoa <- pessoa2 FIMSE FIMSE SE (nota_pessoa1 < nota_pessoa2) e (nota_pessoa1 < nota_pessoa3) então menor_nota <- nota_pessoa1 menor_pessoa <- pessoa1 SE (nota_pessoa2 < nota_pessoa3) então meio_nota <- nota_pessoa2 meio_pessoa <- pessoa2 SENAO meio_nota <- nota_pessoa3 meio_pessoa <- pessoa3 FIMSE FIMSE SE (nota_pessoa2 < nota_pessoa1) e (nota_pessoa2 < nota_pessoa3) então menor_nota <- nota_pessoa2 menor_pessoa <- pessoa2 SE (nota_pessoa1 < nota_pessoa3) então meio_nota <- nota_pessoa1 meio_pessoa <- pessoa1 SENAO meio_nota <- nota_pessoa3 meio_pessoa <- pessoa3 FIMSE FIMSE SE (nota_pessoa3 < nota_pessoa1) e (nota_pessoa3 < nota_pessoa1) então menor_nota <- nota_pessoa3 menor_pessoa <- pessoa3 SE (nota_pessoa1 < nota_pessoa2) então meio_nota <- nota_pessoa1 meio_pessoa <- pessoa1 SENAO meio_nota <- nota_pessoa2 meio_pessoa <- pessoa2 FIMSE FIMSE escreva (maior_pessoa , maior_nota , meio_pessoa , meio_nota , menor_pessoa , menor_nota) fimalgoritmo ---------------------------------- fico muito enorme, mais no Visualg deu certo!! assim esta certo? ou eu fiz Muita coisa? daria para diminuir? Abraços!!

Ler os nomes e as Notas de 3 Alunos, e Verificar qual a Maior delas e Imprimir um Relatorio com os Nomes e as Notas em Ordem Decrescente (Maior para Menor) Galera eu tentei fazer mais não sai desta parte!! pessoa1,pessoa2,pessoa3:literal nota_pessoa1,nota_pessoa2,nota_pessoa3,maior,menor,meio:numerico inicio Escreva ("Digite seu nome: ") leia (pessoa1) Escreva ("Digite sua nota: ") leia (nota_pessoa1) Escreva ("Digite seu nome: ") leia (pessoa2) escreva ("Digite sua nota: ") leia (nota_pessoa2) Escreva ("Digite seu nome: ") leia (pessoa3) escreva ("Digite sua nota: ") leia (nota_pessoa3) SE (nota_pessoa1 > nota_pessoa2) e (nota_pessoa1 > nota_pessoa3) então maior <- nota_pessoa1 FIMSE SE (nota_pessoa2 > nota_pessoa1) e (nota_pessoa2 > nota_pessoa3) então maior <- nota_pessoa2 FIMSE SE (nota_pessoa3 > nota_pessoa1) e (nota_pessoa3 > nota_pessoa2) então maior <- nota_pessoa3 FIMSE escreva (maior) fimalgoritmo não consigo sair dai :D se alguém puder me ajudar

Galera to no curso de Logica de programação e to com uma Duvida no Seguinte Exercicio de Expressoes Aritmeticas!! A,B,C,D: Numerico D <- 9,5 B <- (RZQD(ABS(D))) C <- B^(RESTO((D+B-0,5),3)) A <- (B*C)/2^2 tentei fazer mais Mais não sei se esta certo, deem uma Olhada e corijam por favor!! Aqui tentei fazer! B <- (RZQD(ABS(D))) (RZQD(9)) (3) C <- B^(RESTO((D+B-0,5),3)) B^(RESTO((12),3) B^(RESTO(12,3) B^(3) B^3 27 A <- (B*C)/2^2 (81)/2^2 81/4 20,25 Meu resultado deu Isso, mais não sei se esta certo!! quem poder ajudar Obrigado!!

Ajudem no Algoritmo abaixo, tenho algumas Duvidas Novamente!! >>>USO O VISUALG<<<< --------------------------------------------------------------------------------------------------------------- algoritmo "Lanche" var codigo,pastel,esfirra,kibe,cochinha,refrigerante,quantia:real inicio pastel <- 1,50 esfirra <- 1,00 kibe <- 0,80 cochinha <- 1,00 refrigerante <- 2,00 escreva ("(1 Pastel)(2 esfirra)(3 Kibe)(4 cochinha)(5 Refrigerante): ") leia (codigo) escolha codigo caso (1) escreva ("Quantos Pasteis voce deseja") escreva ("Digite a quantia: ") leia (quantia) escreva (quantia*pastel) caso (2) escreva ("Quantas esfirras voce deseja") escreva ("Digite a quantia: ") leia (quantia) escreva (quantia*esfirra) caso (3) escreva ("quantos Kibes voce deseja") escreva ("Digite a quantia: ") leia (quantia) escreva (quantia*kibe) caso (4) escreva ("Quantos Cochinhas voce deseja") escreva ("Digite a quantia: ") leia (quantia) escreva (quantia*cochinha) caso (5) escreva ("Quantos Refrigerantes voce deseja") escreva ("Digite a quantia: ") leia (quantia) escreva (quantia*refrigerante) outrocaso escreva ("este item não existe") fimescolha fimalgoritmo ------------------------------------------------------------------------------------------------------------ Duvida 1... quando e para sair o "Total a pagar" não Esta saindo a Virgula nem os 0 "Zero" Exemplo: Pesso 2 pasteis de 1,50 ele da o total exatamente assim = "2" um numero INTEIRO como se não estivesse somando ",50 Centavos" mais a variavel esta como REAL.... não intendo quando pesso a esfirra de 1,00, Exemplo 3 esfirras ele da o total de = "3" não esta aparecendo nem somando o resto depois da virgula... Duvida 2.... Os codigos vão ate 5, quando e digitado algum Numero alem desses Da a mensagem outrocaso escreva ("este item não existe") E o programa Finaliza, Como eu faria para ele não FINALIZAR e voltar para o Começo Novamente.... Duvida 3.... Nesta parte Abaixo.. escreva ("Quantos Pasteis voce deseja") escreva ("Digite a quantia: ") Mesmo eu escrevendo "escreva" Em cima e Em baixo, no programa ele sai escrito tudo junto na mesma linha, teria alguma Forma para alinhar cada FRASE em cada linha sem muntuar tudo.... Quem puder me ajudar =) Obrigado!!

Vlw Galera por ajudarem!

piloto : string Escreva "A velocidade média de ",(piloto)," foi ", (Velmedia) então, eu uso o Visualg e ele ta dando erro não ta aceitando o Comando: String e ele não ta aceitando olha: Escreva "A velocidade média de ",(piloto)," foi ", (Velmedia) depois dessa parte aki ",(piloto)," foi ", (Velmedia)" ele acusa Erro de SINTAXE... eu tava tentando usar o comando Substring em um outro exercicio e fkei perdido porque ele não conhece o comando u.u

Gente tenho uma duvida! tava montando esse exercicio so para treino mesmo e não estou conseguindo terminar n to sabendo algums comandos! alguém me ajuda olhaaa --------------------------------------------------------------------------------- algoritmo "Cálculo de Velocidade Média" var piloto,trecho1,trecho2,tempo,velmedia:real inicio escreva ("digite o nome do piloto") leia (piloto) escreva ("digite a distancia percorrida em KM no trecho 1") leia (trecho1) escreva ("digite a distancia percorrida em KM no trecho 2") leia (trecho2) escreva ("Digite o tempo gasto para percorrê-las (em horas)") leia (tempo) velmedia <- (trecho1+trecho2)/Tempo Escreva "A velocidade média de ",Nome," foi ", VelMedia fimalgoritmo ---------------------------------------------------------------------- 1 - queria saber como faço para deixar o nome do Piloto como "caracter" para digitar letras e não dar erro.... 2 - e por ultimo na hora de imprimir os resultados fazer algo tipo assim: Escreva "A velocidade média de ",piloto," foi ", Velmedia este comando ai para sair o resultado de tudo junto, não esta dando certo.... alguém poderia ajudar!

Oi galera! comecei ontem a ler sobre Logica de programaçao, e vou começar o curso, e antes to dando uma treinada já com ALgoritmos e tal.... vim aki para vocês me ajudarem a resolver uma coisa muito besta mais q eu n sei ainda! eu estava tentando montar algo que "Some uma NOTA1 + NOTA2" e saia o resultado na tela Olha ai como esta! ------------------------------------------------------------------------------- algoritmo "Calcule a media de 2 notas" var n1,n2,soma:real inicio escreval ("Digite sua primeira nota") leia (n1) escreval ("digite a segunda nota") leia (n2) soma <-(n1+n2)/2 fimalgoritmo -------------------------------------------------------------------------------- não saio disto ;( não sei como fazer para ele somar e sair o resultado, alguém pode ajudar xD e me ajudar a ver o que esta errado ai, porque to começando agora e não sei NADA ainda