salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti.
Ciao PasqualinoC
Ti rispondo qua alla domanda che mi hai fatto nell'altro topic, se sei pratico un pochino di script puoi togliere velocissimo tutte le equazioni che vuoi, ti dirò, io ho fatto delle prove nella ruota di Napoli e per avere dei riscontri ho dovuto togliere le ultime 3 equazioni, nello script ci sono queste righe
nei quali alle ultime 3 ho messi degli apici ad inizio riga, quindi in questo modo li ho eliminati, quindi puoi togliere e mettere le equazioni che vuoi, poi alla prima domanda nello script ti chiedo dove vuoi finire la ricerca di defolt l'ho messa (col numero 1) alla prima estrazione del 1871, alla seconda domanda chiedo la ruota, per defoult col numero 6 ho messo la ruora di Napoli perchè sono sicuro che c'è nella prima estrazione del 1871.
Comunque continua a chiedere ad altri di fare questo script, io sono un dilettante, sono sicuro che altri, ad esempio ILegend, riescono a fare meglio di me.
Ti metto qua lo script, con le tre equazioni tolte, ho tolto la scritta perfette per ovvi motivi
per avere dei riscontri lo devi far girare per almeno 10 minuti, poi premi su STOP e si ferma.
Oppure fermarlo quando la prima ruota segna 9735
Ciao PasqualinoC
Ti rispondo qua alla domanda che mi hai fatto nell'altro topic, se sei pratico un pochino di script puoi togliere velocissimo tutte le equazioni che vuoi, ti dirò, io ho fatto delle prove nella ruota di Napoli e per avere dei riscontri ho dovuto togliere le ultime 3 equazioni, nello script ci sono queste righe
Codice:
If(S12 = 90)Then 'Per eliminare la prima equazione mettere un apice qui, ed anche al End If corrispondente
If(Equ2 = 90)Then 'Per eliminare la seconda equazione mettere un apice qui, ed anche al End If corrispondente
'If(Equ3 = 90) Then 'Per eliminare la terza equazione mettere un apice qui, ed anche al End If corrispondente
'If(Equ4 = 90) Then 'Per eliminare la quarta equazione mettere un apice qui, ed anche al End If corrispondente
'If(Equ5 = 90) Then 'Per eliminare la quinta equazione mettere un apice qui, ed anche al End If corrispondente
'End If 'Per eliminare la quinta equazione mettere un apice qui
'End If 'Per eliminare la quarta equazione mettere un apice qui
'End If 'Per eliminare la terza equazione mettere un apice qui
End If 'Per eliminare la seconda equazione mettere un apice qui
End If 'Per eliminare la prima equazione mettere un apice quinei quali alle ultime 3 ho messi degli apici ad inizio riga, quindi in questo modo li ho eliminati, quindi puoi togliere e mettere le equazioni che vuoi, poi alla prima domanda nello script ti chiedo dove vuoi finire la ricerca di defolt l'ho messa (col numero 1) alla prima estrazione del 1871, alla seconda domanda chiedo la ruota, per defoult col numero 6 ho messo la ruora di Napoli perchè sono sicuro che c'è nella prima estrazione del 1871.
Comunque continua a chiedere ad altri di fare questo script, io sono un dilettante, sono sicuro che altri, ad esempio ILegend, riescono a fare meglio di me.
Ti metto qua lo script, con le tre equazioni tolte, ho tolto la scritta perfette per ovvi motivi
per avere dei riscontri lo devi far girare per almeno 10 minuti, poi premi su STOP e si ferma.
Oppure fermarlo quando la prima ruota segna 9735
Codice:
Option Explicit
Sub Main
Dim D1,D2,D3,D4,D5,D6,D7,D8,D9,D10,D11
Dim A1,A2,A3,A4,A5,B1,B2,B3,B4,B5,Ruo
Dim R1,Es1,Es2,Esq,Casi,SoC1,SoC2
Dim S1,S2,S3,S4,S5,S6,S7,S10,S11,S12
Dim FIn,Ini,Equ2,Equ3,Equ4,Equ5,S11a
Dim Ambata,Salvo50,FInx
FIn = EstrazioneFin
FInx = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,FIn)
Ini = InputBox("Inserisci l'estrazione che vuoi finire",Salvo50,1)
Ruo = InputBox("Inserisci il numero della ruota ",Salvo50,6)
For Es1 = FInx To Ini Step - 1
AvanzamentoElab FIn,Ini,Es1
For Es2 = FInx To Ini Step - 1
Messaggio " Prima Estrazione " & Es1 & " Seconda Estrazione " & Es2 & " Tempo Trascorso " & TempoTrascorso
If(Es1 <> Es2) And(Es2 < Es1) Then
For R1 = Ruo To Ruo
A1 = Estratto(Es1,R1,1) : If A1 > 0 Then
A2 = Estratto(Es1,R1,2)
A3 = Estratto(Es1,R1,3)
A4 = Estratto(Es1,R1,4)
A5 = Estratto(Es1,R1,5)
SoC1 = Fuori90(A1 + A2 + A3 + A4 + A5)
B1 = Estratto(Es2,R1,1) : If B1 > 0 Then
B2 = Estratto(Es2,R1,2)
B3 = Estratto(Es2,R1,3)
B4 = Estratto(Es2,R1,4)
B5 = Estratto(Es2,R1,5)
SoC2 = Fuori90(B1 + B2 + B3 + B4 + B5)
'-----------------------------------------
S1 = Fuori90(A1 + A2 + A3 + A4 + A5) : If S1 < 10 Then S1 = S1 + 90
S2 = Fuori90(A2 + A3 + A4 + A5 + B1) : If S2 < 10 Then S2 = S2 + 90
S3 = Fuori90(A3 + A4 + A5 + B1 + B2) : If S3 < 10 Then S3 = S3 + 90
S4 = Fuori90(A4 + A5 + B1 + B2 + B3) : If S4 < 10 Then S4 = S4 + 90
S5 = Fuori90(A5 + B1 + B2 + B3 + B4) : If S5 < 10 Then S5 = S5 + 90
S6 = Fuori90(B1 + B2 + B3 + B4 + B5) : If S6 < 10 Then S6 = S6 + 90
D1 = Fuori90(90 +(A1 - A2))
D2 = Fuori90(90 +(A2 - A3))
D3 = Fuori90(90 +(A3 - A4))
D4 = Fuori90(90 +(A4 - A5))
D5 = Fuori90(90 +(A5 - B1))
D6 = Fuori90(90 +(B1 - B2))
'----------------------------
D7 = Fuori90(90 +(A5 - B1)) : If D7 < 10 Then D7 = D7 + 90
D8 = Fuori90(90 +(B1 - B2)) : If D8 < 10 Then D8 = D8 + 90
D9 = Fuori90(90 +(B2 - B3)) : If D9 < 10 Then D9 = D9 + 90
D10 = Fuori90(90 +(B3 - B4)) : If D10 < 10 Then D10 = D10 + 90
D11 = Fuori90(90 +(B4 - B5)) : If D11 < 10 Then D11 = D11 + 90
S10 = Fuori90(D1 + D2 + D3 + D4 + D5 + D6 + D7 + D8 + D9 + D10 + D11)
Ambata = Fuori90(S10 + B1)
S7 = Fuori90(Ambata + B2 + B3 + B4 + B5) : If S7 < 10 Then S7 = S7 + 90
S11 = Fuori90(S1 + S2 + S3 + S4 + S5 + S6)
S11a = Fuori90(S11 + S7)
S12 = Fuori90(S11 + S10)'
Equ2 = Fuori90(SoC1 + A1)
Equ3 = Fuori90(A1 + S11a)
Equ4 = Fuori90(A2 + A4 + B1 + B3 + B5)
Equ5 = Fuori90(S4 + S5 + S6)
If(S12 = 90)Then 'Per eliminare la prima equazione mettere un apice qui, ed anche al End If corrispondente
If(Equ2 = 90)Then 'Per eliminare la seconda equazione mettere un apice qui, ed anche al End If corrispondente
'If(Equ3 = 90) Then 'Per eliminare la terza equazione mettere un apice qui, ed anche al End If corrispondente
'If(Equ4 = 90) Then 'Per eliminare la quarta equazione mettere un apice qui, ed anche al End If corrispondente
'If(Equ5 = 90) Then 'Per eliminare la quinta equazione mettere un apice qui, ed anche al End If corrispondente
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi(" Estrazione n." & FormattaStringa(Es1,"0000") & " del " & DataEstrazione(Es1)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es1,R1) & " Somma = " & Format2(SoC1),1
Scrivi(" Estrazione n." & FormattaStringa(Es2,"0000") & " del " & DataEstrazione(Es2)),1,0
Scrivi " " & SiglaRuota(R1) & " " & StringaEstratti(Es2,R1) & " Somma = " & Format2(SoC2),1
Scrivi
Scrivi Space(20) & Format2(A1) & " " & Format2(A2) & " " & Format2(A3) & " " & Format2(A4),1,0
Scrivi " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " - Distanze " & Format2(D1),1,0
Scrivi " " & Format2(D2) & " " & Format2(D3) & " " & Format2(D4) & " " & Format2(D5) & " " & Format2(D6),1
Scrivi Space(20) & Format2(A2) & " " & Format2(A3) & " " & Format2(A4) & " " & Format2(A5),1,0
Scrivi " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1
Scrivi Space(20) & Format2(A3) & " " & Format2(A4) & " " & Format2(A5) & " " & Format2(B1),1,0
Scrivi " " & Format2(B2) & " " & Format2(B3) & " " & Format2(B4) & Space(33) & "Somma Distanze = ",1,0
Scrivi Format2(S10),1,,,1
Scrivi Space(20) & Format2(A4) & " " & Format2(A5) & " " & Format2(B1) & " " & Format2(B2),1,0
Scrivi " " & Format2(B3) & " " & Format2(B4) & " " & Format2(B5),1
Scrivi Space(20) & Format2(A5) & " " & Format2(B1) & " " & Format2(B2) & " " & Format2(B3),1,0
Scrivi " " & Format2(B4) & " " & Format2(B5),1,0
Scrivi " " & Format2(Ambata),1,0,,2
Scrivi " - Distanze " & Format2(D7) & " " & Format2(D8) & " " & Format2(D9) & " " & Format2(D10) & " " & Format2(D11),1
Scrivi Space(20) & String(20,"-")
Scrivi Space(13) & " Somme " & Format2(S1) & " " & Format2(S2) & " " & Format2(S3) & " " & Format2(S4),1,0
Scrivi " " & Format2(S5) & " " & Format2(S6) & " - Somma delle somme ",1,0
Scrivi Format2(S11),1,,,1
Scrivi Space(38) & Format2(S7) & " - Somma 7ª colonna ",1
Scrivi
Scrivi Space(20) & Format2(S10) & " + " & Format2(S11) & " = " & Format2(S12) & " 1ª Equazione Perfetta",1
Scrivi Space(20) & Format2(SoC2) & " + " & Format2(A1) & " = " & Format2(Equ2) & " 2ª Equazione Perfetta",1
Scrivi Space(20) & Format2(A1) & " + " & Format2(S11a) & " = " & Format2(Equ3) & " 3ª Equazione Perfetta",1
Scrivi Space(5) & Format2(A2) & " + " & Format2(A4) & " + " & Format2(B1),1,0
Scrivi " + " & Format2(B3) & " + " & Format2(B5) & " = " & Format2(Equ4) & " 4ª Equazione Perfetta",1
Scrivi Space(15) & Format2(S4) & " + " & Format2(S5) & " + " & Format2(S6) & " = " & Format2(Equ5) & " 5ª Equazione Perfetta",1
Scrivi
Scrivi
'---------------------------------------------------------------------------------------------------
'End If 'Per eliminare la quinta equazione mettere un apice qui
'End If 'Per eliminare la quarta equazione mettere un apice qui
'End If 'Per eliminare la terza equazione mettere un apice qui
End If 'Per eliminare la seconda equazione mettere un apice qui
End If 'Per eliminare la prima equazione mettere un apice qui
End If
End If
Next
End If
Next
If ScriptInterrotto Then Exit Sub
Next
Scrivi TempoTrascorso
End Sub
Ultima modifica:
...gira anche su L8 lo script?
