forse una ventina di anni fa quelli dell' acqua calda

[genios]

Script fatto da Rosanna .Le percentuali non sono aggiornate .Intanto ho ritrovato questo ricordatevi almeno ogni mese di sostituire le percentuali con il programma di Arn .

Sub Main()

'Rif. 0901_15 Genios decina nat tab 1.2 doppia matrice5
'colora di rosso le celle relative al num sortito nella stessa estrazione
'accanto ad ogni es, mostra le % relative ai num sortiti nell'es precedente

Dim dn(10,11),num(5),pro(10),prov()

x = 100 ' <==== IMPOSTARE INTERVALLO DI ESTRAZIONI
r = 1 ' <==== IMPOSTARE LA RUOTA
d = 8 ' <==== DECINA NATURALE

For i = 1 To 10
a = 80 + i
dn(0,i) = a 'riempio la riga zero con la decina
dn(i,0) = a 'riempio la colonna zero con la Decina
Next

'-------segue il caricamento delle varie percentuali
dn(0,0) = " "
dn(1,1) = 70:dn(1,2) = 40:dn(1,3) = 40:dn(1,4) = 20:dn(1,5) = 20:dn(1,6) = 30:dn(1,7) = 30:dn(1,8) = 30:dn(1,9) = 20:dn(1,10) = 20 '==> 81
dn(2,1) = 20:dn(2,2) = 40:dn(2,3) = 30:dn(2,4) = 30:dn(2,5) = 30:dn(2,6) = 40:dn(2,7) = 70:dn(2,8) = 70:dn(2,9) = 50:dn(2,10) = 30 '==> 82
dn(3,1) = 20:dn(3,2) = 40:dn(3,3) = "SS":dn(3,4) = 50:dn(3,5) = 30:dn(3,6) = 70:dn(3,7) = 30:dn(3,8) = 30:dn(3,9) = 40:dn(3,10) = 20 '==> 83
dn(4,1) = 20:dn(4,2) = 30:dn(4,3) = 30:dn(4,4) = 60:dn(4,5) = 40:dn(4,6) = 40:dn(4,7) = 50:dn(4,8) = 50:dn(4,9) = 40:dn(4,10) = 10 '==> 84
dn(5,1) = 40:dn(5,2) = 30:dn(5,3) = 30:dn(5,4) = 40:dn(5,5) = 40:dn(5,6) = 30:dn(5,7) = 10:dn(5,8) = 10:dn(5,9) = 20:dn(5,10) = 30 '==> 85
dn(6,1) = 50:dn(6,2) = 40:dn(6,3) = 10:dn(6,4) = 40:dn(6,5) = 30:dn(6,6) = 30:dn(6,7) = 80:dn(6,8) = 80:dn(6,9) = 40:dn(6,10) = 40 '==> 86
dn(7,1) = 20:dn(7,2) = 40:dn(7,3) = 40:dn(7,4) = 10:dn(7,5) = 30:dn(7,6) = 30:dn(7,7) = 80:dn(7,8) = 80:dn(7,9) = 10:dn(7,10) = 20 '==> 87
dn(8,1) = 30:dn(8,2) = 30:dn(8,3) = 20:dn(8,4) = 30:dn(8,5) = 70:dn(8,6) = 20:dn(8,7) = 40:dn(8,8) = 40:dn(8,9) = "SS":dn(8,10) = 10 '==> 88
dn(9,1) = 50:dn(9,2) = 40:dn(9,3) = 40:dn(9,4) = 20:dn(9,5) = 60:dn(9,6) = 20:dn(9,7) = 30:dn(9,8) = 30:dn(9,9) = 30:dn(9,10) = 40 '==> 89
dn(10,1) = 50:dn(10,2) = 40:dn(10,3) = 20:dn(10,4) = 10:dn(10,5) = 70:dn(10,6) = 40:dn(10,7) = 40:dn(10,8) = 40:dn(10,9) = 40:dn(10,10) = 20 '==> 90
'----------------------


