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
    sabato 21 giugno 2025
    Bari
    07
    03
    45
    25
    05
    Cagliari
    20
    73
    88
    50
    15
    Firenze
    04
    19
    09
    52
    55
    Genova
    21
    47
    65
    53
    24
    Milano
    11
    64
    70
    67
    51
    Napoli
    59
    66
    83
    33
    03
    Palermo
    61
    74
    28
    62
    04
    Roma
    25
    29
    15
    54
    44
    Torino
    34
    22
    30
    59
    28
    Venezia
    42
    75
    06
    83
    84
    Nazionale
    36
    67
    41
    54
    56
    Estrazione Simbolotto
    Napoli
    02
    40
    06
    26
    29
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto