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
    venerdì 06 febbraio 2026
    Bari
    09
    55
    48
    87
    35
    Cagliari
    08
    23
    16
    43
    34
    Firenze
    01
    26
    82
    69
    84
    Genova
    77
    04
    26
    23
    83
    Milano
    89
    78
    30
    19
    76
    Napoli
    78
    55
    72
    18
    54
    Palermo
    23
    59
    87
    44
    18
    Roma
    41
    18
    67
    02
    14
    Torino
    09
    75
    73
    59
    78
    Venezia
    58
    33
    67
    62
    46
    Nazionale
    57
    69
    68
    58
    37
    Estrazione Simbolotto
    Cagliari
    01
    21
    05
    44
    25
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto