Domando sullo Script Futuro2

[joe]

Sto continuando la mia battaglia sulla Macro Futuro2 con le AI. Tra invereconde ingiurie reciproche, variabili non dichiarate, numeri scambiati per salamini e venduti come Street Food, oltre ad altre cose talmente disgustose che non ne voglio nemmeno accennare...
Sono arrivato a questa strepitosa, inaspettata, conclusione: da cosa ero partito? Cosa volevo ottenere? Boh! E chi se lo ricorda...
Comunque se il 2 è uguale al 20, il nome del cane di mia Zia che si chiama Marzia, è Camillo?
Qualcuno potrebbe dire (cattivone!) che non so cosa voglio. Non è vero, so benissimo cosa voglio. Il fatto è che non ricordo cosa voglio. Ma, poi, voglio qualcosa?
Sempre chiaro come la Coca Cola vi auguro qualsiasi cosa vogliate vi sia augurata
Baciccia

Baciccia,

io un mano FORSE te la potrei dare, ma sono circa 30 anni che non

utilizzo più le macro di excel preferendo gli script.

Perché li ritengo molto più facili e veloci da gestire creare modificare. Potenti.

Aggiungo che se si tratta di impegnarsi preferirei pensare all'archivio

ed al suo aggiornamento, piuttosto che a questo metodo sulle spie.

Fammi sapere se è possibile, tentare di bypassare i cattivi consigli dell'IA,

e cercare di focalizzare le risorse su questo obiettivo.

Nel caso di tuo interesse, ti chiedo preliminarmente se hai esperienza di Any-desk

e se saresti disposto ad utilizzarlo per poter lavorare con maggiore interazione,

oppure ancora se hai qualche altra risorsa-consiglio da proporre.

Grazie (in ogni caso) .

Joe

 

[Baciccia4251]

Baciccia,

io un mano FORSE te la potrei dare, ma sono circa 30 anni che non

utilizzo più le macro di excel preferendo gli script.

Perché li ritengo molto più facili e veloci da gestire creare modificare. Potenti.

Aggiungo che se si tratta di impegnarsi preferirei pensare all'archivio

ed al suo aggiornamento, piuttosto che a questo metodo sulle spie.

Fammi sapere se è possibile, tentare di bypassare i cattivi consigli dell'IA,

e cercare di focalizzare le risorse su questo obiettivo.

Nel caso di tuo interesse, ti chiedo preliminarmente se hai esperienza di Any-desk

e se saresti disposto ad utilizzarlo per poter lavorare con maggiore interazione,

oppure ancora se hai qualche altra risorsa-consiglio da proporre.

Grazie (in ogni caso) .

Joe

Carissimo Joe,
ho acquistato: tappeto rosso, fanfare, spumanti cinesi (per risparmiare) e coriandoli (li ho messi sul conto di Pandit, Antonin e altri di cui non ricordo il nome. Come si dice "Chi trova un amico si fa pagare i conti!".)
In effetti l'aggiornamento dell'archivio è prioritario, ma vedi tu cosa riesci e ti senti di fare. L'insieme di fogli è a disposizione di tutti e chiunque ne sia capace può, se vuole, modificarlo come crede.
Fatene quello che volete, chiedo solo di metterlo a disposizione di tutti
L'unione fa la forza e, speriamo, un programma funzionante
Baciccia

 

[Baciccia4251]

La mia mente goca strani scherzi. Mi sono accorto solo ora, rileggendolo almeno 10 volte, che non mi ero accorto (visto, capito)
di questa parte "
Nel caso di tuo interesse, ti chiedo preliminarmente se hai esperienza di Any-desk

e se saresti disposto ad utilizzarlo per poter lavorare con maggiore interazione,

oppure ancora se hai qualche altra risorsa-consiglio da proporre.

Grazie (in ogni caso) ."

