modifica script

[ppaaoolloo]

Salve
tempo fa Peppiniello modificò per me questo script,
la modifica che vorrei io è di poter avere
la possibilità di poter selezionare delle ruote
che io preferisco e non avere il risultato di
tutte come nello script.
Spero che la modifica sia possibile e ringrazio
anticipatamente chi vorrà cimentarsi a farlo.
Saluti


Sub Main
Dim Nu(2),aN(2),Ru(1),Ru2(1),Num(4),Nume(4),ambata(1),ambo1(2),ambo2(2),ambo3(3),Ruote(2),Rtt(3),Corde(4),Posta(1),poste(2)
Posta(1) = 1 : poste(2) = 1
Ini = 9548'EstrazioneFin - 100
fin = EstrazioneFin
ResetTimer
Scrivi " **** Triangolo Scaleno Con Coppie *** Script By Mike58, Enplein e Salvo50 " & Chr(174) & " *** Project By Asuniverso (Giacomo Scionti) " & Chr(169) & " ***",1,1,1,5,4
For es = Ini To fin
For r1 = 1 To 9
For P1 = 1 To 4
For p2 = p1 + 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
If Figura(a) = Figura(b) Then
For r2 = r1 + 1 To 10
For p3 = 1 To 4
For p4 = p3 + 1 To 5
c = Estratto(es,r2,p3)
d = Estratto(es,r2,p4)
If Figura(c) = Figura(d) And a <> c And a <> d And b <> c And b <> d Then
If p1 = p3 Or p1 = p4 Or p2 = p3 Or p2 = p4 Then
If Figura(a) = Figura(c) Then
Nu(1) = a : Nu(2) = b : Ru(1) = r1 : Ru2(1) = r2 : aN(1) = c : aN(2) = d
Num(1) = a : Num(2) = b : Num(3) = c : Num(4) = d
Call OrdinaMatrice(Num,1,1)
df12 = Differenza(Num(1),Num(2)): df23 = Differenza(Num(2),Num(3)): df34 = Differenza(Num(3),Num(4))
If(df12 = 9 And df23 = 9 And df34 = 27)Or(df12 = 9 And df23 = 27 And df34 = 45)_
Or(df12 = 27 And df23 = 45 And df34 = 9) Or(df12 = 45 And df23 = 9 And df34 = 9)Then
If(df12 = 9 And df23 = 9 And df34 = 27) Then
Nume(1) = Num(1): Nume(2) = Num(2) : Nume(3) = Num(3): Nume(4) = Num(4)
End If
If(df12 = 9 And df23 = 27 And df34 = 45) Then
Nume(1) = Num(4): Nume(2) = Num(1) : Nume(3) = Num(2): Nume(4) = Num(3)
End If
If(df12 = 27 And df23 = 45 And df34 = 9) Then
Nume(1) = Num(3): Nume(2) = Num(4) : Nume(3) = Num(1): Nume(4) = Num(2)
End If
If(df12 = 45 And df23 = 9 And df34 = 9) Then
Nume(1) = Num(2): Nume(2) = Num(3) : Nume(3) = Num(4): Nume(4) = Num(1)
End If
Corde(1) = Diametrale(Nume(3)) 'Num(3)-Num(1) ' 18
Corde(2) = Fuori90(Corde(1) + 9) 'Num(4)-Num(1) ' 45
Corde(3) = Fuori90(Corde(1) + 18) 'Num(4)-Num(3) ' 27
Corde(4) =(Nume(3))
k = k + 1
Call Messaggio("Trovate.... " & k & Space(20) & TempoTrascorso)
Call AvanzamentoElab(Ini,fin,es)
Ruote(1) = r1
Ruote(2) = r2
Rtt(1) = R1 : Rtt(2) = R2 : Rtt(3) = 11
ambata(1) = Diametrale(Nume(3))
ambo1(1) = Fuori90(ambata(1)) : ambo1(2) = Fuori90(ambata(1) + 9)
ambo2(1) = Fuori90(ambata(1)) : ambo2(2) = Fuori90(ambata(1) + 18)
ambo3(1) = Fuori90(ambata(1)) : ambo3(2) = Fuori90(ambata(1) + 45)
'Controlla se sulle di calcolo sia presente l'ambata
If SerieFreq(es,es,ambata,Ruote,1) = 0 Then
ReDim MatCasella(4,1)
MatCasella(1,0) = r1' ruota
MatCasella(1,1) = p1
MatCasella(2,0) = r1
MatCasella(2,1) = p2
MatCasella(3,0) = r2
MatCasella(3,1) = p3
MatCasella(4,0) = r2
MatCasella(4,1) = p4
Scrivi String(150,"=") & " Caso N." & k,1
Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru) & vbTab & StringaNumeri(Nu,,1) & vbTab & p1 & p2
Scrivi GetInfoEstrazione(es) & vbTab & StringaRuote(Ru2) & vbTab & StringaNumeri(aN,,1) & Space(3) & p3 & p4
Scrivi
Call DisegnaEstrazione(es,MatCasella,,vbBlue)
Call DisegnaCerchioCiclometrico(Nume,True,True,False,,True,True,True)
Scrivi "Figura Rovesciata",1
Call DisegnaCerchioCiclometrico(Corde,True,True,False,,True,True,True)
Scrivi
'Call VerificaEsito(ambata,Ruote,es + 1,1,10,,esitoA,clpA,esA,idA)
'Call VerificaEsito(ambo1,Ruote,es + 1,2,10,,esitoB,clpB,esB,idB)
'Call VerificaEsito(ambo2,Ruote,es + 1,2,10,,esitoC,clpC,esC,idC)
'Scrivi "Ambata... " & ambata(1) & vbTab,1,0
'If esitoA <> "" Then
'Scrivi esA & " Colpo... " & clpA
'Else
'Scrivi "Negativo"
'End If
'Scrivi "Ambo 1 " & StringaNumeri(ambo1) & vbTab,1,0
'If esitoB <> "" Then
'Scrivi esB & " Colpo... " & clpB
'Else
'Scrivi "Negativo"
'End If
'Scrivi "Ambo 2 " & StringaNumeri(ambo2) & vbTab,1,0
'If esitoC <> "" Then
'Scrivi EsC & " Colpo... " & clpC
'Else
'Scrivi "Negativo"
'End If
ColoreTesto 2
If SerieFreq(es,es,ambata,Ruote,1) > 0 Then Scrivi "Previsione non ottimale!!!"
ColoreTesto 0
ImpostaGiocata 1,ambata,Ruote,Posta,14,1
ImpostaGiocata 2,ambo1,Rtt,poste,14,2
ImpostaGiocata 3,ambo2,Rtt,poste,14,2
ImpostaGiocata 4,ambo3,Rtt,poste,14,2
Gioca es,1,,1
End If
End If
End If
End If
End If
Next
Next
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit For
Next
Scrivi "Tempo di Elaborazione " & TempoTrascorso,1,,,1,3
ScriviResoconto
End Sub

 

[salvo50]

Ciao, sicuro che è questo lo script che ti ha modificato Peppiniello?

 

[ppaaoolloo]

Ciao Salvo,
mi sembra che lui aveva fatto qualche modifica ma non ne sono molto sicuro,
poi invece lo script era stato fatto da tre grandi tra cui anche tu

 

[salvo50]

Ciao Paolo, hai sbagliato script, quello che hai messo, io l'ho fatto sabato alle ore 16e40, post38 del topic aperto da Asuniverso

Rivolto a tutti i professionisti di script

So che siete tutti bravi alla formulazione degli script, quindi chiedo cortesemente l'impegno di uno di voi di sviluppare uno script per il programma L8+6.1 per la formulazione del Triangolo Scaleno. Per il momento colgo l'occasione per salutare e resto in attesa di un vostro riscontro e di...

forum.lottoced.com

Probabilmente ti sei confuso volevi mettere quello modificato da Beppignello e per sbaglio hai messo questo.

Poi, io a livello di script non sono un grande.

 

[ppaaoolloo]

ciao
eh si, ho proprio sbagliato a mettere lo script....

questo che segue è lo script che volevo mettere
e quindi da modificare in modo da poter avere
la possibilità di selezionare delle ruote
a mia scelta e non avere il risultato di
tutte come nello script.
Chiedo scusa per il disguido


Option Explicit
Sub Main
Dim fine,r,n,nn,x,ritardo,frequenza,ix,last,rt,nr,y,retrit,retritmax,tutti,z,retcolpi,retestratti,retidestr,stat,ct,ctg,L,xy
Dim elenco,m,h,Lastr,Ini,finale,sor,retesito,ruota,Listato
Dim gen(288999),rag(12,288999,2),ruoterie(12,90)
fine = InputBox("All'estrazione n.",,EstrazioneFin)
tutti = CInt(InputBox("Vuoi elenco con quanti numeri ? ",,6))
ruota = CInt(InputBox("0 Lista (Tutte) oppure lista solo di questa ruota",,0))
stat = InputBox("Aggiungi Ritardi su tutte le ruote ",,"NO")
sor = CInt(InputBox("Per la sorte ",,1))
Scrivi " Situazione all'estrazione n." & fine & " / " & DataEstrazione(fine),1
'''''''loop per calcolare ritardi e frequenze per le 12 ruote in arrays GEN
'''''''''''è possibile filtrare solo combinazioni della ruota richiesta, mentre lasciando 0 si ottiene prospetto completo
For r = 1 To 12
For n = 1 To 90
If ruota = r Then
ritardo = EstrattoRitardoTurbo(r,n,EstrazioneIni,fine)
frequenza = EstrattoFrequenzaTurbo(r,n,EstrazioneIni,fine)
ix = FormattaStringa(ritardo,"000") & FormattaStringa(frequenza,"000")
gen(ix) = gen(ix) & Format2 & " " & SiglaRuota(r) & Format2(r) & " : "
End If
If ruota = 0 Then
ritardo = EstrattoRitardoTurbo(r,n,EstrazioneIni,fine)
frequenza = EstrattoFrequenzaTurbo(r,n,EstrazioneIni,fine)
ix = FormattaStringa(ritardo,"000") & FormattaStringa(frequenza,"000")
gen(ix) = gen(ix) & Format2 & " " & SiglaRuota(r) & Format2(r) & " : "
End If
Next
Next
ColoreTesto(1)
Scrivi " Elenco con numeri = di..." & tutti,1
If ruota <> 0 Then Scrivi " Lista Combinazioni Rilevate Solo per la Ruota di...." & NomeRuota(ruota),1
If ruota = 0 Then Scrivi " Lista Tutte le Combinazioni rilevate....",1
ColoreTesto(0)
Scrivi "_________________________________________________ ________________________________",1
Scrivi "Rit/Fre Rcomb/XComb Num Ruota Num Ruota Num Ruota Num Ruota Num Ruota",1
'''''loop per stampa lista output delle combinazioni aventi almeno 2 numeri in sincronismo rit/fre
''''''''''verifica esito sulle ruote di rilevamento del sincronismo
For nn = 0 To 288999
If gen(nn) <> "" Then
ReDim aV2(0),ruote(10),numeri(15)
Call SplitByChar(gen(nn)," : ",aV2)
last = UBound(aV2)
If last = tutti Then
xy = xy + 1
For y = 0 To last - 1
rt = Right(aV2,2)
nr = Left(aV2,2)
'''carica array ruote e numeri
ruote(y + 1) = rt
numeri(y + 1) = nr
rag(rt,nn,1) = rag(rt,nn,1) & Format2(nr) & "."
rag(rt,nn,2) = rag(rt,nn,2) & SiglaRuota(rt) & "-"
ruoterie(rt,nr) = nr
Next
ct = ct + 1
ColoreTesto(0)
Call StatisticaFormazioneTurbo(numeri,ruote,1,retrit,retritmax,,,EstrazioneIni,fine)
Scrivi FormattaStringa(nn,"000/000") & " " & FormattaStringa(retrit,"000") & "/" & FormattaStringa(retritmax,"000") & "...." & gen(nn),1
''''' verifica esiti
Call VerificaEsitoTurbo(numeri,ruote,fine + 1,1,,,,retcolpi,retestratti,retidestr)
If retestratti <> "" Then
ctg = ctg + 1
ColoreTesto(1)
Scrivi "<-------------------------------> " & retidestr & "....." & retestratti & "...." & retcolpi,1
ColoreTesto(0)
End If
'''''''''''''''''''''''''''''''''''
If stat = "SI" Or stat = "si" Then
ReDim ruote(1)
ColoreTesto(2)
For z = 1 To 12
If z <> 11 Then
ruote(1) = z
Call StatisticaFormazioneTurbo(numeri,ruote,1,retrit,retritmax,,,EstrazioneIni,fine)
Scrivi "------> " & SiglaRuota(z) & " " & FormattaStringa(retrit,"000") & "/" & FormattaStringa(retritmax,"000") & "...." & gen(nn)
End If
Next
End If
End If
End If
Next
Scrivi " Totale combinazioni trovate..." & ct
Scrivi " Totale Combinazioni vincenti.." & ctg
Scrivi "-------------------------------------------------",1
Scrivi
ColoreTesto(2)
Scrivi "Situazione all'estrazione n." & fine & " / " & DataEstrazione(fine) & " Inizio Periodo " & EstrazioneIni & "/" & DataEstrazione(EstrazioneIni),1
Scrivi "R i e p i l o g o R u o t e e V e r i f i c a E s i t i dalla successiva ",1
ColoreTesto(0)
'''''''loop riepilogo di tutti i numeri rilevati sulle 12 ruote
''''''''''''verifica esito nelle lunghe ottenute per ogni ruota
For L = 1 To 12
elenco = ""
For m = 1 To 90
If ruoterie(L,m) > 0 Then
elenco = elenco & FormattaStringa(ruoterie(L,m)," 00") & "."
End If
Next
Scrivi "-" & SiglaRuota(L) & "......" & elenco
ReDim aV(0),ruo(2),av5(50)
Call SplitByChar(elenco,".",aV)
Lastr = UBound(aV)
For h = 0 To Lastr - 1
av5(h + 1) = aV(h)
Next
ruo(1) = L
Ini = fine
finale = Ini + 24
For Ini = Ini + 1 To finale
''''' verifica esiti
Call VerificaEsitoTurbo(av5,ruo,Ini,sor,1,,retesito,retcolpi,retestratti,retidestr)
If retestratti <> "" Then
ctg = ctg + 1
ColoreTesto(1)
If retesito = "Terno" Or retesito = "Quaterna" Then
ColoreTesto(2)
End If
Scrivi "<------------> colpo n." & Format2(retidestr -(fine)) & "..usc.estr." & retidestr & "....." & retestratti & "........." & retesito,1
ColoreTesto(0)
End If
Next
Next
'''''elenco per ruote e numeri in funzione del rit/freq
ColoreTesto(2)
Scrivi " Combinazioni Numeriche ordinate in forma ascendente per Ritardo/frequenza.(i primi sx hanno minore ritardo..gli ultimi di destra hanno maggiore ritardo",1
ColoreTesto(0)
Messaggio("Attendere sto creando elenco ruota/numeri in ordine per rit/fre")
For L = 1 To 12
Listato = ""
For nn = 0 To 288999
If rag(L,nn,1) <> "" Then Listato = Listato & rag(L,nn,1) & "."
Next
Scrivi "-" & SiglaRuota(L) & "....." & Listato,1
Next
End Sub

 

