<u><b>LA RIPETIZIONE DEGLI ESTRATTI</b></u> Aiuto per questa modifica Grazie. ( HO MESSO LA RICERCA SU 4 MESI PER SEMPLIFICARE)
<b>SOPRA A RESOCONTO COMPLESSIVO DI 56 GIOCATE SI DEVE INSERIRE IL RIEPILOGO DELLE SOLO GIOCATE CHE NEI 4 MESI PRECEDENTI HANNO DATO ESITO POSITIVO DI ALMENO DUE AMBI: ES GIOCATA 14 NEI 4 MESI PRECEDENTI HA DATO 3 AMBI; GIOCATA 19 HA DATO 2 AMBI; GIOCATA 27 HA DATO 2 AMBI; GIOCATA 6 HA DATO 2 AMBI E GIOCATA 52 HA DATO 2 AMBI</b>
R I E P I L O G O
GIOCATA 14(3)
GIOCATA 6 (2)
GIOCATA 19(2)
GIOCATA 27(2)
GIOCATA 52(2)
=======================================
Resoconto complessivo di 56 giocate
=======================================
Resoconto totale giocate
Risultati generali
Casi esaminati: 280
in corso: 56
casi finali: 224
positivi: 40
negativi: 184
Pronostici generati: 560
Pronostici vincenti: 47 (8,4 %)
Estrazioni di gioco: 2072
Tentativi (scontrini giocati): 4144
Vincite (scontrini vincenti): 47 (1,13 %)
Attesa media: 5,36
Resoconto totale giocate
Dettaglio Ruote (Pronostici)
Ruota Vincenti Giocati
--------------------------------
Cagliari 27 ( 1,30 % ) 2072
Palermo 20 ( 0,97 % ) 2072
Totale 47 ( 1,13 % ) 4144
Sub main()
Dim am(1),nr(90),ab(5),abb(5),acc(6),ruote(2),ruota(12),posta(10),poste(2),postee(3),amb(2)
Dim AmbiGiocata(90),ContaAmbi(90)
posta(1)=1
oste(2)=1
postee(2)=1ostee(3)=1
'xx= CInt(InputBox("QUALE RUOTA DI CALCOLO ? 1,2,3 ecc."," ",1))
'jj= CInt(InputBox("QUALE ESTRATTO DELLA RUOTA DI CALCOLO ? 1,2,3,4,5"," ",1))
zz= CInt(InputBox("PRIMA RUOTA DI GIOCO ? 1,2,3 ecc."," ",2))
ww= CInt(InputBox("SECONDA RUOTA DI GIOCO ? 1,2,3 ecc"," ",7))
ax=CInt(InputBox("Inserisci estrazione iniziale?","Inizio",10624))
k = CInt(InputBox("Colpi di gioco ?","Colpi",9))
im= 8 ' INDICE MENSILE
ini=ax
fin=EstrazioneFin
For es=ini To EstrazioneFin
'If IsUltimaDelMese (es) Then
If Indicemensile(es) = im Then
cc = cc + 1
Scrivi
ColoreTesto 2 :Scrivi " ********* Previsione ricavata alla "&(im)&"° estrazione del mese *********** ",1
Scrivi"Pronostico n° " & Format2 (cc),1
Scrivi
Scrivi : ColoreTesto 0
ru1=zz ' RUOTA DI GIOCO
ru2=ww
am(1)=Fuori90(Estratto(es,8,1)+00)' ALGORITMO PER RICERCA AMBATA
f1=Estratto(es,1,1):f2=Estratto(es,1,2):f3=Estratto(es,1,3):f4=Estratto(es,1,4):f5=Estratto(es,1,5)
f6=Estratto(es,2,1):f7=Estratto(es,2,2):f8=Estratto(es,2,3):f9=Estratto(es,2,4):f10=Estratto(es,2,5)
f11=Estratto(es,3,1):f12=Estratto(es,3,2):f13=Estratto(es,3,3):f14=Estratto(es,3,4):f15=Estratto(es,3,5)
f16=Estratto(es,4,1):f17=Estratto(es,4,2):f18=Estratto(es,4,3):f19=Estratto(es,4,4):f20=Estratto(es,4,5)
f21=Estratto(es,5,1):f22=Estratto(es,5,2):f23=Estratto(es,5,3):f24=Estratto(es,5,4):f25=Estratto(es,5,5)
f26=Estratto(es,6,1):f27=Estratto(es,6,2):f28=Estratto(es,6,3):f29=Estratto(es,6,4):f30=Estratto(es,6,5)
f31=Estratto(es,7,1):f32=Estratto(es,7,2):f33=Estratto(es,7,3):f34=Estratto(es,7,4):f35=Estratto(es,7,5)
f36=Estratto(es,8,1):f37=Estratto(es,8,2):f38=Estratto(es,8,3):f39=Estratto(es,8,4):f40=Estratto(es,8,5)
f41=Estratto(es,9,1):f42=Estratto(es,9,2):f43=Estratto(es,9,3):f44=Estratto(es,9,4):f45=Estratto(es,9,5)
f46=Estratto(es,10,1):f47=Estratto(es,10,2):f48=Estratto(es,10,3):f49=Estratto(es,10,4):f50=Estratto(es,10,5)
f51=Estratto(es,12,1):f52=Estratto(es,12,2):f53=Estratto(es,12,3):f54=Estratto(es,12,4):f55=Estratto(es,12,5)
'
Scrivi : ruote(1)=ru1: ruote(2)=ru2:ruota(1)=ru1:ruota(2)=ru2
posta(1)=1: posta(1+5)=1: posta(2+5)=1: posta(3+5)=1: posta(4+5)=1: posta(5+5)=1
ColoreTesto 2
If Distanza(ru1,ru2)=1 Or ((ru1=1 And ru2=12)Or(ru1=12 And ru2=1)) Then Scrivi " > RUOTE CONSECUTIVE ",1
If Distanza(ru1,ru2)=5 And ru1<12 And ru2<12 Then Scrivi " > RUOTE DIAMETRALI ",1
If (ru1+ru2)=11 Then Scrivi " > RUOTE GEMELLARI < ",1
ColoreTesto 0
amb(1)=am(1)
ImpostaGiocata 1,amb,ruota,posta,k
Erase Posta
ab(1)=am(1)
For i = 1 To 55
ab(2)=Eval("f" & i)
ImpostaGiocata i+1,ab,ruote,poste,k
Next
'?? RIEPILOGO DELLE GIOCATE CHE NEI 4 MESI PRECEDENTI HA DATO MINIMO 2 AMBI <b>( QUI MI SONO ARRENATO E NON RIESCO AD ANDARE AVANTI)<b>
Scrivi ">>> Giocata n° ambi nei 4 mesi di calcolo <<<",1
For i = 1 To 55
ambiGiocata(i) = ContaAmbi(i)
If ambiGiocata(i) >= 2 Then
Scrivi "Giocata n° " & i & " ha dato " & ambiGiocata(i) & " ambi nei 4 mesi precedenti",1
End If
Next
Gioca es : Scrivi
Scrivi : Scrivi String(70,151)
End If
Next
ScriviResoconto
ColoreTesto 2 : Scrivi "Listato by Federico53",1
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 = 1.
Case vbFriday ' venerdì
gMancanti = 1
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
<b>SOPRA A RESOCONTO COMPLESSIVO DI 56 GIOCATE SI DEVE INSERIRE IL RIEPILOGO DELLE SOLO GIOCATE CHE NEI 4 MESI PRECEDENTI HANNO DATO ESITO POSITIVO DI ALMENO DUE AMBI: ES GIOCATA 14 NEI 4 MESI PRECEDENTI HA DATO 3 AMBI; GIOCATA 19 HA DATO 2 AMBI; GIOCATA 27 HA DATO 2 AMBI; GIOCATA 6 HA DATO 2 AMBI E GIOCATA 52 HA DATO 2 AMBI</b>
R I E P I L O G O
GIOCATA 14(3)
GIOCATA 6 (2)
GIOCATA 19(2)
GIOCATA 27(2)
GIOCATA 52(2)
=======================================
Resoconto complessivo di 56 giocate
=======================================
Resoconto totale giocate
Risultati generali
Casi esaminati: 280
in corso: 56
casi finali: 224
positivi: 40
negativi: 184
Pronostici generati: 560
Pronostici vincenti: 47 (8,4 %)
Estrazioni di gioco: 2072
Tentativi (scontrini giocati): 4144
Vincite (scontrini vincenti): 47 (1,13 %)
Attesa media: 5,36
Resoconto totale giocate
Dettaglio Ruote (Pronostici)
Ruota Vincenti Giocati
--------------------------------
Cagliari 27 ( 1,30 % ) 2072
Palermo 20 ( 0,97 % ) 2072
Totale 47 ( 1,13 % ) 4144
Sub main()
Dim am(1),nr(90),ab(5),abb(5),acc(6),ruote(2),ruota(12),posta(10),poste(2),postee(3),amb(2)
Dim AmbiGiocata(90),ContaAmbi(90)
posta(1)=1
oste(2)=1postee(2)=1
ostee(3)=1'xx= CInt(InputBox("QUALE RUOTA DI CALCOLO ? 1,2,3 ecc."," ",1))
'jj= CInt(InputBox("QUALE ESTRATTO DELLA RUOTA DI CALCOLO ? 1,2,3,4,5"," ",1))
zz= CInt(InputBox("PRIMA RUOTA DI GIOCO ? 1,2,3 ecc."," ",2))
ww= CInt(InputBox("SECONDA RUOTA DI GIOCO ? 1,2,3 ecc"," ",7))
ax=CInt(InputBox("Inserisci estrazione iniziale?","Inizio",10624))
k = CInt(InputBox("Colpi di gioco ?","Colpi",9))
im= 8 ' INDICE MENSILE
ini=ax
fin=EstrazioneFin
For es=ini To EstrazioneFin
'If IsUltimaDelMese (es) Then
If Indicemensile(es) = im Then
cc = cc + 1
Scrivi
ColoreTesto 2 :Scrivi " ********* Previsione ricavata alla "&(im)&"° estrazione del mese *********** ",1
Scrivi"Pronostico n° " & Format2 (cc),1
Scrivi
Scrivi : ColoreTesto 0
ru1=zz ' RUOTA DI GIOCO
ru2=ww
am(1)=Fuori90(Estratto(es,8,1)+00)' ALGORITMO PER RICERCA AMBATA
f1=Estratto(es,1,1):f2=Estratto(es,1,2):f3=Estratto(es,1,3):f4=Estratto(es,1,4):f5=Estratto(es,1,5)
f6=Estratto(es,2,1):f7=Estratto(es,2,2):f8=Estratto(es,2,3):f9=Estratto(es,2,4):f10=Estratto(es,2,5)
f11=Estratto(es,3,1):f12=Estratto(es,3,2):f13=Estratto(es,3,3):f14=Estratto(es,3,4):f15=Estratto(es,3,5)
f16=Estratto(es,4,1):f17=Estratto(es,4,2):f18=Estratto(es,4,3):f19=Estratto(es,4,4):f20=Estratto(es,4,5)
f21=Estratto(es,5,1):f22=Estratto(es,5,2):f23=Estratto(es,5,3):f24=Estratto(es,5,4):f25=Estratto(es,5,5)
f26=Estratto(es,6,1):f27=Estratto(es,6,2):f28=Estratto(es,6,3):f29=Estratto(es,6,4):f30=Estratto(es,6,5)
f31=Estratto(es,7,1):f32=Estratto(es,7,2):f33=Estratto(es,7,3):f34=Estratto(es,7,4):f35=Estratto(es,7,5)
f36=Estratto(es,8,1):f37=Estratto(es,8,2):f38=Estratto(es,8,3):f39=Estratto(es,8,4):f40=Estratto(es,8,5)
f41=Estratto(es,9,1):f42=Estratto(es,9,2):f43=Estratto(es,9,3):f44=Estratto(es,9,4):f45=Estratto(es,9,5)
f46=Estratto(es,10,1):f47=Estratto(es,10,2):f48=Estratto(es,10,3):f49=Estratto(es,10,4):f50=Estratto(es,10,5)
f51=Estratto(es,12,1):f52=Estratto(es,12,2):f53=Estratto(es,12,3):f54=Estratto(es,12,4):f55=Estratto(es,12,5)
'
Scrivi : ruote(1)=ru1: ruote(2)=ru2:ruota(1)=ru1:ruota(2)=ru2
posta(1)=1: posta(1+5)=1: posta(2+5)=1: posta(3+5)=1: posta(4+5)=1: posta(5+5)=1
ColoreTesto 2
If Distanza(ru1,ru2)=1 Or ((ru1=1 And ru2=12)Or(ru1=12 And ru2=1)) Then Scrivi " > RUOTE CONSECUTIVE ",1
If Distanza(ru1,ru2)=5 And ru1<12 And ru2<12 Then Scrivi " > RUOTE DIAMETRALI ",1
If (ru1+ru2)=11 Then Scrivi " > RUOTE GEMELLARI < ",1
ColoreTesto 0
amb(1)=am(1)
ImpostaGiocata 1,amb,ruota,posta,k
Erase Posta
ab(1)=am(1)
For i = 1 To 55
ab(2)=Eval("f" & i)
ImpostaGiocata i+1,ab,ruote,poste,k
Next
'?? RIEPILOGO DELLE GIOCATE CHE NEI 4 MESI PRECEDENTI HA DATO MINIMO 2 AMBI <b>( QUI MI SONO ARRENATO E NON RIESCO AD ANDARE AVANTI)<b>
Scrivi ">>> Giocata n° ambi nei 4 mesi di calcolo <<<",1
For i = 1 To 55
ambiGiocata(i) = ContaAmbi(i)
If ambiGiocata(i) >= 2 Then
Scrivi "Giocata n° " & i & " ha dato " & ambiGiocata(i) & " ambi nei 4 mesi precedenti",1
End If
Next
Gioca es : Scrivi
Scrivi : Scrivi String(70,151)
End If
Next
ScriviResoconto
ColoreTesto 2 : Scrivi "Listato by Federico53",1
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 = 1.
Case vbFriday ' venerdì
gMancanti = 1
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
Ultima modifica:
