per luigi serve aiuto ma abbiano risolto

[keeper]

http://forum.lottoced.com/topic.asp?TOPIC_ID=134515
leggete questo forum
nello script l'amico djnomade non riesce a inserire il secondo estratto e gestire l'archivio interno di spaziometria del superenalotto chi mi aiuta per favore?

 

[Roby]

Keep, appena me lo manda lo posto, evidentemente ora è impegnato....

Blackmore

 

[keeper]

ok così chiederò a luigi qualche spiegazione

 

[DjNomade]

Ciauz purtroppo non riesco col super ,non ne ho nemmeno uno di listato per il nuovo superenalotto che vada bene da poter modificare
Occorre l'aiuto dall'alto

«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[keeper]

ciao dj posta quello che secondo te possa effettuare la ricerca di un solo numero con indice mensile all'ottava settimana

 

[DjNomade]

Io sto provando a modificare questo che è basato sul vecchio super enalotto quando l'estrazione era legata a quella del lotto,
ma ora è da rifare...

Ciauz



Dim numeri(6)
Dim Num(6)
Dim q
q = 6
Sub Main()
For n = 7088 To EstrazioneFin
If IndiceMensile = 8 Then
Ba_2 = Fuori90(Estratto(n,1,2))'QUI E' DOVE METTERE CHE CONTEGGI IL 2° ESTRATTO DELLA SESTINA DEL SE
Ses_1_1 = Fuori90(Ba_2 + 10)
Ses_1_2 = Fuori90(Ba_2 + 55)
Ses_1_3 = Fuori90(Ba_2 + 64)
Ses_1_4 = Fuori90(Ba_2 + 81)
Ses_1_5 = Fuori90(Ba_2 + 31)
Ses_1_6 = Fuori90(Ba_2 + 33)
If Ses_1_1 = Ses_1_2 Or Ses_1_1 = Ses_1_3 Or Ses_1_1 = Ses_1_4 Or Ses_1_1 = Ses_1_5 Or Ses_1_1 = Ses_1_6 Then
Ses_1_1 = Fuori90(Ses_1_1 + 45)
End If
If Ses_1_2 = Ses_1_3 Or Ses_1_2 = Ses_1_4 Or Ses_1_2 = Ses_1_5 Or Ses_1_2 = Ses_1_6 Then
Ses_1_2 = Fuori90(Ses_1_2 + 45)
End If
If Ses_1_3 = Ses_1_4 Or Ses_1_3 = Ses_1_5 Or Ses_1_3 = Ses_1_6 Then
Ses_1_3 = Fuori90(Ses_1_3 + 45)
End If
If Ses_1_4 = Ses_1_5 Or Ses_1_4 = Ses_1_6 Then
Ses_1_4 = Fuori90(Ses_1_4 + 45)
End If
If Ses_1_5 = Ses_1_6 Then
Ses_1_5 = Fuori90(Ses_1_5 + 45)
End If
ColoreTesto 0
'Scrivi " "
Scrivi DataEstrazione & " *** Prima Sestina ***" & Space(2) & FormatSpace(Ses_1_1,2) & Space(2) & FormatSpace(Ses_1_2,2) & Space(2) & FormatSpace(Ses_1_3,2) & Space(2) & FormatSpace(Ses_1_4,2) & Space(2) & FormatSpace(Ses_1_5,2) & Space(2) & FormatSpace(Ses_1_6,2)
Ses_2_1 = Fuori90(Ba_2 + 10)
Ses_2_2 = Fuori90(Ba_2 + 55)
Ses_2_3 = Fuori90(Ba_2 + 64)
Ses_2_4 = Fuori90(Ba_2 + 81)
Ses_2_5 = Fuori90(Ba_2 + 31)
Ses_2_6 = Fuori90(Ba_2 + 60)
If Ses_2_1 = Ses_2_2 Or Ses_2_1 = Ses_2_3 Or Ses_2_1 = Ses_2_4 Or Ses_2_1 = Ses_2_5 Or Ses_2_1 = Ses_2_6 Then
Ses_2_1 = Fuori90(Ses_2_1 + 45)
End If
If Ses_2_2 = Ses_2_3 Or Ses_2_2 = Ses_2_4 Or Ses_2_2 = Ses_2_5 Or Ses_2_2 = Ses_2_6 Then
Ses_2_2 = Fuori90(Ses_2_2 + 45)
End If
If Ses_2_3 = Ses_2_4 Or Ses_2_3 = Ses_2_5 Or Ses_2_3 = Ses_2_6 Then
Ses_2_3 = Fuori90(Ses_2_3 + 45)
End If
If Ses_2_4 = Ses_2_5 Or Ses_2_4 = Ses_2_6 Then
Ses_2_4 = Fuori90(Ses_2_4 + 45)
End If
If Ses_2_5 = Ses_2_6 Then
Ses_2_5 = Fuori90(Ses_2_5 + 45)
End If
ColoreTesto 0
Scrivi DataEstrazione & " *** Seconda Sestina ***" & Space(2) & FormatSpace(Ses_2_1,2) & Space(2) & FormatSpace(Ses_2_2,2) & Space(2) & FormatSpace(Ses_2_3,2) & Space(2) & FormatSpace(Ses_2_4,2) & Space(2) & FormatSpace(Ses_2_5,2) & Space(2) & FormatSpace(Ses_2_6,2)
Ses_3_1 = Fuori90(Ba_2 + 10)
Ses_3_2 = Fuori90(Ba_2 + 55)
Ses_3_3 = Fuori90(Ba_2 + 64)
Ses_3_4 = Fuori90(Ba_2 + 81)
Ses_3_5 = Fuori90(Ba_2 + 60)
Ses_3_6 = Fuori90(Ba_2 + 33)
If Ses_3_1 = Ses_3_2 Or Ses_3_1 = Ses_3_3 Or Ses_3_1 = Ses_3_4 Or Ses_3_1 = Ses_3_5 Or Ses_3_1 = Ses_3_6 Then
Ses_3_1 = Fuori90(Ses_3_1 + 45)
End If
If Ses_3_2 = Ses_3_3 Or Ses_3_2 = Ses_3_4 Or Ses_3_2 = Ses_3_5 Or Ses_3_2 = Ses_3_6 Then
Ses_3_2 = Fuori90(Ses_3_2 + 45)
End If
If Ses_3_3 = Ses_3_4 Or Ses_3_3 = Ses_3_5 Or Ses_3_3 = Ses_3_6 Then
Ses_3_3 = Fuori90(Ses_3_3 + 45)
End If
If Ses_3_4 = Ses_3_5 Or Ses_3_4 = Ses_3_6 Then
Ses_3_4 = Fuori90(Ses_3_4 + 45)
End If
If Ses_3_5 = Ses_3_6 Then
Ses_3_5 = Fuori90(Ses_3_5 + 45)
End If
ColoreTesto 0
Scrivi DataEstrazione & " *** Terza Sestina ***" & Space(2) & FormatSpace(Ses_3_1,2) & Space(2) & FormatSpace(Ses_3_2,2) & Space(2) & FormatSpace(Ses_3_3,2) & Space(2) & FormatSpace(Ses_3_4,2) & Space(2) & FormatSpace(Ses_3_5,2) & Space(2) & FormatSpace(Ses_3_6,2)
Ses_4_1 = Fuori90(Ba_2 + 10)
Ses_4_2 = Fuori90(Ba_2 + 55)
Ses_4_3 = Fuori90(Ba_2 + 64)
Ses_4_4 = Fuori90(Ba_2 + 60)
Ses_4_5 = Fuori90(Ba_2 + 31)
Ses_4_6 = Fuori90(Ba_2 + 33)
If Ses_4_1 = Ses_4_2 Or Ses_4_1 = Ses_4_3 Or Ses_4_1 = Ses_4_4 Or Ses_4_1 = Ses_4_5 Or Ses_4_1 = Ses_4_6 Then
Ses_4_1 = Fuori90(Ses_4_1 + 45)
End If
If Ses_4_2 = Ses_4_3 Or Ses_

 

[LuigiB]

ragazzi per il superenalotto ci sono tutta una serie di funzioni
identiche a quelle del lotto solo che finiscono per SE
ad esempio per leggere un numero dell'estrazione lotto
si usa Estratto , per fare la stessa cosa nel superenalotto si usa EstrattoSE e cosi via .. certo se devo lanciare una funzione generica non propriamente legata ad un archivio come
ad esempio vertibile o diametrale è chiaro che non c'è nessuna distinzione nei nomi delle funzioni.

 

[keeper]

quella riga di codice dìce il secondo estratto della ruota di bari invece a noi serve il 2 estratto delle sestina

 

[keeper]

luigi perchè se scrivo estrattoSE mi da errore
poi ho apportato questa modifica

Dim numeri(7)
Dim Num(7)
Dim q
q = 7
Sub Main()
For n = EstrazioniArchivioSE - totale To EstrazioniArchivioSE
If IndiceMensileSE = 8 Then
BA_2 = Fuori90(EstrattoSE(n,2))'qUI E' DOVE METTERE CHE CONTEGGI IL 2° ESTRATTO DELLA SESTINA DEL SE
Ses_1_1 = Fuori90(BA_2 + 10)
Ses_1_2 = Fuori90(Ba_2 + 55)
Ses_1_3 = Fuori90(Ba_2 + 64)
Ses_1_4 = Fuori90(Ba_2 + 81)
Ses_1_5 = Fuori90(Ba_2 + 31)
Ses_1_6 = Fuori90(Ba_2 + 33)

ma non mi da nessun risultato

 

[pfca]

Un saluto a tutti,
iniziate a vedere questo vale per la prima sestina, poi se non riuscite ad adattarlo fate sapere. Non sono molto pratico, stò imparando.

Dim numeri(45),nuk(20),a(7),b(7)
Dim q

Sub Main()
q = 18
Dim ord(7),ard(7)
'Dim numeri(45),nuk(20),a(7),b(7)
Scrivi EstrazioniArchivioSE
totale = 400
For n = EstrazioniArchivioSE - totale To EstrazioniArchivioSE
For l = 1 To 7
ord(l) = l
ard(l) = l
Next ' For l = 1 To 7...
m = 3
numeri(1) = Fuori90(EstrattoSE(n,ord(2))+10)
numeri(2) = Fuori90(EstrattoSE(n,ord(2))+55)
numeri(3) = Fuori90(EstrattoSE(n,ord(2))+64)
numeri(4) = Fuori90(EstrattoSE(n,ord(2))+81)
numeri(5) = Fuori90(EstrattoSE(n,ord(2))+31)
numeri(6) = Fuori90(EstrattoSE(n,ord(2))+33)

EliminaRipetuti(numeri)
'For cp = 1 To colpo
cp = 1
If n > EstrazioniArchivioSE - 1 Then
Scrivi "Previsione elaborata il " & DataEstrazioneSE,True
Scrivi numeri(1) & " " & numeri(2) & " " & numeri(3) & " " & numeri(4) & " " & numeri(5) & " " & numeri(6),True


End If ' If n > EstrazioniArchivioSE - ...

If n < EstrazioniArchivioSE Then Risultati n,cp
'Next
Next ' For n = EstrazioniArchivioSE - ...

Riepilogo(totale)

End Sub

Function quantigiusti(n,q,cp)
Dim giusti,s
giusti = 0
For f = 1 To q
nuk(f) = ""
Next ' For f = 1 To q...
For i = 1 To 6
s = EstrattoSE(n + cp,i)
For j = 1 To q
If s = numeri(j) Then
giusti = giusti + 1
k = k + 1
nuk(k) = s
Exit For
End If ' If s = numeri(j) Then...
Next ' For j = 1 To q...

Next ' For i = 1 To 6...
For j = 1 To q
If EstrattoSE(n + cp,7) = numeri(j) Then
giusti = giusti + 10
k = k + 1
nuk(k) = EstrattoSE(n + cp,7)
Exit For
End If ' If EstrattoSE(n + cp,7) = nume...
Next ' For j = 1 To q...
quantigiusti = giusti
End Function

Function Risultati(n,cp)
If quantigiusti(n,q,cp) Mod 10 >= 2 Then
For x = 1 To 7
If nuk(x) > "" Then k = k + 1
Next ' For x = 1 To 7...
Scrivi "Estrazione del " & DataEstrazioneSE(n + 1) & Space(8) & "Trovati " & quantigiusti(n,q,cp) Mod 10 & " numeri ed " & k - quantigiusti(n,q,cp) Mod 10 & " Jolli" & " Al " & cp & "° colpo "
Scrivi Space(12) & nuk(1) & " " & nuk(2) & " " & nuk(3) & " " & nuk(4) & " " & nuk(5) & " " & nuk(6) & " " & nuk(7),True
Scrivi "___________________________________________________________________________________"
End If ' If quantigiusti(n,q,cp) Mod 10...
R = quantigiusti(n,q,cp)
If R > 7 Then R = R Mod 10
b(R) = b(R) + 1
a(R) = a(R) + 1
End Function

Function Riepilogo(totale)

Scrivi "____________________________________"
Scrivi " Quantità Jolli"
For h = 0 To 6
If h = 3 And a(h) > 0 Then euro = euro + a(h)*10
If h = 4 And a(h) > 0 Then euro = euro + a(h)*500
If h = 5 And a(h) > 0 And b(h) = 0 Then euro = euro + a(h)*100000
If h = 5 And a(h) > 0 And b(h) > 0 Then euro = euro + b(h)*1000000
If h = 6 And a(h) > 0 Then euro = euro + a(h)*1000000
Scrivi "Per " & h & " numerigiusti = " & Format2(a(h)) & " " & b(h)
If h >= 3 Then tutti = tutti + a(h)
Next ' For h = 0 To 6...
For p = 1 To 7
a(p) = 0
b(p) = 0
Next ' For p = 1 To 7...

