[VB6] Operatore OR

[Magicolotto]

ciao ragazzi

dovrei immettere in una condizione if , end if

un operatore or
del tipo
pt= 30 or 45
If dist(kb) = pt Then



pero' non funziona

[Brainjar]

Sarebbe ?
Se dist(kb) = 30 o 45 allora ....

If dist(kb) = 30 Or dist(kb) = 45 Then 
     ' Fai qualcosa
End If

Attenzione, però, a cosa contiene dist(kb).
E' un array di interi o di long?
Come lo riempi ?

Ciao,
Brainjar.

[Magicolotto]

a me interessava scrivere questo in modo esatto

pt= 30 or 45

[Magicolotto]

cm ho provato

e non va
dist(kb) contieno un contatore da 1 to 9

[Brainjar]

Attenzione, però, a cosa contiene dist(kb).
E' un array di interi o di long?
Come lo riempi ?

Posta il codice che ti inserisce i valori in dist().
Posta il codice della dichiarazione di dist().




Ciao,
Brainjar.

[oregon]

Si scrive

if pt=30 or pt=45 then

[Magicolotto]

pt = 30
    
     ' INIZIALIZZA N bari
    For i = 1 To 5
        n(i) = adoPrimaryRS(i)
    Next i
    
    ' DISTANZE
    kb = 1
    For i = 1 To 4
        For j = i + 1 To 5
            dist(kb) = Abs(n(i) - n(j))
            If dist(kb) > 45 Then dist(kb) = 90 - dist(kb)
            kb = kb + 1
        Next j
    Next i
    For kb = 1 To 10
        If dist(kb) = pt Then
            Select Case kb
                Case 1
                    r(1) = n(1)
                    r(2) = n(2)
                Case 2

ect ect

adesso provo

oregon

[Magicolotto]

se metto
pt = 30 or 15

non funziona ,



come mai????

[oregon]

Scusa ma poi dici che non ti si risponde ...

Ti avevo scritto che

If pt = 30 or pt = 15 Then

e' la sintassi corretta e tu insisti come se lo avessi letto ...

[Magicolotto]

no ...l'ho letto e come....
l'ho provato ecco perche ho insistito, altrimenti non lo avrei riscritto....

non è che per dire che poi i due valori 15 & 30 entrano in u ciclo ramificato.... non funzionano??

cmq riprovo stasera e ti dico