Ajuda num trabalho em Visual Basic

peralta

peralta

Power Member
Eu tou a fazer um trabalho em VB mas tou com muitas duvidas e tenho que o entregar segunda-feira.... espero que me alguem ajude na parte do Efectuar Pagamento(eu já fiz parte dele mas nao ser como vou fazer o resto...)
Tou muito confuso....
Se alguem me ajudar a fazer o resto agradecia....
Convem fazer o codigo o mais simples possível...

Aqui está a folha do trabalho e a explicaçao...
http://img329.imageshack.us/my.php?image=tranalhodevbmc5.jpg

Aqui está o trabalho que já fiz...
http://ricardoperalta.home.sapo.pt/Trabalho em VB.zip

Estao aqui a recentes alteraçoes.
http://ricardoperalta.home.sapo.pt/Trabalho em VB2.zip

Falta meter a caderneta de bilhetes;
Falta dizer que o utilizador nao inserio o dinheiro todo para comprar o bilhete de um determinado percurso determinado percurso;
Falta aparecer no total e na pictuterbox o valor em euros e em centimos por exemplos 1.05 EUROS...se por exemplo meter 1 em 5 Cent no total vai aparecer 0 Euros e deveria parecer 0.05 Euros...mas se meter 20 em 5 Cent vai aparecer 1 Euros.
Falta a subtraçao do Valor do percurso com o total de dinheiro inserido(eu ja fiz isso, mas nao está a funcionar nao sei porque;
E falta mais algumas coisas mas nao tou a ver bem....

Alguem que me ajude no resto...por favor....lol

Eu relembro que tenho que entregar isto amanha dia, 26 de fevereiro de 2006, pelas 14.45H....lol..

Este tem mais alguma alteraçoes pequenas e a parte de dizer que nao inserio o dinheiro suficiente(mas n funciona...lol) mas o 2º que tá em cima ta melhor
http://ricardoperalta.home.sapo.pt/Trabalho em VB3.zip
 
Romani48 disse:
Andas na ESIC?? aha já somos dois... pena que quando quis entrar em informatica não havia turma :(

Lol
Clicar para expandir...

Nao é ESIC, mas sim ESDICA e também só existiu 2 turmas de informatica e se agora tiver o azar de chumbar tenho que voltar para o 10º...porque ja nao á o meu curso.

Se alguem me poder ajudar nisto agradecia...
 
Tava a ver se consiguia alguma cena, mas como eu uso o Microsoft Visual Basic 2005 Express Edition ele diz que vai actualizar mas no fim provoca algumas alterações no ficheiro que acaba por danifica lo... :(

espera por mais alguem

cumps
 
Romani48 disse:
Tava a ver se consiguia alguma cena, mas como eu uso o Microsoft Visual Basic 2005 Express Edition ele diz que vai actualizar mas no fim provoca algumas alterações no ficheiro que acaba por danifica lo... :(

espera por mais alguem

cumps
Clicar para expandir...

Eu tou a utilizar Microsoft Visual Basic 6.0

Pessoal some falta 3 cenas +- simpleste que nao consigo
1ª Falta aparecer no total e na pictuterbox o valor em euros e em centimos por exemplos 1.05 EUROS
Se por exemplo meter 1 em 5 Cent no total vai aparecer 0 Euros e deveria parecer 0.05 Euros...mas se meter 20 em 5 Cent vai aparecer 1 Euros.

2ªFalta a subtraçao do Valor do percurso com o total de dinheiro inserido(eu ja fiz isso, mas nao está a funcionar nao sei porque;

3ªFalta dizer que o utilizador nao inserio o dinheiro todo para comprar o bilhete de um determinado percurso determinado percurso;


Please alguem me ajude nestas tres coisas o http://ricardoperalta.home.sapo.pt/Trabalho%20em%20VB3.zip Já ta tudo resolvido menos estas 3...
Tenho que entregar isto amanha.... :lol: :lol:


Aqui está o executavel para tu veres http://ricardoperalta.home.sapo.pt/executavel vb.zip
 
Última edição:
Aqui esta o codigo que ja fiz: :wow: :wow: :wow: :lol:

Private Sub cmdCorrigir_Click()
Check1 = 0
Option1 = False
Option2 = False
Option3 = False
Option4 = False
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
lbl_total.Caption = ""
Pic_Troco.Cls
End Sub

Private Sub cmdpagamento_Click()
Pic_Troco.Cls
Call percursos
Call pagamento
Call troco
End Sub
Private Sub cmdTroco_Click()
Check1 = 0
Option1 = False
Option2 = False
Option3 = False
Option4 = False
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
lbl_total.Caption = ""
Pic_Troco.Cls
MsgBox ("O troco de " & troco & "€ foi de efectuado , Obrigado")
End Sub

Public Function pagamento()
valor5 = 5 * Val(Text1.Text)
valor2 = 2 * Val(Text2.Text)
valor1 = 1 * Val(Text3.Text)
valor50 = 0.5 * Val(Text4.Text)
valor20 = 0.2 * Val(Text5.Text)
valor10 = 0.1 * Val(Text6.Text)
valor05 = 0.05 * Val(Text7.Text)
total = Val(valor5) + Val(valor2) + Val(valor1) + Val(valor50) + Val(valor20) + Val(valor10) + Val(valor05)
lbl_total.Caption = total & " Euros"
Pic_Troco.Print "Dinheiro inserido = " & total & "€"
End Function

Public Function percursos()
If Option1.Value = True Then
bilhete = 10
ElseIf Option2.Value = True Then
bilhete = 7
ElseIf Option3.Value = True Then
bilhete = 4
ElseIf Option4.Value = True Then
bilhete = 0.5
Else
MsgBox "Selecione 1 dos 4 Percursos existentes"
End If
If Check1 = 1 Then
bilhete = 5 * Val(bilhete)
Else
Check1 = 0
End If
Pic_Troco.Print "Preço do Percurso(s) = " & bilhete & "€"
End Function

Public Function troco()
If total >= bilhete Then
troco = Val(total - bilhete)
Pic_Troco.Print "Troco = " & troco & "€"
Else
Pic_Troco.Cls
MsgBox "O dinheiro inserido nao é suficiente, Insira mais dinheiro"
End If
End Function

Private Sub Form_Load()
Check1 = 0
Option1 = False
Option2 = False
Option3 = False
Option4 = False
End Sub
 
trabalho visual basic

boas,
tenho em mãos um trabalho em visual basic para avaliação final de módulo. Já fiz parte do trabalho mas encontrei um erro que está a dar cabo de mim e não estou a conseguir decifrá-lo. será que poderias ajudar-me? cmps
 
Trabalho de programação

Estou agora a ter programação em visual basic e gostava de ajuda para resolver este exercicio.
agradeço se alguém me puder ajudar!! Realmente nao percebo muito disto e tambem so estou a começar agora!

Implemente um programa que permita ler números e guardá-los num vector até a
sua soma ser superior a 100. O programa deve, também, permitir executar as
seguintes opções de forma independente:
 Organizar o vetor de forma a ficarem os valores que são nulos seguidos dos
negativos e depois os positivos;
 Mostrar todos os números que são maiores que a média aritmética dos valores
introduzidos;
 Para cada número introduzido mostrar os que são capicua.
 
carlossousa2 disse:
Estou agora a ter programação em visual basic e gostava de ajuda para resolver este exercicio.
agradeço se alguém me puder ajudar!! Realmente nao percebo muito disto e tambem so estou a começar agora!

Implemente um programa que permita ler números e guardá-los num vector até a
sua soma ser superior a 100. O programa deve, também, permitir executar as
seguintes opções de forma independente:
 Organizar o vetor de forma a ficarem os valores que são nulos seguidos dos
negativos e depois os positivos;
 Mostrar todos os números que são maiores que a média aritmética dos valores
introduzidos;
 Para cada número introduzido mostrar os que são capicua.
Clicar para expandir...

Boas
Sabes que aqui ninguém te faz o trabalho,o que fazemos é ajudar-te a chegar lá!
O que tens feito até agora?
Cumps
 
Inicie sessão ou registe-se para poder participar.
Back
Topo