AIUTO SCRIPT

[trivellatomariotretre33]

RICERCARE IN DUE ESTRAZIONI CONSECUTIVE DUE NUMERI VERTIBILI (PURI=15 51=63 36= 47 74=ECC.ECC.)SU UNA RUOTA, I QUALI DEVONO ESSERE UNITI MA NON ISOTOPI,ATTENZIONE A QUESTA CARATERISTICA..
NELL'ATTESA AUGURI DI BUONE FESTE.GRAZIE

 

[i legend]

Ciao al momento non posso essere d aiuto ma per fare uno script serve sapere cosa cercare e come utilizzare quello che si cerca altrimenti bisogna riprenderlo in mano varie volte e viene illeggibile anche per chi lo scrive.
L Algoritmo è un ragionamento logico.
Rovere i dati non penso sia complicatissimo ma che ci devo fare? Li devo scrivere ? Raccogliere in un arRay? Fare delle operazioni?
Ecco così se qualcuno può aiutare può organizzarsi al meglio. Ciao

 

[i legend]

' controllare  script scritto con il cell 
' verificare  che  i risultati della  ricerca  siano  corretti 
' 
Sub main 
Dim E, E1, E2 
Dim idestr, R, p, p1, p2 
R = ScegliRuota 
For idestr = 1 To estrazionefin 
For p = 1 To 5 
Messaggio  idestr 
If  p>1 Then 
P1 = p-1
E1= estratto ( idestr, r, p1 ) 
Else 
E1=0
End  if 
If p < 5  then 
P2 =p + 1 
E2 = estratto ( idestr, r, p2 ) 
Else 
E2 = 0 
End if 
E = estratto ( idestr + 1, r, p ) 
If  GetVert ( E, E1, E2 ) Then 
Scrivi  getinfoestrazione ( idestr, r) & "     "& stringaestratti ( idestr, r ) 
Scrivi  getinfoestrazione  ( idestr + 1 ) & " ---" & stringaestratti ( idestr + 1 , r ) 
End If 
Next 
Next 
End  sub

 

[i legend]

Function getVert (E,E1, E2)
Dim bRet
If cadenza (E) < > 0 and cadenza (E) < > 9 then
If cadenza (E1) < > 0 and cadenza (E1) < > 9 then
If cadenza (E2) < > 0 and cadenza (E2) < > 9 then
If vert (E)=E1 or vert ( E)= E2 then
bRet= true
End if
End if
End if
End if
GetVert =bRet
End function Function
Lo script non accetta il simbolo " diverso "
Controllare eventuali bugs
Salvo errori
Fatemi sapere
Buon fine anno.

 

[i legend]

Scrivere la funzione nella stessa pagina della sub main
Purtroppo se le scrivevo nello stesso post lo script usciva tagliato

 

[Alien.]

Function getVert (E,E1, E2)
Dim bRet
If cadenza (E) < > 0 and cadenza (E) < > 9 then
If cadenza (E1) < > 0 and cadenza (E1) < > 9 then
If cadenza (E2) < > 0 and cadenza (E2) < > 9 then
If vert (E)=E1 or vert ( E)= E2 then
bRet= true
End if
End if
End if
End if
GetVert =bRet
End function Function
Lo script non accetta il simbolo " diverso "
Controllare eventuali bugs
Salvo errori
Fatemi sapere
Buon fine anno.

ERRORE SCRIPT If Cadenza (E) < > 0 And Cadenza (E) < > 9 Then

 

[claudio8]

Lo srcipt intero ... provatelo

' controllare  script scritto con il cell
' verificare  che  i risultati della  ricerca  siano  corretti
'
Sub Main
    Dim E,E1,E2
    Dim idestr,R,p,p1,p2
    R = ScegliRuota
   ' For idestr = 1 To EstrazioneFin
    For idestr = 1 To EstrazioneFin - 1 ' variato da indicazione di I legend
        For p = 1 To 5
            Messaggio idestr
            If p > 1 Then
                p1 = p - 1
                E1 = Estratto(idestr,R,p1)
            Else
                E1 = 0
            End If
            If p < 5 Then
                p2 = p + 1
                E2 = Estratto(idestr,R,p2)
            Else
                E2 = 0
            End If
            E = Estratto(idestr + 1,R,p)
            If getVert(E,E1,E2) Then
                Scrivi GetInfoEstrazione (idestr) & "     " & StringaEstratti(idestr,R)
                Scrivi GetInfoEstrazione(idestr + 1) & " ---" & StringaEstratti(idestr + 1,R)
            End If
        Next
    Next
End Sub
Function getVert(E,E1,E2)
    Dim bRet
    If Cadenza(E)<>0 And Cadenza(E)<>9 Then
        If Cadenza(E1) <> 0 And Cadenza(E1) <> 9 Then
            If Cadenza(E2) <> 0 And Cadenza(E2) <> 9 Then
                If Vert(E) = E1 Or Vert(E) = E2 Then
                    bRet = True
                End If
            End If
        End If
    End If
    getVert = bRet
End Function

 

[i legend]

Felice anno nuovo
Ciao Claudio grazie mille per aver ricomposto il codice
avevo problemi di connessione.e ho dovuto scrivere con il cell...
avevo dimentoicato di scrivere
for idestr= 1 to estrazionefin -1
-1 perchè facciamo idestr+1
Ciao

 

[Alien.]

ottimo....ma è top secret ?

 

[i legend]

ciao alien non saprei
salvo errori (sempre possibile) credo che lo script faccia quello richiesto ma posso aver interpretato male
ciao a tutti