chi mi aiuta ??

[*blacklotto*]

Ciao,
ma hai scaricato da GAM il set di funzioni/istruzioni (bloccato da psw da chiedere a GAM) per istruire Chatgpt o altra I.A.?

si, ora attendo una risposta, grazie !

Secondo me stai facendo un casino per niente.... Ma vuoi chat chatgpt scriva al posto tuo listato quando in base alle tue esigenze puoi trovare listati già pronti anche se non vogliamo imparare e mi ci metto anche io in mezzo.... L8 e spaziometria poi hanno funzioni già integrate per rilevare ambi isotopi uniti distanze...

no, non sto facendo casino per niente, al massimo, faccio casino per ottenere qualcosa.
Di Listati ne ho in quantità industriale, se per quello, pagine e pagine di listati suddivisi per ricerca.
Comunque per me sbagli a scrivere così, ma rispetto la tua idea, e vado avanti, vado avanti perché sono in continua esplorazione nello studio dei numeri, e un aiuto da " Loredana " potrebbe rilevarsi prezioso, e veloce.
Se riuscirò in qualche mia impresa ti farò sapere, se non riuscirò in nulla, ti farò sapere comunque.

 

[scrignobianco]

Volevo ringraziare chi ha dato l´idea di inserire uno script giá fatto per spaziometria per far capire all´ IA il linguaggio da usare.
Avevo provato precedentemente a far fare uno script da zero ma ore e tempo perso...
Io ho usato "Copilot" che é gratuito ho inserito uno script di Baffoblú e Maldor che volevo modificare per visualizzare i risultati dell´ultimo mese dei ripetuti isotopi e ha funzionato
prima restituiva i risultati di estrazioni di mesi e anni precedenti.
Grazie mille, lascio lo script se puó servire a qualcuno

Option Explicit
Sub Main()
Dim a, b, c, d, e, x1, x2, x3, x4, x5
Dim es, r, x, j, esX, esj, ini, fin, co, clp
Dim Vet_Controllo(90, 5), Vet_ripetuti(20), pos, Num, k, kk, conta, Nr, Mat_estr_mod(21, 5), Ultimo_indice
Dim ruota(11), ruote(11), posta(10), poste(10)

posta(1) = 1
posta(2) = 1
poste(2) = 1
poste(3) = 1
ruota(1) = r
ruote(1) = 11
clp = 18

' Calcolo dinamico per prendere sempre il mese precedente
Ultimo_indice = IndiceMensile(EstrazioneFin)

' Determinare il primo giorno del mese precedente
ini = EstrazioneFin - Ultimo_indice - IndiceMensile(EstrazioneFin - Ultimo_indice) + 1 ' Prima estrazione del mese scorso
fin = EstrazioneFin - Ultimo_indice ' Ultima estrazione del mese scorso

ResetTimer

For r = 1 To 11
If r = 11 Then r = 12
co = 0
Scrivi FormatSpace(NomeRuota(r), 80, True), 1, , Giallo_, , 4
Scrivi " Controllo Isotopie Ripetute", 1
Scrivi

For es = ini To fin
Messaggio "elab. estr. [" & (es) & "] " & DataEstrazione(es, 1) & " Elaborazione della ruota di " & NomeRuota(r)
Call AvanzamentoElab(ini, fin, es)

If IndiceMensile(es) = 1 Then
Erase Vet_Controllo
Erase Vet_ripetuti
Erase Mat_estr_mod

Scrivi " 1° . 2° . 3° . 4° . 5° . ", , , , 2, 2

For j = 0 To 20
esj = es + j
For pos = 1 To 5
Num = Estratto(esj, r, pos)
Vet_Controllo(Num, pos) = Vet_Controllo(Num, pos) + 1
Mat_estr_mod(j, pos) = Num
Next
If IsUltimaDelMese(esj) Then Exit For
Next

For j = 0 To 20
esj = es + j
For pos = 1 To 5
Num = Estratto(esj, r, pos)
If Vet_Controllo(Num, pos) < 2 Then Mat_estr_mod(j, pos) = " "
Next
Scrivi DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj, r) & " ******* " _
& Format2(Mat_estr_mod(j, 1)) & " . " & Format2(Mat_estr_mod(j, 2)) & " . " & Format2(Mat_estr_mod(j, 3)) & " . " _
& Format2(Mat_estr_mod(j, 4)) & " . " & Format2(Mat_estr_mod(j, 5)) & " . ", 1, , , 1, 2

If IsUltimaDelMese(esj) Then Exit For
Next

conta = 0
For k = 1 To 90
For kk = 1 To 5
If Vet_Controllo(k, kk) > 1 Then
conta = conta + 1
Vet_ripetuti(conta) = k
End If
Next
Next

EliminaRipetuti Vet_ripetuti
ReDim aNum(conta)

Scrivi
Scrivi "Numeri ripetuti isotopi"
For Nr = 1 To conta
If Vet_ripetuti(Nr) > 0 And Nr <= 10 Then
aNum(Nr) = Vet_ripetuti(Nr)
Scrivi Format2(aNum(Nr)) & ".", 1, False
End If
Next

Scrivi
Scrivi
If esj + 1 > EstrazioneFin Then Exit For

