• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

homem_serio

Contador em visual basic 6.0

16 mensagens neste tópico

Quando adiciono um artigo, exemplo 2 àguas, gostava que numa listbox me aparece-se o número de aguas que estou a adicionar.

obrigado.  :wallbash:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

E podes mostrar o que tens ?

Basicamente só necessitas de incrementar uma variável.

        Dim contador As Integer

        contador = contador + 1

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

logo posso deixar aqui o código. Tenho 3 listboxs, 1 é onde vou buscar o nome do produto, outra vai buscar o preço e consoante o número de vezes efectua a soma e a terçeira era onde cria que me desse o númerode vezes que o produto foi registado.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Private Sub Command2_Click()

novo = 1

For ListIndex = 0 To List1.ListCount

    If Text2.Text = List1.List(ListIndex) Then

      novo = 0

      valor1 = Val(Text3.Text)

      valor2 = Val(List2.List(ListIndex)) + valor1

      List2.RemoveItem ListIndex

      List2.AddItem valor2

      Exit Sub

    End If

Next ListIndex

If novo = 1 Then

  List1.AddItem Text2.Text

  List2.AddItem Text3.Text

End If

End Sub

O programa está a somar o preço à medidia que vou adicionando produtos, falta um contador com o número por exemplo

List1      List2      List3    List4

Água        1€        x4      4€

Era algo assim. Já consegui os dois primeiros list faltam os dois ultimos.

cumps!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Nessa list tens que ter um campos para as quantidades e é aí que vais alterá-la se a linha tiver o mesmo produto já adicionado.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Tentei fazer um ciclo para isso , mas não consegui o que queria. Preciso de ideias ou algum código "base" para conseguir ultrapassar esta duvida. Obrigado

ps: List 3/4

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Mostra lá uma imagem do que tens(form) para ver se ajuda.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Assim como estás a fazer não dá simplesmente, ou seja, imagina que tu recebes varias pessoas para uma mesa e essas pessoas vão fazer encomenda daquilo que querem comer. Tu não vais estar lá apontar no caderno que são 8 sopas 8 vezes ou seja só apontas que é 8 sopas simplesmente numa linha. É isso que tens que fazer.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

é isso que eu quero , quero que a qtt apareca a frente

list1        list2          list3        list4

cafe          0.55€        5x              2.75€

mas nao quero q seja eu a carregar 5 vezes , quero que apareca qlq coisa para eu digitar

Estou aberto a sugestões de melhoria da aplicação.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Quando adicionar tens que por um campo a dizer o n.º de artigo que estás a vender, se veres o estais a fazer é totalmente ao contrario.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Ok, vamos lá ver.

Já não toco no VB6 faz uns anitos e queria continuar assim :D, mas...

Primeiro precisas de outra textbox ou coisa que o valha para determinar a quantidade do que estás a adicionar.

Algo por cima do botão adicionar ou assim.

Depois, ao trabalhares com listboxes do vb6... Podes fazer o seguinte:

Imagina que meteste 5 Canjas de galinha.

O que deves adicionar à lista é Qtd & " x " & Produto, produzindo uma string do género: 5 x Canjas de galinha.

O preço calculas ao adicionar.

Se precisares de utilizar mais tarde a quantidade daquele item, podes simplesmente fazer um Split(Linha," x ") para dentro de um array.

Assim tens no índice 0 do array a quantidade e no índice 1 o produto.

Preços em outra listbox não é boa prática. Sinceramente não me lembro do VB6 o suficiente para te sugerir outro controlo.

Podes simplesmente contar tabulações e meter o preço na própria linha, preparada para parsing, claro. Nunca se sabe.

mas nao quero q seja eu a carregar 5 vezes , quero que apareca qlq coisa para eu digitar

Sempre podes usar uma InputBox no acto de adição, ao invés da tal textbox ou coisa que a valha.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Este tópico está resolvido e para outra questão diferente deves criar uma nova questão :P

Para o teu problema só tens de colocar uma label e substituires Msgbox por Label1.Caption

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

O tópico já está resolvido mas cria só deixar o código com a solução para aquele meu problema do "Bom dia Boa tarde e Boa noite":

Me.Show

If (Time <= 0.5) Then

Label2.Caption = ("Bom dia")

End If

If (Time <= 0.75) Then

Label2.Caption = ("Boa tarde")

End If

If (Time > 0.75) Then

Label2.Caption = ("Boa noite")

End If

Coloquem no evento Form_Load.

cumps!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora