La Figura del TRIANGOLO per TRE TERZINE

[Imaging]

Esempio di Applicazione:

Quindi la previsione in gioco Sarà: Ro-Ve ; A.74 T. 73.75.90 / 73.88.90 / 74.75.88
From my notes....

 

[freenglish]

grazie mille
freenglish

 

[rosablu]

Grazie.

 

[Remoto]

SONO NUMERI FISSI ? GRAZIE..

 

[Zetrix]

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..

 

[Imaging]

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!!!!!!!!!!!!!

 

[Imaging]

Ottimo per la ricerca delle condizioni..... è perfetto il LISTATO OK!!!

 

[willer18]

buonasera mi da un errore 13: tipo non corrispondente: DisegnaEstrazione (riga 82)

 

[willer18]

come posso risolvere
Grazie

 

[Imaging]

come posso risolvere
Grazie

Con SpazioMetria non ne da errori comunque pulisci bene e poi incolla OK!!!!!

 

[willer18]

Con SpazioMetria non ne da errori comunque pulisci bene e poi incolla OK!!!!!

Buongiorno mi da sempre lo stesso errore come posso risolverre

 

[Imaging]

Buongiorno mi da sempre lo stesso errore come posso risolverre

Molto pratico.. fai attenzione ricopia il listato lo incolli e poi lo avvii non dovrebbe dare errori è evidente forse lo hai copiato con qualche lettera in più OK!!!

 

[willer18]

ok grazie