Chiarimenti Metodo S.Enal di Danilo

[Roby]

.

 

[alce]

nessuno ingrato di darmi una risposta?
grazie alce

 

[alce]

nessuno ingrato di darmi una risposta?
grazie alce

 

[niven98]

Alce, quando il form ti chiede il numero di estrazioni, tu devi solo mettere la data da dove vuoi partire per l'analisi.
E' tutto, ciao

 

[niven98]

Alce, quando il form ti chiede il numero di estrazioni, tu devi solo mettere la data da dove vuoi partire per l'analisi.
E' tutto, ciao

 

[alce]

Grazie niven98,
il problema non è la data ma bensì a partire da questa riga:
" r(1)= EstrattoSuper (n+1,1) "


ciao alce

 

[alce]

Grazie niven98,
il problema non è la data ma bensì a partire da questa riga:
" r(1)= EstrattoSuper (n+1,1) "


ciao alce

 

[niven98]

A me funziona correttamente e uso la v.6

 

[niven98]

A me funziona correttamente e uso la v.6

 

[Remoto]

Anche a me che uso L8rev.4 non funziona,dà lo stesso errore di alce.
Se danilo o chi per lui è ingrado di risolvere questo problema mi dia una risposta.
grazie remoto

 

[Remoto]

Anche a me che uso L8rev.4 non funziona,dà lo stesso errore di alce.
Se danilo o chi per lui è ingrado di risolvere questo problema mi dia una risposta.
grazie remoto

 

[alce]

x REMOTO,
prova a cambiare tutte le righe "r(1)=estrattoSuper (n+1,1)con:
"r(1)=estratto (n+1,1,1)

 

[alce]

x REMOTO,
prova a cambiare tutte le righe "r(1)=estrattoSuper (n+1,1)con:
"r(1)=estratto (n+1,1,1)

 

[Remoto]

x ALCE
forse è un altro programma,perchè nello scrip che ho io ho solo le a e le b e non c'è nessuna r.All'avvio mi da errore 13 tipo non corrispondente:"estratto super" (riga 21).Se puoi fare qualche correzione ti ringrazio tantissimo ciao remoto.
Allego il listato:
Sub main()

Dim a(18)
Dim q
q=18

Dim b(7)
Dim b1(7)
Dim b2(7)
Dim b3(7)
Dim b4(7)
Dim b5(7)
tmp=InputBox("Estrazioni da controllare",,50)
fin=EstrazioneFin
ini=fin-tmp
For n=ini To fin
ColoreTesto 1
Scrivi "Estrazione del "&DataEstrazione
ColoreTesto 0
a(1)=Fuori90(EstrattoSuper(n,2,1)-EstrattoSuper(n,1,1)+25)
a(2)=Fuori90(EstrattoSuper(n,3,1)-EstrattoSuper(n,2,1)+45)
a(3)=Fuori90(EstrattoSuper(n,4,1)-EstrattoSuper(n,3,1)+17)
a(4)=Fuori90(EstrattoSuper(n,5,1)-EstrattoSuper(n,4,1)+35)
a(5)=Fuori90(EstrattoSuper(n,6,1)-EstrattoSuper(n,5,1)+15)
a(6)=Fuori90(EstrattoSuper(n,6,1)-EstrattoSuper(n,1,1)+45)
a(7)=Fuori90(EstrattoSuper(n,7)+EstrattoSuper(n,1,1)+45)
a(8)=Fuori90(EstrattoSuper(n,7)+EstrattoSuper(n,2,1)+62)
a(9)=Fuori90(EstrattoSuper(n,7)+EstrattoSuper(n,3,1)+45)
a(10)=Fuori90(EstrattoSuper(n,7)+EstrattoSuper(n,4,1)+51)
a(11)=Fuori90(EstrattoSuper(n,7)+EstrattoSuper(n,5,1)+45)
a(12)=Fuori90(EstrattoSuper(n,7)+EstrattoSuper(n,6,1)+23)
EliminaRipetuti(a)
b(1)=EstrattoSuper (n+1,1,1)
b(2)=EstrattoSuper (n+1,2,1)
b(3)=EstrattoSuper (n+1,3,1)
b(4)=EstrattoSuper (n+1,4,1)
b(5)=EstrattoSuper (n+1,5,1)
b(6)=EstrattoSuper (n+1,6,1)
b(7)=EstrattoSuper (n+1,7,1)
b1(1)=EstrattoSuper (n+2,1,1)
b1(2)=EstrattoSuper (n+2,2,1)
b1(3)=EstrattoSuper (n+2,3,1)
b1(4)=EstrattoSuper (n+2,4,1)
b1(5)=EstrattoSuper (n+2,5,1)
b1(6)=EstrattoSuper (n+2,6,1)
b1(7)=EstrattoSuper (n+2,7,1)
b2(1)=EstrattoSuper (n+3,1,1)
b2(2)=EstrattoSuper (n+3,2,1)
b2(3)=EstrattoSuper (n+3,3,1)
b2(4)=EstrattoSuper (n+3,4,1)
b2(5)=EstrattoSuper (n+3,5,1)
b2(6)=EstrattoSuper (n+3,6,1)
b2(7)=EstrattoSuper (n+3,7,1)
b3(1)=EstrattoSuper (n+4,1,1)
b3(2)=EstrattoSuper (n+4,2,1)
b3(3)=EstrattoSuper (n+4,3,1)
b3(4)=EstrattoSuper (n+4,4,1)
b3(5)=EstrattoSuper (n+4,5,1)
b3(6)=EstrattoSuper (n+4,6,1)
b3(7)=EstrattoSuper (n+4,7,1)
b4(1)=EstrattoSuper (n+5,1,1)
b4(2)=EstrattoSuper (n+5,2,1)
b4(3)=EstrattoSuper (n+5,3,1)
b4(4)=EstrattoSuper (n+5,4,1)
b4(5)=EstrattoSuper (n+5,5,1)
b4(6)=EstrattoSuper (n+5,6,1)
b4(7)=EstrattoSuper (n+5,7,1)
b5(1)=EstrattoSuper (n+6,1,1)
b5(2)=EstrattoSuper (n+6,2,1)
b5(3)=EstrattoSuper (n+6,3,1)
b5(4)=EstrattoSuper (n+6,4,1)
b5(5)=EstrattoSuper (n+6,5,1)
b5(6)=EstrattoSuper (n+6,6,1)
b5(7)=EstrattoSuper (n+6,7,1)
Scrivi "in gioco dalla successiva"
Scrivi StringaNumeri(a)
Scrivi "Resoconto nelle 6 estrazioni successive"
Scrivi DataEstrazione (n+1) & Space(5) & "Numeri trovati: " & CStr(quantigiusti(n+1))&_
" --> "&StringaNumeri(b)
Scrivi DataEstrazione (n+2) & Space(5) & "Numeri trovati: " & CStr(quantigiusti(n+2))&_
" --> "&StringaNumeri(b1)
Scrivi DataEstrazione (n+3) & Space(5) & "Numeri trovati: " & CStr(quantigiusti(n+3))&_
" --> "&StringaNumeri(b2)
Scrivi DataEstrazione (n+4) & Space(5) & "Numeri trovati: " & CStr(quantigiusti(n+4))&_
" --> "&StringaNumeri(b3)
Scrivi DataEstrazione (n+5) & Space(5) & "Numeri trovati: " & CStr(quantigiusti(n+5))&_
" --> "&StringaNumeri(b4)
Scrivi DataEstrazione (n+6) & Space(5) & "Numeri trovati: " & CStr(quantigiusti(n+6))&_
" --> "&StringaNumeri(b5)
Scrivi"*****************************************"

Next
End Sub
Function quantigiusti
Dim giusti , s
For i= 1 To 6
s=EstrattoSuper (n,i)
For j = 1 To q
If s=a(j) Then
giusti=giusti+1
End If
Next
Next
quantigiusti = giusti
End Function

 

[Remoto]

x ALCE
forse è un altro programma,perchè nello scrip che ho io ho solo le a e le b e non c'è nessuna r.All'avvio mi da errore 13 tipo non corrispondente:"estratto super" (riga 21).Se puoi fare qualche correzione ti ringrazio tantissimo ciao remoto.
Allego il listato:
Sub main()

Dim a(18)
Dim q
q=18

Dim b(7)
Dim b1(7)
Dim b2(7)
Dim b3(7)
Dim b4(7)
Dim b5(7)
tmp=InputBox("Estrazioni da controllare",,50)
fin=EstrazioneFin
ini=fin-tmp
For n=ini To fin
ColoreTesto 1
Scrivi "Estrazione del "&DataEstrazione
ColoreTesto 0
a(1)=Fuori90(EstrattoSuper(n,2,1)-EstrattoSuper(n,1,1)+25)
a(2)=Fuori90(EstrattoSuper(n,3,1)-EstrattoSuper(n,2,1)+45)
a(3)=Fuori90(EstrattoSuper(n,4,1)-EstrattoSuper(n,3,1)+17)
a(4)=Fuori90(EstrattoSuper(n,5,1)-EstrattoSuper(n,4,1)+35)
a(5)=Fuori90(EstrattoSuper(n,6,1)-EstrattoSuper(n,5,1)+15)
a(6)=Fuori90(EstrattoSuper(n,6,1)-EstrattoSuper(n,1,1)+45)
a(7)=Fuori90(EstrattoSuper(n,7)+EstrattoSuper(n,1,1)+45)
a(8)=Fuori90(EstrattoSuper(n,7)+EstrattoSuper(n,2,1)+62)
a(9)=Fuori90(EstrattoSuper(n,7)+EstrattoSuper(n,3,1)+45)
a(10)=Fuori90(EstrattoSuper(n,7)+EstrattoSuper(n,4,1)+51)
a(11)=Fuori90(EstrattoSuper(n,7)+EstrattoSuper(n,5,1)+45)
a(12)=Fuori90(EstrattoSuper(n,7)+EstrattoSuper(n,6,1)+23)
EliminaRipetuti(a)
b(1)=EstrattoSuper (n+1,1,1)
b(2)=EstrattoSuper (n+1,2,1)
b(3)=EstrattoSuper (n+1,3,1)
b(4)=EstrattoSuper (n+1,4,1)
b(5)=EstrattoSuper (n+1,5,1)
b(6)=EstrattoSuper (n+1,6,1)
b(7)=EstrattoSuper (n+1,7,1)
b1(1)=EstrattoSuper (n+2,1,1)
b1(2)=EstrattoSuper (n+2,2,1)
b1(3)=EstrattoSuper (n+2,3,1)
b1(4)=EstrattoSuper (n+2,4,1)
b1(5)=EstrattoSuper (n+2,5,1)
b1(6)=EstrattoSuper (n+2,6,1)
b1(7)=EstrattoSuper (n+2,7,1)
b2(1)=EstrattoSuper (n+3,1,1)
b2(2)=EstrattoSuper (n+3,2,1)
b2(3)=EstrattoSuper (n+3,3,1)
b2(4)=EstrattoSuper (n+3,4,1)
b2(5)=EstrattoSuper (n+3,5,1)
b2(6)=EstrattoSuper (n+3,6,1)
b2(7)=EstrattoSuper (n+3,7,1)
b3(1)=EstrattoSuper (n+4,1,1)
b3(2)=EstrattoSuper (n+4,2,1)
b3(3)=EstrattoSuper (n+4,3,1)
b3(4)=EstrattoSuper (n+4,4,1)
b3(5)=EstrattoSuper (n+4,5,1)
b3(6)=EstrattoSuper (n+4,6,1)
b3(7)=EstrattoSuper (n+4,7,1)
b4(1)=EstrattoSuper (n+5,1,1)
b4(2)=EstrattoSuper (n+5,2,1)
b4(3)=EstrattoSuper (n+5,3,1)
b4(4)=EstrattoSuper (n+5,4,1)
b4(5)=EstrattoSuper (n+5,5,1)
b4(6)=EstrattoSuper (n+5,6,1)
b4(7)=EstrattoSuper (n+5,7,1)
b5(1)=EstrattoSuper (n+6,1,1)
b5(2)=EstrattoSuper (n+6,2,1)
b5(3)=EstrattoSuper (n+6,3,1)
b5(4)=EstrattoSuper (n+6,4,1)
b5(5)=EstrattoSuper (n+6,5,1)
b5(6)=EstrattoSuper (n+6,6,1)
b5(7)=EstrattoSuper (n+6,7,1)
Scrivi "in gioco dalla successiva"
Scrivi StringaNumeri(a)
Scrivi "Resoconto nelle 6 estrazioni successive"
Scrivi DataEstrazione (n+1) & Space(5) & "Numeri trovati: " & CStr(quantigiusti(n+1))&_
" --> "&StringaNumeri(b)
Scrivi DataEstrazione (n+2) & Space(5) & "Numeri trovati: " & CStr(quantigiusti(n+2))&_
" --> "&StringaNumeri(b1)
Scrivi DataEstrazione (n+3) & Space(5) & "Numeri trovati: " & CStr(quantigiusti(n+3))&_
" --> "&StringaNumeri(b2)
Scrivi DataEstrazione (n+4) & Space(5) & "Numeri trovati: " & CStr(quantigiusti(n+4))&_
" --> "&StringaNumeri(b3)
Scrivi DataEstrazione (n+5) & Space(5) & "Numeri trovati: " & CStr(quantigiusti(n+5))&_
" --> "&StringaNumeri(b4)
Scrivi DataEstrazione (n+6) & Space(5) & "Numeri trovati: " & CStr(quantigiusti(n+6))&_
" --> "&StringaNumeri(b5)
Scrivi"*****************************************"

Next
End Sub
Function quantigiusti
Dim giusti , s
For i= 1 To 6
s=EstrattoSuper (n,i)
For j = 1 To q
If s=a(j) Then
giusti=giusti+1
End If
Next
Next
quantigiusti = giusti
End Function

 

[cavaleri]

Ciao! però con la vesrione L8+ 6.1.7 non funziona, da errore . Ciao Cavaleri

 

[cavaleri]

Ciao! però con la vesrione L8+ 6.1.7 non funziona, da errore . Ciao Cavaleri

 

[alce]

Vedete se funge così e se è quello che cercavate.

Sub main()

Dim a(18)
Dim q
q=18

Dim b(7)
Dim b1(7)
Dim b2(7)
Dim b3(7)
Dim b4(7)
Dim b5(7)
tmp=InputBox("Estrazioni da controllare",,50)
fin=EstrazioneFin
ini=fin-tmp
For n=ini To fin
ColoreTesto 1
Scrivi "Estrazione del "&DataEstrazione
ColoreTesto 0
a(1)=Fuori90(Estratto(n,2,1,1)-Estratto(n,1,1,1)+25)
a(2)=Fuori90(Estratto(n,3,1,1)-Estratto(n,2,1,1)+45)
a(3)=Fuori90(Estratto(n,4,1,1)-Estratto(n,3,1,1)+17)
a(4)=Fuori90(Estratto(n,5,1,1)-Estratto(n,4,1,1)+35)
a(5)=Fuori90(Estratto(n,6,1,1)-Estratto(n,5,1,1)+15)
a(6)=Fuori90(Estratto(n,6,1,1)-Estratto(n,1,1,1)+45)
a(7)=Fuori90(Estratto(n,7,1)+Estratto(n,1,1,1)+45)
a(8)=Fuori90(Estratto(n,7,1)+Estratto(n,2,1,1)+62)
a(9)=Fuori90(Estratto(n,7,1)+Estratto(n,3,1,1)+45)
a(10)=Fuori90(Estratto(n,7,1)+Estratto(n,4,1,1)+51)
a(11)=Fuori90(Estratto(n,7,1)+Estratto(n,5,1,1)+45)
a(12)=Fuori90(Estratto(n,7,1)+Estratto(n,6,1,1)+23)
EliminaRipetuti(a)
b(1)=Estratto (n+1,1,1)
b(2)=Estratto (n+1,2,1)
b(3)=Estratto (n+1,3,1)
b(4)=Estratto (n+1,4,1)
b(5)=Estratto (n+1,5,1)
b(6)=Estratto (n+1,6,1)
b(7)=Estratto (n+1,7,1)
b1(1)=Estratto (n+2,1,1)
b1(2)=Estratto (n+2,2,1)
b1(3)=Estratto (n+2,3,1)
b1(4)=Estratto (n+2,4,1)
b1(5)=Estratto (n+2,5,1)
b1(6)=Estratto (n+2,6,1)
b1(7)=Estratto (n+2,7,1)
b2(1)=Estratto (n+3,1,1)
b2(2)=Estratto (n+3,2,1)
b2(3)=Estratto (n+3,3,1)
b2(4)=Estratto (n+3,4,1)
b2(5)=Estratto (n+3,5,1)
b2(6)=Estratto (n+3,6,1)
b2(7)=Estratto (n+3,7,1)
b3(1)=Estratto (n+4,1,1)
b3(2)=Estratto (n+4,2,1)
b3(3)=Estratto (n+4,3,1)
b3(4)=Estratto (n+4,4,1)
b3(5)=Estratto (n+4,5,1)
b3(6)=Estratto (n+4,6,1)
b3(7)=Estratto (n+4,7,1)
b4(1)=Estratto (n+5,1,1)
b4(2)=Estratto (n+5,2,1)
b4(3)=Estratto (n+5,3,1)
b4(4)=Estratto (n+5,4,1)
b4(5)=Estratto (n+5,5,1)
b4(6)=Estratto (n+5,6,1)
b4(7)=Estratto (n+5,7,1)
b5(1)=Estratto (n+6,1,1)
b5(2)=Estratto (n+6,2,1)
b5(3)=Estratto (n+6,3,1)
b5(4)=Estratto (n+6,4,1)
b5(5)=Estratto (n+6,5,1)
b5(6)=Estratto (n+6,6,1)
b5(7)=Estratto (n+6,7,1)
Scrivi "in gioco dalla successiva"
Scrivi StringaNumeri(a)
Scrivi "Resoconto nelle 6 estrazioni successive"
Scrivi DataEstrazione (n+1) & Space(5) & "Numeri trovati: " & CStr(quantigiusti(n+1))&_
" --> "&StringaNumeri(b)
Scrivi DataEstrazione (n+2) & Space(5) & "Numeri trovati: " & CStr(quantigiusti(n+2))&_
" --> "&StringaNumeri(b1)
Scrivi DataEstrazione (n+3) & Space(5) & "Numeri trovati: " & CStr(quantigiusti(n+3))&_
" --> "&StringaNumeri(b2)
Scrivi DataEstrazione (n+4) & Space(5) & "Numeri trovati: " & CStr(quantigiusti(n+4))&_
" --> "&StringaNumeri(b3)
Scrivi DataEstrazione (n+5) & Space(5) & "Numeri trovati: " & CStr(quantigiusti(n+5))&_
" --> "&StringaNumeri(b4)
Scrivi DataEstrazione (n+6) & Space(5) & "Numeri trovati: " & CStr(quantigiusti(n+6))&_
" --> "&StringaNumeri(b5)
Scrivi"*****************************************"

Next
End Sub
Function quantigiusti
Dim giusti , s
For i= 1 To 6
s=Estratto (n,i,1)
For j = 1 To q
If s=a(j) Then
giusti=giusti+1
End If
Next
Next
quantigiusti = giusti
End Function


Ciao
Alce

 

[alce]

Vedete se funge così e se è quello che cercavate.

Sub main()

Dim a(18)
Dim q
q=18

Dim b(7)
Dim b1(7)
Dim b2(7)
Dim b3(7)
Dim b4(7)
Dim b5(7)
tmp=InputBox("Estrazioni da controllare",,50)
fin=EstrazioneFin
ini=fin-tmp
For n=ini To fin
ColoreTesto 1
Scrivi "Estrazione del "&DataEstrazione
ColoreTesto 0
a(1)=Fuori90(Estratto(n,2,1,1)-Estratto(n,1,1,1)+25)
a(2)=Fuori90(Estratto(n,3,1,1)-Estratto(n,2,1,1)+45)
a(3)=Fuori90(Estratto(n,4,1,1)-Estratto(n,3,1,1)+17)
a(4)=Fuori90(Estratto(n,5,1,1)-Estratto(n,4,1,1)+35)
a(5)=Fuori90(Estratto(n,6,1,1)-Estratto(n,5,1,1)+15)
a(6)=Fuori90(Estratto(n,6,1,1)-Estratto(n,1,1,1)+45)
a(7)=Fuori90(Estratto(n,7,1)+Estratto(n,1,1,1)+45)
a(8)=Fuori90(Estratto(n,7,1)+Estratto(n,2,1,1)+62)
a(9)=Fuori90(Estratto(n,7,1)+Estratto(n,3,1,1)+45)
a(10)=Fuori90(Estratto(n,7,1)+Estratto(n,4,1,1)+51)
a(11)=Fuori90(Estratto(n,7,1)+Estratto(n,5,1,1)+45)
a(12)=Fuori90(Estratto(n,7,1)+Estratto(n,6,1,1)+23)
EliminaRipetuti(a)
b(1)=Estratto (n+1,1,1)
b(2)=Estratto (n+1,2,1)
b(3)=Estratto (n+1,3,1)
b(4)=Estratto (n+1,4,1)
b(5)=Estratto (n+1,5,1)
b(6)=Estratto (n+1,6,1)
b(7)=Estratto (n+1,7,1)
b1(1)=Estratto (n+2,1,1)
b1(2)=Estratto (n+2,2,1)
b1(3)=Estratto (n+2,3,1)
b1(4)=Estratto (n+2,4,1)
b1(5)=Estratto (n+2,5,1)
b1(6)=Estratto (n+2,6,1)
b1(7)=Estratto (n+2,7,1)
b2(1)=Estratto (n+3,1,1)
b2(2)=Estratto (n+3,2,1)
b2(3)=Estratto (n+3,3,1)
b2(4)=Estratto (n+3,4,1)
b2(5)=Estratto (n+3,5,1)
b2(6)=Estratto (n+3,6,1)
b2(7)=Estratto (n+3,7,1)
b3(1)=Estratto (n+4,1,1)
b3(2)=Estratto (n+4,2,1)
b3(3)=Estratto (n+4,3,1)
b3(4)=Estratto (n+4,4,1)
b3(5)=Estratto (n+4,5,1)
b3(6)=Estratto (n+4,6,1)
b3(7)=Estratto (n+4,7,1)
b4(1)=Estratto (n+5,1,1)
b4(2)=Estratto (n+5,2,1)
b4(3)=Estratto (n+5,3,1)
b4(4)=Estratto (n+5,4,1)
b4(5)=Estratto (n+5,5,1)
b4(6)=Estratto (n+5,6,1)
b4(7)=Estratto (n+5,7,1)
b5(1)=Estratto (n+6,1,1)
b5(2)=Estratto (n+6,2,1)
b5(3)=Estratto (n+6,3,1)
b5(4)=Estratto (n+6,4,1)
b5(5)=Estratto (n+6,5,1)
b5(6)=Estratto (n+6,6,1)
b5(7)=Estratto (n+6,7,1)
Scrivi "in gioco dalla successiva"
Scrivi StringaNumeri(a)
Scrivi "Resoconto nelle 6 estrazioni successive"
Scrivi DataEstrazione (n+1) & Space(5) & "Numeri trovati: " & CStr(quantigiusti(n+1))&_
" --> "&StringaNumeri(b)
Scrivi DataEstrazione (n+2) & Space(5) & "Numeri trovati: " & CStr(quantigiusti(n+2))&_
" --> "&StringaNumeri(b1)
Scrivi DataEstrazione (n+3) & Space(5) & "Numeri trovati: " & CStr(quantigiusti(n+3))&_
" --> "&StringaNumeri(b2)
Scrivi DataEstrazione (n+4) & Space(5) & "Numeri trovati: " & CStr(quantigiusti(n+4))&_
" --> "&StringaNumeri(b3)
Scrivi DataEstrazione (n+5) & Space(5) & "Numeri trovati: " & CStr(quantigiusti(n+5))&_
" --> "&StringaNumeri(b4)
Scrivi DataEstrazione (n+6) & Space(5) & "Numeri trovati: " & CStr(quantigiusti(n+6))&_
" --> "&StringaNumeri(b5)
Scrivi"*****************************************"

Next
End Sub
Function quantigiusti
Dim giusti , s
For i= 1 To 6
s=Estratto (n,i,1)
For j = 1 To q
If s=a(j) Then
giusti=giusti+1
End If
Next
Next
quantigiusti = giusti
End Function


Ciao
Alce

 

[Remoto]

X ALCE
grazie funziona benissimo
ciao
REMOTO