DOPPIO AMBO DIAMETRALE

Rispondi
Avatar utente
Tatoo64
Site Admin
Messaggi: 3860
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

DOPPIO AMBO DIAMETRALE

Messaggio da Tatoo64 » 23/03/2015, 19:06

IL METODO LO TROVATE QUI
Ultima modifica di Tatoo64 il 24/03/2015, 12:46, modificato 1 volta in totale.
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
DjNomade
Messaggi: 577
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

Re: DOPPIO AMBO DIAMETRALE

Messaggio da DjNomade » 23/03/2015, 21:21

Speriamo sia giusto.......

Ciauz


Codice: Seleziona tutto

     'http://pentambo.info/forum/viewtopic.php?f=23&t=5309

  ColoreTesto 2 :Scrivi String(37,32)&"DOPPIO AMBO DIAMETRALE  ",1

 Scrivi String(47,32)&"by DjNomade",1
ColoreTesto 0


        Sub main()
        Dim nu1(10),nu2(10),nu3(10),nu4(10)
        Dim ruote(10),ruota(10)
        Dim posta(10),poste(5),poste1(5),poste2(5),poste3(5)

        poste(2)=1
        poste1(2)=1
        poste2(2)=2


        est=InputBox("Quante estrazioni vuoi analizzare?","DOPPIO AMBO DIAMETRALE ",800)
        k=InputBox("Quanti colpi di gioco?","DOPPIO AMBO DIAMETRALE",14)
        fin=EstrazioneFin
        ini=fin-est
        For es=ini To fin
        AvanzamentoElab ini,fin,es
        For r1=1 To 12
        If r1=11 Then r1=12
        For p1=1 To 4
        For p2=p1+1 To 5
        n1=Estratto(es,r1,p1)
        n2=Estratto(es,r1,p2)
        n5=Distanza(n1,n2)
       If n5=45  Then

        For p3=p1+1 To 4
        For p4=p3+1 To 5
        n3=Estratto(es,r1,p3)
        n4=Estratto(es,r1,p4)
        
        n6=Distanza(n3,n4)
        If n6=45  Then
        n7=Fuori90(n1+n2+n3+n4)
  r2=r1+1
  r3=r1-1
If r1=10 Then r2=12
If r1=12 Then r2=1:r3=10
If r1=1 Then r3=12
n11=n7'ambata
n12=n4'abb
n13=Diametrale(n7)'abb
n14=DiametraleD(n7)'abb
        casi=casi+1:Scrivi String(75,"="),1
        Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
        " > ambi diametrali < "&Format2(n1)&"."&Format2 (n2)&" >"&Format2(n3)&"."&Format2 (n4)&" >"

        Scrivi String(65,"-")&" caso n° "&(casi)
        ruote(1)=r1:ruota(1)=r1:ruota(2)=r2:ruota(3)=r3:co=0
Erase posta
posta(1)=1
posta(p1+5)=1
posta(p2+5)=1
posta(p3+5)=1
posta(p4+5)=1
        nu1(1)=n11
        ImpostaGiocata 1 ,nu1,ruota,posta,k

        nu2(1)=n11
        nu2(2)=n12
        ImpostaGiocata 2 ,nu2,ruota,poste,k

        nu2(1)=n11
        nu2(2)=n13
        ImpostaGiocata 3 ,nu2,ruota,poste,k

        nu2(1)=n11
        nu2(2)=n14
        ImpostaGiocata 4 ,nu2,ruota,poste,k

        nu3(1)=n12
        nu3(2)=n13
        nu3(3)=n14
        
        ImpostaGiocata 5 ,nu3,ruote,poste2,k
        Gioca es
        End If
        Next:Next
        End If
        Next:Next:Next:next
        ScriviResoconto
  ColoreTesto 2 :Scrivi String(37,32)&"DOPPIO AMBO DIAMETRALE",1


 Scrivi String(47,32)&"by DjNomade",1
ColoreTesto 0
        End Sub
Ultima modifica di DjNomade il 24/03/2015, 20:54, modificato 1 volta in totale.

Avatar utente
Tatoo64
Site Admin
Messaggi: 3860
Iscritto il: 22/10/2011, 17:11
Località: PARMA
Contatta:

Re: DOPPIO AMBO DIAMETRALE

Messaggio da Tatoo64 » 24/03/2015, 13:02

GRAZIE DJNOMADE, TI CHIEDO SOLO SE POSSIBILE DI TOGLIERE LA QUATERNA MA METTERE SOLO LA TERZINA FATTA DAGLI ABBINAMENTI PERCHE' HO VISTO CHE LE VINCITE LE FA' SOLO CON GLI ABBINAMENTI.
Mors ego sum mortis, Vocor Agnus sum Leo fortis

Avatar utente
DjNomade
Messaggi: 577
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

Re: DOPPIO AMBO DIAMETRALE

Messaggio da DjNomade » 24/03/2015, 20:55

Ok ...Modificato

Ciauz

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite