In questa sezione è possibile postare gli script relativi a metodi e ricerche.
da Fortuna_68 il 20/05/2023, 18:18
Ciao Forum , chiedo ai prof se possono fare uno script di ricerca algoritmi sommativi scegliendo con inputbox tra :
-indice mese
-numero mesi
-numero colpi gioco , con la possibilità di posticipare l'inizio del gioco , cioè non solo dalla successiva estrazione a quella di calcolo ma ad esempio se calcolo alla 1a mese decido se iniziare il gioco dopo due colpi , quindi dalla 4a estrazione ( se non si può come non detto )
-una ruota o due ruote
-ricerca per presenze o frequenze
-1 estratto + fisso o 2 estratti + fisso
Accanto al numero previsto vorrei che ci fosse il suo ritardo attuale , nel gioco a singola ruota sarà solo uno , nel caso di due ruote metteremo solo quello col ritardo minore , poi il numero di presenze dell'algoritmo nella ricerca per presenze e della frequenza x il parametro frequenze
Esempio 1BA + 66 = 36 -- rit 21 -- pres 10
5RO + 20 = 22 -- rit 16 -- freq 12
Per ridurre il numero di algoritmi dovrebbe mostrare quelli che in primis hanno coperto più casi, tra questi , quelli con più presenze ed infine quelli convergenti
Grazie
-
Fortuna_68
-
- Messaggi: 19
- Iscritto il: 29/11/2021, 19:44
da DjNomade il 20/05/2023, 22:03
In archivio ho trovato una cosa del genere se ti puo essere utile.......
Ciauz- Codice: Seleziona tutto
'Ultima estrazione numeri estratti Bari - 12.72.35.01.45
'ATTENZIONE ANALISI DELLA POSIZIONE. 1 ' Colpo n°. 12
'1°Ba + 08 su Bari è uscito 11 su 12 casi - Num. [48] Ultimo Calcolato Rit.Att. 04 ... SFALDATO ... freq...14 - Esito al colpo... 8 '1°Ba + 06 su Bari è uscito 10 su 12 casi - Num. [46] Ultimo Calcolato Rit.Att. 88 ... in corso ... freq...6
' ATTENZIONE ANALISI DELLA POSIZIONE. 2 ' Colpo n°. 12
'2°Ba + 22 su Bari è uscito 13 su 12 casi - Num. [84] Ultimo Calcolato Rit.Att. 11 ... SFALDATO ... freq...08 - Esito al colpo... 10 '2°Ba + 11 su Bari è uscito 11 su 12 casi - Num. [73] Ultimo Calcolato; Rit.Att. 20 ... in corso ... freq...10
Sub Main() ColoreTesto 1: Scrivi Scrivi String(15," ") & "QUESTO SCRIPT ELABORA PER OGNI POSIZIONE I PRIMI 25 ALGORITMI SU OGNI SINGOLA RUOTA",1 Scrivi String(35," ") & "IN ORDINE DI USCITE PARTENDO DALLA PIU'ALTA",1 Scrivi String(25," ") & "SEGNALANDO IL RITARDO ATTUALE E LA FREQUENZA DELL'AMBATA IN GIOCO",1 ColoreTesto 0: Scrivi Dim mm(1) Dim nam(90,8),nn(1),ruota(1),nt(90,8),n3(90,8),n4(90,8),n5(90,8) ind = CInt(InputBox("ESTRAZIONE MENSILE? (Inserisci 0 Per l'ultima, 1 per la prima, ....)",,0)) ne = InputBox("Numero estrazioni:","ESTRAZIONI",158) ncg = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",9)) nStart = Timer ' partenza tempo di elaborazione For nru1 = 1 To 12 If nru1 = 11 Then nru1 = 12 ColoreTesto 0:Scrivi String(115,"=") ruota(1) = nru1 For x = 1 To 90 For y = 1 To 8 nam(x,y) = 0 nt(x,y) = 0 n3(x,y) = 0 n4(x,y) = 0 n5(x,y) = 0 Next Next p = 1 p2 = 2 p3 = 3 p4 = 4 p5 = 5 casi = 0 ultest = 10231 ' qui ogni ultima estrazione aggiorna manualmente il numero dell'ultima ini = EstrazioneFin - ne fin = EstrazioneFin For es = ini To fin 'If IndiceMensile(es) = ind Then
'If(((eval(ind) = 0)And(es = ultest))Or((Indicemensile(es) = eval(ind)And(eval(ind) > 0))Or((Indicemensile(es + 1) = 1)And(eval(ind) = 0)))) Then If IndiceMensile(es) = ind Or (((eval(ind) = 0)And(es = ultest))Or((IndiceMensile(es) = eval(ind)And(eval(ind) > 0))Or((IndiceMensile(es + 1) = 1)And(eval(ind) = 0)))) Then
colpo = fin - es Messaggio "Elaborazione estrazioni... " &(es) & " ---> script by Mike58 - Modificato da Blackmore" Call(AvanzamentoElab(Ini,fin,es)) casi = casi + 1 'la riga sotto per controllare le estrazioni se non si vuole mettere apice davanti Scrivi Format2(casi) & ") " & DataEstrazione(es) & " [" & es & "] " & SiglaRuota(nru1) & " " & StringaEstratti(es,nru1) co = 0 For nu = 1 To 90 co = co + 1 a = Estratto(es,nru1,p) aa = Estratto(es,nru1,p2) a3 = Estratto(es,nru1,p3) b = Fuori90(a + nu) bb = Fuori90(aa + nu) b3 = Fuori90(a3 + nu) a4 = Estratto(es,nru1,p4) a5 = Estratto(es,nru1,p5) b4 = Fuori90(a4 + nu) b5 = Fuori90(a5 + nu) nam(co,1) = co nt(co,1) = co n3(co,1) = co n4(co,1) = co n5(co,1) = co nam(co,2) = nru1 nt(co,2) = nru1 n3(co,2) = nru1 n4(co,2) = nru1 n5(co,2) = nru1 nam(co,3) = p nt(co,3) = p2 n3(co,3) = p3 n4(co,3) = p4 n5(co,3) = p5 nam(co,4) = nu nt(co,4) = nu n3(co,4) = nu n4(co,4) = nu n5(co,4) = nu nam(co,6) = b nt(co,6) = bb n3(co,6) = b3 n4(co,6) = b4 n5(co,6) = b5 nam(co,7) = 0 nt(co,7) = 0 n3(co,7) = 0 n4(co,7) = 0 n5(co,7) = 0 esncg = es + ncg If esncg > EstrazioneFin Then esncg = EstrazioneFin End If For ess = es + 1 To esncg For pp = 1 To 5 e = Estratto(ess,nru1,pp) If e = b Then nam(co,5) = nam(co,5) + 1 nn(1) = nam(co,6) nam(co,7) = SerieFreq(es + 1,ess,nn,ruota,1) End If If e = bb Then nt(co,5) = nt(co,5) + 1 nn(1) = nt(co,6) nt(co,7) = SerieFreq(es + 1,ess,nn,ruota,1) End If If e = b3 Then n3(co,5) = n3(co,5) + 1 nn(1) = n3(co,6) n3(co,7) = SerieFreq(es + 1,ess,nn,ruota,1) End If If e = b4 Then n4(co,5) = n4(co,5) + 1 nn(1) = n4(co,6) n4(co,7) = SerieFreq(es + 1,ess,nn,ruota,1) End If If e = b5 Then n5(co,5) = n5(co,5) + 1 nn(1) = n5(co,6) n5(co,7) = SerieFreq(es + 1,ess,nn,ruota,1) End If Next Next Next End If 'End If Next Scrivi "------------------------------------------" ColoreTesto 1 Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1 Scrivi
If ind =0 Then Scrivi "ALL'ULTIMA ESTRAZIONE DEL MESE ",1 If ind >0 Then Scrivi "ALLA "&(ind)&"° ESTRAZIONE DEL MESE ",1 Scrivi "RUOTE DI GIOCO : " & NomeRuota(nru1),1 Scrivi "COLPI DI GIOCO : " & ncg,1 Scrivi "CASI ANALIZZATI : " & casi,1 ColoreTesto 2 Scrivi"N° colpo in corso ---> " & colpo,1 ColoreTesto 0 Scrivi"" Scrivi "Ultima estrazione numeri estratti " & NomeRuota(nru1) & " - " & StringaEstratti(EstrazioneFin,nru1) Scrivi"" Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p & " ",1 Scrivi " Colpo n°. " & colpo & " ",1 Scrivi ColoreTesto 0 OrdinaMatrice nam,- 1,5 For ca = 1 To 25 mm(1) = nam(ca,6) ratt = SerieRitardo(fin - 250,fin,mm,ruota,1) freqq = SerieFreq(fin - ne,fin,mm,ruota,1) esitoo= colpo - ratt 'esitoo= Abs(ind - ratt) If nam(ca,7) = 0 Then ColoreTesto 0 Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " + " & _ Format2(nam(ca,4)) & " su " & NomeRuota(nru1) & _ " è uscito " & FormatSpace(nam(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _ " Num. [" & Format2(eval(nam(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1 Else ColoreTesto 2 If nam(ca,7) > 0 Then Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " + " & _ Format2(nam(ca,4)) & " su " & NomeRuota(nru1) & _ " è uscito " & FormatSpace(nam(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _ " Num. [" & Format2(eval(nam(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0 Scrivi " - Esito al colpo... " & esitoo,1 'cc = 0 cc = cc + 1 End If End If Next ColoreTesto 0 Scrivi String(115,"="),0,0 ColoreTesto 0 'Scrivi "----- Sfaldati...." & cc,1 ColoreTesto 0 OrdinaMatrice nam,- 1,8 Scrivi ColoreTesto 1 Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p2 & " ",1 Scrivi " Colpo n°. " & colpo & " ",1 Scrivi ColoreTesto 1 OrdinaMatrice nt,- 1,5 For ca = 1 To 25 mm(1) = nt(ca,6) ratt = SerieRitardo(fin - 250,fin,mm,ruota,1) freqq = SerieFreq(fin - ne,fin,mm,ruota,1) 'esito1 = colpo - ratt esito1= Abs(ind - ratt) If nt(ca,7) = 0 Then ColoreTesto 0 Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " + " & _ Format2(nt(ca,4)) & " su " & NomeRuota(nru1) & _ " è uscito " & FormatSpace(nt(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _ " Num. [" & Format2(eval(nt(ca,6))) & "] Ultimo Calcolato; Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1 Else ColoreTesto 2 If nt(ca,7) > 0 Then Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " + " & _ Format2(nt(ca,4)) & " su " & NomeRuota(nru1) & _ " è uscito " & FormatSpace(nt(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _ " Num. [" & Format2(eval(nt(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0 Scrivi " - Esito al colpo... " & esito1,1 dd = dd + 1 End If End If Next ColoreTesto 0 Scrivi String(115,"="),0,0 ColoreTesto 1 'Scrivi "----- Sfaldati...." & dd,1 ColoreTesto 0 OrdinaMatrice nt,- 1,8 ColoreTesto 0 Scrivi ColoreTesto 1 Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p3 & " ",1 Scrivi " Colpo n°. " & colpo & " ",1 Scrivi ColoreTesto 0 OrdinaMatrice n3,- 1,5 For ca = 1 To 25 mm(1) = n3(ca,6) ratt = SerieRitardo(fin - 250,fin,mm,ruota,1) freqq = SerieFreq(fin - ne,fin,mm,ruota,1) 'esito2 = colpo - ratt esito2= Abs(ind - ratt) If n3(ca,7) = 0 Then ColoreTesto 0 Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " + " & _ Format2(n3(ca,4)) & " su " & NomeRuota(nru1) & _ " è uscito " & FormatSpace(n3(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _ " Num. [" & Format2(eval(n3(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1 Else ColoreTesto 2 If n3(ca,7) > 0 Then Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " + " & _ Format2(n3(ca,4)) & " su " & NomeRuota(nru1) & _ " è uscito " & FormatSpace(n3(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _ " Num. [" & Format2(eval(n3(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0 Scrivi " - Esito al colpo... " & esito2,1 hh = hh + 1 End If End If Next ColoreTesto 0 Scrivi String(115,"="),0,0 ColoreTesto 1 'Scrivi "----- Sfaldati...." & hh,1 ColoreTesto 0 OrdinaMatrice n3,- 1,8 Scrivi ColoreTesto 1 Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p4 & " ",1 Scrivi " Colpo n°. " & colpo & " ",1 Scrivi ColoreTesto 0 OrdinaMatrice n4,- 1,5 For ca = 1 To 25 mm(1) = n4(ca,6) ratt = SerieRitardo(fin - 250,fin,mm,ruota,1) freqq = SerieFreq(fin - ne,fin,mm,ruota,1) 'esito3 = colpo - ratt esito3= Abs(ind - ratt) If n4(ca,7) = 0 Then ColoreTesto 0 Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " + " & _ Format2(n4(ca,4)) & " su " & NomeRuota(nru1) & _ " è uscito " & FormatSpace(n4(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _ " Num. [" & Format2(eval(n4(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1 Else ColoreTesto 2 If n4(ca,7) > 0 Then Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " + " & _ Format2(n4(ca,4)) & " su " & NomeRuota(nru1) & _ " è uscito " & FormatSpace(n4(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _ " Num. [" & Format2(eval(n4(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0 Scrivi " - Esito al colpo... " & esito3,1 ff = ff + 1 End If End If Next ColoreTesto 0 Scrivi String(115,"="),0,0 ColoreTesto 1 'Scrivi "----- Sfaldati...." & ff,1 ColoreTesto 0 OrdinaMatrice n4,- 1,8 Scrivi ColoreTesto 1 Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p5 & " ",1 Scrivi " Colpo n°. " & colpo & " ",1 Scrivi ColoreTesto 0 OrdinaMatrice n5,- 1,5 For ca = 1 To 25 mm(1) = n5(ca,6) ratt = SerieRitardo(fin - 250,fin,mm,ruota,1) freqq = SerieFreq(fin - ne,fin,mm,ruota,1) 'esito4 = colpo - ratt esito4= Abs(ind - ratt) If n5(ca,7) = 0 Then ColoreTesto 0 Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " + " & _ Format2(n5(ca,4)) & " su " & NomeRuota(nru1) & _ " è uscito " & FormatSpace(n5(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _ " Num. [" & Format2(eval(n5(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1 Else ColoreTesto 2 If n5(ca,7) > 0 Then Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " + " & _ Format2(n5(ca,4)) & " su " & NomeRuota(nru1) & _ " è uscito " & FormatSpace(n5(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _ " Num. [" & Format2(eval(n5(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0 Scrivi " - Esito al colpo... " & esito4,1 gg = gg + 1 End If End If Next If ScriptInterrotto Then Exit For Next ColoreTesto 0 Scrivi String(115,"="),0,0 ColoreTesto 1 'Scrivi "---- Sfaldati...." & gg,1 ColoreTesto 0 OrdinaMatrice n5,- 1,8 Scrivi String(115,"="),1 Scrivi " Listato da Ramco e modificato da Mike58 .......... By Blackmore ",1 nEnd = Timer ' fine tempo di elaborazione Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart)) End Sub Function FormattaSecondi(s) 'Questa Function trasforma il numero di secondi passato come parametro in una stringa ' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss ' s ---> Numero di secondi da formattare ' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore ) Dim hh Dim Mm Dim Ss Dim TimeStr hh = s \ 3600 Mm =(s Mod 3600) \ 60 Ss = s -((hh * 3600) +(Mm * 60)) TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss) FormattaSecondi = TimeStr End Function
- Codice: Seleziona tutto
'IMPOSTAZIONI: '(All'ultima estrazione del mese per (1) colpo: 'Quantità mesi Impostati: (3) 'Statistica dal: 27.02.2016 al: 21.05.2016 'Percentuale Impostata: 95% '1 di Bari + 17 su Bari è uscito 2/3 : 56 ----> sfaldato '1 di Bari + 49 su Bari è uscito 2/3 : 88 in corso '2 di Bari + 08 su Bari è uscito 2/3 : 16 ----> sfaldato '2 di Bari + 48 su Bari è uscito 2/3 : 56 ----> sfaldato '4 di Bari + 07 su Bari è uscito 2/3 : 44 ----> sfaldato '5 di Bari + 89 su Bari è uscito 2/3 : 16 ----> sfaldato
Sub Main() Scrivi "Ricerca per Ambata eseguita in tutte le ruote contemporaneamente",1 Dim som(5,90) Dim estr(5) Dim Val(5,90) Dim amb(90) perc=InputBox("Imposta la percentuale esiti (10% - 100%)",,95) es=InputBox("Inserisci 0 ultima, 1 prima, ....:",,12) nmc=InputBox("Quanti mesi da analizzare ?",,3) ncg=InputBox("Quanti colpi di gioco ?",,1) ultest=9310 n=EstrazioneFin z=0 trovato=False While z<eval(nmc)
If (((eval(es)=0)And(n=ultest))Or((IndiceMensile(n)=eval(es)And(eval(es)>0))Or((IndiceMensile(n+1)=1)And(eval(es)=0)))) Then
z=z+1 End If n=n-1 Wend nn=n+1 For r2=1 To 10 For i=1 To 90 amb(i)=0 Next ColoreTesto 0 : Scrivi : Scrivi "*****************************************************************",1 ColoreTesto 0 : Scrivi "IMPOSTAZIONI:",1 If eval(es)=0 Then s="(All'ultima" Else s="Alla ("+es End If s=s+" estrazione del mese per (" If eval(ncg)=0 Then s=s+"un mese:" Else If eval(ncg)=1 Then s=s+ncg+") colpo:" Else s=s+ncg+") colpi:" End If End If ColoreTesto 0 : Scrivi s ColoreTesto 1 : Scrivi "Quantità mesi Impostati: ("& nmc &")",1 ColoreTesto 0 : Scrivi "Statistica dal: "+DataEstrazione(nn)+" al: "+DataEstrazione(EstrazioneFin),1 ColoreTesto 2 : Scrivi "Percentuale Impostata: "& perc &"%",1 Scrivi For r=1 To 10 z=0 For i=1 To 5 For j=1 To 90 som(i,j)=0 Val(i,j)=True Next Next For i=1 To 5 estr(i)=0 Next valido=False For n=nn To EstrazioneFin If eval(es)=0 Then m=n+1 Else m=n End If If (((eval(es)=0)And(n=ultest))Or((IndiceMensile(n)=eval(es)And(eval(es)>0))Or((IndiceMensile(n+1)=1)And(eval(es)=0)))) Then z=z+1 For i=1 To 5 estr(i)=Estratto(n,r,i) Next For i=1 To 5 For j=1 To 90 Val(i,j)=True Next Next k2=eval(ncg) k3=n+k2 If k3 > EstrazioneFin Then k3 = EstrazioneFin End If For nv=n+1 To k3 For i=1 To 5 For j=1 To 5 k=Estratto(nv,r2,j)-estr(i) While k<=0 k=k+90 Wend If Val(i,k)=True Then som(i,k)=som(i,k)+1 Val(i,k)=False End If Next Next Next End If Next For i=1 To 5 For j=1 To 90 zz=Int((z/100)*perc) s=CStr(eval(i))+" di "+FormatSpace(NomeRuota(r),8)+" + "+Format2(CStr(eval(j)))+" su " ColoreTesto 1 s=s+FormatSpace(NomeRuota(r2),8)+" è uscito "+CStr(som(i,j))+"/"+CStr(eval(z)) s=s+" : "+FormatSpace(CStr(Fuori90(eval(estr(i)+j))),3) If (Val(i,j)=True) Then s=s+" in corso" Else s=s+"----> sfaldato" End If If som(i,j)>=zz Then Scrivi s amb(Fuori90(eval(estr(i)+j)))=amb(Fuori90(eval(estr(i)+j)))+1 End If Next Next Next ColoreTesto 2 : Scrivi : Scrivi "***** NUMERI - CONVERGENTI *****",1 For i=1 To 90 If (amb(i)>1) Then ColoreTesto 1 : Scrivi CStr(eval(i))+": Convergente in ("+CStr(eval(amb(i)))+" sistemi)",1 Next Next End Sub
-
DjNomade
-
- Messaggi: 685
- Iscritto il: 24/03/2013, 22:21
da Fortuna_68 il 21/05/2023, 15:57
Grazie mille DjNomade , sempre generoso ; il primo si avvicina parecchio alla richiesta , se si potessero fare due aggiunte con la frequenza dell'algoritmo e dei colpi di uscita sarebbe + che ottimo Esempio
1NA + 20 --> freq 10 ( colpi nei casi : 1°// 2°- 3°// 6°// 3°// 5°- 6°// 1°- 3°// 6°) --> Riepilogo
Febbraio
1NA + 20 = 30 (1° colpo )
Marxo
1NA + 20 = 81 (2°-3° colpo)
Aprile
1NA + 20 = 66 (6° colpo)
Maggio
1NA + 20 = 90 (3° colpo)
Giugno
1NA + 20 = 18 (5°- 6°)
Luglio
1NA + 20 = 66 (1°-3°)
Agosto
1NA + 20 = 18 (6°)
Chiaro , sempre che sia fattibile , da aggiungere c'è solo il riepilogo e non la descrizione completa con i mesi
Ciao e grazie
-
Fortuna_68
-
- Messaggi: 19
- Iscritto il: 29/11/2021, 19:44
da DjNomade il 21/05/2023, 19:25
Sicuramente si potra' fare ,purtroppo non sarei capace Ciauz
-
DjNomade
-
- Messaggi: 685
- Iscritto il: 24/03/2013, 22:21
da Fortuna_68 il 21/05/2023, 21:36
Grazie ugualmente Dj , buona serata
-
Fortuna_68
-
- Messaggi: 19
- Iscritto il: 29/11/2021, 19:44
Torna a Script
Chi c’è in linea
Visitano il forum: Nessuno e 3 ospiti
- Tutti gli orari sono UTC + 1 ora
|