Ayuda con programas para visual basic 6

Iniciado por ThonyMaster, 28 Abril 2008, 03:22 AM

0 Miembros y 2 Visitantes están viendo este tema.

cassiani

#20
Bueno amigo, dejeme decirle que en este bloque a continuación

Código (vb) [Seleccionar]
If Option1 And Option2 And Option3 And Option4 And Option5 = False Then
x = MsgBox("debe seleccionar una opcion", vbCritical, "Opciones")
End If


Nunca entrará y te explico porque, pero antes ve este otro code

Código (vb) [Seleccionar]

Private Sub Command1_Click()
    If Option1 Then
        MsgBox "Entro porque el OptionButton esta seleccionado", vbCritical, "Prueba"
    End If
End Sub


Cuando le colocas la condición "If Option1 Then" lo que estas diciéndole es, si el option esta en true, es decir, activo, seleccionado, entones entra...

En tu code nunca entrará porque ese "= False" del final, solo esta afectando al option5, a los demás no, por lo tanto, estas diciendo que si todos están activos menos el ultimo, diga "no hay ninguno seleccionado" lo que es ilógico, además que debes tener todos los optionbutton o dentro de un frame o en el mismo form...

En conclusión, colócale a todos el igual a false.

y si no vas a usar lo que se almacena en la variable X, no veo por que la usas, solo que me digas que si tiene un fin.



vivachapas

Citary si no vas a usar lo que se almacena en la variable X, no veo por que la usas, solo que me digas que si tiene un fin.

si, lo q tienes q hacer ahi es:

MsgBox "debe seleccionar una opcion", vbCritical, "Opciones"


P/D:krackwar... si te molesta ayudar simplemente no postees...
igual para el resto q solo postea lo mismo... ya con el primer post bastaba para q se de cuenta q habia encarado mal la situacion...

SALUDOS

ThonyMaster

Sin Firma

krackwar

Cita de: vivachapas en  1 Mayo 2008, 04:34 AM
P/D:krackwar... si te molesta ayudar simplemente no postees...
igual para el resto q solo postea lo mismo... ya con el primer post bastaba para q se de cuenta q habia encarado mal la situacion...
SALUDOS
¿Estoy tan pesado? o todo el mundo esta contra mi? , pero , una pregunta a ustedes no les da rabia que ai gente que piensa que estamos para hacerle las tareas y ellos no hacen nada por aprender ellos mismos??.
Mi blog
Bienvenido krackwar, actualmente tu puntuación es de 38 puntos y tu rango es Veteran.
El pollo número 1, es decir yo, (krackwar), adoro a Shaddy como a un dios.

schumacher

#24
Cita de: krackwar en  1 Mayo 2008, 21:52 PM
¿Estoy tan pesado? o todo el mundo esta contra mi? , pero , una pregunta a ustedes no les da rabia que ai gente que piensa que estamos para hacerle las tareas y ellos no hacen nada por aprender ellos mismos??.
...no es que este en tu contra pero...
...sinceramente no es mi problema,  ;D

...volviendo al tema
...talvez lo podrias hacer con un "ELSE" asi talvez te quede mejor

...jeje usando el code de Casiani
Private Sub Command1_Click()
If Option1 Or Option2 Or Option3 Then
    MsgBox "Una Opcion a sido seleccionada", vbCritical, "Prueba"
Else
    MsgBox "Ningun Opcion a sido seleccionado", vbCritical, "Prueba"
End If
End Sub

ThonyMaster

como haria un programa q calcule los dias de la semana seria algo como esto:

Codigo:
Código (vb) [Seleccionar]
Private Sub Command1_Click()
Dia = Dia.Text
Mes = Mes.Text
Año = Año.Text
Mifecha = DateSerial(Año, Mes, Dia)
semana = Weekday(Mifecha, vbMonday)
dias = DateDiff("d", Mifecha, Now)
Diasvividos.Caption = dias

Select Case semana
Case 1
Dianaciste.Caption = "Lunes"
Case 2
Dianaciste.Caption = "Martes"
Case 3
Dianaciste.Caption = "Miércoles"
Case 4
Dianaciste.Caption = "Jueves"
Case 5
Dianaciste.Caption = "Viernes"
Case 6
Dianaciste.Caption = "Sábado"
Case 7
Dianaciste.Caption = "Domingo"

End Select
End Sub

si me pueden explicar o algo no se es si es asi solo me dijeron q era asi y asi lo ice pero no se es como calcular los dias de la semana???
Sin Firma

seba123neo

calcular los dias de la semana,¿¿pero con respecto a que??? ...ingresar una fecha y decirte que dia es ??
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

ThonyMaster

osea yo encontre esto con otros amigos q me ayudaron pero estuvimos inventando ayi aunq en realidad no se q es lo q tengo q acer solo me dijeron programa q calcule los dias de la semana solo eso y ya
Sin Firma

seba123neo

#28
pero por eso te estoy preguntando...calcularlo con respecto a que?? a una fecha??,le falta explicacion a ese problema..o directamente que te tire los dias de la semana...no se se me ocurre esto para saber el dia de la semana de una fecha determinada:

Private Sub Form_Load()
Dim DiaBendito As String
Dim i As Integer
i = DatePart("w", Now)
Select Case i
Case 2: DiaBendito = "Lunes"
Case 3: DiaBendito = "Martes"
Case 4: DiaBendito = "Miercoles"
Case 5: DiaBendito = "Jueves"
Case 6: DiaBendito = "Viernes"
Case 0: DiaBendito = "Sabado"
Case 1: DiaBendito = "Domingo"
End Select
MsgBox DiaBendito
End Sub


o sino:

Private Sub Form_Load()
Dim DiaBendito As String
DiaBendito = Format(Now, "Long Date")
MsgBox DiaBendito
End Sub


no se ..leete un turorial de las funciones de fechas son muchisimas.
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

ThonyMaster

Sin Firma