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