Novità

A volte basta uno script facile per tutti.

Father ha scritto:
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
Clicca per espandere...
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
 
tornado ha scritto:
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.
Clicca per espandere...
 
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
 
Father ha scritto:
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
Clicca per espandere...
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

tornado ha scritto:
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
Clicca per espandere...
Buon divertimento
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 19 marzo 2026
    Bari
    02
    88
    51
    01
    04
    Cagliari
    35
    37
    47
    40
    83
    Firenze
    12
    34
    72
    24
    01
    Genova
    18
    58
    26
    62
    13
    Milano
    72
    58
    86
    31
    48
    Napoli
    64
    88
    44
    89
    24
    Palermo
    88
    14
    53
    87
    05
    Roma
    52
    59
    26
    22
    73
    Torino
    05
    37
    83
    85
    21
    Venezia
    60
    28
    36
    87
    66
    Nazionale
    72
    20
    34
    52
    69
    Estrazione Simbolotto
    Firenze
    20
    27
    29
    15
    40
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto