Ma a te....gira sto coso? è pieno di errori
Ciao Marco provo a dare un mio contributo, prova questo se ti va bene...!
Scrivi "Analisi 10 Numeri Orologio-RR"
Scrivi "___________________________ by ScaraLab"
Sub Main
Dim nm(1),nn(2),num(10),nume(10),rut(1),tot(12),nmri(90),no(1)
Dim rrtt(2),posta(1),poste(2),ddn(45),ru(1),nmr1(91),tott(12),am(2)
Dim ru1(1),ruote(1),nr1(1),rcc(200),rc(200),nr(1),abc1(4),abc2(4),abc3(4)
Dim rcc1(200),rc1(200),rcc2(200),rc2(200),rcc3(200),rc3(200)
'1.2.3.4.5.6.7.8.9.10
fin = EstrazioneFin - 12
eg = 12 'estrazioni di gioco e controllo
ep = 12 'estrazioni precedenti per controllo
ni = InputBox("Inserisci i numeri da analizzare ","")
ni = "0." & ni
nu = Split(ni,".")
EliminaRipetuti nu
nni = UBound(nu)
For j = 1 To nni
num(j) = nu(j)
Next
qn = nni
Scrivi
Scrivi " I " & qn & " Numeri analizzati sono: " & StringaNumeri(num),1
Scrivi " Alla data del " & DataEstrazione(fin) & " [" & fin & "]"
Scrivi
For j = 1 To qn
nume(j) = num(j)
Next
OrdinaMatrice nume,1 : posta(1) = 1 : poste(1) = 0 : poste(2) = 1
rrtt(1) = 11 : rrtt(2) = 12
Scrivi " " & Format2(num(5)) & " " & Format2(num(6)) & " " & _
Format2(nume(5)) & " " & Format2(nume(6))
Scrivi " " & Format2(num(4)) & " " & Format2(num(7)) & " " & _
Format2(nume(4)) & " " & Format2(nume(7))
Scrivi " " & Format2(num(3)) & " " & Format2(num(8)) & " " & _
Format2(nume(3)) & " " & Format2(nume(8))
Scrivi " " & Format2(num(2)) & " " & Format2(num(9)) & " " & _
Format2(nume(2)) & " " & Format2(nume(9))
Scrivi " " & Format2(num(1)) & " " & Format2(num(10)) & " " & _
Format2(nume(1)) & " " & Format2(nume(10))
Scrivi
Scrivi "Terne 1-4-7 : " & Format2(num(1)) & "." & Format2(num(4)) & "." & Format2(num(7))
Scrivi "Terne 2-5-8 : " & Format2(num(2)) & "." & Format2(num(5)) & "." & Format2(num(8))
Scrivi "Terne 3-6-9 : " & Format2(num(3)) & "." & Format2(num(6)) & "." & Format2(num(9))
Scrivi "Numero aureo : " & Format2(num(10))
Scrivi
abc1(1) = num(1) : abc1(2) = num(4) : abc1(3) = num(7) : abc1(4) = num(10)
abc2(1) = num(2) : abc2(2) = num(5) : abc2(3) = num(8) : abc2(4) = num(10)
abc3(1) = num(3) : abc3(2) = num(6) : abc3(3) = num(9) : abc3(4) = num(10)
Scrivi
Scrivi "Ambi sortiti nelle " & ep & " estrazioni precedenti con " & _
"inclusa la data ultima",1
ImpostaGiocata 10,num,rrtt,poste,ep
Gioca fin - ep
Scrivi
Scrivi "Ambi da mettere in gioco:",1
con = 0
For j = 1 To qn - 1
For jk = j + 1 To qn
jj = num(j) : jjj = num(jk) : am(1) = jj : am(2) = jjj
frep = SerieFreq(fin -(ep - 1),fin,am,rrtt,2)
frss = SerieFreq(fin + 1,fin + ep,am,rrtt,2)
ritr = SerieRitardo(fin - 484,fin,am,rrtt,2)
If frep = 0 And ritr <= 25 And ritr <= 48 Then
con = con + 1
If frss = 0 Then Scrivi Format2(con) & ") Ambo " & Format2(am(1)) & _
"." & Format2(am(2)) & " con ritardo: " & ritr
If frss > 0 Then Scrivi Format2(con) & ") Ambo " & Format2(am(1)) & _
"." & Format2(am(2)) & " con ritardo: " & ritr & " sortito nei " & eg & _
" colpi di giocata"
End If
Next
Next
Scrivi
Scrivi "Ambi sortiti nelle " & ep & " estrazioni precedenti con " & _
"inclusa la data ultima ",1
For rr = 1 To 12
If rr = 11 Then rr = 12
riga = "" : cca = 0
For h = fin - ep + 1 To fin
If h <= EstrazioneFin Then
For j = 1 To qn - 1
For jk = j + 1 To qn
jj = num(j) : jjj = num(jk)
If Posizione(h,rr,jj) > 0 And Posizione(h,rr,jjj) Then
riga = riga & Format2(jj) & "." & Format2(jjj) & " - "
cca = cca + 1
End If
Next
Next
End If
Next
Scrivi" -> Ruota: " & FormatSpace(NomeRuota(rr),9) & " " & Format2(cca) & _
" Ambi sortiti: " & riga
Next
Scrivi
Scrivi "Ruote in cui è possibile mettere in gioco l'Ambo sulla " & _
"formazione (Osservazione Scaravetti) ",1
For rr = 1 To 12
If rr = 11 Then rr = 12
riga = "" : cca = 0
For h = fin - ep + 1 To fin
If h <= EstrazioneFin Then
For j = 1 To qn - 1
For jk = j + 1 To qn
jj = num(j) : jjj = num(jk)
If Posizione(h,rr,jj) > 0 And Posizione(h,rr,jjj) > 0 Then
cca = cca + 1
End If
Next
Next
End If
Next
If cca <= 2 Then
ru(1) = rr : ss = EstrazioneFin - fin
ff = SerieFreq(fin + 1,fin +(ss),num,ru,2)
If ff > 0 Then
pres = 0 : gio = 0
For hh = fin + 1 To fin + ss
If hh <= EstrazioneFin Then
For ja = 1 To qn - 1
For jb = ja + 1 To qn
j1 = num(ja) : j2 = num(jb)
If Posizione(hh,rr,j1) > 0 And Posizione(hh,rr,j2) > 0 Then
pres = 1 : gio = hh - fin
End If
If pres = 1 Then Exit For
Next
Next
End If
Next
End If
If ff > 0 Then riga = "Sortito l'ambo sulla Decina alla " & gio & " estrazione"
Scrivi" -> Ruota: " & FormatSpace(NomeRuota(rr),9) & _
" Gioco possibile di Ambo " & riga
End If
riga = ""
Next
Scrivi
Scrivi "Analisi dei Numeri sortiti 36 estrazioni precedenti con " & _
"iclusa la data ultima",1
For rr = 1 To 12
If rr = 11 Then rr = 12
riga = "" : cca = 0
For h = fin - 35 To fin
If h <= EstrazioneFin Then
For j = 1 To qn
jj = num(j)
If Posizione(h,rr,jj) > 0 Then
riga = riga & Format2(jj) & "." : cca = cca + 1
End If
Next
End If
Next
Scrivi" -> Ruota: " & FormatSpace(NomeRuota(rr),12) & " " & Format2(cca) & _
" Numeri sortiti: " & riga
Next
Scrivi
Erase nmri
For j = 1 To qn
nmri(j) = num(j)
Next
OrdinaMatrice(nmri),- 1
Scrivi "Analisi dei Numeri sortiti 36 estrazioni precedenti con inclusa" & _
" la data ultima" & " (decrescenti - non ripetuti)",1
Erase tott
For rr = 1 To 12
If rr = 11 Then rr = 12
Erase nmr1 : ru(1) = rr : riga = "" : cca = 0
For k = 1 To qn
no(1) = nmri(k): xx = 0
ff = SerieFreq(fin - 35,fin,no,ru,1)
If ff > 0 Then
riga = riga & Format2(no(1)) & " "
cca = cca + 1 : nmr1(cca) = no(1) : xx = 1
Else
riga = riga & "-- "
End If
If xx = 1 Then tott(k) = tott(k) + 1
Next
Scrivi" -> Ruota: " & FormatSpace(NomeRuota(rr),12) & " " & Format2(cca) & _
" Numeri - non ripetuti: " & riga
Next
riga2 = ""
For i = 1 To qn
riga2 = riga2 & FormatSpace(Format2(tott(i)),3)
Next
Scrivi " " & _
" ============================="
Scrivi " Totali: " & riga2
Scrivi
Scrivi "Analisi dei Numeri sortiti " & ep & " estrazioni precedenti con " & _
"inclusa la data ultima",1
For rr = 1 To 12
If rr = 11 Then rr = 12
riga = "" : cca = 0
For h = fin - ep + 1 To fin
If h <= EstrazioneFin Then
For j = 1 To qn
jj = num(j)
If Posizione(h,rr,jj) > 0 Then
riga = riga & Format2(jj) & "." : cca = cca + 1
End If
Next
End If
Next
Scrivi" -> Ruota: " & FormatSpace(NomeRuota(rr),12) & " " & Format2(cca) & _
" Numeri sortiti: " & riga
Next
Scrivi
Scrivi "Analisi dei Numeri sortiti 12 estrazioni precedenti con inclusa la " & _
"data ultima (decrescenti - non ripetuti)",1
Erase tott
For rr = 1 To 12
If rr = 11 Then rr = 12
Erase nmr1 : ru(1) = rr : riga = "" : cca = 0
For k = 1 To qn
no(1) = nmri(k): xx = 0
ff = SerieFreq(fin - ep + 1,fin,no,ru,1)
If ff > 0 Then
riga = riga & Format2(no(1)) & " "
cca = cca + 1 : nmr1(cca) = no(1) : xx = 1
Else
riga = riga & "-- "
End If
If xx = 1 Then tott(k) = tott(k) + 1
Next
Scrivi" -> Ruota: " & FormatSpace(NomeRuota(rr),12) & " " & Format2(cca) & _
" Numeri - non ripetuti: " & riga
Next
riga2 = ""
For i = 1 To qn
riga2 = riga2 & FormatSpace(Format2(tott(i)),3)
Next
Scrivi " " & _
" ============================="
Scrivi " Totali: " & riga2
Scrivi
Scrivi "Ambate Possibili (Osservazione Scaravetti):",1
For rr = 1 To 12
If rr = 11 Then rr = 12
dd = 0 : ru(1) = rr : Erase ddn : a = 0
For h = fin - ep + 1 To fin
If h <= EstrazioneFin Then
For j = 1 To qn
jj = num(j)
If Posizione(h,rr,jj) > 0 Then
dd = dd + 1 : ddn(dd) = jj
If dd = 2 And ddn(1) <> ddn(2) Then
If SerieFreq(h + 1,fin,ddn,ru,1) = 0 Then
rg = EstrazioneFin -(fin)
If rg > 0 Then
ff = SerieFreq(fin + 1,fin + rg,ddn,ru,1)
ritd = 0 : cont = 0
For hh = fin + 1 To fin + rg
cont = cont + 1 : ww = 0
For hhh = 1 To 2
jjj = ddn(hhh)
If Posizione(hh,rr,jjj) > 0 Then
ritd = cont : ww = 1
End If
Next
If ww = 1 Then Exit For
Next
End If
fft = 0 : rtd = 0 : rido = 0
fft = SerieFreq(fin + 1,EstrazioneFin,ddn,rrtt,2)
For hj = fin + 1 To EstrazioneFin
rido = rido + 1
fftt = SerieFreq(hj,hj,ddn,rrtt,2)
If fftt > 0 Then
a = " Sortito ambo a TT+Nz al colpo: " & rido
Exit For
End If
Next
If fftt = False Then a = " ambo non sortito"
Scrivi" -> Ruota: " & FormatSpace(NomeRuota(rr),10) & " Ambate: " & _
StringaNumeri(ddn) & " Sortita al " & Format2(ritd) & "^ colpo" & a
End If
End If
End If
Next
End If
Next
Next
Scrivi
Erase tot
For j = 1 To qn
jj = num(j) : gg = 0 : riga = ""
For rr = 1 To 12
aa = 0
If rr = 11 Then rr = 12
For h = fin - ep + 1 To fin
If h <= EstrazioneFin Then
If Posizione(h,rr,jj) > 0 Then
gg = gg + 1 : aa = aa + 1
riga = riga & SiglaRuota(rr) & " "
Exit For
End If
End If
Next
If aa = 0 Then riga = riga & "-- "
If aa > 0 Then tot(rr) = tot(rr) + 1
If aa > 0 And rr = 12 Then tot(11) = tot(11) + 1
Next
Scrivi" -> Il Numero: " & Format2(jj) & " è sortito su: " & Format2(gg) & _
" Ruote: " & riga
Next
riga1 = ""
For j = 1 To 11
riga1 = riga1 & FormatSpace(Format2(tot(j)),3)
Next
Scrivi " " & _
"================================"
Scrivi " Totali: " & riga1
Scrivi
ImpostaGiocata 1,num,rrtt,posta,eg
Gioca fin
Scrivi
For rr = 1 To 12
If rr = 11 Then rr = 12
riga = "" : cca = 0
For h = fin + 1 To fin + eg
If h <= EstrazioneFin Then
For j = 1 To qn
jj = num(j)
If Posizione(h,rr,jj) > 0 Then
riga = riga & Format2(jj) & "." : cca = cca + 1
End If
Next
End If
Next
Scrivi" -> Ruota: " & FormatSpace(NomeRuota(rr),12) & " " & Format2(cca) & _
" Numeri sortiti: " & riga
Next
Scrivi
Erase tot
For j = 1 To qn
jj = num(j) : gg = 0 : riga = ""
For rr = 1 To 12
aa = 0
If rr = 11 Then rr = 12
For h = fin + 1 To fin + eg
If h <= EstrazioneFin Then
If Posizione(h,rr,jj) > 0 Then
gg = gg + 1 : aa = aa + 1
riga = riga & SiglaRuota(rr) & " "
Exit For
End If
End If
Next
If aa = 0 Then riga = riga & "-- "
If aa > 0 Then tot(rr) = tot(rr) + 1
If aa > 0 And rr = 12 Then tot(11) = tot(11) + 1
Next
Scrivi" -> Il Numero: " & Format2(jj) & " è sortito su: " & Format2(gg) & _
" Ruote: " & riga
Next
riga1 = ""
For j = 1 To 11
riga1 = riga1 & FormatSpace(Format2(tot(j)),3)
Next
Scrivi " " & _
"================================"
Scrivi " Totali: " & riga1
Scrivi
Scrivi "Ambi sortiti nelle estrazioni di gioco",1
For rr = 1 To 12
If rr = 11 Then rr = 12
riga = "" : cca = 0
For h = fin + 1 To fin + eg
If h <= EstrazioneFin Then
For j = 1 To qn - 1
For jk = j + 1 To qn
jj = num(j) : jjj = num(jk)
If Posizione(h,rr,jj) > 0 And Posizione(h,rr,jjj) Then
riga = riga & Format2(jj) & "." & Format2(jjj) & " - "
cca = cca + 1
End If
Next
Next
End If
Next
Scrivi" -> Ruota: " & FormatSpace(NomeRuota(rr),9) & " " & Format2(cca) & _
" Ambi sortiti: " & riga
Next
Scrivi
Scrivi "Gioco sulle quartine derivate:"
ImpostaGiocata 2,abc1,rrtt,poste,eg
ImpostaGiocata 3,abc2,rrtt,poste,eg
ImpostaGiocata 4,abc3,rrtt,poste,eg
Gioca fin
Scrivi
ScriviResoconto
End Sub