SCRIPT BY BLACK " Per Gli Amanti Della Matematica Sommativa "

[Blackmore]

X Gli amanti della Matematica Sommativa
Il seguente script è una chicca, non tanto per gli esiti ma per il metodo di elaborazione
Con la speranza che continui a pagare anche in futuro.....

Ciao

Sub Main()
ColoreTesto 1 :Scrivi:Scrivi String(120,"@"),1 : ColoreTesto 2
Scrivi String(25," ")&"ULTIMA ESTRAZIONE DEL MESE CON SPIA IN CADENZA DEL 3°ESTRATTO DI VENEZIA"
Scrivi:Scrivi String(47," ")&"METODO E SCRIPT BY BLACKMORE"
ColoreTesto 1:Scrivi String(120,"@"),1 :Scrivi
ColoreTesto 0: Scrivi "MODULI: INDICE MENSILE / SPIE IN CADENZA" : Scrivi
Dim ruota(10)
Dim am(5)
Dim cinquina(5)
Dim poste(5)
poste(2)= 2
poste(3)= 1.50
poste(4)= 0.50
r1=InputBox ("1° RUOTA DI GIOCO ?","Metodo e Script By BLACKMORE",1)
r2=InputBox ("2° RUOTA DI GIOCO ?","Metodo e Script By BLACKMORE",2)
ce=InputBox("ESTRAZIONE DI PARTENZA N° ?","Metodo e Script By BLACKMORE",7600)
k=InputBox ("QUANTI COLPI DI GIOCO ?","Metodo e Script By BLACKMORE",10)
ini=ce
fin=EstrazioneFin

Messaggio " [ Ultima del Mese + condizione Cadenza 3°di Venezia By BLACKMORE ]"
For es=ini To EstrazioneFin
Call AvanzamentoElab(Ini,fin,es)
If IsUltimaDelMese (es) Then
n1=Cadenza(Estratto(es,VE_,3))
casi=casi+1
ColoreTesto 1:Scrivi String(113,"@")& " " & casi & "°CASO",1 : ColoreTesto 1
ColoreTesto 2:Scrivi DataEstrazione(es)&" "&SiglaRuota(10)& ": "&StringaEstratti(es,10)&" [ Ultima Estrazione del Mese : Cadenza del "& (3) &"° Estratto di " & NomeRuota(10) & " = " & Format2(n1)& " ]",1
ColoreTesto 0: Scrivi

