Programa para votaciones

[Jose_jose]

Buenas, soy medio nuevo en esto le la programación, estoy realizando un programa para contar los votos de votaciones de un colegio(soy estudiante xD), pero tengo algunos problemas:

lo que estoy usando para contar los votos es:

MsgBox "Fulanito obtuvo " & votofulanito & " votos"
MsgBox "Jamito obtuvo " & votojaimito & " votos"
MsgBox "Y hubieron " & votonulo & " votos nulos"
votofulanito = 0
votojaimito = 0
votonulo = 0

pero me gustaria que eso se guardara en un txt en caso de q se vaya la electricidad, luego le agrege un boton pekeño para que lo rediriga a el form2 con un sistema de logueo que si los carateres estan bien lo llefva al form3 q aki es dnd tengo el problema xq este form3 lo puse como panel de control para cambiar los nombres de los partidos, pero el problema es que los label con el nombre de los partidos estan en el form 1 y noc como hacer que desde el form3 se modifique los labels del form1. Espero que me puedan ayudar. Gracias!!

[pkj]

Solo tienes que poner delante el nombre del form:

Form1.Label1.Caption = "NuevoTexto"

Saludos

[Jose_jose]

Muchas Gracias me funcionó el código!, haha ahora tengo otros problemas y son los siguientes:

Como hago para que al entrar a un form a los 10 segundos se cierre el form y lo devuelva al otro, en fin como poner a funcionar el Timer.

Ahora el otro Problema:

el codigo del conteo de las votaciones es:

Dim votouno as integer
'Variable Global

'al hacer click en el boton :

Votouno = votouno +1

' Ahora como hago para que cada voto se guarde en un archivo.txt o en la memoria de la pc(que no tengo ni la mas minima idea), esto con el fin de que si se fuera la electricidad tener un backup. Gracias!

[pkj]

Ya que por defecto los timers se crean con la propiedad Enabled = true, para activar un timer (que has insertado en un form) solo tienes que darle valor a la propiedad Interval.
un interval de 10000 son 10 segundos.
En el momento que cargues el form se pondrá en marcha el timer, y a los 10 segundos se ejecutará lo que le programes.

Para guardar y acceder a esos pocos datos lo mejor es usar un fichero .ini
Aqui te paso un mensaje donde puse las funciones de guardar y leer datos de un ini.
Estudialo un poco y si tienes dudas plantealas.

http://www.forosdelweb.com/f69/guard...on-app-765542/


Saludos

[juaco14]

Si usas un boton para abrir el formulario, podes usar algo de esto:

Private Sub Command1_Click()
Timer1.Enabled = True
Form2.Show
End Sub

Private Sub Timer1_Timer()
Unload Form2
End Sub

[Jose_jose]

Juaco Muchas Gracias y Pkj lo del timerme funcionó bien! muchas gracias haha y lo del .ini no lo entendí muy bien

[pkj]

Pues es muy simple:
Copias en un módulo el código que puse, (y también puse como agregar el módulo), y después en tu programa, cada vez que se sume un voto lo guardas en el fichero .ini.

VotosParaJuanito=VotosParaJuanito+1
GuardarIni app.path & "Config.ini", "Votacion2010", "Juanito", VotosParaJuanito

Cuando quieras puedes recuperar los valores guardados:

VotosParaJuanito = LeerIni(app.path & "Config.ini", "Votacion2010", "Juanito", 0)

O simplemente editar el fichero Config.ini de la carpeta del programa y ver los valores.


Que se dé bien.

[Jose_jose]

1.
#If Win32 Then
2.
'Declaraciones para 32 bits
3.
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" _
4.
(ByVal lpApplicationName As String, ByVal lpKeyName As Any, _
5.
ByVal lpDefault As String, ByVal lpReturnedString As String, _
6.
ByVal nSize As Long, ByVal lpFileName As String) As Long
7.
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _
8.
(ByVal lpApplicationName As String, ByVal lpKeyName As Any, _
9.
ByVal lpString As Any, ByVal lpFileName As String) As Long
10.
#Else
11.
'Declaraciones para 16 bits
12.
Private Declare Function GetPrivateProfileString Lib "Kernel" _
13.
(ByVal lpApplicationName As String, ByVal lpKeyName As Any, _
14.
ByVal lpDefault As String, ByVal lpReturnedString As String, _
15.
ByVal nSize As Integer, ByVal lpFileName As String) As Integer
16.
Private Declare Function WritePrivateProfileString Lib "Kernel" _
17.
(ByVal lpApplicationName As String, ByVal lpKeyName As Any, _
18.
ByVal lpString As Any, ByVal lplFileName As String) As Integer
19.
#End If
20.

21.
Sub GuardarIni(FicheroINI As String, Seccion As String, _
22.
Clave As String, Valor As String)
23.
On Local Error GoTo ErrorGuardarIni
24.
WritePrivateProfileString Seccion, Clave, Valor, FicheroINI
25.
Exit Sub
26.
ErrorGuardarIni:
27.
MsgBox Err.Number & ". " & Err.Description
28.
Err.Clear
29.
End Sub
30.

31.
'------------------------------------
32.

33.
Function LeerIni(FicheroINI As String, Seccion As String, _
34.
Clave As String, Optional ValorDefault) As String
35.
Dim lpString As String
36.
Dim LTmp As Long
37.
Dim sRetVal As String
38.
On Local Error GoTo ErrorLeerIni
39.
If IsMissing(ValorDefault) Then
40.
lpString = ""
41.
Else
42.
lpString = ValorDefault
43.
End If
44.
sRetVal = String$(255, 0)
45.
LTmp = GetPrivateProfileString(Seccion, Clave, _
46.
lpString, sRetVal, Len(sRetVal), FicheroINI)
47.
If LTmp = 0 Then
48.
LeerIni = lpString
49.
Else
50.
LeerIni = Left(sRetVal, LTmp)
51.
End If
52.
Exit Function
53.
ErrorLeerIni:
54.
MsgBox Err.Number & ". " & Err.Description
55.
Err.Clear
56.
End Function

