Contador y Memoria

[Sh4k3]

Hola bueno quería hacerles una pregunta a ver si me pueden guiar:
La pregunta es, como haría yo para hacer un contador en VB6, oo sea que cada vez que se oprima un Cmd grave o guarde en alguna memoria +1
Esque para explicarme mejor, lo que quiero hacer, es un contador de votos, con tres Cmd:

1Cmd voto por. ---------------------> y que esta se guarde en una variable
2 Cmd voto por.----------------------> Esta en otra
3 Cmd voto nulo----------------------> Y esta en otra

Para al final de las votaciones, poder contar los votos.


                                                                                     Muchas Gracias amigos!

[-SharK_90-]

Agrega 3 command button (Command1 , Command2 , command3)
y 3 etiquetas Label (Label1 , Label2 , Label3) en un formulario (Form1)

Copia el siguiente código:

Private Sub Command1_Click()
Label1.Caption = Val(Label1.Caption) + 1
End Sub

Private Sub Command2_Click()
Label2.Caption = Val(Label2.Caption) + 1
End Sub

Private Sub Command3_Click()
Label3.Caption = Val(Label3.Caption) + 1
End Sub

Private Sub Form_Load()
Label1.Caption = 0
Label2.Caption = 0
Label3.Caption = 0
Command1.Capti on = "Voto 1"
Command1.Capti on = "Voto 2"
Command1.Capti on = "Voto 3"
End Sub

SALU2

[Sh4k3]

Hola shark_90 muhcas gracias por tu ayuda. 
Me sirve mucho el código aunque lo hize mediante Dim cand1 As Integer y en cmd Cand1 = cand1 + 1.
Pero tengo una pregunta acerca de como guardar las cuentas o el total de votos en un .txt para más seguridad o sea que con cada click en el Cmd se agrege + 1 al .txt y llevar las cuentas en el, puesto que si guardo los votos en una variable puede que el programa se cierre por cualquier motivo, las cuentas de los votos se borren y probablemente me maten .

 La pregunta la hago puesto que no encuentro nada en google acerca como guardar datos en un .txt apartir de un Cmd.
Espero me puedas o puedan ayudar.




                                                                            Gracias!!

[-SharK_90-]

No se muy bien hacer lo que vos me pedis, pero aca te dejo para que, cada vez que hagas una Votacion pulses en un Boton "Guardar", y te lo guarda en un archivo *.Txt...
Espero que te sirva,...

Private Sub Command1_Click()
Label1.Caption = Val(Label1.Caption) + 1
End Sub

Private Sub Command2_Click()
Label2.Caption = Val(Label2.Caption) + 1
End Sub

Private Sub Command3_Click()
Label3.Caption = Val(Label3.Caption) + 1
End Sub

Private Sub Command4_Click()
CommonDialog1. Filter = "Documentos de Texto|*.Txt"
CommonDialog1. ShowSave
pr = FreeFile

Open CommonDialog1. FileName For Output As pr
Print #pr, "Votacion"
Print #pr, "Votacion 1 =" & Label1.Caption
Print #pr, "Votacion 2 =" & Label2.Caption
Print #pr, "Votacion 3 =" & Label3.Caption
Close pr

End Sub

Private Sub Form_Load()
Label1.Caption = Val(0)
Label2.Caption = Val(0)
Label3.Caption = Val(0)
End Sub

Tines que agregar:
4 command_Button
3 Label
1 CommonDialog


PD:   Prometo buscar lo que necesitas y despues lo posteo....

SALU2,

[Sh4k3]

Muchísimas Gracias por responder tan rápido shark_90 

Está muy muy útil el código, pero no me sirve men, pues como es una votación y apenas que una persona vota, va la otra,y luego la otra,  tonces me sería realmente difícil clickear el Cmd para guardar....



PD:  Ok yo también lo voy a buskar, si lo encuentro también lo posteo 




                                                                             Salu2

[crypto136]

prueba con esto:

Código:

Private Sub Form_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 49
    Label1.Caption = Val(Label1.Caption) + 1
    Open App.Path & "\Candidato#1.log" For Output As #1
        Print #1, Label1.Caption
    Close #1
Case 50
    Label2.Caption = Val(Label2.Caption) + 1
    Open App.Path & "\Candidato#2.log" For Output As #1
        Print #1, Label2.Caption
    Close #1
Case 51
    Label3.Caption = Val(Label3.Caption) + 1
    Open App.Path & "\Candidato#3.log" For Output As #1
        Print #1, Label3.Caption
    Close #1
End Select
End Sub

Private Sub Form_Load()
MsgBox "Presiona las teclas 1, 2 y 3 para aumentar los labels", vbInformation, ""
On Error Resume Next
Open App.Path & "\Candidato#1.log" For Input As #2
    Label4.Caption = "Candidato#1: "
    Line Input #2, voto
    Label1.Caption = voto
Close #2
Open App.Path & "\Candidato#2.log" For Input As #2
    Label5.Caption = "Candidato#2: "
    Line Input #2, voto
    Label2.Caption = voto
Close #2
Open App.Path & "\Candidato#3.log" For Input As #2
    Label6.Caption = "Candidato#3: "
    Line Input #2, voto
    Label3.Caption = voto
Close #2
End Sub

lo hice al momento asi que disculpa los errores 

[Sh4k3]

  Muy Buen código men !!!!
Pero el problemita, es que el programa de votaciones que hago, es diseñado para personas no muy listas o demasiado curiosas.

Entonces a como es la gente, presionan otra tecla que no es, y conociendo a Visual Basic, se cerraría; y como los votos se guardan  en variables de vb  , se borrarían y    en ese instante yo  dejaría de existir  puesto que seguro me ahorcan...


Por eso es que toy tratando de hacer que al click del Cmd  guarde el voto  en un .txt y asi sería un poquillo mas seguro el programa.


                                                  Muchísimas Gracias por la ayuda!!


Pd: Si encuentras el código que necesito, me ayudas o ayudan porfis....Grac ias

[crypto136]

jejeje..... pues para eso es esto:

Open App.Path & "\Candidato#1.log" For Output As #1
        Print #1, Label1.Caption
    Close #1

esto te guarda en un archivo llamado Candidato#1.log.... y si se cierra el programa cuando lo abres se vuelven a cargar los votos... me parce que no has probado el code

[Sh4k3]

  OOOOOO men que verguenza!!!!!!!!!!
 
 

es que el programa de votaciones que hago, es diseñado para personas no muy listas

Y el no muy listo salí siendo yo  ...

---------------------
Disculpa men, ya lo probé bien, y me sirve de maravilla!, esque cuando lo probé no lo había hecho .exe, tonces no encontraba los .txt o .log.... jeje

 Y MIL GRACIAS!!!!!!!!!!!!! Eso era lo que necesitaba!  ;


Muchísimas Gracias crypto136 e igualmente  Muchísimas Gracias shark_90 por su preocupación...les agradezco muchísimo!