Novità

A volte basta uno script facile per tutti.

bene ragazzi io mi fermo qui con le mie pippe mentali e ricerche e quelle poche scemenze che ho condiviso,
meglio lasciare a chi ne sa di piu'.
un abbraccio e buone ferie
Ciao Maccio,quello che scrivi mi addolora e tanto anche... questo è sempre stato un 3d di condivisione e non una gara "a chi lo hà più ........" E' vero che si è persa molta di quella armonia dell'inizio,lo spirito a volte scanzonato,a volte di riflessioni umane e non,ma....a tutto c'è rimedio , se si vuole.Ad ogni modo,rispetto la tua decisione e non voglio entrare nel merito ,sappi che qui sei e sempre sarai il benvenuto.Ciao Padre*.
 
Ciao a tutti buongiorno,
no Father resta,anche io non ne sò mezza,anzi meno di tutti voi,ma è sempre bello condividere anche 2 chiacchiere...
Oggi finalmente il mio primo giorno di ferie,ma vi seguo ugualmente...
Riguardo a Serafino1 invece, vedrai che prima o poi te lo fanno cambiare tranquillo.
Buona giornata a tutti e in bocca al lupo 🐺 per stasera
 
buon pomeriggio a tutti qui sotto troverete lo script per ottenere la tabella mostrata più volte da father e sarafino ringranziando genios per la messa a disposizione del programma
tornado

Sub Main
' x Batter
Dim T,abb,aN(3),afreq(3),Ru(1),L(4)
Ini = EstrazioneFin - 18
fin = EstrazioneFin
fine = EstrazioneFin
Scrivi Ini & vbTab & fin
T = Array(T,"Ruota","Numero","Presenze","Ritardo","Abbinamenti Num","Freq Abb","VerificaEsito","Colpo")
Call InitTabella(T)
For r = 1 To 10
Ru(1) = r
For n = 1 To 90
ef = EstrattoFrequenza(r,n,ini,fin)
er = EstrattoRitardo(r,n,Ini,fin)
If ef > 3 Then
k = k + 1
kk = kk + 1
ReDim Preserve aNum(k)
aNum(k) = n
Call Abbinamenti(aNum(k),abb,8117,fin,r)
aN(1) = abb(1,1)
aN(2) = abb(2,1)
aN(3) = abb(3,1)
afreq(1) = abb(1,2)
afreq(2) = abb(2,2)
afreq(3) = abb(3,2)
'----------------------
L(1) = aNum(1) : L(2) = aN(1) : L(3) = aN(2) : L(4) = aN(3)

End If
If k > 0 Then
Call VerificaEsito(L,Ru,fin + 1,1,10,,,clp,esa,id)
T = Array(T,SiglaRuota(r),StringaNumeri(aNum),ef,er,StringaNumeri(aN),StringaNumeri(afreq),esa,clp)
Call AddRigaTabella(T)
End If
k = 0
Next
Next
CreaTabella
Scrivi
Scrivi "Totali... " & kk
End Sub
 
buon pomeriggio a tutti qui sotto troverete lo script per ottenere la tabella mostrata più volte da father e sarafino ringranziando genios per la messa a disposizione del programma
tornado

la tabella da me ripostata non era nient'altro che un copia incolla di quella postata da serafino,giusto per chiarimento.
 
Buonpomeriggio a tutti.
Questo script è la BASE F 1R ,ricerca e idea del mio MAESTRO Adriano Scaravetti Scriptato in origine da SCARALAB,originariamente funzionava conteggiando le sole frequenze e non funzionava su spaziometria ma solo su L8 dietro mia richiesta su altro sito intervennero in mio aiuto RAMCO e ENPLEIN(che saluto e ringrazio con profonda stima) e ora possiamo vedere anche le presenze.lo script è completamente "guidato"
Divertitevi a settarlo a Vostro piacimento.