Non conosco Any-desk, posso provare a guardare qualcosa però la mia capacità di attenzione è sfuggente e dimentico presto quello che leggo (anche quello che scrivo). Domani proverò a documentarmi, poi ti dirò (se me ne ricordo)
Grazie a te, naturalmente
Baciccia

 

[Pandit]

L'unico script che ho è questo, ma non mi pare corrisponda :

Anticipazione (Spoiler)

Sub Main
Dim Nu(1),aN(4),Ru(1),T,Posta(3)
S = InputBox("Scrivi numero spia",,1)
n1 = InputBox("Prima cifra da verificare ",,47)
n2 = InputBox("econda cifra da verificare",,88)
x = InputBox("Ruota su cui fare la verifica",,1)
Ini = 8000
fin = EstrazioneFin
spia = S
r = x
Posta(1) = 2 : Posta(2) = .5 : Posta(3) = 0.5
T = Array(T,"Casi","Info Es","Estratti Spia","Pos Spia","ElencoRit Spia","Numeri In Gioco","Verifica Esito","Colpo","Id Verifica",_
"Spesa","Vincita","Utile","SpesaPr","VincitaPr","UtilePr")
Call InitTabella(T,0,,,5,"Arial Black")
For es = fin To Ini Step - 1
po = Posizione(es,r,spia)
If po > 0 Then
k = k + 1
If k > 76 Then Exit For
aN(1) = n1
aN(2) = n2
'aN(3) = 70
'aN(4) = 74
Ru(1) = r
'.................
'ess = es-Ini
'Ini = es
'..................
ess = fin - es
fin = es
'..................
If ess > 6 Then
Call VerificaEsitoTurbo(aN,Ru,es + 1,1,18,,esito,clp,esa,id)
'--------------------------------------
ImpostaGiocata 1,aN,Ru,Posta,18,1
Gioca es,,,,,False
sp = GetSpesa(True)
vv = GetVincita(True)
ut = GetGuadagno(True)
spPr = GetSpesa(False)
vvPr = GetVincita(False)
utPr = GetGuadagno(False)
'-------------------------------------
T = Array(T,k,GetInfoEstrazione(es),StringaEstratti(es,r),po,ess,StringaNumeri(aN),esa,clp,id,sp,vv,ut,spPr,vvPr,utPr)
Call AddRigaTabella(T)
End If
End If
Next
CreaTabella
ScriviResoconto
End Sub

 

[Baciccia4251]

L'unico script che ho è questo, ma non mi pare corrisponda :

Anticipazione (Spoiler)

Sub Main
Dim Nu(1),aN(4),Ru(1),T,Posta(3)
S = InputBox("Scrivi numero spia",,1)
n1 = InputBox("Prima cifra da verificare ",,47)
n2 = InputBox("econda cifra da verificare",,88)
x = InputBox("Ruota su cui fare la verifica",,1)
Ini = 8000
fin = EstrazioneFin
spia = S
r = x
Posta(1) = 2 : Posta(2) = .5 : Posta(3) = 0.5
T = Array(T,"Casi","Info Es","Estratti Spia","Pos Spia","ElencoRit Spia","Numeri In Gioco","Verifica Esito","Colpo","Id Verifica",_
"Spesa","Vincita","Utile","SpesaPr","VincitaPr","UtilePr")
Call InitTabella(T,0,,,5,"Arial Black")
For es = fin To Ini Step - 1
po = Posizione(es,r,spia)
If po > 0 Then
k = k + 1
If k > 76 Then Exit For
aN(1) = n1
aN(2) = n2
'aN(3) = 70
'aN(4) = 74
Ru(1) = r
'.................
'ess = es-Ini
'Ini = es
'..................
ess = fin - es
fin = es
'..................
If ess > 6 Then
Call VerificaEsitoTurbo(aN,Ru,es + 1,1,18,,esito,clp,esa,id)
'--------------------------------------
ImpostaGiocata 1,aN,Ru,Posta,18,1
Gioca es,,,,,False
sp = GetSpesa(True)
vv = GetVincita(True)
ut = GetGuadagno(True)
spPr = GetSpesa(False)
vvPr = GetVincita(False)
utPr = GetGuadagno(False)
'-------------------------------------
T = Array(T,k,GetInfoEstrazione(es),StringaEstratti(es,r),po,ess,StringaNumeri(aN),esa,clp,id,sp,vv,ut,spPr,vvPr,utPr)
Call AddRigaTabella(T)
End If
End If
Next
CreaTabella
ScriviResoconto
End Sub

Ciao Pandit,
non capisco il tuo post. Avevo chiesto uno Script? Non ricordo, come al solito. Oppure ti riferisci a qualcos'altro?
Baciccia

 

[Pandit]

Ciao Baciccia buona giornata e grazie per tutti i Tuoi utili contributi , stai bene ,
mi riferivo al post #18 e #20.

 

[Baciccia4251]

Ciao Baciccia buona giornata e grazie per tutti i Tuoi utili contributi , stai bene ,
mi riferivo al post #18 e #20.

Acc. Non ricordavo che esistevano altre pagine precedenti. Tipico esempio di cosa voglio dire quando faccio presente che leggo ma non comprendo. Vedo il particolare ma non l'insieme.
Il mio unico neurone ti saluta
Baciccia

 

[Antonin]

L'unico script che ho è questo, ma non mi pare corrisponda :

Anticipazione (Spoiler)

Sub Main
Dim Nu(1),aN(4),Ru(1),T,Posta(3)
S = InputBox("Scrivi numero spia",,1)
n1 = InputBox("Prima cifra da verificare ",,47)
n2 = InputBox("econda cifra da verificare",,88)
x = InputBox("Ruota su cui fare la verifica",,1)
Ini = 8000
fin = EstrazioneFin
spia = S
r = x
Posta(1) = 2 : Posta(2) = .5 : Posta(3) = 0.5
T = Array(T,"Casi","Info Es","Estratti Spia","Pos Spia","ElencoRit Spia","Numeri In Gioco","Verifica Esito","Colpo","Id Verifica",_
"Spesa","Vincita","Utile","SpesaPr","VincitaPr","UtilePr")
Call InitTabella(T,0,,,5,"Arial Black")
For es = fin To Ini Step - 1
po = Posizione(es,r,spia)
If po > 0 Then
k = k + 1
If k > 76 Then Exit For
aN(1) = n1
aN(2) = n2
'aN(3) = 70
'aN(4) = 74
Ru(1) = r
'.................
'ess = es-Ini
'Ini = es
'..................
ess = fin - es
fin = es
'..................
If ess > 6 Then
Call VerificaEsitoTurbo(aN,Ru,es + 1,1,18,,esito,clp,esa,id)
'--------------------------------------
ImpostaGiocata 1,aN,Ru,Posta,18,1
Gioca es,,,,,False
sp = GetSpesa(True)
vv = GetVincita(True)
ut = GetGuadagno(True)
spPr = GetSpesa(False)
vvPr = GetVincita(False)
utPr = GetGuadagno(False)
'-------------------------------------
T = Array(T,k,GetInfoEstrazione(es),StringaEstratti(es,r),po,ess,StringaNumeri(aN),esa,clp,id,sp,vv,ut,spPr,vvPr,utPr)
Call AddRigaTabella(T)
End If
End If
Next
CreaTabella
ScriviResoconto
End Sub

Questo e' per le spie di posizione,ecco perche' non corrisponde,ma va bene anche questo per le ricerche, Ma il vero Futuro e' quello con le spie uscite 3/4 volte in 18 estrazioni

 

[Antonin]

Questa è una delle ricerche per Futuro, che aveva passato Mission:

Anticipazione (Spoiler)

Inizio Ricerca: dal 7/1/2015
Fine Ricerca: al 28/10/2023

Numero Spia: 82
Sortite: 76
Ruote ricerca: Ca
Ruote in gioco: Ca

Previsione coppie per
Ambate: 44 56

Presenze: 76
positivi: 76(100%)
negativi: 0(0%)
Previsioni in gioco: 0

