Novità

La Figura del TRIANGOLO per TRE TERZINE

Codice:
Sub Main
   Dim ambata(5),ruote(5),calc(10),ruota(5),posta(2),poste(3)
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
   Dim terzina1(3),terzina2(3),terzina3(3)
   Dim r1,r2
   Dim caso,anum(2)
   posta(1) = 1
   poste(2) = 1
   poste(3) = 1
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   k = 5
   caso = 0
   '
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For r1 = 1 To 10
         For r2 = 1 To 10
            '
            For p1 = 1 To 5
               For p2 = 1 To 5
                  '
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r1,p2)
                  c = Estratto(es,r2,p1)
                  '--------------------
                  '
                  If Cadenza(a) = 0 And Cadenza(b) = 0 And Cadenza(c) = 0 Then
                     If r1 <> r2 And p1 <> p2 Then
                        '
                        ambata(1) = 74
                        '
                        terzina1(1) = 73
                        terzina1(2) = 75
                        terzina1(3) = 90
                        '
                        terzina2(1) = 73
                        terzina2(2) = 88
                        terzina2(3) = 90
                        '
                        terzina3(1) = 74
                        terzina3(2) = 75
                        terzina3(3) = 88
                        '
                        ruota(1) = r1
                        ruota(2) = r2
                        ruote(1) = r1
                        ruote(2) = r2
                        '
                        caso = caso + 1
                        Scrivi String(99,"-") & " gioco n. " & caso
                        Scrivi
                        '
                        ReDim MatriceCaselleDaEvid(10,1)
                        ' primo elemento
                        MatriceCaselleDaEvid(1,0) = r1 '
                        MatriceCaselleDaEvid(1,1) = p1 '
                        ' secondo elemento
                        MatriceCaselleDaEvid(2,0) = r1 '
                        MatriceCaselleDaEvid(2,1) = p2 '
                        ' terzo elemento
                        MatriceCaselleDaEvid(3,0) = r2 '
                        MatriceCaselleDaEvid(3,1) = p1 '
                        ' quarto elemento
                        ' ---------------------------------------------------
                        ReDim MatriceLegami(10,3)
                        ' primo legame
                        MatriceLegami(1,0) = r1 '
                        MatriceLegami(1,1) = p1 '
                        MatriceLegami(1,2) = r1 '
                        MatriceLegami(1,3) = p2 '
                        ' secondo legame
                        MatriceLegami(2,0) = r1 '
                        MatriceLegami(2,1) = p1 '
                        MatriceLegami(2,2) = r2 '
                        MatriceLegami(2,3) = p1 '
                        ' terzo legame
                        MatriceLegami(3,0) = r1 '
                        MatriceLegami(3,1) = p2 '
                        MatriceLegami(3,2) = r2 '
                        MatriceLegami(3,3) = p1 '
                        Call DisegnaEstrazione(es,MatriceCaselleDaEvid,MatriceLegami)
                        '
                        '
                        Scrivi
                        Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                        "  numero  " & Format2(a) & Space(2) &(b) & "  In " & p1 & "°" & Space(1) & p2 & "° Pos.",1,1,3,7,4
                        '
                        Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r2) & " " & StringaEstratti(es,r1) & _
                        "  numero  " & Format2(x) & Space(2) &(c) & Space(2) & "  In " & p1 & "°" & Space(1) & p2 & "° Pos.",1,1,7,3,4
                        Scrivi
                        '
                        ImpostaGiocata 1,ambata,ruota,posta,k
                        Gioca es,1,,1
                        Scrivi
                        Scrivi String(55,"-"),0,1,7,3
                        Scrivi
                        Scrivi
                        ImpostaGiocata 1,terzina1,ruote,poste,k
                        ImpostaGiocata 2,terzina2,ruote,poste,k
                        ImpostaGiocata 3,terzina3,ruote,poste,k
                        Gioca es,1,,1
                     End If
                  End If
               Next
            Next
         Next
      Next
   Next
   Scrivi
   Scrivi "script di Zetrix",0,1,4,7,4,4,8
   Scrivi "richiesta di Imaging",0,1,7,3,4,4,8
   Scrivi "il triangolo per tre terzine",0,1,4,7,4,4,8
End Sub

Imaging di solito gli script si mettono nell'area download..
vedi se e esatto lo script..
la prossima richiesta scrivela anche nell'area download..
 
Codice:
Sub Main
   Dim ambata(5),ruote(5),calc(10),ruota(5),posta(2),poste(3)
   Dim ambo1(2),ambo2(2),ambo3(2),ambo4(2),ambo5(2)
   Dim terzina1(3),terzina2(3),terzina3(3)
   Dim r1,r2
   Dim caso,anum(2)
   posta(1) = 1
   poste(2) = 1
   poste(3) = 1
   '
   rs = InputBox("Quante estrazioni vuoi controllare?",,0)
   k = 5
   caso = 0
   '
   For es = EstrazioneFin - rs To EstrazioneFin
      AvanzamentoElab EstrazioneFin - rs,EstrazioneFin,es
      For r1 = 1 To 10
         For r2 = 1 To 10
            '
            For p1 = 1 To 5
               For p2 = 1 To 5
                  '
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r1,p2)
                  c = Estratto(es,r2,p1)
                  '--------------------
                  '
                  If Cadenza(a) = 0 And Cadenza(b) = 0 And Cadenza(c) = 0 Then
                     If r1 <> r2 And p1 <> p2 Then
                        '
                        ambata(1) = 74
                        '
                        terzina1(1) = 73
                        terzina1(2) = 75
                        terzina1(3) = 90
                        '
                        terzina2(1) = 73
                        terzina2(2) = 88
                        terzina2(3) = 90
                        '
                        terzina3(1) = 74
                        terzina3(2) = 75
                        terzina3(3) = 88
                        '
                        ruota(1) = r1
                        ruota(2) = r2
                        ruote(1) = r1
                        ruote(2) = r2
                        '
                        caso = caso + 1
                        Scrivi String(99,"-") & " gioco n. " & caso
                        Scrivi
                        '
                        ReDim MatriceCaselleDaEvid(10,1)
                        ' primo elemento
                        MatriceCaselleDaEvid(1,0) = r1 '
                        MatriceCaselleDaEvid(1,1) = p1 '
                        ' secondo elemento
                        MatriceCaselleDaEvid(2,0) = r1 '
                        MatriceCaselleDaEvid(2,1) = p2 '
                        ' terzo elemento
                        MatriceCaselleDaEvid(3,0) = r2 '
                        MatriceCaselleDaEvid(3,1) = p1 '
                        ' quarto elemento
                        ' ---------------------------------------------------
                        ReDim MatriceLegami(10,3)
                        ' primo legame
                        MatriceLegami(1,0) = r1 '
                        MatriceLegami(1,1) = p1 '
                        MatriceLegami(1,2) = r1 '
                        MatriceLegami(1,3) = p2 '
                        ' secondo legame
                        MatriceLegami(2,0) = r1 '
                        MatriceLegami(2,1) = p1 '
                        MatriceLegami(2,2) = r2 '
                        MatriceLegami(2,3) = p1 '
                        ' terzo legame
                        MatriceLegami(3,0) = r1 '
                        MatriceLegami(3,1) = p2 '
                        MatriceLegami(3,2) = r2 '
                        MatriceLegami(3,3) = p1 '
                        Call DisegnaEstrazione(es,MatriceCaselleDaEvid,MatriceLegami)
                        '
                        '
                        Scrivi
                        Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                        "  numero  " & Format2(a) & Space(2) &(b) & "  In " & p1 & "°" & Space(1) & p2 & "° Pos.",1,1,3,7,4
                        '
                        Scrivi DataEstrazione(es,1) & "  " & SiglaRuota(r2) & " " & StringaEstratti(es,r1) & _
                        "  numero  " & Format2(x) & Space(2) &(c) & Space(2) & "  In " & p1 & "°" & Space(1) & p2 & "° Pos.",1,1,7,3,4
                        Scrivi
                        '
                        ImpostaGiocata 1,ambata,ruota,posta,k
                        Gioca es,1,,1
                        Scrivi
                        Scrivi String(55,"-"),0,1,7,3
                        Scrivi
                        Scrivi
                        ImpostaGiocata 1,terzina1,ruote,poste,k
                        ImpostaGiocata 2,terzina2,ruote,poste,k
                        ImpostaGiocata 3,terzina3,ruote,poste,k
                        Gioca es,1,,1
                     End If
                  End If
               Next
            Next
         Next
      Next
   Next
   Scrivi
   Scrivi "script di Zetrix",0,1,4,7,4,4,8
   Scrivi "richiesta di Imaging",0,1,7,3,4,4,8
   Scrivi "il triangolo per tre terzine",0,1,4,7,4,4,8
End Sub

Imaging di solito gli script si mettono nell'area download..
vedi se e esatto lo script..
la prossima richiesta scrivela anche nell'area download..
Hai Fatto il Listato? Sei Grande Solo per questo bisogna avere rispetto .......Sono contento appunto è un metodo con fissi non si fanno calcoli quindi una visione facile con ricerca visiva... alla portata di tutti. Un metodo va postato nella sezione metodi Sarà valido per la ricerca della condizione GRANDE!!!!!!!!!!!!!:cool:(y)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 18 febbraio 2025
    Bari
    72
    83
    64
    59
    43
    Cagliari
    60
    55
    49
    07
    14
    Firenze
    11
    68
    62
    04
    21
    Genova
    86
    23
    44
    85
    71
    Milano
    11
    82
    42
    09
    14
    Napoli
    89
    86
    65
    49
    14
    Palermo
    79
    34
    80
    78
    20
    Roma
    26
    21
    13
    64
    57
    Torino
    64
    11
    17
    02
    58
    Venezia
    64
    82
    30
    04
    19
    Nazionale
    26
    37
    68
    54
    87
    Estrazione Simbolotto
    Cagliari
    39
    30
    04
    11
    14
Indietro
Alto