Scrivi "Spia-1R-Evento ___int ________ by ScaraLab "
Scrivi
Sub Main()
Dim ru(1),ttn(2),posta(1),poste(2)
Dim nu(10),suc(90,3),nn(1)
ini = EstrazioneFin - 14
fin = EstrazioneFin - 1
r = 1 'Su quale ruota? 1=Ba; 2=Ca ...
cl = 6 'Quante estrazioni di ciclo?
qc = 7 'Quanti casi da analizzare?
qn = 2 'quantità numeri considerati
eg = 9 'estrazioni di gioco
'----------------------------------------
Ordinamento = 2
' Se nella riga sopra il valore dell'ordinamento lo lasciamo a "2" ordiniamo e selezioniamo i numeri in base alle frequenze
' Se nella riga sopra il valore dell'ordinamento lo mettiamo a "3" ordiniamo e selezioniamo i numeri in base alle presenze
' è facoltà del giocatore fare questa selezione, sulla base delle prorpie ricerche/scelte
ru(1) = r : posta(1) = 1 : poste(2) = 1
ttn(1) = 11 : ttn(2) = 12
For est = ini To fin
Scrivi "Analisi del [" & est & "] " & DataEstrazione(est) & " Ruota di " & NomeRuota(r) & " Estratti: " & StringaEstratti(est,r)
Scrivi
For p = 1 To 5
sp = Estratto(est,r,p)
For j = 1 To 90
suc(j,1) = 0 : suc(j,2) = 0 : suc(j,3) = 0
Next
Erase nu : co = 0
For es = est - eg - 1 To est - 1500 Step - 1
If Posizione(es,r,sp) > 0 Then
co = co + 1
For n = 1 To 90
nn(1) = n
ff = SerieFreq(es + 1,es + cl,nn,ru,1)
If ff > 0 Then
suc(n,1) = n : suc(n,2) = suc(n,2) + ff : suc(n,3) = suc(n,3) + 1
End If
Next
If co = qc Then Exit For
End If
If co = qc Then Exit For
Next
OrdinaMatrice suc,- 1,Ordinamento
Scrivi "Primi " & qn & " Numeri più frequenti usciti dopo il numero Spia entro i " & cl & " colpi",1
Scrivi String(80,"_")
Scrivi "Numero spia: " & sp & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & co & " in un ciclo di estrazioni " & cl
Scrivi
riga = "Num. "
riga1 = "Freq."
riga2 = "Pres."
For i = 1 To qn
riga = riga & FormatSpace(Format2(suc(i,1)),4,True) & " "
riga1 = riga1 & FormatSpace(Eval(suc(i,2)),4,True) & " "
riga2 = riga2 & FormatSpace(Eval(suc(i,3)),4,True) & " "
Next
Scrivi riga,1 : ColoreTesto 2
Scrivi riga1 : ColoreTesto 1
Scrivi riga2 : ColoreTesto 0
Scrivi
For j = 1 To qn
nu(j) = suc(j,1)
Next
ImpostaGiocata 1,nu,ru,posta,eg
ImpostaGiocata 2,nu,ttn,poste,eg
Gioca est,1
Scrivi String(80,"="): Scrivi
Next
Next
ScriviResoconto
End Sub
 
bene ragazzi io mi fermo qui con le mie pippe mentali e ricerche e quelle poche scemenze che ho condiviso,
meglio lasciare a chi ne sa di piu'.
un abbraccio e buone ferie
Bene. largo agli esperti come me. Nell'allegato potrete trovare tutto, ma proprio tutto, quello che so.
Fatene buon uso (e non spacciatelo per vostro, vi conosco mascherine!)



Noooo. Non ci lasciare. Adoro le pippe mentali.
Buone ferie, divertiti
 

Allegati

buon pomeriggio a tutti qui sotto troverete lo script per ottenere la tabella mostrata più volte da father e sarafino ringranziando genios per la messa a disposizione del programma
tornado

Sub Main
' x Batter
Dim T,abb,aN(3),afreq(3),Ru(1),L(4)
Ini = EstrazioneFin - 18
fin = EstrazioneFin
fine = EstrazioneFin
Scrivi Ini & vbTab & fin
T = Array(T,"Ruota","Numero","Presenze","Ritardo","Abbinamenti Num","Freq Abb","VerificaEsito","Colpo")
Call InitTabella(T)
For r = 1 To 10
Ru(1) = r
For n = 1 To 90
ef = EstrattoFrequenza(r,n,ini,fin)
er = EstrattoRitardo(r,n,Ini,fin)
If ef > 3 Then
k = k + 1
kk = kk + 1
ReDim Preserve aNum(k)
aNum(k) = n
Call Abbinamenti(aNum(k),abb,8117,fin,r)
aN(1) = abb(1,1)
aN(2) = abb(2,1)
aN(3) = abb(3,1)
afreq(1) = abb(1,2)
afreq(2) = abb(2,2)
afreq(3) = abb(3,2)
'----------------------
L(1) = aNum(1) : L(2) = aN(1) : L(3) = aN(2) : L(4) = aN(3)

End If
If k > 0 Then
Call VerificaEsito(L,Ru,fin + 1,1,10,,,clp,esa,id)
T = Array(T,SiglaRuota(r),StringaNumeri(aNum),ef,er,StringaNumeri(aN),StringaNumeri(afreq),esa,clp)
Call AddRigaTabella(T)
End If
k = 0
Next
Next
CreaTabella
Scrivi
Scrivi "Totali... " & kk
End Sub
Buon divertimento
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 28 giugno 2025
    Bari
    41
    76
    54
    04
    17
    Cagliari
    34
    52
    84
    54
    55
    Firenze
    21
    60
    89
    51
    03
    Genova
    36
    40
    46
    03
    73
    Milano
    32
    80
    01
    68
    12
    Napoli
    63
    34
    22
    85
    10
    Palermo
    21
    85
    64
    15
    65
    Roma
    48
    25
    42
    47
    50
    Torino
    51
    25
    14
    20
    28
    Venezia
    82
    48
    73
    53
    29
    Nazionale
    46
    55
    10
    32
    44
    Estrazione Simbolotto
    Napoli
    25
    01
    41
    45
    38

Ultimi Messaggi

Indietro
Alto