Scrivi "____________________________________"
euri = totale * 5
Scrivi "Per una vincita totale di " & euro & " Euro con una spesa di " & euri & " Euro"
Scrivi Int(tutti/totale*100) & "% Percentuale di vincite ottenute",True

End Function


Francesco

 

[Roby]

Ciao pfca, grazie
Ma c'è qualcosa che non va l'estrazioni si fermano al 28 aprile ed alcuni numeri non combaciano...

Blackmore

 

[keeper]

Ho lanciato lo script ma fa tutt'altro e come dice luigib è controproducente modificarlo lo script postato da dj ha bisogno di una piccola modifica xchè legge l'archivio del lotto

 

[pfca]

Vi ho solo postato un esempio per capire poi, come modificare
per il vostro listato con i riferimenti al superenalotto.
Come ti ho detto non sono capace.


Francesco

 

[Roby]

Vai tranquillo, ogni contributo è ben accetto

Blackmore

 

[keeper]

quote:Originally posted by pfca

Vi ho solo postato un esempio per capire poi, come modificare
per il vostro listato con i riferimenti al superenalotto.
Come ti ho detto non sono capace.


Francesco

non era mia intenzione rifiutare il tuo contributo scusami, invece hai fatto benissimo ti sono grato

 

[Thauk]

Non so se sia quello che vi serve (mi sembra di sì), ma provate questo:

Sub Main()
Dim nr(7)

For es=EstrazioniArchivioSE-200 To EstrazioniArchivioSE
If IndiceMensileSE(es)=8 Then	
co=co+1

a=EstrattoSE(es,2)
		
nr(1)=Fuori90(a+10)
nr(2)=Fuori90(a+55)
nr(3)=Fuori90(a+64)
nr(4)=Fuori90(a+81)
nr(5)=Fuori90(a+31)
nr(6)=Fuori90(a+33)
nr(7)=Fuori90(a+60)
ImpostaGiocataSE 1,nr,1,13

GiocaSE(es)
End If
Next
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
ScriviResocontoSE
End Sub

ciauz


Fortuna non omnibus aeque.

 

[keeper]

si è questo grazie thauk

 

[keeper]

questa è quella alla 9 del mese sempre richiesta da cupido
modifato lo script di thauk che ringrazion nuovamente
Sub Main()
Dim nr(7)

For es = EstrazioniArchivioSE - 200 To EstrazioniArchivioSE
If IndiceMensileSE(es) = 9 Then

a = EstrattoSE(es,1)

nr(1) = Fuori90(a + 20)
nr(2) = Fuori90(a + 21)
nr(3) = Fuori90(a + 33)
nr(4) = Fuori90(a + 47)
nr(5) = Fuori90(a + 1)
nr(6) = Fuori90(a + 16)
nr(7) = Fuori90(a + 31)
ImpostaGiocataSE 1,nr,1,13

GiocaSE(es)
End If
Next
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub

 

[Roby]

Grande thauk
Appena arrivo a casa lo provo,
Ps: keep posso sbagliarmi ma mi sembra che gli altri 2 metodi siano per il lotto? Ho visto che i risultati delle statistiche sono su Bari, è possibile?

Blackmore

 

[Thauk]

Per i più pigri, metto anche gli altri due...

Sub Main()
Dim nr(7)

For es=EstrazioniArchivioSE-200 To EstrazioniArchivioSE
If IndiceMensileSE(es)=9 Then	
co=co+1

a=EstrattoSE(es,1)
		
nr(1)=Fuori90(a+20)
nr(2)=Fuori90(a+21)
nr(3)=Fuori90(a+33)
nr(4)=Fuori90(a+47)
nr(5)=Fuori90(a+1)
nr(6)=Fuori90(a+16)
nr(7)=Fuori90(a+31)
ImpostaGiocataSE 1,nr,1,13

GiocaSE(es)
End If
Next
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
ScriviResocontoSE
End Sub

***********************************************************************

Sub Main()
Dim nr(7)

For es=EstrazioniArchivioSE-200 To EstrazioniArchivioSE
If IndiceMensileSE(es)=1 Then	
co=co+1

a=EstrattoSE(es,5)
		
nr(1)=Fuori90(a+18)
nr(2)=Fuori90(a+21)
nr(3)=Fuori90(a+56)
nr(4)=Fuori90(a+67)
nr(5)=Fuori90(a+5)
nr(6)=Fuori90(a+24)
nr(7)=Fuori90(a+74)
ImpostaGiocataSE 1,nr,1,13

GiocaSE(es)
End If
Next
Scrivi : Scrivi "Casi Rilevati " & CInt(co)
ScriviResocontoSE
End Sub

Fortuna non omnibus aeque.