USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Ajuda ao Iniciante
nattivo
FORTALEZA
CE - BRASIL
ENUNCIADA !
Postada em 04/06/2007 22:01 hs         
Boa noite amigos do forum!

Sou um iniciante no negocio de programação e estou precisando de uma ajuda.
Não sei se o que eu estou querendo é possível de ser feito através do visual basic, mas enfim, espero que me ajudem.

Estou precisando fazer um pequeno programinha que possua as seguintes funções.

1. botão com a função de somar +1 quando clicado (1, click, 2, click, 3.. e assim sucessivamente)
2. que tenha um local onde mostra o valor atual
3. que tenha um botão para salvar o resultado em TXT

Ou seja, literalmente um contador (como se fosse um contador de cliques no tal botão)

Os resultados não precisam ficar em base de dados, basta ter o comando para salvar em TXT mesmo.

Alguém poderia me ajudar a iniciar esse projeto? É possível fazer isso?

Agradeço desde já por toda e qualquer ajuda que possa aparecer =)
   
JOM
BOM JESUS DA LAPA
BA - BRASIL
ENUNCIADA !
Postada em 05/06/2007 02:09 hs            
Acho que é isto que vc quer:
Para testar insira um text1 e um command1
agora ponha na janela de código do command buton "command1" o seguinte código
If Text1.Text = "" Then
Text1.Text = 0
Else
Dim vvalor1 As Currency
vvalor1 = CCur(Text1.Text)
Text1.Text = vvalor1 + 1
End If
Copie corretamente os dados que tenho certeza que dará certo, boa sorte.
   
nattivo
não registrado
ENUNCIADA !
Postada em 05/06/2007 02:35 hs   
JOM,
 
Muito obrigado pela ajuda, consegui resolver aqui quebrando um pouco a cabeça e vasculhando em algumas apostilas =)
 
Usei esses dois códigos abaixo:
 
Private Sub salvar_Click()
  Dim resultado As TextBox
  f1 = FreeFile
  Open App.Path & "CONTAGEM.txt" For Output As #f1
  For Each resultado In contador
  Print #f1, resultado.Text
  Exit For
  Next
  Close #f1
End Sub
// esse eu atribui ao botão de Salvar, para pegar o resultado atual do textField e salvar em um arquivo .txt
 
 
Private Sub somar_Click()
  Numero = Val(resultado.Text)
  Soma = Numero + 1
  resultado.Text = Str(Soma)
End Sub
//e esse eu utilizei para contabilizar sempre +1 no resultado atual do textField
 
E por incrivel que pareça deu exatamente o que eu estava precisando!
 
Mas mesmo assim muito obrigado pela ajuda!
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2026   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página