LottoPassion

Il lotto per passione

Passa al contenuto


/* /* ]]> */

ambi condizionati

In questa sezione è possibile postare gli script relativi a metodi e ricerche.
Rispondi al messaggio

ambi condizionati

Messaggioda 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. :P :P
lottomoney
lottomoney
 
Messaggi: 174
Iscritto il: 22/08/2014, 13:59
Top

Re: ambi condizionati

Messaggioda 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
Top

Re: ambi condizionati

Messaggioda 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
Top

Re: ambi condizionati

Messaggioda 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
Top

Re: ambi condizionati

Messaggioda 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
Top

Re: ambi condizionati

Messaggioda 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
Top

Re: ambi condizionati

Messaggioda Master il 30/08/2017, 21:14

Ciao lottomoney
Non riuscivo ad inviare lo script :x :x
Finalmente ce l'ho fatta :D :D :D

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
Top

Re: ambi condizionati

Messaggioda lottomoney il 30/08/2017, 21:25

Sei un grande, Master
va benissimoooooooo :o :o :o :o :o

Grazie, grazie, grazie :D
lottomoney
lottomoney
 
Messaggi: 174
Iscritto il: 22/08/2014, 13:59
Top
Rispondi al messaggio

Torna a Script


Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite

  • Tutti gli orari sono UTC + 1 ora
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Traduzione Italiana phpBBItalia.net basata su phpBB.it 2010
LottoPassion Il lotto per passione