10° Del Mese + Spia In Cadenza

Codice:

Sub Main()
ColoreTesto 1 :scrivi:scrivi String(120,"*"),1
Scrivi"10° ESTRAZIONE DEL MESE CON SPIA IN CADENZA DEL 3°ESTRATTO DI BARI"
Scrivi"METODO E SCRIPT BY BLACKMORE"
Scrivi"CREATO IL 24 FEBBRAIO 2015 "
ColoreTesto 0: Scrivi "Per i numeri doppi si è fatto il + 1",1
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",7447)
k=InputBox ("QUANTI COLPI DI GIOCO ?","Metodo e Script By BLACKMORE",9)
ini=ce
fin=EstrazioneFin

For es=ini To EstrazioneFin
If Indicemensile(es)= 10 Then
n1=Cadenza(Estratto(es,BA_,3))
casi=casi+1
ColoreTesto 1:Scrivi String(113,"*")& " " & casi & "°CASO",1 : ColoreTesto 1
ColoreTesto 0:Scrivi DataEstrazione(es)&" "&SiglaRuota(1)& ": "&StringaEstratti(es,1)&" [ 10° Estrazione del Mese : Cadenza del "& (3) &"° Estratto di " & NomeRuota(1) & " = " & Format2(n1)& " ]",1
Scrivi

If n1 = 0 Then am(1)=Fuori90(Estratto(es,MI_,1)+Estratto(es,RO_,2)+84):am(2)=Fuori90(Estratto(es,RO_,3)+Estratto(es,NZ_,2)+64):am(3)=Fuori90(Estratto(es,NA_,4)+Estratto(es,PA_,2)+30):am(4)=Fuori90(Estratto(es,FI_,4)+Estratto(es,VE_,1)+58):am(5)=Fuori90(Estratto(es,NA_,3)+Estratto(es,NZ_,2)+16)
If n1 = 1 Then am(1)=Fuori90(Estratto(es,VE_,4)+Estratto(es,NZ_,4)+26):am(2)=Fuori90(Estratto(es,FI_,5)+Estratto(es,GE_,4)+39):am(3)=Fuori90(Estratto(es,FI_,3)+Estratto(es,TO_,1)+53):am(4)=Fuori90(Estratto(es,TO_,4)+Estratto(es,VE_,4)+06):am(5)=Fuori90(Estratto(es,RO_,1)+Estratto(es,NZ_,3)+01)
If n1 = 2 Then am(1)=Fuori90(Estratto(es,VE_,3)+Estratto(es,NZ_,5)+17):am(2)=Fuori90(Estratto(es,BA_,1)+Estratto(es,TO_,1)+72):am(3)=Fuori90(Estratto(es,CA_,1)+Estratto(es,VE_,1)+10):am(4)=Fuori90(Estratto(es,BA_,3)+Estratto(es,PA_,1)+13):am(5)=Fuori90(Estratto(es,FI_,5)+Estratto(es,PA_,4)+42)
If n1 = 3 Then am(1)=Fuori90(Estratto(es,MI_,3)+Estratto(es,RO_,1)+50):am(2)=Fuori90(Estratto(es,BA_,2)+Estratto(es,CA_,5)+32):am(3)=Fuori90(Estratto(es,BA_,1)+Estratto(es,MI_,3)+02):am(4)=Fuori90(Estratto(es,NA_,5)+Estratto(es,PA_,1)+08):am(5)=Fuori90(Estratto(es,GE_,3)+Estratto(es,NZ_,2)+80)
If n1 = 4 Then am(1)=Fuori90(Estratto(es,NA_,3)+Estratto(es,NZ_,2)+31):am(2)=Fuori90(Estratto(es,NZ_,1)+Estratto(es,NZ_,2)+01):am(3)=Fuori90(Estratto(es,CA_,1)+Estratto(es,RO_,5)+09):am(4)=Fuori90(Estratto(es,PA_,1)+Estratto(es,PA_,5)+74):am(5)=Fuori90(Estratto(es,BA_,1)+Estratto(es,MI_,3)+89)
If n1 = 5 Then am(1)=Fuori90(Estratto(es,BA_,1)+Estratto(es,RO_,1)+56):am(2)=Fuori90(Estratto(es,BA_,4)+Estratto(es,VE_,3)+09):am(3)=Fuori90(Estratto(es,GE_,5)+Estratto(es,VE_,2)+16):am(4)=Fuori90(Estratto(es,BA_,2)+Estratto(es,NA_,3)+55):am(5)=Fuori90(Estratto(es,NA_,1)+Estratto(es,VE_,5)+33)
If n1 = 6 Then am(1)=Fuori90(Estratto(es,BA_,3)+Estratto(es,CA_,1)+04):am(2)=Fuori90(Estratto(es,BA_,5)+Estratto(es,PA_,5)+11):am(3)=Fuori90(Estratto(es,PA_,5)+Estratto(es,RO_,4)+17):am(4)=Fuori90(Estratto(es,BA_,3)+Estratto(es,NA_,5)+01):am(5)=Fuori90(Estratto(es,CA_,2)+Estratto(es,MI_,1)+22)
If n1 = 7 Then am(1)=Fuori90(Estratto(es,VE_,2)+Estratto(es,NZ_,4)+16):am(2)=Fuori90(Estratto(es,NA_,4)+Estratto(es,VE_,5)+44):am(3)=Fuori90(Estratto(es,BA_,2)+Estratto(es,RO_,4)+08):am(4)=Fuori90(Estratto(es,MI_,4)+Estratto(es,NA_,5)+01):am(5)=Fuori90(Estratto(es,CA_,5)+Estratto(es,FI_,2)+87)
If n1 = 8 Then am(1)=Fuori90(Estratto(es,CA_,5)+Estratto(es,NA_,4)+49):am(2)=Fuori90(Estratto(es,BA_,3)+Estratto(es,MI_,5)+32):am(3)=Fuori90(Estratto(es,PA_,3)+Estratto(es,VE_,1)+11):am(4)=Fuori90(Estratto(es,MI_,4)+Estratto(es,VE_,5)+63):am(5)=Fuori90(Estratto(es,PA_,5)+Estratto(es,RO_,1)+75)
If n1 = 9 Then am(1)=Fuori90(Estratto(es,CA_,5)+Estratto(es,GE_,5)+25):am(2)=Fuori90(Estratto(es,GE_,5)+Estratto(es,MI_,5)+88):am(3)=Fuori90(Estratto(es,BA_,2)+Estratto(es,CA_,5)+14):am(4)=Fuori90(Estratto(es,BA_,4)+Estratto(es,BA_,5)+20):am(5)=Fuori90(Estratto(es,CA_,1)+Estratto(es,CA_,3)+51)

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 + Vbcrlf
ColoreTesto 1:Scrivi String(70,"*")& " Matematica Sommativa By BLACKMORE"
ColoreTesto 0:ScriviResoconto
End Sub

spike5 ha scritto:grazie  sto giocando ancora il 66 prima o poi

Codice:

24.02.2015 Ba: 62.37.58.74.87 [ 10° Estrazione del Mese : Cadenza del 3° Estratto di Bari = 08 ]

mar 24.02.2015  [8969]
  G  1:  M          15               Ba Ca    9/9    
     M  15               su Ca    9° colpo   [8978/17.03.2015]

  G  2:  A          15.09            Ba Ca    9/9    
     A  09.15            su Ca    9° colpo   [8978/17.03.2015]

  G  3:  A          15.75            Ba Ca    9/9    
     negativo
  G  4:  A          15.21            Ba Ca    9/9    
     negativo
  G  5:  A          15.13            Ba Ca    9/9    
     negativo
  G  6:  ATQ        15.09.75.21.13   Ba Ca    9/9    
     A  09.15            su Ca    9° colpo   [8978/17.03.2015]

Codice:


01 In corso 1 di 9 BA CA 61      [E]

02 In corso 1 di 9 BA CA 61.29   [A]

03 In corso 1 di 9 BA CA 61.36   [A]

04 In corso 1 di 9 BA CA 61.73   [A]

05 In corso 1 di 9 BA CA 61.11   [A]

06 In corso 1 di 9 BA CA 61.29.36.73.11   [A T Q]

Blackmore ha scritto:Elenco previsioni in corso

Codice:


01 In corso 1 di 9 BA CA 61      [E]

02 In corso 1 di 9 BA CA 61.29   [A]

03 In corso 1 di 9 BA CA 61.36   [A]

04 In corso 1 di 9 BA CA 61.73   [A]

05 In corso 1 di 9 BA CA 61.11   [A]

06 In corso 1 di 9 BA CA 61.29.36.73.11   [A T Q]