A volte basta uno script facile per tutti.

[Father]

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

 

[Codicebinario]

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*.

 

[Serafino1]

Avevo chiesto alla redazione di cambiare nome come Missione Impossibile2,mi e' stata riufiutata la richiesta.
Bene arrivederci a tutti.

 

[Bepy78]

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

 

[tornado]

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

 

[solare]

Ottimo, meno male che qualcuno pensa anche per gli altri
grazie

 

[Father]

Ottimo, meno male che qualcuno pensa anche per gli altri
grazie

te manco rispondi alle richieste

 

[Father]

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.

 

[solare]

te manco rispondi alle richieste

quale richieste fai riferimento ?

 

[tornado]

-

 

[Codicebinario]

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

 

[tornado]

ottimo

 

[Codicebinario]

ottimo

 

[Baciccia4251]

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

 

[Father]

we tanto per dire quelle beccate io non le gioco che si sappia🤣

 

[Serafino1]

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