If n1 = 0 Then am(1)=Fuori90(Estratto(es,BA_,1)+Estratto(es,CA_,5)+07):am(2)=Fuori90(Estratto(es,CA_,2)+Estratto(es,NA_,4)+24):am(3)=Fuori90(Estratto(es,RO_,3)+Estratto(es,VE_,5)+62):am(4)=Fuori90(Estratto(es,CA_,3)+Estratto(es,PA_,4)+78):am(5)=Fuori90(Estratto(es,MI_,3)+Estratto(es,NA_,2)+52)
If n1 = 1 Then am(1)=Fuori90(Estratto(es,BA_,5)+Estratto(es,FI_,2)+18):am(2)=Fuori90(Estratto(es,MI_,5)+Estratto(es,NA_,4)+19):am(3)=Fuori90(Estratto(es,FI_,5)+Estratto(es,MI_,3)+62):am(4)=Fuori90(Estratto(es,CA_,1)+Estratto(es,TO_,5)+46):am(5)=Fuori90(Estratto(es,MI_,4)+Estratto(es,VE_,3)+61)
If n1 = 2 Then am(1)=Fuori90(Estratto(es,GE_,5)+Estratto(es,NA_,4)+13):am(2)=Fuori90(Estratto(es,BA_,2)+Estratto(es,RO_,2)+35):am(3)=Fuori90(Estratto(es,CA_,2)+Estratto(es,VE_,4)+62):am(4)=Fuori90(Estratto(es,GE_,3)+Estratto(es,NA_,4)+42):am(5)=Fuori90(Estratto(es,BA_,3)+Estratto(es,NA_,1)+81)
If n1 = 3 Then am(1)=Fuori90(Estratto(es,NA_,4)+Estratto(es,PA_,3)+82):am(2)=Fuori90(Estratto(es,NA_,4)+Estratto(es,TO_,1)+37):am(3)=Fuori90(Estratto(es,FI_,3)+Estratto(es,RO_,4)+48):am(4)=Fuori90(Estratto(es,CA_,2)+Estratto(es,VE_,2)+21):am(5)=Fuori90(Estratto(es,GE_,3)+Estratto(es,NA_,3)+26)
If n1 = 4 Then am(1)=Fuori90(Estratto(es,PA_,2)+Estratto(es,RO_,4)+02):am(2)=Fuori90(Estratto(es,BA_,5)+Estratto(es,FI_,2)+32):am(3)=Fuori90(Estratto(es,CA_,2)+Estratto(es,GE_,4)+62):am(4)=Fuori90(Estratto(es,GE_,3)+Estratto(es,MI_,2)+76):am(5)=Fuori90(Estratto(es,MI_,4)+Estratto(es,RO_,5)+24)
If n1 = 5 Then am(1)=Fuori90(Estratto(es,PA_,5)+Estratto(es,TO_,1)+01):am(2)=Fuori90(Estratto(es,CA_,5)+Estratto(es,NA_,3)+58):am(3)=Fuori90(Estratto(es,NA_,1)+Estratto(es,TO_,2)+76):am(4)=Fuori90(Estratto(es,RO_,2)+Estratto(es,VE_,4)+14):am(5)=Fuori90(Estratto(es,BA_,3)+Estratto(es,MI_,3)+36)
If n1 = 6 Then am(1)=Fuori90(Estratto(es,CA_,3)+Estratto(es,VE_,2)+04):am(2)=Fuori90(Estratto(es,CA_,4)+Estratto(es,NA_,4)+67):am(3)=Fuori90(Estratto(es,BA_,2)+Estratto(es,MI_,4)+34):am(4)=Fuori90(Estratto(es,FI_,1)+Estratto(es,TO_,4)+31):am(5)=Fuori90(Estratto(es,GE_,4)+Estratto(es,TO_,4)+50)
If n1 = 7 Then am(1)=Fuori90(Estratto(es,BA_,2)+Estratto(es,RO_,5)+59):am(2)=Fuori90(Estratto(es,BA_,3)+Estratto(es,CA_,3)+57):am(3)=Fuori90(Estratto(es,PA_,3)+Estratto(es,RO_,5)+34):am(4)=Fuori90(Estratto(es,CA_,4)+Estratto(es,PA_,3)+26):am(5)=Fuori90(Estratto(es,GE_,1)+Estratto(es,TO_,2)+29)
If n1 = 8 Then am(1)=Fuori90(Estratto(es,GE_,1)+Estratto(es,NA_,5)+46):am(2)=Fuori90(Estratto(es,MI_,1)+Estratto(es,RO_,4)+43):am(3)=Fuori90(Estratto(es,BA_,5)+Estratto(es,TO_,2)+27):am(4)=Fuori90(Estratto(es,CA_,3)+Estratto(es,VE_,5)+14):am(5)=Fuori90(Estratto(es,FI_,4)+Estratto(es,MI_,5)+75)
If n1 = 9 Then am(1)=Fuori90(Estratto(es,FI_,5)+Estratto(es,TO_,4)+08):am(2)=Fuori90(Estratto(es,BA_,2)+Estratto(es,MI_,5)+41):am(3)=Fuori90(Estratto(es,MI_,3)+Estratto(es,VE_,1)+81):am(4)=Fuori90(Estratto(es,MI_,3)+Estratto(es,NA_,3)+26):am(5)=Fuori90(Estratto(es,CA_,2)+Estratto(es,MI_,2)+07)

ruota(1)=r1:ruota(2) = r2 :co=0

Rem se 1 o più numeri sono ripetuti si fa il + 1 (formula di Thauk)

rip=0
If NumeriRipetuti(am) Then
rip=1
While NumeriRipetuti(am)
For x=1 To 4
For y=x+1 To 5
If am(x)=am(y) Then am(y)=Fuori90(am(y)+1)
Next
Next
Wend
End If

Rem fine formula

cinquina(1)=am(1)
cinquina(2)=am(2)
cinquina(3)=am(3)
cinquina(4)=am(4)
cinquina(5)=am(5)
co=co+1
ImpostaGiocata co,cinquina,ruota,poste,k,3

Gioca es,1
End If
If ScriptInterrotto Then Exit For
Next
Scrivi:Scrivi
ColoreTesto 1:Scrivi String(47,"*") & "   Matematica Sommativa By BLACKMORE   " & String(47,"*"),1
ColoreTesto 0:Scrivi:Scrivi:ScriviResoconto 
End Sub
'Funzione creata da Joe
Function IsUltimaDelMese (idEstr)


Dim sData , sDataNew
Dim idGiornoSettimana
Dim gMancanti
Dim nMeseCorr

sData = Replace(DataEstrazione(idEstr) , "." , "/")
nMeseCorr = Month(sData)
idGiornoSettimana = WeekDay (sData)

Select Case idGiornoSettimana

Case vbTuesday ' martedi
gMancanti =2
Case vbThursday ' giovedi
gMancanti = 2
Case vbSaturday ' sabato
gMancanti = 3
End Select

sDataNew = DateAdd( "d" , gMancanti ,sData)

If Month (sDataNew) <> nMeseCorr Then
IsUltimaDelMese = True
Else
IsUltimaDelMese = False
End If

End Function

 

[LuigiB]

Ciao Black girando un po' in rete mi sono imbattuto in qualche forum (diverso da questo) devo fare i complimenti sia a te che a Mike ... mi fa piacere di quello che state facendo.
Un saluto !

 

[Roby]

Ciao Luigi
Non sai quante volte ho pensato di chiamarti, ne ho anche parlato con Mike
Ma visto che tu non sei un giocatore e quindi di lotto ti frega poco (se non per il programma Spaziometria)
Ho sempre rimandato
Volevo mandarti anche una mail (non so quando e perchè, ma ho la tua mail sul Pc)
Comunque ora che "sai" se ogni tanto vuoi passare "anche solo per un saluto"
Sappi che sei sempre il benvenuto, anzi ci farebbe davvero molto piacere
Senza nessun obbligo chiaramente
Io e Mike cerchiamo di mettere a frutto quello che abbiamo imparato anche e soprattutto grazie a te
(specialmente Mike, che è diventato bravissimo)
Ciao

 

[yokopoko]

Ciao Black girando un po' in rete mi sono imbattuto in qualche forum (diverso da questo) devo fare i complimenti sia a te che a Mike ... mi fa piacere di quello che state facendo.
Un saluto !

 

[Mike58]

Un GROSSO Ciao agli amici Black,Marco(Steel,yokopoco) e Luigi, e un grandissimo grazie a quello che Luigi ci ha insegnato e che ancora abbiamo da imparare, nonchè un grandissimo elogio alla passione di blackmore che con le sue continue ricerche mette a disposizione di tanti i frutti dei suoi lavori.
Questo lavoro ne è l'esempio.

Io e gli amici abbiamo sempre bisogno di maestri per continuare a crescere.

Ciao

 

[LuigiB]

bhe grazie a me e grazie al fatto che vi siete impegnati molto , per questo vi dico bravi ! Mi sembra di scorgere un avatar che ho visto pure dall'altra parte .. un saluto a Marco !
Ciao ..

 

[Thauk]

Ciao a tutti.
Casomai tornasse utile (come nello script), posto una "formuletta" che calcola il +1 in caso di numeri ripetuti.
Nello script i numeri in gioco (am) sono "solo" 5 e ci ritroviamo una cosa del genere:

If am(1) = am(2) Then am(2) = Fuori90(am(1) + 1)
If am(1) = am(3) Then am(3) = Fuori90(am(1) + 1)
If am(1) = am(4) Then am(4) = Fuori90(am(1) + 1)
If am(1) = am(5) Then am(5) = Fuori90(am(1) + 1)
If am(2) = am(3) Then am(3) = Fuori90(am(2) + 1)
If am(2) = am(4) Then am(4) = Fuori90(am(2) + 1)
If am(2) = am(5) Then am(5) = Fuori90(am(2) + 1)
If am(3) = am(4) Then am(4) = Fuori90(am(3) + 1)
If am(3) = am(5) Then am(5) = Fuori90(am(3) + 1)
If am(4) = am(5) Then am(5) = Fuori90(am(4) + 1)

... per la gioia dello scripter che deve smazzarsi una serie di If...Then, possibilmente senza fare errori.
E se i numeri in gioco fossero stati 10...? Roba da orchite! Meglio usare la "formuletta" sottostante...

rip=0
If NumeriRipetuti(am) Then
rip=1
While NumeriRipetuti(am)
For x=1 To 4
For y=x+1 To 5
If am(x)=am(y) Then am(y)=Fuori90(am(y)+1)
Next
Next
Wend
End If

Va da sé che i due cicli For andranno modificati in base alla quantità di numeri in gioco. E se fossero stati 10...

rip=0
If NumeriRipetuti(am) Then
rip=1
While NumeriRipetuti(am)
[B]For x=1 To 9
For y=x+1 To 10[/B]
If am(x)=am(y) Then am(y)=Fuori90(am(y)+1)
Next
Next
Wend
End If

Un saluto a tutti e un immenso grazie a LuigiB per quel gioiellino che è Spaziometria.

 

[Mike58]

Bravo Thauk, sicuramente utile.

Grazie

 

[Roby]

Ciao Thauk
Ho messo la formuletta semplice perchè è la prima che mi è venuta in mente
ed il metodo mi aveva già incasinato parecchio, non mi era rimasta molta voglia di cercare altre soluzioni
D'ora in poi userò la tua che è molto piu' professionale
Ciao e grazie mille

 

[Roby]

Ho modificato il listato inserendo la formula di Thauk

Ciao

 

[rosce14]

CIAO BLACKMORE, 6 1 GRANDEEEEEEEEEEEEEEEE!

SPERIAMO CHE CONTINUI A DARE , ADESSO CHE LO HAI MESSO SUL FORUM.

GRAZIE! E BUON POMERIGGIO.

 

[rosce14]

CIAO BLACKMORE, 6 1 GRANDEEEEEEEEEEEEEEEE!

SPERIAMO CHE CONTINUI A DARE , ADESSO CHE LO HAI MESSO SUL FORUM.

GRAZIE! E BUON POMERIGGIO.

 

[LuigiB]

bravo Tahuk ... ! Eeheh mi sa che sei del mestiere

 

[Thauk]

bravo Tahuk ... ! Eeheh mi sa che sei del mestiere

sono solo un vecchietto che tende ad andare in loop quando scrive più volte la stessa riga di codice... ah, l'aterosclerosi... eheheh
scherzi a parte, cerco solo di semplificarmi/ci la vita di scripter, e se un suggerimento può essere d'aiuto...

ps: auguri in ritardo

 

[LuigiB]

grazie Ciao ..

 

[Roby]

L' ambata è il 3.. ma 4 ambi su 2 ruote forse sono troppi da giocare...
Specialmente se non dovesse uscire un tubo...

[B]31.01.2013  VE: 78.37.79.49.57 [ Ultima Estrazione del Mese : Cadenza del 3° Estratto di Venezia = 09 ]

Estrazione generatrice del pronostico 08646 [ 14 - 31/01/2013]
G 0001
[COLOR="#0000CD"]Numeri in gioco : 03.85.59.14.50 su BA CA per Ambo,Terno,Quaterna

In corso per altre 10 estrazioni[/COLOR][/B]

 

[Y10]

Ciao Black , come mai lo script essendo l'archivio aggiornato non mi calcola l'ultima di Gennaio , ma si ferma al 29/12/12 ?. Grazie anticipate se potrai aiutarmi.

 

[pigi]

Ciao BLACK
anche io ho lo stesso problema di Y10, come mai?
Saluti
Giorgio

 

[Roby]

Ciao Y .. a me funziona alla perfezione, ho inserito anche la formula di joe
per l'ultima estrazione del mese
Sei sicuro che la barra delle estrazioni in basso nel programma sia impostata sull'ultima estrazione ?

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 80°CASO
29.12.2012 VE: 18.71.57.59.08 [ Ultima Estrazione del Mese : Cadenza del 3° Estratto di Venezia = 07 ]

Estrazione generatrice del pronostico 08632 [156 - 29/12/2012]
G 0001
Numeri in gioco : 18.42.05.38.21 su BA CA per Ambo,Terno,Quaterna
V N. [18.42.05.38.21                ] [CA]     [42 .. .. 21 ..] C.   1 Ambo       08633 [  1 - 02/01/2013]
V N. [18.42.05.38.21                ] [CA]     [.. 18 38 05 ..] C.   5 Terno      08637 [  5 - 10/01/2013]
Interrotta per esito verificato

@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 81°CASO
31.01.2013 VE: 78.37.79.49.57 [ Ultima Estrazione del Mese : Cadenza del 3° Estratto di Venezia = 09 ]

Estrazione generatrice del pronostico 08646 [ 14 - 31/01/2013]
G 0001
Numeri in gioco : 03.85.59.14.50 su BA CA per Ambo,Terno,Quaterna
In corso per altre 10 estrazioni

 

[pigi]

Ciao Black
la barra delle estrazioni è posizionata al 31/01/2013 ma non si vede nessuna previsione
rimane quella al 29/12/2012. Provo a ricopiare di nuovo lo script e poi vediamo.
Saluti
giorgio


HO RICOPIATO E ORA VA BENE GRAZIE