Ambate vinte: 80 (100%)




sortite:

Estr. n. 8993 del 21/4/2015 Ruota: Ca 82 positivo: E 44 Ca; al 10° C
Estr. n. 8998 del 2/5/2015 Ruota: Ca 82 positivo: E 44 Ca; al 5° C
Estr. n. 9002 del 12/5/2015 Ruota: Ca 82 positivo: E 44 Ca; al 1° C
Estr. n. 9011 del 3/6/2015 Ruota: Ca 82 positivo: E 56 Ca; al 6° C
Estr. n. 9016 del 13/6/2015 Ruota: Ca 82 positivo: E 56 Ca; al 1° C
Estr. n. 9036 del 30/7/2015 Ruota: Ca 82 positivo: E 56 Ca; al 7° C
Estr. n. 9043 del 17/8/2015 Ruota: Ca 82 positivo: E 44 Ca; al 2° C
Estr. n. 9055 del 12/9/2015 Ruota: Ca 82 positivo: E 44 Ca; al 5° C
Estr. n. 9065 del 6/10/2015 Ruota: Ca 82 positivo: E 44 Ca; al 13° C
Estr. n. 9078 del 5/11/2015 Ruota: Ca 82 positivo: E 44 Ca;E 56 Ca; al 2° C
Estr. n. 9104 del 5/1/2016 Ruota: Ca 82 positivo: E 56 Ca; al 3° C
Estr. n. 9158 del 10/5/2016 Ruota: Ca 82 positivo: E 44 Ca; al 13° C
Estr. n. 9240 del 17/11/2016 Ruota: Ca 82 positivo: E 44 Ca;E 56 Ca; al 4° C
Estr. n. 9242 del 22/11/2016 Ruota: Ca 82 positivo: E 44 Ca;E 56 Ca; al 2° C
Estr. n. 9261 del 5/1/2017 Ruota: Ca 82 positivo: E 44 Ca; al 15° C
Estr. n. 9290 del 14/3/2017 Ruota: Ca 82 positivo: E 44 Ca; al 5° C
Estr. n. 9306 del 20/4/2017 Ruota: Ca 82 positivo: E 44 Ca; al 6° C
Estr. n. 9328 del 10/6/2017 Ruota: Ca 82 positivo: E 44 Ca; al 6° C
Estr. n. 9332 del 20/6/2017 Ruota: Ca 82 positivo: E 44 Ca; al 2° C
Estr. n. 9335 del 27/6/2017 Ruota: Ca 82 positivo: E 56 Ca; al 2° C
Estr. n. 9336 del 29/6/2017 Ruota: Ca 82 positivo: E 56 Ca; al 1° C
Estr. n. 9342 del 13/7/2017 Ruota: Ca 82 positivo: E 44 Ca; al 8° C
Estr. n. 9343 del 15/7/2017 Ruota: Ca 82 positivo: E 44 Ca; al 7° C
Estr. n. 9347 del 25/7/2017 Ruota: Ca 82 positivo: E 44 Ca; al 3° C
Estr. n. 9372 del 21/9/2017 Ruota: Ca 82 positivo: E 44 Ca; al 6° C
Estr. n. 9379 del 7/10/2017 Ruota: Ca 82 positivo: E 56 Ca; al 9° C
Estr. n. 9396 del 16/11/2017 Ruota: Ca 82 positivo: E 44 Ca; al 5° C
Estr. n. 9406 del 9/12/2017 Ruota: Ca 82 positivo: E 44 Ca; al 8° C
Estr. n. 9430 del 3/2/2018 Ruota: Ca 82 positivo: E 44 Ca;E 56 Ca; al 5° C
Estr. n. 9444 del 8/3/2018 Ruota: Ca 82 positivo: E 56 Ca; al 5° C
Estr. n. 9461 del 17/4/2018 Ruota: Ca 82 positivo: E 56 Ca; al 16° C
Estr. n. 9470 del 8/5/2018 Ruota: Ca 82 positivo: E 56 Ca; al 7° C
Estr. n. 9479 del 29/5/2018 Ruota: Ca 82 positivo: E 56 Ca; al 17° C
Estr. n. 9484 del 9/6/2018 Ruota: Ca 82 positivo: E 56 Ca; al 12° C
Estr. n. 9574 del 5/1/2019 Ruota: Ca 82 positivo: E 44 Ca; al 10° C
Estr. n. 9603 del 14/3/2019 Ruota: Ca 82 positivo: E 56 Ca; al 15° C
Estr. n. 9616 del 13/4/2019 Ruota: Ca 82 positivo: E 56 Ca; al 2° C
Estr. n. 9626 del 7/5/2019 Ruota: Ca 82 positivo: E 56 Ca; al 3° C
Estr. n. 9646 del 22/6/2019 Ruota: Ca 82 positivo: E 56 Ca; al 1° C
Estr. n. 9661 del 27/7/2019 Ruota: Ca 82 positivo: E 44 Ca; al 2° C
Estr. n. 9671 del 20/8/2019 Ruota: Ca 82 positivo: E 56 Ca; al 15° C
Estr. n. 9676 del 31/8/2019 Ruota: Ca 82 positivo: E 56 Ca; al 10° C
Estr. n. 9690 del 3/10/2019 Ruota: Ca 82 positivo: E 44 Ca; al 15° C
Estr. n. 9693 del 10/10/2019 Ruota: Ca 82 positivo: E 44 Ca; al 12° C
Estr. n. 9710 del 19/11/2019 Ruota: Ca 82 positivo: E 56 Ca; al 1° C
Estr. n. 9736 del 18/1/2020 Ruota: Ca 82 positivo: E 56 Ca; al 9° C
Estr. n. 9799 del 25/7/2020 Ruota: Ca 82 positivo: E 56 Ca; al 1° C
Estr. n. 9811 del 22/8/2020 Ruota: Ca 82 positivo: E 56 Ca; al 7° C
Estr. n. 9816 del 3/9/2020 Ruota: Ca 82 positivo: E 56 Ca; al 2° C
Estr. n. 9863 del 22/12/2020 Ruota: Ca 82 positivo: E 44 Ca; al 2° C
Estr. n. 9865 del 28/12/2020 Ruota: Ca 82 positivo: E 44 Ca; al 9° C
Estr. n. 9872 del 12/1/2021 Ruota: Ca 82 positivo: E 44 Ca; al 2° C
Estr. n. 9922 del 8/5/2021 Ruota: Ca 82 positivo: E 56 Ca; al 6° C
Estr. n. 9925 del 15/5/2021 Ruota: Ca 82 positivo: E 56 Ca; al 3° C
Estr. n. 9926 del 18/5/2021 Ruota: Ca 82 positivo: E 56 Ca; al 2° C
Estr. n. 9931 del 29/5/2021 Ruota: Ca 82 positivo: E 56 Ca; al 5° C
Estr. n. 9980 del 21/9/2021 Ruota: Ca 82 positivo: E 44 Ca; al 5° C
Estr. n. 9982 del 25/9/2021 Ruota: Ca 82 positivo: E 44 Ca; al 3° C
Estr. n. 9992 del 19/10/2021 Ruota: Ca 82 positivo: E 44 Ca; al 1° C
Estr. n. 10018 del 18/12/2021 Ruota: Ca 82 positivo: E 56 Ca; al 6° C
Estr. n. 10022 del 28/12/2021 Ruota: Ca 82 positivo: E 56 Ca; al 2° C
Estr. n. 10044 del 17/2/2022 Ruota: Ca 82 positivo: E 44 Ca; al 2° C
Estr. n. 10047 del 24/2/2022 Ruota: Ca 82 positivo: E 56 Ca; al 1° C
Estr. n. 10076 del 3/5/2022 Ruota: Ca 82 positivo: E 44 Ca; al 5° C
Estr. n. 10122 del 18/8/2022 Ruota: Ca 82 positivo: E 56 Ca; al 5° C
Estr. n. 10136 del 20/9/2022 Ruota: Ca 82 positivo: E 56 Ca; al 9° C
Estr. n. 10184 del 10/1/2023 Ruota: Ca 82 positivo: E 56 Ca; al 2° C
Estr. n. 10190 del 24/1/2023 Ruota: Ca 82 positivo: E 44 Ca; al 2° C
Estr. n. 10201 del 18/2/2023 Ruota: Ca 82 positivo: E 56 Ca; al 15° C
Estr. n. 10209 del 9/3/2023 Ruota: Ca 82 positivo: E 56 Ca; al 7° C
Estr. n. 10215 del 23/3/2023 Ruota: Ca 82 positivo: E 56 Ca; al 1° C
Estr. n. 10251 del 15/6/2023 Ruota: Ca 82 positivo: E 44 Ca; al 13° C
Estr. n. 10308 del 28/9/2023 Ruota: Ca 82 positivo: E 56 Ca; al 14° C
Estr. n. 10309 del 29/9/2023 Ruota: Ca 82 positivo: E 56 Ca; al 13° C
Estr. n. 10313 del 6/10/2023 Ruota: Ca 82 positivo: E 56 Ca; al 9° C
Estr. n. 10318 del 14/10/2023 Ruota: Ca 82 positivo: E 56 Ca; al 4° C

