Programar con visual basic 6

'Problema:
'--------------------------------------------------------------------------------------------------------
'Cuando uno seleccione la opcion correcta en el primer intento se debe acumular 10 puntos.
'Si falla emite un mensaje de que dice que tienes otra oportunidad.
'Si en el segundo intento es la respuesta correcta ya no vale 10 puntos sino que vale 5.
'y si falla por segunda vez emite un mensaje que dice pierde.
'--------------------------------------------------------------------------------------------------------

'Respuesta:
'--------------------------------------------------------------------------------------------------------
'Se declaran variables globales.

Dim aciertos As Boolean
Dim pierdes As Integer
Dim Francisco_Tovar As Boolean
Dim Luis_Méndez As Boolean
Dim Jorge_Castro As Boolean

'En el combo1 se llama a la función seleccion
Private Sub Combo1_Click()
seleccion
End Sub

'Cargamos al combo algunos item, uno de ellos no juega.
Private Sub Form_Load()
Combo1.AddItem "Francisco Tovar"
Combo1.AddItem "Luis Méndez"
Combo1.AddItem "Jorge Castro"
Combo1.AddItem "Anibal Santellan"
End Sub
'Función selección que trabaja utilizando un select case tomando las variables del combo en el item seleccionado
Function seleccion()
Select Case Combo1
'Si en el combo se seleccionó "Francisco Tovar" se analiza la condición
Case "Francisco Tovar"
'Si la variable globar (declarada en la cabecera) es a -false- se informa el estado actual del contador
'Se actualiza el -text1- que es el asignado a la suma de los valores para este tipo de aciertos
'Recorda convertir a valor el contenido del textbox para poder sumarle esta primera vez "10"
If Francisco_Tovar = False Then
MsgBox "10 puntos a tu favor en la cuenta de Francisco Tovar. Tienes acumulado un total de: " & Val(Text1.Text) + 10 & " puntos.", vbInformation + vbOKOnly, "YES"
Text1.Text = Val(Text1.Text) + 10
'Declaramos la variable boolean global a -true- para que desde la segunda vez en adelante sume solamente 5
Francisco_Tovar = True
Else
'Desde aquí suma solamente 5 cada vez que se pulse en el combo este item
MsgBox "5 puntos a tu favor en la cuenta de Francisco Tovar. Tienes acumulado un total de: " & Val(Text1.Text) + 5 & " puntos.", vbInformation + vbOKOnly, "YES"
Text1.Text = Val(Text1.Text) + 5
End If
Case "Luis Méndez"
If Luis_Méndez = False Then
MsgBox "10 puntos a tu favor en la cuenta de Luis Méndez. Tienes acumulado un total de: " & Val(Text2.Text) + 10 & " puntos.", vbInformation + vbOKOnly, "YES"
Text2.Text = Val(Text2.Text) + 10
Luis_Méndez = True
Else
MsgBox "5 puntos a tu favor en la cuenta de Luis Méndez. Tienes acumulado un total de: " & Val(Text2.Text) + 5 & " puntos.", vbInformation + vbOKOnly, "YES"
Text2.Text = Val(Text2.Text) + 5
End If
Case "Jorge Castro"
If Jorge_Castro = False Then
MsgBox "10 puntos a tu favor en la cuenta de Jorge Castro. Tienes acumulado un total de: " & Val(Text3.Text) + 10 & " puntos.", vbInformation + vbOKOnly, "YES"
Text3.Text = Val(Text3.Text) + 10
Jorge_Castro = True
Else
MsgBox "5 puntos a tu favor en la cuenta de Jorge Castro. Tienes acumulado un total de: " & Val(Text3.Text) + 5 & " puntos.", vbInformation + vbOKOnly, "YES"
Text3.Text = Val(Text3.Text) + 5
End If
Case Else
'Si no se pulso en ninguna de las opciones preseteadas, el contador de la variable -pierdes- se incrementa en 1
pierdes = pierdes + 1
'Si pierdes es menor a 2, informa al usuario el estado actual y cuantas posibilidades estan habilitadas.
If pierdes < 2 Then
MsgBox "La respuesta no es correcta! Ha utilizado: " & pierdes & " de las 2 posibilidades permitidas.", vbInformation + vbOKOnly, "NO GANAS PUNTOS"
End If
'Si la variable global -pierdes- es igual o mayor a 2, informa que ha perdido, finalizado el juego, y deshabilita los controles.
If pierdes >= 2 Then
MsgBox "Solo estan permitidos dos actos fallidos! Ha perdido.", vbCritical, "Ha finalizado el Juego"
Combo1.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Text3.Enabled = False
End If
End Select
End Function
'-----------------------------------------------------------------------------------------------------------

Hola copia el código mas arriba y pegalo en la sección código del form.
Agrega al formulario un combo1 y tres textbox text1, text2, y text3 y probalo.

Si queres hacerle algún arreglo, tenés alguna inquietud o pregunta, estoy a tu completa disposición en lo que humildemente podemos hacer.

Un fuerte abrazo.

Desde Bragado, Provincia de Buenos Aires, República Argentina-

Luis

alguien me puede ayudar en visual vasiv 2010 Realice un programa que capture 10 nombres personales en un arreglo y luego que los ordene y que estos aparezcan en un ListBox