Es ese? al ponerlo en un modulo me dice lo siguiente: Se esperába: numero de linea o etiqueta.

Si me podes ayudar xD

[pkj]

Te sobran los numeros entre lineas. Todos los que tienen el punto.
No se como lo habrás copiado.

[Jose_jose]

Pero digamos ents lo que hago es acomodar los numeros a la par de su respectiva linea?

[erbuson]

Lo que debes hacer es COPIAR de la manera correcta el código no lo selecciones y copies sino que debes darle al Copiar que aparece en la parte superior del mismo, después haces el Pegar en tu programa.

Creo que este es el enlace http://www.forosdelweb.com/f69/guard...2/#post3223483 directo al post.

[pkj]

La verdad es que no sé como lo habrás hecho para copiarlo con números y todo.
Yo cuando lo selecciono no consigo seleccionar tambien los números.

De todos modos el mejor modo de copiar el código es pinchar en "Ver original" y ahí copiar el texto.
Cuando pincho en "copiar" se me copia todo amontonado en un par de líneas, y cuando selecciono a mano el texto se copia sin el formato (las tabulaciones).
Lo mejor: "Ver original".

Saludos.

[Jose_jose]

pkj ya me sirvió el modulo, pero ahora al darle click en el boton con VotosParaJuanito=VotosParaJuanito+1
GuardarIni app.path & "Config.ini", "Votacion2010", "Juanito", VotosParaJuanito me dice:

El tipo de argumento ByRef no coincide.

Si ocupas q te pase el form me decis. gracias y perdon por durar en contestar

[pkj]

Imagino que el error es porque la función espera un string y estás mandando un número.

Cambia la línea por:

GuardarIni app.path & "\Config.ini", "Votacion2010", "Juanito", CStr(VotosParaJuanito)

Fíjate tambien que el fichero lleva un caracter "\" que antes no puse. Eso es porque App.Path no incluye ese caracter a no ser que el programa se ejecute desde el directorio raiz de un disco, de modo que te iba a guardar mal el fichero. Haz lo mismo con LeerIni.

LeerIni(app.path & "\Config.ini", "Votacion2010", "Juanito", 0)

Saludos

[Jose_jose]

Ahora si me funcionó bien! Muchas Gracias haha, ahora vengo con otra dudilla xD haha

al darle click en un boton se esconde el form1 y se abre form3 con un mensaje y un timer interval = 10000, despues de q se acaba el tiempo se esconde form3 y se abre form1, lo raro es q el interval keda activado ents cada diez segundos se abre el form 1 aunk no este en el form3. espeor que puedan ayudarme ;)

[pkj]

Tienes que desactivar el timer dentro de su subrutina y activarlo en el evento activate del form3.

Código vb:

Private Sub Timer1_Timer()
  Timer1.Enabled=False
  Form1.Show
  Me.Hide
End Sub
Private Sub Form_Activate()
  Timer1.Enabled = True
end Sub
 

Aunque si el form3 se debe cerrar completamente cuando se abre el 1 lo mejor es que despues de mostrar el form1 hagas el unload del form3. De ese modo el timer se descarga con el Form y no se vuelve a activar hasta que vuelves a cargar el Form3

Código vb:

Private Sub Timer1_Timer()
  Form1.Show
  Unload Me
End Sub
 

Que se dé bien

[Jose_jose]

Perfecto me funciono bien!. Muchas gracias!

Ahora si me pueden ayudar con lo siguiente:

Kiero poner una imagen arriba de un boton(noc si usar una picture box o una image), como hacer para poder cambiar la ruta de la imagen desde otro form y tambien les pido como hacer para que el form1 se abra maximizado. Muchas gracias por ayudarme!. Saludos!

[seba123neo]

Iniciado por Jose_jose

Perfecto me funciono bien!. Muchas gracias!

Ahora si me pueden ayudar con lo siguiente:

Kiero poner una imagen arriba de un boton(noc si usar una picture box o una image), como hacer para poder cambiar la ruta de la imagen desde otro form y tambien les pido como hacer para que el form1 se abra maximizado. Muchas gracias por ayudarme!. Saludos!

no mira son dudas muy basicas, si bien el foro es para ayudar, pero se supone que esas preguntas no se tiene que hacer aca, tenes varios manuales de visual basic dando vueltas en internet, te lees uno completo y te aseguro que esas dudas y muchas mas desaparecen...

saludos.

[juaco14]

Te respondo lo mismo de seba123neo.
Aca estamos para ayudar, no para hacer tu trabajo.

Que quede bien claro, ya que no es la primera vez que se plantea esto.

Google si hace tu trabajo

PD: Me quedo bien lindo el Google

[Jose_jose]

Yo entiendo lo que kieren decir pero la verdad muchas cosas no las encuentro en la web y si las encuentro son un poco distintas

[pkj]

El caso es que tienen razón. Son cosas muy básicas que en google encuentras sin problemas.
Deberías usarlo más. Hay muchos ejemplos y manuales que puedes mirar.

En fin. Para cargar o cambiar un picture desde cualquier sitio usas algo como:

Form1.Picture1.Picture = LoadPicture("C:\carpeta\otracarpeta\tufoto.jpg")

Y para cambiar de tamaño un form tienes vbmaximized, vbminimized y vbnormal:

Form1.WindowState = vbMaximized

Que se dé bien.

[Jose_jose]

Ok Muchas Gracias