Ok ho capito, lui ha fatto questa ricerca in base alle 3/4 uscite in 18 estrazioni.

 

[Antonin]

Sto cercando di creare una macro che faccia le stesse cose dello script.
Purtroppo non riesco a spiegare chiaramente all'AI alcune cose.
Ad esempio mi ha chiesto:

Potresti aiutarmi a capire:
Esattamente cosa fa la funzione SerieFreqTurbo? Che tipo di conteggio esegue?
Nel caso specifico che hai mostrato (spia 10 su Bari), come arriva a contare 36 presenze per la coppia 20,67?
Vedo che nello script i numeri della prima riga sono 20,67 mentre nella macro sono 20,47 - questo suggerisce che c'è una differenza anche nella selezione delle coppie da analizzare. Come vengono scelte le coppie nello script?

Con queste informazioni potrò correggere la macro per replicare esattamente lo stesso comportamento dello script.

Ho difficoltà a rispondere. Qualche scripter potrebbe darmi qualche suggerimento?
Grazie
Baciccia

Dipende dalla data di inizio,basta che un mese in piu o meno,ti cambia la coppia. Come le coppie che non si vedano da pochi mesi,e subito cambiano partners.

 

[Baciccia4251]

A Futuro2 ho rinunciato non riesco a fare qualcosa che funzioni.
In Futuro vedremo se Futuro2 avrà nuova vita. Per ora è sepolto.
Baciccia

 

[Antonin]

A Futuro2 ho rinunciato non riesco a fare qualcosa che funzioni.
In Futuro vedremo se Futuro2 avrà nuova vita. Per ora è sepolto.
Baciccia

Lo faro'rinascere ma con cautela e precauzioni.

 

[Antonin]

A presto!

 

[Antonin]

A presto!

Poi se qualcuno non piace le spie tradizionali,gli do' ragione sono solo indicazioni "del frequente del singolo spia.Ma nel Futuro ci sono 4 evoluzioni diverse.
1° le date che Missione citava spesso.
2° il n° spia indica le conferme anche se di percentuali basse.
3° le cadenze e figure,che indicano i vertibili sia zerati che in figure.
4° le decine nelle Venus contano poco ,ormai superate per qualcuno ma non per me!
Osservate le 15cine,non cambia nulla con gli zerati figure e coppie dei 90 numeri.Ok poi vedremo chi aveva ragione.Oggi ho portato i fiori che a lui piacevano tanto.

 

[Marcorun]

Scusate l'introMISSIONE,state forse cercando questo?

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