co = co + 1
Scrivi String(100, "°") & " Caso n°" & co, 1
Scrivi "Controllo visivo Prima/Ultima Mese ", 1, , , 1, 2
Scrivi "Prima Estrazione Mese " & DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es, r), 1
Scrivi "Ultima Estrazione Mese " & DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj, r), 1
Scrivi String(100, "°"), 1

ruota(1) = r
ruote(1) = 11
ImpostaGiocata 1, aNum, ruota, posta, clp
ImpostaGiocata 2, aNum, ruote, poste, clp
Gioca esj, 1, , 1

Scrivi
End If
Next
Next

Scrivi String(100, "*")
ColoreTesto 2
Scrivi "Casi trovati : " & co, 1
ColoreTesto 0
Scrivi String(100, " * ")
TestoInBandaPassante(" Idea e Script by Maldor/BaffoBlù"), 1, 3, 0
ScriviResoconto, False
End Sub

 

[*blacklotto*]

Volevo ringraziare chi ha dato l´idea di inserire uno script giá fatto per spaziometria per far capire all´ IA il linguaggio da usare.
Avevo provato precedentemente a far fare uno script da zero ma ore e tempo perso...
Io ho usato "Copilot" che é gratuito ho inserito uno script di Baffoblú e Maldor che volevo modificare per visualizzare i risultati dell´ultimo mese dei ripetuti isotopi e ha funzionato
prima restituiva i risultati di estrazioni di mesi e anni precedenti.
Grazie mille, lascio lo script se puó servire a qualcuno

Ciao scrignobianco,
la proposta è stata fatta dal nostro buon lotto_tom75

Qualsiasi tipo di AI sia "Loredana" dovresti avere un tasto "upload" o "+" per poterle caricare in base alle sue possibilità file di vario tipo tra cui generalmente txt pdf ecc . A quel punto basta che gli carichi le info sul linguaggio desiderato con anche esempi di script e di output come ti hanno già scritto sopra e gli scrivi un comando (prompt) del tipo "impara perfavore questo linguaggio e poi scrivimi uno script che faccia questo.." Se Loredana e' una delle AI sopra menzionate dovrebbe piano piano diventare una tua esperta alleata scripter

e se ha funzionato, ottimo, grazie per la condivisione.
Hai dovuto dare dei giusti passaggi fino a quando ha compreso la richiesta, niente male !

 

[scrignobianco]

Si, si fa cosi, bisogna un pó istruire, ho fatto anche un foglio excell a un mio amico (ancora non so bene come...) ma con tanta pazienza, come si fa con un bambino, ho chiesto quello che mi serviva e dove dovevo inserirlo, e se ci sono riuscita io
ora devo provare un metodo che ho in testa da tanto, se ci riesco, lo condivido
Bene, grazie mille e grazie a lotto_tom75

 

[claudio8]

Volevo ringraziare chi ha dato l´idea di inserire uno script giá fatto per spaziometria per far capire all´ IA il linguaggio da usare.
Avevo provato precedentemente a far fare uno script da zero ma ore e tempo perso...
Io ho usato "Copilot" che é gratuito ho inserito uno script di Baffoblú e Maldor che volevo modificare per visualizzare i risultati dell´ultimo mese dei ripetuti isotopi e ha funzionato
prima restituiva i risultati di estrazioni di mesi e anni precedenti.
Grazie mille, lascio lo script se puó servire a qualcuno

Option Explicit
Sub Main()
Dim a, b, c, d, e, x1, x2, x3, x4, x5
Dim es, r, x, j, esX, esj, ini, fin, co, clp
Dim Vet_Controllo(90, 5), Vet_ripetuti(20), pos, Num, k, kk, conta, Nr, Mat_estr_mod(21, 5), Ultimo_indice
Dim ruota(11), ruote(11), posta(10), poste(10)

posta(1) = 1
posta(2) = 1
poste(2) = 1
poste(3) = 1
ruota(1) = r
ruote(1) = 11
clp = 18

' Calcolo dinamico per prendere sempre il mese precedente
Ultimo_indice = IndiceMensile(EstrazioneFin)

' Determinare il primo giorno del mese precedente
ini = EstrazioneFin - Ultimo_indice - IndiceMensile(EstrazioneFin - Ultimo_indice) + 1 ' Prima estrazione del mese scorso
fin = EstrazioneFin - Ultimo_indice ' Ultima estrazione del mese scorso

ResetTimer

For r = 1 To 11
If r = 11 Then r = 12
co = 0
Scrivi FormatSpace(NomeRuota(r), 80, True), 1, , Giallo_, , 4
Scrivi " Controllo Isotopie Ripetute", 1
Scrivi

For es = ini To fin
Messaggio "elab. estr. [" & (es) & "] " & DataEstrazione(es, 1) & " Elaborazione della ruota di " & NomeRuota(r)
Call AvanzamentoElab(ini, fin, es)

If IndiceMensile(es) = 1 Then
Erase Vet_Controllo
Erase Vet_ripetuti
Erase Mat_estr_mod

Scrivi " 1° . 2° . 3° . 4° . 5° . ", , , , 2, 2

For j = 0 To 20
esj = es + j
For pos = 1 To 5
Num = Estratto(esj, r, pos)
Vet_Controllo(Num, pos) = Vet_Controllo(Num, pos) + 1
Mat_estr_mod(j, pos) = Num
Next
If IsUltimaDelMese(esj) Then Exit For
Next

For j = 0 To 20
esj = es + j
For pos = 1 To 5
Num = Estratto(esj, r, pos)
If Vet_Controllo(Num, pos) < 2 Then Mat_estr_mod(j, pos) = " "
Next
Scrivi DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj, r) & " ******* " _
& Format2(Mat_estr_mod(j, 1)) & " . " & Format2(Mat_estr_mod(j, 2)) & " . " & Format2(Mat_estr_mod(j, 3)) & " . " _
& Format2(Mat_estr_mod(j, 4)) & " . " & Format2(Mat_estr_mod(j, 5)) & " . ", 1, , , 1, 2

If IsUltimaDelMese(esj) Then Exit For
Next

conta = 0
For k = 1 To 90
For kk = 1 To 5
If Vet_Controllo(k, kk) > 1 Then
conta = conta + 1
Vet_ripetuti(conta) = k
End If
Next
Next

EliminaRipetuti Vet_ripetuti
ReDim aNum(conta)

Scrivi
Scrivi "Numeri ripetuti isotopi"
For Nr = 1 To conta
If Vet_ripetuti(Nr) > 0 And Nr <= 10 Then
aNum(Nr) = Vet_ripetuti(Nr)
Scrivi Format2(aNum(Nr)) & ".", 1, False
End If
Next

Scrivi
Scrivi
If esj + 1 > EstrazioneFin Then Exit For

co = co + 1
Scrivi String(100, "°") & " Caso n°" & co, 1
Scrivi "Controllo visivo Prima/Ultima Mese ", 1, , , 1, 2
Scrivi "Prima Estrazione Mese " & DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es, r), 1
Scrivi "Ultima Estrazione Mese " & DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj, r), 1
Scrivi String(100, "°"), 1

ruota(1) = r
ruote(1) = 11
ImpostaGiocata 1, aNum, ruota, posta, clp
ImpostaGiocata 2, aNum, ruote, poste, clp
Gioca esj, 1, , 1

Scrivi
End If
Next
Next

Scrivi String(100, "*")
ColoreTesto 2
Scrivi "Casi trovati : " & co, 1
ColoreTesto 0
Scrivi String(100, " * ")
TestoInBandaPassante(" Idea e Script by Maldor/BaffoBlù"), 1, 3, 0
ScriviResoconto, False
End Sub

Puoi inserire lo script originale di Baffo e Maldor per vedere come lo ha cambiato? Grazie

 

[scrignobianco]

certo, eccolo qui


Option Explicit

Sub Main

Dim a,b,c,d,e,x1,x2,x3,x4,x5

Dim es,r,x,j,esX,esj,ini,fin,co,clp

Dim Vet_Controllo(90,5),Vet_ripetuti(20),pos,Num,k,kk,conta,Nr,Mat_estr_mod(21,5),Ultimo_indice

Dim ruota(11)

Dim ruote(11)

Dim posta(10)

Dim poste(10)

posta(1) = 1

posta(2) = 1

poste(2) = 1

poste(3) = 1

ruota(1) = r

ruote(1) = 11

clp = 18

ini = 10000 ' Inizio 2022 Circa

Ultimo_indice = IndiceMensile(EstrazioneFin)

If IsUltimaDelMese(EstrazioneFin) Then

fin = EstrazioneFin

Else

fin = EstrazioneFin - Ultimo_indice

End If

ResetTimer

For r = 1 To 11

If r = 11 Then r = 12

co = 0

Scrivi FormatSpace(NomeRuota(r),80,True),1,,Giallo_,,4

Scrivi " Controllo Isotopie Ripetute",1

Scrivi

For es = ini To fin

Messaggio "elab. estr. [" &(es) & "] " & DataEstrazione(es,1) & " Elaborazione della ruota di " & NomeRuota(r)

Call AvanzamentoElab(ini,fin,es)

If IndiceMensile(es) = 1 Then

Erase Vet_Controllo

Erase Vet_ripetuti

Erase Mat_estr_mod

Scrivi " 1° . 2° . 3° . 4° . 5° . ",,,,2,2

For j = 0 To 20

esj = es + j

For pos = 1 To 5

Num = Estratto(esj,r,pos)

Vet_Controllo(Num,pos) = Vet_Controllo(Num,pos) + 1

Mat_estr_mod(j,pos) = Num

Next

If IsUltimaDelMese(esj) Then Exit For

Next

For j = 0 To 20

esj = es + j

For pos = 1 To 5

Num = Estratto(esj,r,pos)

If Vet_Controllo(Num,pos) < 2 Then Mat_estr_mod(j,pos) = " "

Next

Scrivi DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r) & " ******* " & Format2(Mat_estr_mod(j,1)) & " . " & Format2(Mat_estr_mod(j,2)) & " . " & Format2(Mat_estr_mod(j,3)) & " . " & Format2(Mat_estr_mod(j,4)) & " . " & Format2(Mat_estr_mod(j,5)) & " . ",1,,,1,2

If IsUltimaDelMese(esj) Then Exit For

Next

conta = 0

For k = 1 To 90

For kk = 1 To 5

If Vet_Controllo(k,kk) > 1 Then

conta = conta + 1

Vet_ripetuti(conta) = k

End If

Next

Next

EliminaRipetuti Vet_ripetuti

ReDim aNum(conta)

Scrivi

Scrivi "Numeri ripetuti isotopi"

For Nr = 1 To conta

If Vet_ripetuti(Nr) > 0 And Nr <= 10 Then

aNum(Nr) = Vet_ripetuti(Nr)

Scrivi Format2(aNum(Nr)) & ".",1,False

End If

Next

Scrivi

Scrivi

If esj + 1 > EstrazioneFin Then Exit For

co = co + 1

Scrivi String(100,"°") & " Caso n°" & co,1

Scrivi "Controllo visivo Prima/Ultima Mese ",1,,,1,2

Scrivi "Prima Estrazione Mese " & DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r),1

Scrivi "Ultima Estrazione Mese " & DataEstrazione(esj) & " - " & SiglaRuota(r) & " - " & StringaEstratti(esj,r),1

Scrivi String(100,"°"),1

ruota(1) = r

ruote(1) = 11

ImpostaGiocata 1,aNum,ruota,posta,clp

ImpostaGiocata 2,aNum,ruote,poste,clp

Gioca esj,1,,1

Scrivi

End If

Next

Next

Scrivi String(100,"*")

ColoreTesto 2

Scrivi" casi trovati : " & co,1

ColoreTesto 0

Scrivi String(100," * ")

TestoInBandaPassante(" Idea e Script by Maldor/BaffoBlù"),1,3,0

ScriviResoconto,False

End Sub

 

[claudio8]

Ho fatto una piccola modifica al vecchio script remmando una riga
' ini = 10000 ' Inizio 2022 Circa
e sostituendola con
ini = EstrazioneFin-20



prova e dimmi se ottieni lo stesso output dello script che l' AI ti ha modificato con un calcolo stranissimo
Saluti

Ps: ho fatto qualche altro test, il costrutto
' Determinare il primo giorno del mese precedente
ini = EstrazioneFin - Ultimo_indice - IndiceMensile(EstrazioneFin - Ultimo_indice) + 1 ' Prima estrazione del mese scorso
da un risultato corretto ...

 

[scrignobianco]

Grazie Claudio ci ho messo mezz´ora a capire.. non mi intendo per niente di script ma ho provato come mi hai detto e da lo stesso risultato.
Quindi va bene in entrambi i modi.. almeno credo..
Tutto é nato perché un mio amico Professore é rimasto colpito da questo metodo e mi ha detto che ho in mano qualcosa di importante e devo tenerne conto, e se lo dice lui che fa lotto da tantissimi anni, gli credo. Solo che manco lui sa nulla di script e allora gli mando i ripetuti del mese, ma prima dovevo sempre cercare in tutto l´output solo quelli del mese precedente... ora il lavoro é piú leggero.
Grazie ancora

 

[claudio8]

 

[*blacklotto*]

Qualcosa riesco ad ottenere, grazie ai consigli ottenuti, qualche errore qua e la, ma con la pazienza ci si riesce a comprendere, e come detto, più pazienza si ha, giungono le prime soddisfazioni.
Ho scelto di mandare un listato, per poi vedere se comprendesse le modifiche che avrei voluto, e posso dire che sto ottenendo più di quanto mi sarei aspettato.
Ci sto " lavorando su " e sembra ( lo scrivo a bassa voce ) che il divertimento è assicurato !
Ho detto divertimento, non soldi a palate
Come ho sempre sostenuto, non è tanto la capacità che ha lo svolgimento del listato in se, ma la ricerca, l' intuizione, la metodologia, tralasciando quella odiosa opera d'arte degli imbecilli di costruire un listato che sappia consegnare scintillanti previsioni che " hanno " sempre vinto nelle precedenti estrazioni, ma in quelle future ... hanno solo fatto .
Ora, posso dirigere la mia idea di studio solo e unicamente alla Venus Nord Milano, spiegando tutto, e di più, delle 4 estrazioni a settimana, esaminando le 16 estrazioni che avvengono a Milano,
per chi non lo sapesse, per conto mio l'archivio ha inizio dal 2009, ( inizio Venus ) e le ruote di Genova, Torino, e Venezia hanno perso il titolo, e tutto quanto avevano di proprio, rimangono esclusivamente " attive " per far comprendere i passaggi abbinati alla 2°, 3°, 4° estrazione di proprietà ruota di Milano, nelle giornate d'estrazione.
Posso dire, che se tutto procederà come spero, mi si aprirà un mondo nuovo, e questo mi piace.
Tra l'altro mi è stato creato diario, con tanto di copertina, con le pagine dove salvare appunti e nuovi script.
E ... chi sapeva di queste cose ? Io, no. Adesso si.
Ma un passo alla volta, nè, che mica voglio cadere ...

​

 

[scrignobianco]

Una domanda per chi puó aiutare.
Qualcuno sa dire perché non vengono ancora dati i ripetuti per questo mese? l´amico Prof. me li ha chiesti ma non li visualizzo ancora.. forse bisogna aspettare la prima estrazione di stasera..
grazie mille

 

[fillott0]

Vi metto un mio script (revisionato e commentato da LuigiB ) risalente a 12 anni fa che ho dato in pasto a Gemini (free) veramente eccezionale questo AI con preghiera di modificarlo ... leggete cosa gli ho chiesto e lo script . La cosa vi accorgerete che è abbastanza complessa , ebbene mi ha messo lo script come lo desideravo con una velocità incredibile circa 20 secondi. Ecco la discussione con il mio script originario vi metto dopo lo script modificato e funzionante:
vi voglio sottoporre un mio script che gira su spaziometria programma dedicato al lotto e cheha funzioni proprie e usa il linguaggio VBScript .Questo script ha già 12 anni e quello che fa sono sicuro che lo leggerete fra le righe dello script commentatissimo!! L a richiesta è semplice nel senso che adesso lo script trova ( nei limiti dalla richiesta) l'assenza della sortita di 2 numeri , automaticamente calcolati per la sorte di almeno un estratto per dei cicli di 9 estrazioni. Ebbene io vorrei che invece i due num lo script fosse in grado d calcolare invece delle assenze ANCHE le presenze nel senso che ci fosse una richiesta :Vuoi calcolare le Assenze o le Presenze(A; P) lo script


Sub Main()

Dim rt(1) 'la ruota di gioco è una (1)

Dim rt2(1) 'la ruota di ricerca è una (1)

Dim nr(2) ' i nr in gioco sono 2

Dim pta(1) ' la puntata che faccio è l'ambata