hola, si cierto tenemos el mismo apellido., te dejo mi msn para ver si podemos hablar del tema mas comodamente mi msn es el siguiente: andresgenaro20@hotmail.com y gracias por todo.,

bueno mira estos los uso Combo1.Enabled = False
Text1.Enabled = False para desabilitar los controles por que si gano los 10 puntos paso a otras preguntas y si gano 5 igualmente y si fallo en mis 2 intentos paso a la otra pregunta pero sin puntos ya que mis respuestas fueron incorrectas..

lo que quiero saber es como hacer para que si es incorrecta mi primer intento el segundo si lo acierto me vale 5 y asi pasar a la segunda pregunta que es en otro combo.. y si en el primero acirto gano 10 y paso a la segunda pregunta..

veamos si me entiendes de esta manera a ver.,

cuando yo le de a la opcion Francisco tovar en el combo en mi primer intento me gano 10 puntos.,
pero si le doy a a cualquiera de las otras opciones me queda una segunda oportunidad.
si en mi sugundo intento le doy a la opcion Francisco Tovar me gano 5 puntos.,

bueno luis muchas gracias por todo., aqui en venezuela cuando 2 personas tienen el mismo nombre o apellido nos decimos tocallos.,,. bueno espero que guardes me msn para que hablemos mejor del tema.,

Un Abrozo

Genaro.

Hola, podria alguien darme una manito con mi sistema cotizador, no arranca esta hecho en visual pero nose no funicona, alguien q me ayude mi email es karinanyi@gmail.com

NECESITO EL CÓDIGO EN VISUAL BASIC QUE IMPRIMA CUANTOS APROBADOS Y REPROBADOS HUBO EN EL 5TO SEMESTRE EN LA MATERIA DE MATEMÁTICAS (30 ALUMNOS).

Hola Bueno, esta leyendo el foro y pense que podrías ayudarme, sabes estoy creando un progama en visual basic 6.0, una factura para ser exacto:
Cuando yo genere una factura debo ingresar la cantidad de productos que que se vana vender, ahora el caso es que al momento de guardar solo debe de guardar los primeros 10 Items, luego debe generar una nueva factura automáticamente y guadar tambien solo 10, claro para eso eso 10 primero Items ya se deben de haver eliminado despues de ser guardara.
este proceso debe continuar hasta que ya no quede ningun item , de modo si son 50 productos facturados se debieron haber creado 5 facturas.

Espero tu respuesta amigo ami meil si fuera posible
hurtado_07@hotmail.com
le agradesco de antemano tu ayuda.

hola nesesito tu ayuda si porfavor me puedes hayudar con un programa de visual basic con unos ejercicios de de vectores y matrizes por favor

Enrique un abrazo afectuoso.
Te ruego me expliques mejor lo que deseas y con gusto si está a mi alcance trataré de ayudarte.
Enviame plataforma de desarrollo, y mas pormenorizado lo que queres obtener.

Elinv

malo malo pue sya ponte a programar heeee!!!!!!!!!!! aver si ya vas investigando mas .....................Todo quieres______________________________

hola JACKIE no se para que escribes el nombre de tu empresa si en realidad no solicitado ayuda o has enviado respuesta.¿No crees debes de ser mas considerada y dejar de hacer perder eltiempo a las personas que lo nesecitan??.
solo es una opinión.

hola quien conoce del programa saint me podria enseñar como modifico los formatos de impresion (factura, reporte) lo que pasa es que ellos estan sobre un formato .txr y no se mucho de dos ........................ gracias

hola como estan necesito realizar una factura en excel programando en visual si me podrian ayudar con eso muchas gracias mi correo es vito_ar17@hotmail.com

hola por favor ayuda como declaro este código que esta en Java en Visual Basic por favor ayúdenme.

Scanner teclado=new Scanner(System.in);
int aprobados,reprobados,f,nota;
aprobados=0;
reprobados=0;
for(f=1;f<=10;f++) {
System.out.print("Ingrese la nota:");
nota=teclado.nextInt();
if (nota>=7) {
aprobados=aprobados+1;
} else {
reprobados=reprobados+1;
}
}
System.out.print("Cantidad de aprobados:");
System.out.println(aprobados);
System.out.print("Cantidad de reprobados:");
System.out.print(reprobados);
}
}

Mira tengo que hacer un último programa que en base a unos valores de "y" saque todas las diferencias posibles.
Ejemplo:
y...?'y..?''y
2................
4...-2..........
6...-2........0
8...-2........0
10.-2........0

asi que vaya sacando las diferecias sucesivamente como puedo hacer un programa asi en visual basi 6. Y que después pregunte un valor entre "x" . Que clcule k=(x-1)/h que pregunte el incremento "h".
Me podrían ayudar con el código hasta aquí.

como puedo resolver este ejercicio
dada la cantidad en euros,obtener la equivalencia en dolares, bolívares , peso colombiano y en libras esterlinas

AYUDA POR FAVOR NECESITO EL CÓDIGO EN VISUAL BASIC QUE IMPRIMA CUANTOS APROBADOS Y REPROBADOS HUBO EN EL 5TO SEMESTRE EN LA MATERIA DE MATEMÁTICAS (30 ALUMNOS).