Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Ok, grazie, scusami avevo capito male, ma purtroppo manca più di un numero.Ciao salvo50, era soltanto del numero 20 dove il primo in alto a sinistra della tabella dell'ultima pagina qui nel forum c'è il numero 23.
Era solo un informazione se poteva essere utile.
CiaooCiao salvo50, era soltanto del numero 20 dove il primo in alto a sinistra della tabella dell'ultima pagina qui nel forum c'è il numero 23.
Era solo un informazione se poteva essere utile.
Ciao salvo50, grazie di cuore superveloce come sempre...pensavo fosse più efficace almeno x l'ambo su tutte...comunque x l'ambata è validoCiao a Tutti.
Matematico, Xeroxs, Simon-Simon.
Grazie.
L'AMBO RELATIVO di GIUSEPPE PEZZELLA
Di script ne ho fatti due, nel primo ho visualizzato i segni distanziali e rispettato la disposizione ++- e --+, nel secondo li ho visualizzati ma non ho rispettato la disposizione ++- e --+ .
CON I SEGNI DISTANZIALI CONTROLLATI
Codice:Option Explicit Sub Main Dim FIn,Es1,Es2,Es3,Ini,Caso,Casi,Salvo50 Dim Clp1,Clp2,Sp,A,B,C,D,E,F,E1,E2,E3,Som1 Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8,P9 Dim DiAB,DiCD,DiEF,DiAD,DiBC,DiAF,DiBE Dim Diff1,Diff2,Diff3,X1,X2,X3,Abb1 Dim Ruo(3),Tutte(1),Posta(1),Poste(2) Dim Amba(1),Ambo1(2),Ambo2(2) Posta(1) = 1 Poste(2) = 1 Sp = " " Som1 = 45 FIn = EstrazioneFin Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9830) Clp1 = InputBox("Per quanti colpi vuoi giocare A Ruota?",,5) Clp2 = InputBox("Per quanti colpi vuoi giocare L'ambo a Tutte?",,13) Call ScegliRange(Ini,FIn,Ini,FIn) Scrivi Space(8) & "AMBO RELATIVO di GIUSEPPE PEZZELLA - SCRIPT SALVO50",1,,4,,3,,1 Scrivi Space(8) & " CON I SEGNI DISTANZIALI CONTROLLATI ",1,,4,,3,,1 For Es1 = Ini To FIn Messaggio Es1 AvanzamentoElab Ini,FIn,Es1 Caso = 0 For R1 = 1 To 10 For P1 = 1 To 5 P2 = FuoriX(P1 + 1,5) A = Estratto(Es1,R1,P1) B = Estratto(Es1,R1,P2) DiAB = Distanza(A,B) If A > 0 And DiAB <> 1 And DiAB <> 17 And DiAB <> 44 And DiAB <> 45 Then For Es2 = Es1 - 1 To Es1 - 18 Step - 1 For R2 = 1 To 10 For P3 = 1 To 5 P4 = FuoriX(P3 + 1,5) C = Estratto(Es2,R2,P3) D = Estratto(Es2,R2,P4) DiCD = Distanza(C,D) 'A--B '| | 'C--D If C > 0 And DiCD <> 1 And DiCD <> 17 And DiCD <> 44 And DiCD <> 45 Then DiAD = Distanza(A,D) : DiBC = Distanza(B,C) If(DiAB = DiCD) And(DiAD = DiBC) Then If DiAD + DiAB = Som1 Then For Es3 = Es2 To Es1 - 18 Step - 1 For R3 = R2 + 1 To 12 If R3 = 11 Then R3 = 12 For P5 = 1 To 5 P6 = FuoriX(P5 + 1,5) E = Estratto(Es3,R3,P5) F = Estratto(Es3,R3,P6) DiEF = Distanza(E,F) 'A--B '| | 'E--F If E > 0 And DiEF <> 1 And DiEF <> 17 And DiEF <> 44 And DiEF <> 45 Then DiAF = Distanza(A,F) : DiBE = Distanza(B,E) If(DiCD = DiEF) And DiAF = DiBE Then If DiAF + DiEF = Som1 Then Diff1 = Differenza(A,B) Diff2 = Differenza(C,D) Diff3 = Differenza(E,F) If Diff1 > 45 And A > B Then X1 = "+" If Diff1 > 45 And A < B Then X1 = "-" If Diff1 < 46 And A > B Then X1 = "-" If Diff1 < 46 And A < B Then X1 = "+" If Diff2 > 45 And C > D Then X2 = "+" If Diff2 > 45 And C < D Then X2 = "-" If Diff2 < 46 And C > D Then X2 = "-" If Diff2 < 46 And C < D Then X2 = "+" If Diff3 > 45 And E > F Then X3 = "+" If Diff3 > 45 And E < F Then X3 = "-" If Diff3 < 46 And E > F Then X3 = "-" If Diff3 < 46 And E < F Then X3 = "+" If(X1 = "+" And X2 = "+" And X3 = "-") Or(X1 = "-" And X2 = "-" And X3 = "+") Then Abb1 = Fuori90(B + DiAB) If Abb1 = A Then Abb1 = Fuori90(A + DiAB) Amba(1) = B Ambo1(1) = B Ambo1(2) = Abb1 Ambo2(1) = A : Ambo2(2) = B Caso = Caso + 1 Casi = Casi + 1 ColoreTesto 2 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000") ColoreTesto 1 Scrivi String(80,"*") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000") ColoreTesto 0 Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0 Scrivi " " & SiglaRuota(R1) & " ",1,0 For P7 = 1 To 5 E1 = Estratto(Es1,R1,P7) If E1 = A Or E1 = B Then ColoreTesto 2 Else ColoreTesto 0 End If Scrivi Format2(E1) & " ",1,0 ColoreTesto 0 Next Scrivi " <-- Evidenziato Ambo Distanza " & Format2(DiAB) & Sp & X1,1 Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0 Scrivi " " & SiglaRuota(R2) & " ",1,0 For P8 = 1 To 5 E2 = Estratto(Es2,R2,P8) If E2 = C Or E2 = D Then ColoreTesto 2 Else ColoreTesto 0 End If Scrivi Format2(E2) & " ",1,0 ColoreTesto 0 Next Scrivi " <-- Evidenziato Ambo Distanza " & Format2(DiCD) & Sp & X2,1 Scrivi(" Estrazione n." & Format2(Es3) & " del " & DataEstrazione(Es3)),1,0 Scrivi " " & SiglaRuota(R3) & " ",1,0 For P9 = 1 To 5 E3 = Estratto(Es3,R3,P9) If E3 = E Or E3 = F Then ColoreTesto 2 Else ColoreTesto 0 End If Scrivi Format2(E3) & " ",1,0 ColoreTesto 0 Next Scrivi " <-- Evidenziato Ambo Distanza " & Format2(DiEF) & Sp & X3,1 Scrivi Scrivi Space(17) & "Distanze " & Space(7),1,0 Scrivi "Distanze" & Space(11) & "Somme",1 Scrivi Space(3) & "Ambi Uniti" & Space(4) & "Diagonali" & Space(5),1,0 Scrivi " Orizzontali" & Space(8) & "Distanze ",1 Scrivi Space(5) & Format2(A) & Sp & Format2(B) & Space(10) & Format2(DiAD),1,0 Scrivi Space(14) & Format2(DiAB) & Space(16) & Format2(Som1),1 Scrivi Space(5) & Format2(C) & Sp & Format2(D) & Space(10) & Format2(DiBC),1,0 Scrivi Space(14) & Format2(DiCD) & Space(16) & Format2(Som1),1 Scrivi String(60,"=") Scrivi Space(5) & Format2(A) & Sp & Format2(B) & Space(10) & Format2(DiAF),1,0 Scrivi Space(14) & Format2(DiAB) & Space(16) & Format2(Som1),1 Scrivi Space(5) & Format2(E) & Sp & Format2(F) & Space(10) & Format2(DiBE),1,0 Scrivi Space(14) & Format2(DiEF) & Space(16) & Format2(Som1),1 Scrivi Tutte(1) = TT_ Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3 ImpostaGiocata 1,Amba,Ruo,Posta,Clp1 ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp1 ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp1 ImpostaGiocata 4,Ambo2,Tutte,Poste,Clp2 Gioca Es1 End If End If End If End If Next If ScriptInterrotto Then Exit Sub Next Next End If End If End If Next If ScriptInterrotto Then Exit Sub Next Next End If Next Next If ScriptInterrotto Then Exit Sub Next ScriviResoconto End Sub
CON I SEGNI DISTANZIALI NON CONTROLLATI
Codice:Option Explicit Sub Main Dim FIn,Es1,Es2,Es3,Ini,Caso,Casi,Salvo50 Dim Clp1,Clp2,Sp,A,B,C,D,E,F,E1,E2,E3,Som1 Dim R1,R2,R3,P1,P2,P3,P4,P5,P6,P7,P8,P9 Dim DiAB,DiCD,DiEF,DiAD,DiBC,DiAF,DiBE Dim Diff1,Diff2,Diff3,X1,X2,X3,Abb1 Dim Ruo(3),Tutte(1),Posta(1),Poste(2) Dim Amba(1),Ambo1(2),Ambo2(2) Posta(1) = 1 Poste(2) = 1 Sp = " " Som1 = 45 FIn = EstrazioneFin Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9830) Clp1 = InputBox("Per quanti colpi vuoi giocare A Ruota?",,5) Clp2 = InputBox("Per quanti colpi vuoi giocare L'ambo a Tutte?",,13) Call ScegliRange(Ini,FIn,Ini,FIn) Scrivi Space(8) & "AMBO RELATIVO di GIUSEPPE PEZZELLA - SCRIPT SALVO50",1,,4,,3,,1 Scrivi Space(8) & " CON I SEGNI DISTANZIALI NON CONTROLLATI ",1,,4,,3,,1 For Es1 = Ini To FIn Messaggio Es1 AvanzamentoElab Ini,FIn,Es1 Caso = 0 For R1 = 1 To 10 For P1 = 1 To 5 P2 = FuoriX(P1 + 1,5) A = Estratto(Es1,R1,P1) B = Estratto(Es1,R1,P2) DiAB = Distanza(A,B) If A > 0 And DiAB <> 1 And DiAB <> 17 And DiAB <> 44 And DiAB <> 45 Then For Es2 = Es1 - 1 To Es1 - 18 Step - 1 For R2 = 1 To 10 For P3 = 1 To 5 P4 = FuoriX(P3 + 1,5) C = Estratto(Es2,R2,P3) D = Estratto(Es2,R2,P4) DiCD = Distanza(C,D) 'A--B '| | 'C--D If C > 0 And DiCD <> 1 And DiCD <> 17 And DiCD <> 44 And DiCD <> 45 Then DiAD = Distanza(A,D) : DiBC = Distanza(B,C) If(DiAB = DiCD) And(DiAD = DiBC) Then If DiAD + DiAB = Som1 Then For Es3 = Es2 To Es1 - 18 Step - 1 For R3 = R2 + 1 To 12 If R3 = 11 Then R3 = 12 For P5 = 1 To 5 P6 = FuoriX(P5 + 1,5) E = Estratto(Es3,R3,P5) F = Estratto(Es3,R3,P6) DiEF = Distanza(E,F) 'A--B '| | 'E--F If E > 0 And DiEF <> 1 And DiEF <> 17 And DiEF <> 44 And DiEF <> 45 Then DiAF = Distanza(A,F) : DiBE = Distanza(B,E) If(DiCD = DiEF) And DiAF = DiBE Then If DiAF + DiEF = Som1 Then Diff1 = Differenza(A,B) Diff2 = Differenza(C,D) Diff3 = Differenza(E,F) If Diff1 > 45 And A > B Then X1 = "+" If Diff1 > 45 And A < B Then X1 = "-" If Diff1 < 46 And A > B Then X1 = "-" If Diff1 < 46 And A < B Then X1 = "+" If Diff2 > 45 And C > D Then X2 = "+" If Diff2 > 45 And C < D Then X2 = "-" If Diff2 < 46 And C > D Then X2 = "-" If Diff2 < 46 And C < D Then X2 = "+" If Diff3 > 45 And E > F Then X3 = "+" If Diff3 > 45 And E < F Then X3 = "-" If Diff3 < 46 And E > F Then X3 = "-" If Diff3 < 46 And E < F Then X3 = "+" Abb1 = Fuori90(B + DiAB) If Abb1 = A Then Abb1 = Fuori90(A + DiAB) Amba(1) = B Ambo1(1) = B Ambo1(2) = Abb1 Ambo2(1) = A : Ambo2(2) = B Caso = Caso + 1 Casi = Casi + 1 ColoreTesto 2 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000") ColoreTesto 1 Scrivi String(80,"*") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000") ColoreTesto 0 Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0 Scrivi " " & SiglaRuota(R1) & " ",1,0 For P7 = 1 To 5 E1 = Estratto(Es1,R1,P7) If E1 = A Or E1 = B Then ColoreTesto 2 Else ColoreTesto 0 End If Scrivi Format2(E1) & " ",1,0 ColoreTesto 0 Next Scrivi " <-- Evidenziato Ambo Distanza " & Format2(DiAB) & Sp & X1,1 Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0 Scrivi " " & SiglaRuota(R2) & " ",1,0 For P8 = 1 To 5 E2 = Estratto(Es2,R2,P8) If E2 = C Or E2 = D Then ColoreTesto 2 Else ColoreTesto 0 End If Scrivi Format2(E2) & " ",1,0 ColoreTesto 0 Next Scrivi " <-- Evidenziato Ambo Distanza " & Format2(DiCD) & Sp & X2,1 Scrivi(" Estrazione n." & Format2(Es3) & " del " & DataEstrazione(Es3)),1,0 Scrivi " " & SiglaRuota(R3) & " ",1,0 For P9 = 1 To 5 E3 = Estratto(Es3,R3,P9) If E3 = E Or E3 = F Then ColoreTesto 2 Else ColoreTesto 0 End If Scrivi Format2(E3) & " ",1,0 ColoreTesto 0 Next Scrivi " <-- Evidenziato Ambo Distanza " & Format2(DiEF) & Sp & X3,1 Scrivi Scrivi Space(17) & "Distanze " & Space(7),1,0 Scrivi "Distanze" & Space(11) & "Somme",1 Scrivi Space(3) & "Ambi Uniti" & Space(4) & "Diagonali" & Space(5),1,0 Scrivi " Orizzontali" & Space(8) & "Distanze ",1 Scrivi Space(5) & Format2(A) & Sp & Format2(B) & Space(10) & Format2(DiAD),1,0 Scrivi Space(14) & Format2(DiAB) & Space(16) & Format2(Som1),1 Scrivi Space(5) & Format2(C) & Sp & Format2(D) & Space(10) & Format2(DiBC),1,0 Scrivi Space(14) & Format2(DiCD) & Space(16) & Format2(Som1),1 Scrivi String(60,"=") Scrivi Space(5) & Format2(A) & Sp & Format2(B) & Space(10) & Format2(DiAF),1,0 Scrivi Space(14) & Format2(DiAB) & Space(16) & Format2(Som1),1 Scrivi Space(5) & Format2(E) & Sp & Format2(F) & Space(10) & Format2(DiBE),1,0 Scrivi Space(14) & Format2(DiEF) & Space(16) & Format2(Som1),1 Scrivi Tutte(1) = TT_ Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3 ImpostaGiocata 1,Amba,Ruo,Posta,Clp1 ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp1 ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp1 ImpostaGiocata 4,Ambo2,Tutte,Poste,Clp2 Gioca Es1 End If End If End If Next If ScriptInterrotto Then Exit Sub Next Next End If End If End If Next If ScriptInterrotto Then Exit Sub Next Next End If Next Next If ScriptInterrotto Then Exit Sub Next ScriviResoconto End Sub
Ciao salvo50, m isà proprio che sia un errore di battitura dell'autore , infatti questi numeri che non fanno parte della totale previsione sono riportati solo in questo ultimo caso...non tenerne conto , la previsione completa è solo questa :Ciao a Tutti.
Ciao Matematico
Qualche chiarimento
Ovviamente con qualche esempio reale chiariamo ogni concetto:
02/05/2014 Ba (77) – To (34)
39 To 1C
39 To 4C
39-52 To 1C
10/07/2014 Ba (25) – To (86)
39 Ba 2C
39 To 8C
39 Ba 9C
39-53 To 8C
39-71 To 8C
T 39 53 71 To 8C
17/07/2014 Ba (59) – To (52)
39 To 5C
39 Ba 6C
39-53 To 5C
39-71 To 5C
T 39 53 71 To 5C
04/10/2014 Ba (64) – To (47)
39 Ba 6C
25/10/2014 Ba (12) – To (9)
39 Ba 4C
39 To 4C
39 Ba 7C
39-5 Ba 4C
A 5 52 Ba 6C
07/07/2015 Ba (43) – To (68)
39 To 5C
39 Ba 8C
39 To 8C
39 To 11C
39-71 To 5C
03/05/2016 Ba (16) – To (5)
39 To 3C
39 Ba 10C
26/11/2016 Ba (3) – To (18)
39 To 8C
39 To 10C
39-53 To 8C
39-5 To 10C
13/04/2017 Ba (73) – To (38)
39 Ba 8C
39 Ba 11C
39 Ba 12C
39-5 Ba 8C
39-71 Ba 11C
29/08/2017 Ba (48) – To (63)
39 To 7C
39-52 To 7C
A 5 53 To 2C
07/09/2017 Ba (31) – To (80)
39 To 3C
39-52 To 3C
non ho capito a cosa corrispondono questi
39 Ba 8C
39 Ba 11C
39 Ba 12C
39-5 Ba 8C
39-71 Ba 11C
perchè 39, perchè 71, perchè 12 ecc...
perchè 11C, perche12C. ecc...
Option Explicit
Sub Main
Dim FIn,Es,Ini,Clp,Salvo50
Dim R1,R2,P1,P2,P3,E1,E2,Caso,Casi
Dim Spia,Pos,A,B,C,Num,aNum
Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2)
Dim Ruo(2),Amba(1),Posta(1),Poste(2),Post(5)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",,9630))
R1 = CInt(InputBox("Inserisci la 1ª Ruota",Salvo50,1))
R2 = CInt(InputBox("Inserisci la 2ª Ruota",Salvo50,9))
Spia = CInt(InputBox("Inserisci la Spia",Salvo50,21))
Pos = CInt(InputBox("Inserisci la Posizione",Salvo50,4))
Num = InputBox("Inserisci 5 Numeri Separati da un Punto (.)",,"39.05.52.53.71")
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",,15))
aNum = Split("0." & Num,".")
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(12) & "DUE RUOTE, E SPIA IN POSIZIONE " & Pos & " (di RamcoLotto) - Script Salvo50",1,,4,,3,,1
Posta(1) = 1
Poste(2) = 1
Post(2) = 1
Post(3) = 1
Ruo(1) = R1
Ruo(2) = R2
Amba(1) = aNum(1)
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
A = Estratto(Es,R1,Pos)
B = Estratto(Es,R2,Pos)
C = Fuori90(A + B)
If C = Spia Then
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P2 = 1 To 5
E1 = Estratto(Es,R1,P2)
If E1 = A Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P3 = 1 To 5
E2 = Estratto(Es,R2,P3)
If E2 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi Space(18) & " Spia Inserita " & Format2(Spia),1
Scrivi Space(10) & " Posizine Spia Inserita " & Pos,1
Scrivi Space(10) & Format2(A) & " + " & Format2(B) & " = " & Format2(C) & " <-- Spia inserita ",1
Scrivi Space(10) & "Numeri Lunghetta Inseriti " & StringaNumeri(aNum," ",True),1
Scrivi
Amba(1) = aNum(1)
ImpostaGiocata 1,Amba,Ruo,Posta,Clp
Ambo1(1) = aNum(1) : Ambo1(2) = aNum(2)
ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp
Ambo2(1) = aNum(1) : Ambo2(2) = aNum(3)
ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp
Ambo3(1) = aNum(1) : Ambo3(2) = aNum(4)
ImpostaGiocata 4,Ambo3,Ruo,Poste,Clp
Ambo4(1) = aNum(1) : Ambo4(2) = aNum(5)
ImpostaGiocata 5,Ambo4,Ruo,Poste,Clp
ImpostaGiocata 6,aNum,Ruo,Post,Clp
Gioca Es,1
End If
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Grazie , sempre forte con i tuoi script ottimi ....peccato x le condizioni abbastanza rare , ma gli iesiti sono davvero buoniMatematico
Grazie
DUE RUOTE, E SPIA IN POSIZIONE (di RAMCOLOTTO)
Le 2 ruote, la spia, la posizione e la lunghetta si possono cambiare tramite inputbox, ma per defoult ho messo le ruote, la spia, le posizioni e la lunghetta che hai usato negli esempi.
L'ambata è il primo numero della lunghetta.
Codice:Option Explicit Sub Main Dim FIn,Es,Ini,Clp,Salvo50 Dim R1,R2,P1,P2,P3,E1,E2,Caso,Casi Dim Spia,Pos,A,B,C,Num,aNum Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2) Dim Ruo(2),Amba(1),Posta(1),Poste(2),Post(5) FIn = EstrazioneFin Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",,9630)) R1 = CInt(InputBox("Inserisci la 1ª Ruota",Salvo50,1)) R2 = CInt(InputBox("Inserisci la 2ª Ruota",Salvo50,9)) Spia = CInt(InputBox("Inserisci la Spia",Salvo50,21)) Pos = CInt(InputBox("Inserisci la Posizione",Salvo50,4)) Num = InputBox("Inserisci 5 Numeri Separati da un Punto (.)",,"39.05.52.53.71") Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",,15)) aNum = Split("0." & Num,".") Call ScegliRange(Ini,FIn,Ini,FIn) Scrivi Space(12) & "DUE RUOTE, E SPIA IN POSIZIONE " & Pos & " (di RamcoLotto) - Script Salvo50",1,,4,,3,,1 Posta(1) = 1 Poste(2) = 1 Post(2) = 1 Post(3) = 1 Ruo(1) = R1 Ruo(2) = R2 Amba(1) = aNum(1) For Es = Ini To FIn Messaggio Es AvanzamentoElab Ini,FIn,Es Caso = 0 A = Estratto(Es,R1,Pos) B = Estratto(Es,R2,Pos) C = Fuori90(A + B) If C = Spia Then Caso = Caso + 1 Casi = Casi + 1 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0 Scrivi " " & SiglaRuota(R1) & " ",1,0 For P2 = 1 To 5 E1 = Estratto(Es,R1,P2) If E1 = A Then ColoreTesto 2 Else ColoreTesto 0 End If Scrivi Format2(E1) & " ",1,0 ColoreTesto 0 Next Scrivi Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0 Scrivi " " & SiglaRuota(R2) & " ",1,0 For P3 = 1 To 5 E2 = Estratto(Es,R2,P3) If E2 = B Then ColoreTesto 2 Else ColoreTesto 0 End If Scrivi Format2(E2) & " ",1,0 ColoreTesto 0 Next Scrivi Scrivi Space(18) & " Spia Inserita " & Format2(Spia),1 Scrivi Space(10) & " Posizine Spia Inserita " & Pos,1 Scrivi Space(10) & Format2(A) & " + " & Format2(B) & " = " & Format2(C) & " <-- Spia inserita ",1 Scrivi Space(10) & "Numeri Lunghetta Inseriti " & StringaNumeri(aNum," ",True),1 Scrivi Amba(1) = aNum(1) ImpostaGiocata 1,Amba,Ruo,Posta,Clp Ambo1(1) = aNum(1) : Ambo1(2) = aNum(2) ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp Ambo2(1) = aNum(1) : Ambo2(2) = aNum(3) ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp Ambo3(1) = aNum(1) : Ambo3(2) = aNum(4) ImpostaGiocata 4,Ambo3,Ruo,Poste,Clp Ambo4(1) = aNum(1) : Ambo4(2) = aNum(5) ImpostaGiocata 5,Ambo4,Ruo,Poste,Clp ImpostaGiocata 6,aNum,Ruo,Post,Clp Gioca Es,1 End If If ScriptInterrotto Then Exit Sub Next ScriviResoconto End Sub
Ciao Simon, ok Lottodesk l'hai comprato, ma Spazimetria è GRATIS, potresti caricare anche Spaziometria, tenerli tutti e due, non capisco.Ciao..
si puo fare qualcosa per farsì che funzionano anche con l8-lottodesk?
grazie a chi ha voglia di fare qualcosa
Option Explicit
Sub Main
Dim FIn,Es,Ini,Clp1,Clp2,K,Sp,Salvo50
Dim R1,R2,Caso,Casi,P1,P2,P3,P4,P,PP,E1,E2
Dim A,B,C,D,SommeOr,SommeVe,SommeDi
Dim SomOr1,SomOr2,SomVe1,SomVe2,SomDi1,SomDi2
Dim Nu(5),DiaNu(5),Amba(1),Ambo1(2),Ambo2(2)
Dim Ruote(3),Ruota(2),Posta(1),Poste(2)
Sp = " "
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9812)'6881 secondo esempio nel metodo
Clp1 = InputBox("Per quanti colpi vuoi giocare l'Ambata?",Salvo50,8)
Clp2 = InputBox("Per quanti colpi vuoi giocare gli Ambi?",Salvo50,8)
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(12) & "ARMONIA STELLARE a cura di FRANCO MONGILLO - SCRIPT SALVO50",1,,4,,3,,1
Posta(1) = 1
Poste(2) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
If Distanza(A,B) = 45 Then
K = 0
For K = 1 To 5
Nu(K) = Estratto(Es,R1,K)
If Nu(K) = A Or Nu(K) = B Then Nu(K) = 0
Next
Call OrdinaMatrice(Nu,1)
DiaNu(1) = Diametrale(Nu(3))
DiaNu(2) = Diametrale(Nu(4))
DiaNu(3) = Diametrale(Nu(5))
For R2 = 1 To 10
If R2 <> R1 Then
For P3 = 1 To 5
If P3 <> P1 And P3 <> P2 Then
C =(Estratto(Es,R2,P3))
If C = DiaNu(1) Or C = DiaNu(2) Or C = DiaNu(3)Then
If Posizione(Es,R1,Nu(3)) = Posizione(Es,R2,DiaNu(1)) _
Or Posizione(Es,R1,Nu(4)) = Posizione(Es,R2,DiaNu(2)) _
Or Posizione(Es,R1,Nu(5)) = Posizione(Es,R2,DiaNu(3)) Then
If Posizione(Es,R1,Nu(3)) = Posizione(Es,R2,DiaNu(1)) Then D = Nu(3)
If Posizione(Es,R1,Nu(4)) = Posizione(Es,R2,DiaNu(2)) Then D = Nu(4)
If Posizione(Es,R1,Nu(5)) = Posizione(Es,R2,DiaNu(3)) Then D = Nu(5)
'A--B
'| |
'D--C
SomOr1 = Fuori90(A + B) : SomOr2 = Fuori90(D + C)
SomDi1 = Fuori90(A + C) : SomDi2 = Fuori90(D + B)
SomVe1 = Fuori90(A + D) : SomVe2 = Fuori90(B + C)
SommeOr = Fuori90(SomOr1 + SomOr2)
SommeDi = Fuori90(SomDi1 + SomDi2)
SommeVe = Fuori90(SomVe1 + SomVe2)
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P = 1 To 5
E1 = Estratto(Es,R1,P)
If E1 = A Or E1 = B Then
ColoreTesto 2
Else
ColoreTesto 1
End If
Scrivi Format2(E1) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Evidenziati in Rosso Distanza 45",1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For PP = 1 To 5
E2 = Estratto(Es,R2,PP)
If E2 = C Then
ColoreTesto 1
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi " <-- Evidenziato In Blu Diametrale Corrispondente",1
Scrivi
Scrivi Space(6) & " Quadrato " & Space(15) & "Somme " & Space(10),1,0
Scrivi " Somme" & Space(11) & " Somme",1
Scrivi Space(6) & " Composto " & Space(12) & " Orizontali" & Space(7),1,0
Scrivi "Diagonali Verticali",1
Scrivi Space(8) & Format2(A) & " " & Format2(B) & Space(20),1,0
Scrivi Format2(SomOr1) & Space(14) & Format2(SomDi1),1,0
Scrivi Space(15) & Format2(SomVe1),1
Scrivi Space(8) & Format2(D) & " " & Format2(C) & Space(20),1,0
Scrivi Format2(SomOr2) & Space(14) & Format2(SomDi2),1,0
Scrivi Space(15) & Format2(SomVe2),1
Scrivi Space(30) & String(40,"-"),1
Scrivi Space(9) & " Tripla Sommativi " & Space(6) & Format2(SommeOr) & Space(14),1,0
Scrivi Format2(SommeDi) & Space(15) & Format2(SommeVe),1
Scrivi
Scrivi Space(45) & "Pronostico",1
Scrivi Space(44) & " Ambata " & Format2(SommeDi),1
Scrivi Space(44) & " Ambo " & Format2(SommeDi) & Sp & Format2(C),1
Scrivi Space(44) & " Ambo " & Format2(SommeDi) & Sp & Format2(Vert(C)),1
Scrivi
Ruota(1) = R1 : Ruota(2) = R2
Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TU_
Amba(1) = SommeDi
ImpostaGiocata 1,Amba,Ruota,Posta,Clp1
Ambo1(1) = SommeDi : Ambo1(2) = C
ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2
Ambo2(1) = SommeDi : Ambo2(2) = Vert(C)
ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2
Gioca Es,1
End If
End If
End If
Next
End If
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Grazie salvo50, se allunghiamo i colpi di gioco migliora negli esiti ...bravissimo !Ciao a Tutti
Matematico, Xeroxs
Grazie.
ARMONIA STELLARE a cura di FRANCO MONGILLO
Codice:Option Explicit Sub Main Dim FIn,Es,Ini,Clp1,Clp2,K,Sp,Salvo50 Dim R1,R2,Caso,Casi,P1,P2,P3,P4,P,PP,E1,E2 Dim A,B,C,D,SommeOr,SommeVe,SommeDi Dim SomOr1,SomOr2,SomVe1,SomVe2,SomDi1,SomDi2 Dim Nu(5),DiaNu(5),Amba(1),Ambo1(2),Ambo2(2) Dim Ruote(3),Ruota(2),Posta(1),Poste(2) Sp = " " FIn = EstrazioneFin Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9812)'6881 secondo esempio nel metodo Clp1 = InputBox("Per quanti colpi vuoi giocare l'Ambata?",Salvo50,8) Clp2 = InputBox("Per quanti colpi vuoi giocare gli Ambi?",Salvo50,8) Call ScegliRange(Ini,FIn,Ini,FIn) Scrivi Space(12) & "ARMONIA STELLARE a cura di FRANCO MONGILLO - SCRIPT SALVO50",1,,4,,3,,1 Posta(1) = 1 Poste(2) = 1 For Es = Ini To FIn Messaggio Es AvanzamentoElab Ini,FIn,Es Caso = 0 For R1 = 1 To 10 For P1 = 1 To 4 For P2 = P1 + 1 To 5 A = Estratto(Es,R1,P1) B = Estratto(Es,R1,P2) If Distanza(A,B) = 45 Then K = 0 For K = 1 To 5 Nu(K) = Estratto(Es,R1,K) If Nu(K) = A Or Nu(K) = B Then Nu(K) = 0 Next Call OrdinaMatrice(Nu,1) DiaNu(1) = Diametrale(Nu(3)) DiaNu(2) = Diametrale(Nu(4)) DiaNu(3) = Diametrale(Nu(5)) For R2 = 1 To 10 If R2 <> R1 Then For P3 = 1 To 5 If P3 <> P1 And P3 <> P2 Then C =(Estratto(Es,R2,P3)) If C = DiaNu(1) Or C = DiaNu(2) Or C = DiaNu(3)Then If Posizione(Es,R1,Nu(3)) = Posizione(Es,R2,DiaNu(1)) _ Or Posizione(Es,R1,Nu(4)) = Posizione(Es,R2,DiaNu(2)) _ Or Posizione(Es,R1,Nu(5)) = Posizione(Es,R2,DiaNu(3)) Then If Posizione(Es,R1,Nu(3)) = Posizione(Es,R2,DiaNu(1)) Then D = Nu(3) If Posizione(Es,R1,Nu(4)) = Posizione(Es,R2,DiaNu(2)) Then D = Nu(4) If Posizione(Es,R1,Nu(5)) = Posizione(Es,R2,DiaNu(3)) Then D = Nu(5) 'A--B '| | 'D--C SomOr1 = Fuori90(A + B) : SomOr2 = Fuori90(D + C) SomDi1 = Fuori90(A + C) : SomDi2 = Fuori90(D + B) SomVe1 = Fuori90(A + D) : SomVe2 = Fuori90(B + C) SommeOr = Fuori90(SomOr1 + SomOr2) SommeDi = Fuori90(SomDi1 + SomDi2) SommeVe = Fuori90(SomVe1 + SomVe2) Caso = Caso + 1 Casi = Casi + 1 ColoreTesto 2 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000") ColoreTesto 1 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000") ColoreTesto 0 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0 Scrivi " " & SiglaRuota(R1) & " ",1,0 For P = 1 To 5 E1 = Estratto(Es,R1,P) If E1 = A Or E1 = B Then ColoreTesto 2 Else ColoreTesto 1 End If Scrivi Format2(E1) & " ",1,0 ColoreTesto 0 Next Scrivi " <-- Evidenziati in Rosso Distanza 45",1 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0 Scrivi " " & SiglaRuota(R2) & " ",1,0 For PP = 1 To 5 E2 = Estratto(Es,R2,PP) If E2 = C Then ColoreTesto 1 Else ColoreTesto 0 End If Scrivi Format2(E2) & " ",1,0 ColoreTesto 0 Next Scrivi " <-- Evidenziato In Blu Diametrale Corrispondente",1 Scrivi Scrivi Space(6) & " Quadrato " & Space(15) & "Somme " & Space(10),1,0 Scrivi " Somme" & Space(11) & " Somme",1 Scrivi Space(6) & " Composto " & Space(12) & " Orizontali" & Space(7),1,0 Scrivi "Diagonali Verticali",1 Scrivi Space(8) & Format2(A) & " " & Format2(B) & Space(20),1,0 Scrivi Format2(SomOr1) & Space(14) & Format2(SomDi1),1,0 Scrivi Space(15) & Format2(SomVe1),1 Scrivi Space(8) & Format2(D) & " " & Format2(C) & Space(20),1,0 Scrivi Format2(SomOr2) & Space(14) & Format2(SomDi2),1,0 Scrivi Space(15) & Format2(SomVe2),1 Scrivi Space(30) & String(40,"-"),1 Scrivi Space(9) & " Tripla Sommativi " & Space(6) & Format2(SommeOr) & Space(14),1,0 Scrivi Format2(SommeDi) & Space(15) & Format2(SommeVe),1 Scrivi Scrivi Space(45) & "Pronostico",1 Scrivi Space(44) & " Ambata " & Format2(SommeDi),1 Scrivi Space(44) & " Ambo " & Format2(SommeDi) & Sp & Format2(C),1 Scrivi Space(44) & " Ambo " & Format2(SommeDi) & Sp & Format2(Vert(C)),1 Scrivi Ruota(1) = R1 : Ruota(2) = R2 Ruote(1) = R1 : Ruote(2) = R2 : Ruote(3) = TU_ Amba(1) = SommeDi ImpostaGiocata 1,Amba,Ruota,Posta,Clp1 Ambo1(1) = SommeDi : Ambo1(2) = C ImpostaGiocata 2,Ambo1,Ruote,Poste,Clp2 Ambo2(1) = SommeDi : Ambo2(2) = Vert(C) ImpostaGiocata 3,Ambo2,Ruote,Poste,Clp2 Gioca Es,1 End If End If End If Next End If Next End If Next Next Next If ScriptInterrotto Then Exit Sub Next ScriviResoconto End Sub
Ciao Giovanni81, non la vedo semplice per questo script, comunque a tempo perso vedrò cosa posso fare.Piacere Salvo,
sto osservando tutti gli script per cercare da autodidatta di imparare qualcosa di codice di programmazione dal tuo enorme lavoro. Ma ahimé non sono ancora riuscito a portare a casa neanche un calcolo (se non con i copia/incolla).
A questo punto ti chiederei una cortesia, se mai dovessi avere tempo, per uno script su questo metodo che io ho chiamato Forza4 (gioco sulla diagonale) e che non escludo possa aver "teorizzato" qualcuno prima di me.
Condizioni di gioco
Individuare una diagonale (sx verso dx) con i primi due elementi "in cadenza"
Giocata
2 ambate (3° e 4° elemento della diagonale) - Esito molto positivo da settembre ad oggi
Per costruzione ambi secchi (somma di 1°+4° della diagonale; somma di 2°+3° della diagonale) - DA VERIFICARE (sono alla ricerca di un buon gioco per ambo)
Nell'immagine ho provato a specificare sia le condizioni di rilevamento, sia quelle di giocata.
Nello specifico quella giocata ha portato una ambata al secondo colpo su Roma (estratto il 63)
Scusa e grazie per l'aiuto.
Grazie mille, davveroCiao Giovanni81, non la vedo semplice per questo script, comunque a tempo perso vedrò cosa posso fare.