pta(1) = 1 'la puntata sull'ambata((1) è di 1 euro

Dim pnr(2) ' i prossimi nr in gioco sono 2

Dim np



cicli = InputBox("inserire il num dei cicli(cicli di 9 estraz)di cui si vuol conoscere gli esiti ...",,5)

np = InputBox("inserisci la posiz su cu andremo ad addizionare una volta Sommatorio1 e una volta Sommatorio2...",,1)'si possono mettere 5 posiz



estraz = cicli*9 - 1

dal = EstrazioneFin - estraz



rdr = CInt(InputBox("SCEGLI LA RUOTA DI Gioco",,2))

rt2(1) = rdr

z = CInt(InputBox("SCEGLI LA RUOTA DI Ricerca",,1))



rt(1) = z ' la ruota di gioco che è una (1) è "Z" !!!)

k = 9 ' i Kolpi in gioco sono 9



Call GetSommatorio1ESommatorio2(dal,EstrazioneFin,rt,rt2,k,Sommatorio1,Sommatorio2,np)



If Sommatorio1 > 0 And Sommatorio2 > 0 Then 'se sia CIP sia CIOP sono superiori a 0.....



For n = dal To EstrazioneFin Step 9 'questa riga dice che per fare i calcol ci avvaliamo non degli indici

'mensili ma di un'estrazione ogni 9 a cominciare dalla variabile " dal " ...+ 9.....+ 9 ecc fino alla fine

'ai primo numero o al 2° numero(secondo la scelta di cui sopra"np = InputBox") di ognuna di queste estrazioni si aggiungerà col fuori 90 una volta

'"Sommatorio1" ottenendo così un numero e una volta " Sommatorio2 " per ultreiori 2 numero

Scrivi n & " " & NomeRuota(z) & " " & StringaEstratti(n,z) & " " & " al " & np & "° estratto del quale aggiugiamo una volta " & Sommatorio1 & " " & " e una volta " & Sommatorio2

'ng = 0

nr(1) = Fuori90(Estratto(n,z,np) + Sommatorio1)

nr(2) = Fuori90(Estratto(n,z,np) + Sommatorio2)





Call ImpostaGiocata(1,nr,rt2,pta,k) ' imposto la giocata e la stoppo all'uscita dell'amboata = 1

Gioca n,,,1



Next

es = EstrazioneFin + 1



Call Scrivi(" la prossima giocata l'estraz generatrice sarà la N° " & es & " " & NomeRuota(z) & " " & StringaEstratti(es,z) & " " & " al " & np & "° estratto aggiugiamo una volta " & Sommatorio1 & " " & " e una volta " & Sommatorio2,- 1,,4,1)



pnr(1) = Fuori90(Estratto(es,z,np) + Sommatorio1)

pnr(2) = Fuori90(Estratto(es,z,np) + Sommatorio2)

Call Scrivi("cosi da avere i num da giocare " & pnr(1) & " " & pnr(2) & " sulla ruota di " & NomeRuota(rdr) & " con inizio gioco dalla " & es + 1,- 1,,4,1)

ScriviResoconto

Else

MsgBox "Ambo da sommare impossibile da trovare per ottenere il risultato voluto !"

End If



End Sub



Sub Sviluppoambi(aRetAmbi)

ReDim aN(90)

Dim k

For k = 1 To 90 ' k sono i 90 numeri

aN(k) = k

Next



aRetAmbi = SviluppoIntegrale(aN,2)

End Sub

Sub GetSommatorio1ESommatorio2(Inizio,Fine,aRuota,bRuota,Colpi,Sommatorio1,Sommatorio2,np)



Dim arrAmbi' E' un array che conterrà i 4005 ambi possibili con 90 numeri

' per ora non è ancora dimensionato , si occuperàa di dimensiarlo

' la chiamata alla sub Sviluppoamb

Dim k,i,idEstr 'Si tratta di variabili di comodo o per iterare sui cicli

' vediamo i dettagli

' K : itera sull'array che contiene i 4005 ambi

' I : mi pare che non sia usato si potrebbe togliere

' IdEstr : itera sul range delle estrazioni da analizzare

Dim bFound' Found in inglese vuol dire trovare , la b davanti indica un valore di tipo Booolean (cioè vero/falso)

' è come una bandierinaan che si alza e si abbassa indicando uno stato (bandiera su/giu), nel nostro caso

' prima di entrare nel ciclo gestito da idEstr (quello che itera sulle estrazioni da analizzare)

' prevalorizziamo la variabile a True (vero), poi durante il ciclo suddetto (quello di IdEstr) se la funzione

' VerificaEsito torna True allora andiamo a impostare bFound a False e usciamo dal ciclo con Exit For.

' Il nostro scopo infatti è trovare una combinazione che non abbia dato esito quindi come abbiamo ragionato ?

' Abbiamo detto , diamo per convenzione che tutte le combinazioni (quelle degli ambi) siano adatte nell senso

' che non abbiano dato esito e questo è quello che avviene con bFound = True , poi pero entriamo nel ciclo

' (For idEstr = Inizio To Fine Step 9) dentro questo ciclo se l'ambo in questione ha dato esito allora

' la nostra bella bandierian si abbassa (bFound = False) e usciao dal ciclo , infatti non ha senso continuarlo

' visto che la combinazione non soddisfa i requisiti.

' Quindi al termine del ciclo gestito da IdEstr se la nostra variabile bFound vale ancora True vuol dire

' che la combinazione col sommativo non ha ancora dato esito.

Dim E



Sommatorio1 = 0 'preimposto a 0 i numeri che devo ancora scoprire

Sommatorio2 = 0



Call Sviluppoambi(arrAmbi)' sviluppa i 4005 ambi e alimenta l'array



For k = 1 To UBound(arrAmbi)'cicla sui 4005 ambi



bFound = True 'preimposto a True il flag (flag vuol dire bandiera)



For idEstr = Inizio To Fine Step 9 ' ciclo sulle estrazioni del range



ReDim aNumInGioco(2) 'predispongo un array di 2 elementi che dovra

' contenere il risultato del tale numero letto dall'estrazione

' sommando una volta il primo numero dell'ambo , e una seconda volta il secondo numero





E = np

aNumInGioco(1) = Fuori90(Estratto(idEstr,aRuota(1),E) + arrAmbi(k,1))

aNumInGioco(2) = Fuori90(Estratto(idEstr,aRuota(1),E) + arrAmbi(k,2))

' valorizza E con la posizione del numero da leggere (posizione estrazionale da 1 a 5) np viene passato alla sub

' si pottrebbe pure evitare <E> e usare direttamente <np>

' il primo dei numeri in gioco è dato dalla somma dell'estrato in posisizione E sommato al primo numero dell'ambo corrente

aNumInGioco(1) = Fuori90(Estratto(idEstr,aRuota(1),E) + arrAmbi(k,1))

' il secondo dei numeri in gioco è dato dalla somma dell'estrato in posisizione E sommato al secondo numero dell'ambo corrente

aNumInGioco(2) = Fuori90(Estratto(idEstr,aRuota(1),E) + arrAmbi(k,2))



If VerificaEsito(aNumInGioco,bRuota,idEstr + 1,1,Colpi) = True Then

' 1)Vettore contenente i numeri del pronosticoE 2)Vettore contenente le ruote in gioco 3)Identificativo dell'estrazione dalal quale inizia la verifica

'4)sorte da verificare 5)Colpi di gioco , se omesso non c'è limite e la verifica procede fineche non trova l'esito o non fioniscono le estrazioni

'6)vettore contenente le posizioni estrazionali valide se omesso tutte le posizioni da 1 a 5 sono considerate valide



bFound = False ' i numeri in gioco non vanno bene



Exit For

End If

'End If

Next



If bFound Then ' se i numeri in gioco vanno bene allora ....

Call Scrivi("Questa coppia di numeri " & arrAmbi(k,1) & "-" & arrAmbi(k,2) & " sommata al " & np & "° num dell'estrazione generatrice (con step 9 dei cicli richiesti) non ha mai generato un' ambata",- 1,,4,1)

Call Scrivi("°°°°°°°°°°°°°°°°°°°°°°°°°°°° Cicli Richiesti " &(Fine - Inizio + 1)/9 & " °°°°°°°°°°°°°°°°°°°°°°°°°°°°",- 1,,4,1)



Sommatorio1 = arrAmbi(k,1)

Sommatorio2 = arrAmbi(k,2)

Exit For

End If

Next

End Sub

 

[fillott0]

Certamente! Capisco la tua richiesta. Vuoi modificare lo script VBScript per Spaziometria in modo che l'utente possa scegliere se calcolare l'assenza o la presenza dei due numeri calcolati.

Ecco come puoi modificare il tuo script per includere questa funzionalità. Ho aggiunto una InputBox per la scelta e un If...Else per gestire i due scenari.
Sub Main()
Dim rt(1) 'la ruota di gioco è una (1)
Dim rt2(1) 'la ruota di ricerca è una (1)
Dim nr(2) ' i nr in gioco sono 2
Dim pta(1) ' la puntata che faccio è l'ambata
pta(1) = 1 'la puntata sull'ambata((1) è di 1 euro
Dim pnr(2) ' i prossimi nr in gioco sono 2
Dim np
Dim tipoCalcolo ' Variabile per la scelta Assenze/Presenze

cicli = InputBox("Inserire il numero dei cicli (cicli di 9 estrazioni) di cui si vuol conoscere gli esiti...",,5)
np = InputBox("Inserisci la posizione su cui andremo ad addizionare una volta Sommatorio1 e una volta Sommatorio2...",,1)'Si possono mettere 5 posizioni

' Chiedi all'utente se vuole calcolare le Assenze o le Presenze
tipoCalcolo = InputBox("Vuoi calcolare le Assenze o le Presenze? (A/P)", "Scelta Calcolo", "A")
tipoCalcolo = UCase(Trim(tipoCalcolo)) ' Converti in maiuscolo e rimuovi spazi

If tipoCalcolo <> "A" And tipoCalcolo <> "P" Then
MsgBox "Scelta non valida. Verranno calcolate le Assenze per default."
tipoCalcolo = "A"
End If

estraz = cicli * 9 - 1
dal = EstrazioneFin - estraz

rdr = CInt(InputBox("SCEGLI LA RUOTA DI Gioco",,2))
rt2(1) = rdr
z = CInt(InputBox("SCEGLI LA RUOTA DI Ricerca",,1))

rt(1) = z ' la ruota di gioco che è una (1) è "Z" !!!)
k = 9 ' i Kolpi in gioco sono 9

Call GetSommatorio1ESommatorio2(dal,EstrazioneFin,rt,rt2,k,Sommatorio1,Sommatorio2,np,tipoCalcolo)

If Sommatorio1 > 0 And Sommatorio2 > 0 Then 'se sia CIP sia CIOP sono superiori a 0.....

For n = dal To EstrazioneFin Step 9 'questa riga dice che per fare i calcol ci avvaliamo non degli indici
'mensili ma di un'estrazione ogni 9 a cominciare dalla variabile " dal " ...+ 9.....+ 9 ecc fino alla fine
'ai primo numero o al 2° numero(secondo la scelta di cui sopra"np = InputBox") di ognuna di queste estrazioni si aggiungerà col fuori 90 una volta
'"Sommatorio1" ottenendo così un numero e una volta " Sommatorio2 " per ultreiori 2 numero
Scrivi n & " " & NomeRuota(z) & " " & StringaEstratti(n,z) & " " & " al " & np & "° estratto del quale aggiugiamo una volta " & Sommatorio1 & " " & " e una volta " & Sommatorio2
'ng = 0
nr(1) = Fuori90(Estratto(n,z,np) + Sommatorio1)
nr(2) = Fuori90(Estratto(n,z,np) + Sommatorio2)


Call ImpostaGiocata(1,nr,rt2,pta,k) ' imposto la giocata e la stoppo all'uscita dell'amboata = 1
Gioca n,,,1

Next
es = EstrazioneFin + 1

Call Scrivi(" la prossima giocata l'estrazione generatrice sarà la N° " & es & " " & NomeRuota(z) & " " & StringaEstratti(es,z) & " " & " al " & np & "° estratto aggiugiamo una volta " & Sommatorio1 & " " & " e una volta " & Sommatorio2,- 1,,4,1)

pnr(1) = Fuori90(Estratto(es,z,np) + Sommatorio1)
pnr(2) = Fuori90(Estratto(es,z,np) + Sommatorio2)
Call Scrivi("cosi da avere i numeri da giocare " & pnr(1) & " " & pnr(2) & " sulla ruota di " & NomeRuota(rdr) & " con inizio gioco dalla " & es + 1,- 1,,4,1)
ScriviResoconto
Else
MsgBox "Ambo da sommare impossibile da trovare per ottenere il risultato voluto!"
End If

End Sub

Sub Sviluppoambi(aRetAmbi)
ReDim aN(90)
Dim k
For k = 1 To 90 ' k sono i 90 numeri
aN(k) = k
Next

aRetAmbi = SviluppoIntegrale(aN,2)
End Sub

Sub GetSommatorio1ESommatorio2(Inizio,Fine,aRuota,bRuota,Colpi,Sommatorio1,Sommatorio2,np, tipoCalcolo)

Dim arrAmbi' E' un array che conterrà i 4005 ambi possibili con 90 numeri
' per ora non è ancora dimensionato , si occuperàa di dimensiarlo
' la chiamata alla sub Sviluppoamb
Dim k,idEstr 'Si tratta di variabili di comodo o per iterare sui cicli
' vediamo i dettagli
' K : itera sull'array che contiene i 4005 ambi
' IdEstr : itera sul range delle estrazioni da analizzare
Dim bFound' Found in inglese vuol dire trovare , la b davanti indica un valore di tipo Booolean (cioè vero/falso)
' è come una bandierinaan che si alza e si abbassa indicando uno stato (bandiera su/giu), nel nostro caso
' prima di entrare nel ciclo gestito da idEstr (quello che itera sulle estrazioni da analizzare)
' prevalorizziamo la variabile a True (vero), poi durante il ciclo suddetto (quello di IdEstr) se la funzione
' VerificaEsito torna True allora andiamo a impostare bFound a False e usciamo dal ciclo con Exit For.
' Il nostro scopo infatti è trovare una combinazione che non abbia dato esito quindi come abbiamo ragionato ?
' Abbiamo detto , diamo per convenzione che tutte le combinazioni (quelle degli ambi) siano adatte nell senso
' che non abbiano dato esito e questo è quello che avviene con bFound = True , poi pero entriamo nel ciclo
' (For idEstr = Inizio To Fine Step 9) dentro questo ciclo se l'ambo in questione ha dato esito allora
' la nostra bella bandierian si abbassa (bFound = False) e usciao dal ciclo , infatti non ha senso continuarlo
' visto che la combinazione non soddisfa i requisiti.
' Quindi al termine del ciclo gestito da IdEstr se la nostra variabile bFound vale ancora True vuol dire
' che la combinazione col sommativo non ha ancora dato esito.
Dim E

Sommatorio1 = 0 'preimposto a 0 i numeri che devo ancora scoprire
Sommatorio2 = 0

Call Sviluppoambi(arrAmbi)' sviluppa i 4005 ambi e alimenta l'array

For k = 1 To UBound(arrAmbi)'cicla sui 4005 ambi

bFound = True 'preimposto a True il flag (flag vuol dire bandiera)

For idEstr = Inizio To Fine Step 9 ' ciclo sulle estrazioni del range

ReDim aNumInGioco(2) 'predispongo un array di 2 elementi che dovra
' contenere il risultato del tale numero letto dall'estrazione
' sommando una volta il primo numero dell'ambo , e una seconda volta il secondo numero


E = np
aNumInGioco(1) = Fuori90(Estratto(idEstr,aRuota(1),E) + arrAmbi(k,1))
aNumInGioco(2) = Fuori90(Estratto(idEstr,aRuota(1),E) + arrAmbi(k,2))
' valorizza E con la posizione del numero da leggere (posizione estrazionale da 1 a 5) np viene passato alla sub
' si pottrebbe pure evitare <E> e usare direttamente <np>
' il primo dei numeri in gioco è dato dalla somma dell'estrato in posisizione E sommato al primo numero dell'ambo corrente
aNumInGioco(1) = Fuori90(Estratto(idEstr,aRuota(1),E) + arrAmbi(k,1))
' il secondo dei numeri in gioco è dato dalla somma dell'estrato in posisizione E sommato al secondo numero dell'ambo corrente
aNumInGioco(2) = Fuori90(Estratto(idEstr,aRuota(1),E) + arrAmbi(k,2))

If tipoCalcolo = "A" Then ' Calcolo Assenze
If VerificaEsito(aNumInGioco,bRuota,idEstr + 1,1,Colpi) = True Then
' 1)Vettore contenente i numeri del pronosticoE 2)Vettore contenente le ruote in gioco 3)Identificativo dell'estrazione dalal quale inizia la verifica
'4)sorte da verificare 5)Colpi di gioco , se omesso non c'è limite e la verifica procede fineche non trova l'esito o non fioniscono le estrazioni
'6)vettore contenente le posizioni estrazionali valide se omesso tutte le posizioni da 1 a 5 sono considerate valide

bFound = False ' i numeri in gioco non vanno bene

Exit For
End If
Else ' tipoCalcolo = "P" - Calcolo Presenze
If VerificaEsito(aNumInGioco,bRuota,idEstr + 1,1,Colpi) = False Then ' Se non ha dato esito, non va bene per le presenze
bFound = False
Exit For
End If
End If
'End If
Next

If bFound Then ' se i numeri in gioco vanno bene allora ....
If tipoCalcolo = "A" Then
Call Scrivi("Questa coppia di numeri " & arrAmbi(k,1) & "-" & arrAmbi(k,2) & " sommata al " & np & "° num dell'estrazione generatrice (con step 9 dei cicli richiesti) non ha mai generato un' ambata",- 1,,4,1)
Else
Call Scrivi("Questa coppia di numeri " & arrAmbi(k,1) & "-" & arrAmbi(k,2) & " sommata al " & np & "° num dell'estrazione generatrice (con step 9 dei cicli richiesti) ha sempre generato un' ambata",- 1,,4,1)
End If
Call Scrivi("°°°°°°°°°°°°°°°°°°°°°°°°°°°° Cicli Richiesti " &(Fine - Inizio + 1)/9 & " °°°°°°°°°°°°°°°°°°°°°°°°°°°°",- 1,,4,1)

Sommatorio1 = arrAmbi(k,1)
Sommatorio2 = arrAmbi(k,2)
Exit For
End If
Next
End Sub

 

[fillott0]

piccolo errore commesso da Gemini nello script originale luigib nelle sue note aveva scritto questa riga :Call ImpostaGiocata(1,nr,rt2,pta,k) ' imposto la giocata e la stoppo all'uscita dell'amboata = 1 significando che era logico stoppare le giocate all'uscita di un'ambata il che consisteva che in ImpostaGiocata dopo la K ....,1 corregete così questa linea di codice Call ImpostaGiocata(1,nr,rt2,pta,k,1) ' imposto la giocata e la stoppo all'uscita dell'amboata = 1