Scrivi
Scrivi " Tabella delle % di riferimento per la decina naturale " & d,1
Scrivi " Elaborazione sulla ruota di " & NomeRuota(r),1
Scrivi
For i = 0 To 10
riga = " "
For y = 0 To 10
riga = riga & FormatSpace(dn(i,y),2,1) & Space(1)
Next
Scrivi " " & riga
Next

'----------------intestazione numeri
rignum = ""
For i = 1 To 10 : rignum = rignum & dn(0,i) & " " : Next
Scrivi Chr(10) & Space(30) & rignum,1
'-------------------------------
prec = 0
Scrivi
For es = EstrazioneFin - x To EstrazioneFin

'------------------------------rig serve a scrivere i numeri in decina rintracciati
prec = de
de = 0 : Erase num : rig = ""
ColoreTesto 0
For p = 1 To 5
If DecinaNaturale(Estratto(es,r,p)) = d Then
rig = rig & Estratto(es,r,p) & " "
de = de + 1
num(de) = Estratto(es,r,p)
Else rig = rig & "== "
End If
Next 'chiude p

ColoreTesto 0
If PREC = 0 Then

Scrivi DataEstrazione(es) & " " & rig & Space(4),0,0
For i = 1 To 10
ColoreTesto 0
If de > 0 Then 'queste sono per colorare la cella
colore = 0
For y = 1 To de
If Cadenza(num) = Cadenza(i) Then Colore = 1
Next
End If
If colore = 1 Then ColoreTesto 2 Else ColoreTesto 0
If i < 10 Then Scrivi pro(i) & " ",0,0 Else Scrivi pro(i)
Next
Colore = 0
Else
For u = 1 To prec 'scorro le righe della matrice prov
If u = 1 Then 'se è la prima riga allora..
Scrivi DataEstrazione(es) & " " & rig & Space(4),0,0
For i = 1 To 10
If de > 0 Then 'queste sono per colare la cella
colore = 0
For y = 1 To de
If Cadenza(num) = Cadenza(i) Then Colore = 1
Next
End If
If colore = 1 Then ColoreTesto 2 Else ColoreTesto 0
If i < 10 Then Scrivi prov(u,i) & " ",0,0 Else Scrivi prov(u,i)

Next
colore = 0
Else 'se non è la prima riga prosegue così
Scrivi Space(30),0,0
For i = 1 To 10
If de > 0 Then 'queste sono per colare la cella
colore = 0 : ColoreTesto 0
For y = 1 To de
If Cadenza(num) = Cadenza(i) Then Colore = 1
Next
End If
If colore = 1 Then ColoreTesto 2 Else ColoreTesto 0
If i < 10 Then Scrivi prov(u,i) & " ",0,0 Else Scrivi prov(u,i)
Next
Colore = 0
End If
Next
End If 'chiude if prec=0

ReDim prov(0,0):Erase pro
ReDim prov(de,10) 'dimensiono la matrice provvisoria con tante righe quanti num in decina ha trovato
If de = 0 Then
For w = 1 To 10 : pro(w) = "==" : Next
End If
If de > 0 Then 'se ha rilevato dei numeri in decina prosegue
For i = 1 To de ' scorro i numeri in decina rilevati
For y = 0 To 10 'scorro la colonna 0 della matrice dn
If dn(y,0) = num(i) Then 'quando trovo il num corrisp. a quello sortito in decina
For w = 0 To 10 'scorro la riga della matrice dn corrisp. al numero rilevato (riga y)
If VarType(dn(y,w)) = 2 Then
If dn(y,w) > 49 Then prov(i,w) =(dn(y,w)) Else prov(i,w) = "=="'carico sulla matrice prov dati > a 71
Else
If VarType(dn(y,w)) = 8 Then prov(i,w) =(dn(y,w))
End If
Next
End If
Next
Next
End If
'----------------------------per visualizzare le % dei num sortiti nell'ultima estrazione
If es = EstrazioneFin Then
If de > 0 Then
For u = 1 To de 'scorro le righe della matrice prov
If u = 1 Then 'se è la prima riga allora..
Scrivi Space(30),0,0
For i = 1 To 10
If i < 10 Then Scrivi prov(u,i) & " ",0,0 Else Scrivi prov(u,i)
Next
Else 'se non è la prima riga prosegue così
Scrivi Space(30),0,0
For i = 1 To 10
If i < 10 Then Scrivi prov(u,i) & " ",0,0 Else Scrivi prov(u,i)
Next
End If
Next
End If
End If

Next 'chiude es



End Sub

 

[genios]

Lo script è anche in rosso

Tabella delle % di riferimento per la decina naturale 8
Elaborazione sulla ruota di Bari

81 82 83 84 85 86 87 88 89 90
81 70 40 40 20 20 30 30 30 20 20
82 20 40 30 30 30 40 70 70 50 30
83 20 40 SS 50 30 70 30 30 40 20
84 20 30 30 60 40 40 50 50 40 10
85 40 30 30 40 40 30 10 10 20 30
86 50 40 10 40 30 30 80 80 40 40
87 20 40 40 10 30 30 80 80 10 20
88 30 30 20 30 70 20 40 40 SS 10
89 50 40 40 20 60 20 30 30 30 40
90 50 40 20 10 70 40 40 40 40 20

81 82 83 84 85 86 87 88 89 90

22.04.2023 == == == 90 ==
26.04.2023 == == == == == 50 == == == 70 == == == == ==
27.04.2023 83 89 == == == == == == == == == == == == ==
29.04.2023 == == == == == == == SS 50 == 70 == == == ==
50 == == == 60 == == == == ==
02.05.2023 == 90 == == == == == == == == == == == == ==
04.05.2023 87 == == == == 50 == == == 70 == == == == ==
06.05.2023 == == == == 81 == == == == == == 80 80 == ==
09.05.2023 == == == == == 70 == == == == == == == == ==
11.05.2023 == == == == == == == == == == == == == == ==
13.05.2023 == == == 88 90 == == == == == == == == == ==
16.05.2023 == == == 81 == == == == == 70 == == == SS ==
== == == 70 == == == == ==
18.05.2023 == == == == 89 70 == == == == == == == == ==
20.05.2023 == == == == == 50 == == == 60 == == == == ==
23.05.2023 == == == == == == == == == == == == == == ==
25.05.2023 == == == 89 == == == == == == == == == == ==
27.05.2023 == 85 == == == 50 == == == 60 == == == == ==
30.05.2023 == == == == == == == == == == == == == == ==
01.06.2023 == == == == == == == == == == == == == == ==
03.06.2023 == == == == == == == == == == == == == == ==
06.06.2023 == == == == == == == == == == == == == == ==
08.06.2023 == == == == == == == == == == == == == == ==
10.06.2023 == == == == == == == == == == == == == == ==
13.06.2023 == == == == == == == == == == == == == == ==
15.06.2023 == == == == == == == == == == == == == == ==
17.06.2023 88 == == == == == == == == == == == == == ==
20.06.2023 == == == == == == == == == 70 == == == SS ==
22.06.2023 == == == == == == == == == == == == == == ==
24.06.2023 85 == == == == == == == == == == == == == ==
27.06.2023 == == == == == == == == == == == == == == ==
29.06.2023 == == == == == == == == == == == == == == ==
01.07.2023 == == == == == == == == == == == == == == ==
04.07.2023 == == == == == == == == == == == == == == ==
06.07.2023 == == == == == == == == == == == == == == ==
07.07.2023 == == == == == == == == == == == == == == ==
08.07.2023 83 == == == == == == == == == == == == == ==
11.07.2023 == 88 == 81 == == == SS 50 == 70 == == == ==
13.07.2023 == 82 == 81 == == == == == 70 == == == SS ==
70 == == == == == == == == ==
14.07.2023 == == == == == == == == == == == 70 70 50 ==
70 == == == == == == == == ==
15.07.2023 == == == == == == == == == == == == == == ==
18.07.2023 == == == == == == == == == == == == == == ==
20.07.2023 == == == == == == == == == == == == == == ==
21.07.2023 == == == == == == == == == == == == == == ==
22.07.2023 == == == 82 87 == == == == == == == == == ==
25.07.2023 == == == == == == == == == == == 70 70 50 ==
== == == == == == 80 80 == ==
27.07.2023 81 == == 90 == == == == == == == == == == ==
28.07.2023 == == == == == 70 == == == == == == == == ==
50 == == == 70 == == == == ==
29.07.2023 == == == == == == == == == == == == == == ==
01.08.2023 == == == 88 == == == == == == == == == == ==
03.08.2023 == == == == 88 == == == == 70 == == == SS ==
04.08.2023 == == == == == == == == == 70 == == == SS ==
05.08.2023 == == == == 90 == == == == == == == == == ==
08.08.2023 == == == == == 50 == == == 70 == == == == ==
10.08.2023 == 81 == == == == == == == == == == == == ==
11.08.2023 == == == == 82 70 == == == == == == == == ==
12.08.2023 83 89 == == == == == == == == == 70 70 50 ==
16.08.2023 == 86 == == == == == SS 50 == 70 == == == ==
50 == == == 60 == == == == ==
17.08.2023 == == == == == 50 == == == == == 80 80 == ==
18.08.2023 == == == 81 == == == == == == == == == == ==
19.08.2023 == == == == == 70 == == == == == == == == ==
22.08.2023 == == == 86 == == == == == == == == == == ==
24.08.2023 == == == == == 50 == == == == == 80 80 == ==
25.08.2023 82 == == == == == == == == == == == == == ==
26.08.2023 == == == == == == == == == == == 70 70 50 ==
29.08.2023 == == 89 87 == == == == == == == == == == ==
31.08.2023 86 == == == == 50 == == == 60 == == == == ==
== == == == == == 80 80 == ==
01.09.2023 86 == == == == 50 == == == == == 80 80 == ==
02.09.2023 == == == == == 50 == == == == == 80 80 == ==
05.09.2023 == == == == == == == == == == == == == == ==
07.09.2023 == == == == == == == == == == == == == == ==
08.09.2023 == == == == == == == == == == == == == == ==
09.09.2023 == == == == == == == == == == == == == == ==
12.09.2023 == == == == == == == == == == == == == == ==
14.09.2023 == == == == == == == == == == == == == == ==
15.09.2023 == == == 90 == == == == == == == == == == ==
16.09.2023 == == 88 == == 50 == == == 70 == == == == ==
19.09.2023 == == == 89 == == == == == 70 == == == SS ==
21.09.2023 == == == == 81 50 == == == 60 == == == == ==
22.09.2023 85 89 == == == 70 == == == == == == == == ==
23.09.2023 == 87 == == == == == == == == == == == == ==
50 == == == 60 == == == == ==
26.09.2023 == == == == == == == == == == == 80 80 == ==
28.09.2023 82 == 84 == == == == == == == == == == == ==
29.09.2023 == == == == == == == == == == == 70 70 50 ==
== == == 60 == == 50 50 == ==
30.09.2023 == == == == == == == == == == == == == == ==
03.10.2023 == == == == == == == == == == == == == == ==
05.10.2023 == == == 82 == == == == == == == == == == ==
06.10.2023 == == == == == == == == == == == 70 70 50 ==
07.10.2023 == == == == == == == == == == == == == == ==
10.10.2023 == == == == == == == == == == == == == == ==
12.10.2023 == 87 == == 82 == == == == == == == == == ==
13.10.2023 == == == == == == == == == == == 80 80 == ==
== == == == == == 70 70 50 ==
14.10.2023 == == == == == == == == == == == == == == ==
17.10.2023 == == 83 == == == == == == == == == == == ==
19.10.2023 == 84 == == == == == SS 50 == 70 == == == ==
20.10.2023 == 85 90 == == == == == 60 == == 50 50 == ==
21.10.2023 == == 83 == 90 == == == == == == == == == ==
50 == == == 70 == == == == ==
24.10.2023 == == == == == == == SS 50 == 70 == == == ==
50 == == == 70 == == == == ==
26.10.2023 == == 83 == == == == == == == == == == == ==
27.10.2023 == == == == == == == SS 50 == 70 == == == ==
28.10.2023 == 87 == == == == == == == == == == == == ==
31.10.2023 == == 82 == == == == == == == == 80 80 == ==
02.11.2023 == == == == 81 == == == == == == 70 70 50 ==
70 == == == == == == == == ==

 

