Proyecto urgente alguien me puede ayudar???

[PowerOfCild]

Disculpen las molestias que estoy causando pero podria alguien ayudarme con
este proyecto que no tengo idea de como hacer


1. Suponte las elecciones recién pasadas, en donde hubieron dos candidatos (PACO y ZONIA), la identificación del voto para cada partido es 1 para PACO y 2 para ZONIA. Haz un programa que sume los votos para cada uno con su respectivo porcentaje y el total de votos emitidos.
El usuario tecleará los votos de manera desorganizada, tal y como sucede en la realidad, el final del programa estará determinado cuando se digite un cero (0).
Es decir los usuarios podrán digitar 1 2 1 2 1 2 1 2 1 …..y si digitan 0, entonces el programa terminará y los resultados habrán de ser mostrados en pantalla. Los resultados a mostrar serían:
• Total de votos para PACO y su porcentaje
• Total de votos para ZONIA y su porcentaje
• Total de votos emitidos (esto es la sumatoria de todos los votos digitados)
(Deberás combinar las estructuras de control Do While con la If)

[Monimo]

porque no tienes idea? Que has pensado? Como piensas hacerlo?... Empieza por hacer pseudocódigo...para que puedas desarrollarlo Saludos! Si te atoras en algo te ayudamos!!

[oskarvisual]

Cuando yo estudiaba... me dejaban problemas similares... era divertido desarrollarlos

A mi se me ocurre hacerlo de la siguiente manera, pero en ningun momento uso un if ni un do while, es mas por mas que trato de utilizarlos no se me ocurre en donde....

No tengo mi PC a la mano pero te puedo dar una idea...

Crea 3 variables de tipo entero...

Código vb:

DIM PACO AS INTEGER 
DIM ZONIA AS INTEGER 
DIM TOTAL AS INTEGER
 

Ahora en el evento keypress o keydown del formulario tendrías que hacer algo asi..
no tengo mi pc, como ya dije... por lo que no se cuales son los keycode... para saberlo pordrias usar este codigo

Código vb:

msgbox keycode
 

te va a salir un mensaje con el codigo de la letra.

Ahora retomando el prgrama

Código vb:

Select case keycode
case tecla 1 (remplazalo por el keycode de la tecla 1):
PACO = PACO  +1
case tecla 2 (remplazalo por el keycode de la tecla 2):
ZONIA = ZONIA+1
case tecla 0 (remplazalo por el keycode de la tecla 0):
TOTAL=PACO +ZONIA 
msgbox "Paco tubo " & PACO & " votos con un porcentaje de " & TOTAL * PACO/100 & "ZONIA tubo " & ZONIA & " votos con un porcentaje de " & TOTAL * ZONIA  /100  & " Total de votos emitidos " & TOTAL
'VACEAMOS LAS 3 VARIABLES PARA REINICIAR TODO
PACO=0
ZONIA =0
TOTAL =0
End selct
 

Puede que mi logica no este bien... ya que no tengo mi pc a la mano... pero ahí esta la idea...

[pkj]

Creo que lo que intentas es algo asi:

Código vb:

Private Sub Command1_Click()
  Dim sRespuesta As String
  Dim lPaco As Long
  Dim lSonia As Long
  Dim lVotos As Long
  Do While Not (sRespuesta = "0")
    sRespuesta = InputBox("Introduce un número (0=Finalizar / 1=Voto para Paco / 2=Voto para Sonia):", "Votaciones 2010")
    If sRespuesta = "1" Then lPaco = lPaco + 1
    If sRespuesta = "2" Then lSonia = lSonia + 1
  Loop
  lVotos = lPaco + lSonia
  If lVotos > 0 Then
    MsgBox "Total " & lVotos & " votos" _
    & vbCrLf & "Paco = " & lPaco & " votos -> " & Format((lPaco * 100) / lVotos, "0.00") & "%" _
    & vbCrLf & "Sonia = " & lSonia & " votos -> " & Format((lSonia * 100) / lVotos, "0.00") & "%"
  Else
    MsgBox "No se ha votado a nadie"
  End If
End Sub
 

Saludos

[PowerOfCild]

La variable 'sRespuesta' se utiliza antes de que se le haya asignado un valor. Podría darse una excepción de referencia nula en tiempo de ejecución.

que hago ante ese problema ??

[PowerOfCild]

ya todo solucionado muchas gracias !!!!! a todos ahora aprendí algo nuevo dios los bendiga y por gente como ustedes los demás podemos aprender