Ultima del Mese + Spia in Cadenza

Codice:

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 "Per i numeri doppi si è fatto il + 1",1 : Scrivi
 Dim ruota(10)
 Dim am(5): Dim amb(1): Dim ambo1(2): Dim ambo2(2): Dim ambo3(2): Dim ambo4(2)
 Dim cinquina(5)
 Dim posta(1): Dim poste(2): Dim postee(4)
 posta(1) = 1
 poste(2) = 1
 postee(2) = 1
 postee(3) = 1.50
 postee(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
 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
 'se 1 o più numeri sono ripetuti si fa il + 1
 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
 amb(1) = am(1)
 co = co + 1
 ImpostaGiocata co,amb,ruota,posta,k,1
 ambo1(1) = am(1)
 ambo1(2) = am(2)
 co = co + 1
 ImpostaGiocata co,ambo1,ruota,poste,k,2
 ambo2(1) = am(1)
 ambo2(2) = am(3)
 co = co + 1
 ImpostaGiocata co,ambo2,ruota,poste,k,2
 ambo3(1) = am(1)
 ambo3(2) = am(4)
 co = co + 1
 ImpostaGiocata co,ambo3,ruota,poste,k,2
 ambo4(1) = am(1)
 ambo4(2) = am(5)
 co = co + 1
 ImpostaGiocata co,ambo4,ruota,poste,k,2
 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,postee,k,3
 Gioca es,1
 End If
 If ScriptInterrotto Then Exit For
 Next
 Scrivi:Scrivi
 ColoreTesto 1:Scrivi String(75,"*") & " Matematica Sommativa By BLACKMORE"
 ColoreTesto 0:ScriviResoconto
End Sub
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

sax71 ha scritto:Ciao Spike,per il momento la previsione per il mese di ottobre e conclusa per esito verificato. Devi aspettare l'ultima estrazione del mese di ottobre per la nuova previsione per il mese di novembre. Ciao e buona giornata!

spike5 ha scritto:grazie Mara

Blackmore ha scritto:30.10.2014  Ultima del mese di Ottobre

Ambata     08                     Ba Ca      
*******************************************
Ambo         08.72               Ba Ca      
*******************************************
Ambo         08.56               Ba Ca      
*******************************************
Ambo         08.05               Ba Ca        
*******************************************
Ambo         08.77               Ba Ca    
*******************************************
Quartina    08.72.56.05.77   Ba Ca    per Ambo/Terno

Colpi di gioco: 10

Blackmore ha scritto:L' ambata non la prendiamo in considerazione (solo per convergenze)

La previsione continua con gli ambi secchi o la lunghetta per ambo/terno

Ciao