[genios]

Per chi vuole aggiornare le percentuali dello script sopra .

Scrivi String(36," ") & "STATISTICHE LOTTO",1
ColoreTesto 2
Scrivi String(40," ") & "by Eu-Genio",1
ColoreTesto 1
Scrivi String(78,"=") & _
"listedRobyca",1
ColoreTesto 0
Sub Main()
Dim ru(1)
Dim nm(10)
Dim frq(10)
Dim nu(1)
Dim ne(1)

ru(1) = InputBox("INSERIRE IL NUMERO DELLA RUOTA !!!",,1)
ini = InputBox("NUMERO ESTRAZIONE INIZIO VERIFICA." & Chr(13) & Chr(13) & _
"Tenere presente che se il numero delle estr. in verifica" & _
" è inferiore a 500, certi numeri non riescono a fare i 18 " & _
"cicli",,EstrazioneFin - 500)
ini = CInt(ini)
fin = InputBox("NUMERO ESTRAZIONE FINE VERIFICA." & Chr(13) & Chr(13) & _
"Cmq le percentuali sono sempre riferite ai cicli riportati" & _
" nella riga di mezzo, ovvero: Pres su ??",,EstrazioneFin)
fin = CInt(fin)

For numeri = 1 To 90
nu(1) = numeri
c1 = 0
Erase frq
Messaggio numeri & " " & UCase(NomeRuota(ru(1)))

