1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Ajuda num trabalho em Visual Basic

Discussão em 'Programação' iniciada por peralta, 25 de Fevereiro de 2007. (Respostas: 8; Visualizações: 4023)

  1. 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
     
  2. Romani48

    Romani48 Power Member

    Andas na ESIC?? aha já somos dois... pena que quando quis entrar em informatica não havia turma :(

    Lol
     
  3. peralta

    peralta Power Member

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

    Romani48 Power Member

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

    peralta Power Member

    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: 25 de Fevereiro de 2007
  6. peralta

    peralta Power Member

    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
     
  7. 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
     
  8. 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.
     
  9. jota WA

    jota WA [email protected] Member

    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
     

Partilhar esta Página