Ayuda con programas para visual basic 6

[cassiani]

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

Código (vb) [Seleccionar] Expandir

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] Expandir


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]

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.

si, lo q tienes q hacer ahi es:

Código [Seleccionar] Expandir

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]

muchas gracias!!!!!!!!

[krackwar]

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??.

[schumacher]

¿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, 

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

...jeje usando el code de Casiani

Código [Seleccionar] Expandir

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] Expandir

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???

[seba123neo]

calcular los dias de la semana,¿¿pero con respecto a que??? ...ingresar una fecha y decirte que dia es ??

[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

[seba123neo]

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:

Código [Seleccionar] Expandir

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:

Código [Seleccionar] Expandir

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.

[ThonyMaster]

weno gracias!