For es = fin To ini Step - 1
ex = es + 1
ey = es + 9
If ex > fin Then ex = fin
If ey > fin Then ey = fin

If Posizione(es,ru(1),nu(1)) > 0 Then
c1 = c1 + 1
dnu = DecinaNaturale(nu(1))
co = 0
For x = 1 To 9
For y = 0 To 9
co = co + 1
If x = dnu + 1 Then
nm(y + 1) = co
End If
Next
Next

For n = 1 To 10
ne(1) = nm
fr = SerieFreq(ex,ey,ne,ru,1)
If fr > 0 Then frq = frq + 1
Next
If c1 = 18 Then Exit For
End If
Next
For x = 1 To 10
riga = riga & FormatSpace(Format2(nm(x)),3) & " "
Next

ColoreTesto 2
Scrivi "Numero : " & nu(1),1
ColoreTesto 0
Scrivi "Decina nat: " & riga
For x = 1 To 10
per =((frq(x)*100)\c1)
If per > 70 Then ColoreTesto 1
If per > 80 Then ColoreTesto 2
rige = rige & FormatSpace(per,3,1) & " "
rigi = rigi & Format2(frq(x)) & " "
Next
Scrivi "Pres su " & c1 & ": " & rigi
Scrivi "Percent % : " & rige,1
riga = "":rige = "":rigi = ""
Scrivi
ColoreTesto 2
Next
Scrivi String(78," ") & _
"listedRobyca",1
ColoreTesto 0
End Sub