In questa sezione è possibile postare gli script relativi a metodi e ricerche.
da lottomoney il 27/08/2017, 10:06
Buongiorno e buona domenica a tutti. Desideravo sapere se è possibile, tramite script, eseguire la seguente ricerca di ambi in una stessa estrazione: - Ambi diametrali (ambi con distanza 45); - Ambi vertibili; - Ambi complementari (ambi con somma 90 e/o somma 91); - Ambi simmetrici (ambi con distanza 30); - Ambi con distanza ciclometrica pari ai valori 18,27 e 36; - Ambi in figura. Ringrazio anticipatamente chi vorrà prendere in considerazione. lottomoney
-
lottomoney
-
- Messaggi: 174
- Iscritto il: 22/08/2014, 13:59
da Master il 28/08/2017, 14:12
Ciao La ricerca degli ambi "vert/diam/somma90 etc" deve essere fatta tutta in una sola volta, vedi esempio sotto - Codice: Seleziona tutto
+---------009361---------+ Bari 79 56 43 19 34 Cagliari 74 01 51 53 87 Firenze 81 33 82 19 57 Genova 90 84 19 06 11 Milano 24 71 58 42 87 Napoli 27 70 73 38 79 Palermo 26 77 21 31 22 Roma 70 62 18 80 55 Torino 74 09 43 46 61 Venezia 28 53 86 85 32 Nazionale 04 09 77 76 38
26.08.2017 79.56.43.19.34 BA 79.43 Pos. 1/3 Distanza 36 26.08.2017 79.56.43.19.34 BA 79.43 Pos. 1/3 Figura 7 26.08.2017 79.56.43.19.34 BA 79.19 Pos. 1/4 Distanza 30 26.08.2017 79.56.43.19.34 BA 79.34 Pos. 1/5 Diametrali 26.08.2017 79.56.43.19.34 BA 79.34 Pos. 1/5 Figura 7 26.08.2017 79.56.43.19.34 BA 56.34 Pos. 2/5 Somma 90 26.08.2017 79.56.43.19.34 BA 43.34 Pos. 3/5 Vertibili 26.08.2017 79.56.43.19.34 BA 43.34 Pos. 3/5 Figura 7 26.08.2017 74.01.51.53.87 CA 51.87 Pos. 3/5 Distanza 36 26.08.2017 74.01.51.53.87 CA 51.87 Pos. 3/5 Figura 6 26.08.2017 81.33.82.19.57 FI 33.57 Pos. 2/5 Somma 90 26.08.2017 81.33.82.19.57 FI 82.19 Pos. 3/4 Distanza 27 26.08.2017 81.33.82.19.57 FI 82.19 Pos. 3/4 Figura 1 26.08.2017 90.84.19.06.11 GE 84.06 Pos. 2/4 Somma 90 26.08.2017 90.84.19.06.11 GE 19.11 Pos. 3/5 Vertibili 26.08.2017 24.71.58.42.87 MI 24.42 Pos. 1/4 Vertibili 26.08.2017 24.71.58.42.87 MI 24.42 Pos. 1/4 Distanza 18 26.08.2017 24.71.58.42.87 MI 24.42 Pos. 1/4 Figura 6 26.08.2017 24.71.58.42.87 MI 24.87 Pos. 1/5 Distanza 27 26.08.2017 24.71.58.42.87 MI 24.87 Pos. 1/5 Figura 6 26.08.2017 24.71.58.42.87 MI 42.87 Pos. 4/5 Diametrali 26.08.2017 24.71.58.42.87 MI 42.87 Pos. 4/5 Figura 6 26.08.2017 27.70.73.38.79 NA 70.79 Pos. 2/5 Figura 7 26.08.2017 26.77.21.31.22 PA 31.22 Pos. 4/5 Figura 4 26.08.2017 70.62.18.80.55 RO 62.80 Pos. 2/4 Distanza 18 26.08.2017 70.62.18.80.55 RO 62.80 Pos. 2/4 Figura 8 26.08.2017 74.09.43.46.61 TO 43.61 Pos. 3/5 Distanza 18 26.08.2017 74.09.43.46.61 TO 43.61 Pos. 3/5 Figura 7 26.08.2017 28.53.86.85.32 VE 86.32 Pos. 3/5 Distanza 36 26.08.2017 28.53.86.85.32 VE 86.32 Pos. 3/5 Figura 5 26.08.2017 04.09.77.76.38 NZ 04.76 Pos. 1/4 Distanza 18 26.08.2017 04.09.77.76.38 NZ 04.76 Pos. 1/4 Figura 4
oppure scegli una ricerca per volta con inputbox
-
Master
-
- Messaggi: 190
- Iscritto il: 22/01/2014, 11:22
da lottomoney il 28/08/2017, 18:34
tramite inputbox mi sembra più agevole. Grazie Master. lottomoney
-
lottomoney
-
- Messaggi: 174
- Iscritto il: 22/08/2014, 13:59
da lottomoney il 30/08/2017, 14:11
Buongiorno Master, se ti è più comodo va bene anche il tipo di ricerca che hai proposto tu. Grazie infinite. lottomoney
-
lottomoney
-
- Messaggi: 174
- Iscritto il: 22/08/2014, 13:59
da lottopassion il 30/08/2017, 18:52
Ciao master ho controllato ma non c'è nulla di anomalo.
-
lottopassion
- Amministratore
-
- Messaggi: 565
- Iscritto il: 25/01/2013, 18:18
da Master il 30/08/2017, 18:55
Riprovo ad entrare Per ora non riesco ancora ad inviare
-
Master
-
- Messaggi: 190
- Iscritto il: 22/01/2014, 11:22
da Master il 30/08/2017, 21:14
Ciao lottomoney Non riuscivo ad inviare lo script Finalmente ce l'ho fatta - Codice: Seleziona tutto
Sub Main Scrivi "RICERCA Distanze/Somme/Vertibili/Figure",1 Dim ru(2),ambo1(2),ambo2(2) cs = CInt(InputBox("QUALI AMBI VUOI CERCARE? " & Chr(13) & "SOMMA = 1" & Chr(13) & _ "SOMMA 91 = 2" & Chr(13) & "DISTANZA = 3" & Chr(13) & "VERTIBILI = 4" & Chr(13) & "FIGURA = 5","SCEGLI",1)) est = InputBox("QUANTE ESTRAZIONI CONTROLLO","ESTRAZIONI",10) Select Case cs Case 1: cs = 1 :rc = CInt(InputBox("SCEGLI IL NUMERO DA INSERIRE PER:" & Chr(13) & "SOMMA ","SOMMA",90)) Case 2: cs = 2 Case 3: cs = 3 :rc = CInt(InputBox("SCEGLI IL NUMERO DA INSERIRE PER:" & Chr(13) & "DISTANZA 18/27/30/36","DISTANZA",18)) Case 4: cs = 4 Case 5: cs = 5 :rc = CInt(InputBox("SCEGLI IL NUMERO DA INSERIRE PER:" & Chr(13) & "FIGURA","FIGURA",9)) End Select Ini = EstrazioneFin - est fin = EstrazioneFin For es = Ini To fin AvanzamentoElab Ini,Fin,es Scrivi : ColoreTesto 2 Scrivi(es) & " " & DataEstrazione(es) & " " & String(40,"="),1:ColoreTesto 0 ScriviEstrazione(es) Scrivi For r1 = 1 To 12 If r1 = 11 Then r1 = 12 For p1 = 1 To 4 For p2 = p1 + 1 To 5 ambo1(1) = Estratto(es,r1,p1) ambo1(2) = Estratto(es,r1,p2) If cs = 4 Then If ambo1(1) = Vert(ambo1(2))Then Scrivi DataEstrazione(es) & " " & StringaEstratti(es,r1) & " " & SiglaRuota(r1) & " " & _ StringaNumeri(ambo1) & " Pos. " & p1 & "/" & p2 & " Vertibili ",1 End If End If If cs = 1 Then If Fuori90(ambo1(1) + ambo1(2)) = rc Then Scrivi DataEstrazione(es) & " " & StringaEstratti(es,r1) & " " & SiglaRuota(r1) & " " & _ StringaNumeri(ambo1) & " Pos. " & p1 & "/" & p2 & " Somma " & rc,1 End If End If If cs = 3 Then If Distanza(ambo1(1),ambo1(2)) = rc Then Scrivi DataEstrazione(es) & " " & StringaEstratti(es,r1) & " " & SiglaRuota(r1) & " " & _ StringaNumeri(ambo1) & " Pos. " & p1 & "/" & p2 & " Distanza " & rc,1 End If End If If cs = 5 Then If Figura(ambo1(1)) = Figura(ambo1(2))And Figura(ambo1(1)) = rc Then Scrivi DataEstrazione(es) & " " & StringaEstratti(es,r1) & " " & SiglaRuota(r1) & " " & _ StringaNumeri(ambo1) & " Pos. " & p1 & "/" & p2 & " Figura " & Figura(ambo1(1)),1 End If End If If cs = 2 Then If(ambo1(1) + ambo1(2)) = 91 Then Scrivi DataEstrazione(es) & " " & StringaEstratti(es,r1) & " " & SiglaRuota(r1) & " " & _ StringaNumeri(ambo1) & " Pos. " & p1 & "/" & p2 & " Somma 91 ",1 End If End If Next Next Next Next End Sub
-
Master
-
- Messaggi: 190
- Iscritto il: 22/01/2014, 11:22
da lottomoney il 30/08/2017, 21:25
Sei un grande, Master va benissimoooooooo Grazie, grazie, grazie lottomoney
-
lottomoney
-
- Messaggi: 174
- Iscritto il: 22/08/2014, 13:59
Torna a Script
Chi c’è in linea
Visitano il forum: Nessuno e 1 ospite
- Tutti gli orari sono UTC + 1 ora
|