prendendo in esame il 3° Estratto di venezia, e
a seconda della sua cadenza elabora un metodo
Per ambata, 4 ambi e 1 cinquina (Su Bari e Cagliari)
Ciao
- Codice: Seleziona tutto
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
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
