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

Programa Resolvido mas com erros.

Discussão em 'Programação' iniciada por lybabe, 13 de Março de 2009. (Respostas: 2; Visualizações: 525)

  1. lybabe

    lybabe Power Member

    Prepare um ficheiro que lhe permita guardar a informação sobre os empregados de uma empresa: nome, morada, telefone, departamento (contabilidade, administração, produção, supervisão e relações), nº de horas trabalhadas, salário hora.
    Realize as seguintes operações:
    - Inserir nova informação;
    - Alterar a informação existente;
    - Consultar o ficheiro por nome;
    - Consultar o ficheiro por departamento;
    - Calcular o salário do mês ilíquido para o empregado x.



    Boas já consegui resolver alguma parte do programa mas dá-me erro ao fazer debug alguem mo pode corrigir ou assim?

    Agradecido
    Cumprimentos



    Programa já resolvido mas com erros :

    Código:
    PublicClass Form1
    
    PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim Max AsInteger
    
    Max = Max + 1
    ReDimPreserve Nome(Max)
    ReDimPreserve Morada(Max)
    ReDimPreserve Telefone(Max)
    ReDimPreserve Departamento(Max)
    ReDimPreserve Horas(Max)
    ReDimPreserve Salario(Max)
    Nome(Max) = InputBox("Nome:")
    Morada(Max) = InputBox("Morada:")
    Telefone(Max) = Val(InputBox("Telefone:"))
    Departamento(Max) = InputBox("Departamento:")
    Horas(Max) = Val(InputBox("Horas:"))
    Salario(Max) = Val(InputBox("Salario:"))
    List1.AddItem(Nome(Max))
    List1.ListIndex = Max
    TNome = Nome(Max)
    TMorada = Morada(Max)
    TTelefone = Telefone(Max)
    CDepartamento = Departamento(Max)
    THoras = Horas(Max)
    TSalario = Salario(Max)
    
    EndSub
    
    
    PrivateSub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Dim Indx AsInteger
    
    If List1.ListIndex = -1 Then
    MgsBox("Não há elemento selecionado")
    
    Else
    
    Indx = List1.ListIndex
    Nome(Indx) = InputBox("Nome:")
    Morada(Indx) = InputBox("Morada:")
    Telefone(Indx) = Val(InputBox("Telefone:"))
    Departamento(Indx) = InputBox("Departamento:")
    Horas(Indx) = Val(InputBox("Horas:"))
    Salario(Indx) = Val(InputBox("Salario:"))
    List1.List(Indx) = Nome(Indx)
    TNome = Nome(Indx)
    TMorada = Morada(Indx)
    TTelefone = Telefone(Indx)
    CDepartamento = Departamento(Indx)
    THoras = Horas(Indx)
    TSalario = Salario(Indx)
    
    EndSub
    
    
    PrivateSub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    ListBox1.Text = Val(TextBox5.Text) * Val(TextBox6.Text)
    EndSub
    
    
    PrivateSub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles  ListBox1.SelectedIndexChanged
    
    Dim Indx AsInteger
    Indx = List1.ListIndex
    TNome = Nome(Indx)
    TMorada = Morada(Indx)
    TTelefone = Telefone(Indx)
    CDepartamento = Departamento(Indx)
    THoras = Horas(Indx)
    TSalario = Salario(Indx)
    EndSub
    
    PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
    
    EndSub
    
    EndClass[FONT=Comic Sans MS][SIZE=2][COLOR=#0000ff][SIZE=2][COLOR=#0000ff]
    [/COLOR][/SIZE][/COLOR][/SIZE][/FONT]  
     
    Última edição pelo moderador: 13 de Março de 2009
  2. lybabe

    lybabe Power Member

    em VB 2005

    Penso que isso está a dar erro porque está em visual basic 6.0 só que só trabalho com 2005 penso que é por isso que está a dar erro podiam me ajudar?

    Agradecido
     
  3. ribeiro55

    ribeiro55 Power Member

    Olá.
    Podias ter continuado no outro tópico. Se o problema é a exposição, com replies novos, o tópico volta cá para cima.

    Quanto aos erros... Jesus.
    Faltam-te carradas de espaços a separar Keywords de statements.
    A ideia da array é gira, mas...
    Código:
    Dim Max As Integer
    Max = Max + 1
    ...não vai sar do mesmo index

    Button1, 2 e 5 não são propriamente designações que passem ideia do que queres que esse botão vá fazer.

    Emprega a mesma "filosofia" do Button1 no Button2. Neste último, as arrays que usas não são declaradas

    I miss the point no Button5 e na ListBox.SelectedIndex

    Acho sinceramente que devias começar por aqui.
    Tenta descobrir, no mínimo, o que é, o que faz, e como devo usar, uma variável.

    É toda a ajuda quanta te posso dar agora.
     

Partilhar esta Página