annuncio

Comprimi
Ancora nessun annuncio.

Esiste un listato del genere

Comprimi
X
  • Filtro
  • Ora
  • Visualizza
Elimina tutto
nuovi messaggi

  • Esiste un listato del genere

    Ciao, chiedo agli esperti se esiste un listato che trovi tutti gli ambi in base alla distanza che io indico.
    esempio se voglio visualizzare tutti gli ambi con distanza 18 !
    Grazie

  • #2
    Originariamente inviato da solare Visualizza il messaggio
    Ciao, chiedo agli esperti se esiste un listato che trovi tutti gli ambi in base alla distanza che io indico.
    esempio se voglio visualizzare tutti gli ambi con distanza 18 !
    Grazie
    Ciao solare nella mia raccolta di script mettendo come query "distanze" ho trovato questo che nn ricordo chi l'abbia fatto, anche se dallo stile di codice credo il grande Joe che saluto. Ad ogni modo penso sia proprio quello che tu stia cercando.

    codice:
    Sub Main
    Q = 2 '<=== Inserisci "Quantità" Numeri in Lunghetta
    For P = 1 To 90
    AvanzamentoElab 1,90,P
    Scrivi String(Q*3 - 1,"=") & " PASSO " & Format2(P),1
    For N = 1 To 90
    Stringa = Format2(N) & "."
    For L = 1 To Q
    Stringa = Stringa & Format2(Fuori90(N + L*P)) & "."
    Next
    For LL = 3*Q To 3*Q Step 3
    Scrivi Left(Stringa,LL - 1)
    Next
    'Scrivi
    Next
    Next
    End Sub
    Ultima modifica di lotto_tom75; 20-11-2018, 09:42.
    NON SI GARANTISCE ALCUNA VINCITA. Giocare sempre con estrema moderazione perchè la Fortuna è Geka... ma la Sfiga ci vede benissimo! Presente.. in ogni dove... anche su faccialibro - " Non stare davanti a me potrei non seguirti, non stare dietro di me potrei non esserti di guida, ma sta al mio fianco e sii semplicemente mio amico/a " (Albert Camus). Cerca... Lotto IncMax e Good Luck Everybody! Namastè!

    Commenta


    • #3
      Ciao lotto tom75, grazie infinite.
      forse mi sono spiegato male, quello che cerco io è avere la visualizzazione di tutti gli ambi con la distanza che io imposto. Es. chiedo che il listato mi visualizzi tutti gli ambi aventi distanza 18 oppure 45 ecc ma solo quelli che io chiedo

      Commenta


      • #4
        ciao solare forse cosi' ?

        codice:
        Sub main()
        Dim ab(2),ruote(1),poste(2) : poste(1)=1
        
        quante= CInt(InputBox("QUANTE ULTIME ESTRAZIONI VUOI CONTROLLARE?","•damper•",180))
        If quante= False Then Exit Sub
        
        For es = (EstrazioneFin - quante) To EstrazioneFin : Messaggio CStr(EstrazioneFin - es)
        
        For r1=1 To 10
        For p1=1 To 4
            p2=p1+1  
        
        a=Estratto(es,r1,p1)
        b=Estratto(es,r1,p2)
        
        If Distanza(a,b)=18 Then ' qui cambi la distanza
        
        cont=cont+1
        Scrivi
        ColoreTesto 2 : Scrivi String(40,32)&" Pronostico n° " &cont&"",1
        ColoreTesto 0 : Scrivi
        
        Scrivi DataEstrazione(es,1)&""&Space(3)&"["&(es)&"]ª"&Space(4)&""&_
        Left(NomeRuota(r1),3)&""&Space(3)&""& StringaEstratti(es,r1)&""&Space(5)&_
        ""& Format2(a)&""&Space(2)&""& Format2(b)&""&Space(4)&"(Pos. "&p1&"°-"&p2&"°)"
        Scrivi
        
        
        Scrivi : Gioca es : Scrivi String(57,151)
        
        End If
        Next : Next : Next : ScriviResoconto : ColoreTesto 2 : Scrivi "•damper•",1 : End Sub
        buon pomeriggio
        Franca46
        Cerca di essere sempre te stesso,
        così un giorno potrai dire di essere stato l'unico.

        Commenta


        • #5
          Ciao franca46, grazie per la risposta ma purtroppo non è quello che cerco, forse non esiste ?
          A me interessa sapere quali sono gli ambi con distanza "da me indicata" presenti nei 4005 in forma integrale.
          quindi sappiamo che con i 90 numeri si ottengono 4005 ambi ma se io voglio visualizzare solo quelli con distanza 18 quanti e quali sono ?

          Commenta


          • #6
            eh , capito , provo a cercare se x caso ho qualcosa, spesso ne conservo

            Franca46
            Cerca di essere sempre te stesso,
            così un giorno potrai dire di essere stato l'unico.

            Commenta


            • #7
              scusa nel listato che ti ha messo lottotom , forse c'è , devi solo scorre le distanze e soffermarti in quella a passo 18 , o baglio?
              Franca46
              Cerca di essere sempre te stesso,
              così un giorno potrai dire di essere stato l'unico.

              Commenta


              • #8
                Grazie franca46
                hai ragione….Ottimo grazie

                Commenta


                • #9
                  Franca46
                  Cerca di essere sempre te stesso,
                  così un giorno potrai dire di essere stato l'unico.

                  Commenta


                  • #10
                    prova anche questo

                    codice:
                    Sub Main
                       Dim Nu(2),Ru(1),T,V
                       Ini = EstrazioneIni
                       fin = EstrazioneFin
                       dist = CInt(InputBox("Quale distanza",,18))
                       r = InputBox("Quale ruota analizzo",,1)
                       Scrivi "Ambi in distanza... " & dist & " con analisi su Ruota : " & NomeRuota(r),1,,,1,3,,1
                       T = Array(T,"N","Ambi","Rit","Max","Incr","Freq")
                       Call InitTabella(T)
                       For x = 1 To 89
                          For y = x + 1 To 90
                             If Distanza(x,y) = dist Then
                                k = k + 1
                                Nu(1) = x
                                Nu(2) = y
                                Ru(1) = r
                                Call StatisticaFormazione(Nu,Ru,2,rit,max,Incr,fre,Ini,fin)
                                'Scrivi FormatSpace(k,3) & vbTab,0,0
                                'Scrivi StringaNumeri(Nu,,1) & vbTab,0,0
                                'Scrivi rit & vbTab & max & vbTab & fre
                                V = Array(V,k,StringaNumeri(Nu),rit,max,Incr,fre)
                                Call AddRigaTabella(V)
                             End If
                          Next
                       Next
                       CreaTabellaOrdinabile
                    End Sub
                    Ultima modifica di Mike58; 20-11-2018, 16:46.
                    Ciaohttp://forum.lottoced.com/core/images/smilies/smile.png

                    Commenta


                    • #11
                      Buon Giorno a tutte/i.

                      Lo script è proprio solo di 3 righe

                      dunque ci ho aggiunto la tabella dei ritardi.

                      codice:
                      Option Explicit
                      Sub Main
                         Dim D,P,Q,R,Nu(2)
                         D = CInt (InputBox("Inserisci Distanza 1-45","DISTANZA" ,18))
                         Titoli 
                         For P = 1 To 89 : Nu(1) = P
                            For Q = P + 1 To 90 :Nu(2) = Q
                               AvanzamentoElab 1,90,P
                               If Distanza(P,Q) = D Then
                                  Scrivi StringaNumeri(Nu,,True) & Space(2),False,False
                                  For R = 1 To 12
                                     Scrivi FormatSpace(AmboRitardo(R,P,Q),10,True),False,False
                                  Next
                                  Scrivi
                               End If
                            Next
                            'Scrivi
                         Next
                         Titoli
                      End Sub
                      Sub Titoli ()
                      Dim R 
                       Scrivi "RITARDI",True,False
                         For R = 1 To 12 : Scrivi FormatSpace(NomeRuota(R),10,True),True,False : Next : Scrivi
                      End Sub

                      Commenta


                      • #12
                        Un grazie infinito a Mike58 e joe

                        Commenta

                        Unconfigured Ad Widget

                        Comprimi

                        Ultima estrazione del lotto

                        Comprimi

                        Estrazione del lotto
                        giovedì 21 marzo 2019
                        Bari
                        60
                        25
                        83
                        88
                        64
                        Cagliari
                        25
                        72
                        81
                        04
                        23
                        Firenze
                        09
                        15
                        59
                        73
                        78
                        Genova
                        50
                        72
                        89
                        48
                        33
                        Milano
                        10
                        68
                        87
                        84
                        56
                        Napoli
                        57
                        31
                        20
                        47
                        21
                        Palermo
                        57
                        88
                        41
                        04
                        33
                        Roma
                        26
                        19
                        77
                        76
                        16
                        Torino
                        36
                        07
                        63
                        48
                        22
                        Venezia
                        29
                        21
                        11
                        49
                        22
                        Nazionale
                        78
                        80
                        17
                        29
                        12
                        Sto operando...
                        X