[salvo50]

Ciao Paolo, lo script è già predisposto per funzionare per tutte le ruote oppure per una sola ruota, alla terza domanda dove c'è scritto:

0 Lista (Tutte) oppure lista solo di questa ruota

per default c'è lo zero che fa tutte le ruote, ma se invece dello zero, metti il numero 1 per Bari, 2 per Cagliari ecc... lo script dovrebbe funzionare solo per la ruota selezionata, dico dovrebbe perche io quando lo lancio anche per una ruota sola, non da nessun risultato, e sinceramente non ho nessuna voglia di andare a vedere perchè non funziona, anche perchè lo script è fuori dalla mia portata, infatti molte righe non le capisco, ecco perchè come dicevo prima, a livello di script non sono un grande.

 

[ppaaoolloo]

ciao Salvo,
innanzi tutto grazie per la tua disponibilità
però quello che vorrei provare io è quello
di poter selezionare contemporaneamente
tre o quattro ruote insieme, mentre invece
adesso con lo script è possibile farlo solo
con una ruota alla volta.

 

[ppaaoolloo]

ciao,
riformulo la richiesta di modificare questo script
per poter selezionare contemporaneamente
tre o quattro ruote insieme, ad esempio
milano napoli venezia oppure
bari roma venezia ecc. ecc.

grazie

saluti