| by Djnomade
ColoreTesto 2 Scrivi String(37,32) & "AMBO UNICO di O.MANARA",1 Scrivi String(45,32) & "",1 ColoreTesto 0 Sub Main() Dim nu(10),nu1(10),nu2(10),nu3(10),nu4(10) Dim ruote(10),ruota(10) Dim poste(5),poste1(5),poste2(5),poste3(5) poste(1) = 1 poste(1) = 1 poste1(2) = 1 poste2(2) = 1.9 poste2(3) = 1 poste2(4) = .1 fin = EstrazioneFin ini = fin - 30 For es = ini To fin AvanzamentoElab ini,fin,es For r1 = 1 To 10 For p1 = 1 To 4 For p2 = p1 + 1 To 5 n1 = Estratto(es,r1,p1)'6 n2 = Estratto(es,r1,p2)'75 For r2 = r1 + 1 To 11 If r2 = 11 Then r2 = 12 n3 = Estratto(es,r2,p1)'81 n4 = Estratto(es,r2,p2)'60 n5 = Fuori90(n1 + n4)'somma diag n6 = Fuori90(n2 + n3)'somma diag If n5 = n6 Then n7 = Distanza(n1,n2)'distanza orizz n8 = Distanza(n3,n4)'distanza orizz If n7 = n8 Then n9 = Distanza(n1,n3) 'distanza VERT n10 = Distanza(n2,n4)'distanza VERT n11 = Diametrale(n6)'ambata n12 = Abs(n9 - n10) If n9 = n10 And n7 = n8 And n5 = n6 Then casi = casi + 1 Scrivi Scrivi String(75,"=") & " caso n° " &(casi) Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _ " > ambo stessa Distanza " & Format2(n7) & " Orizzontale < " & Format2(n1) & "." & Format2(n2) & " >" Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _ " > ambo stessa Somma " & Format2(n6) & " Diagonale < " & Format2(n3) & "." & Format2(n4) & " >" Scrivi " stessa Distanza Vert = " & Format2(n9) ruote(1) = r1 ruote(2) = r2 ruota(1) = 11 ruota(1) = 12 k = 9 co = 0 nu(1) = n11' 1°ambata ImpostaGiocata 1,nu,ruote,poste,k nu1(1) = n11' 1°ambata nu1(2) = n5' 1 abbinamento ImpostaGiocata 2,nu1,ruote,poste1,k nu1(1) = n11' 1°ambata nu1(2) = Fuori90(n5 + 30) ' abbinamento ImpostaGiocata 3,nu1,ruote,poste1,k nu1(1) = n11' 1°ambata nu1(2) = Fuori90(n5 + 60)' abbinamento ImpostaGiocata 4,nu1,ruote,poste1,k nu2(1) = n11' 1°ambata nu2(2) = n5' 1 abbinamento nu2(3) = Fuori90(n5 + 30)' nu2(4) = Fuori90(n5 + 60) ' abbinamento ImpostaGiocata 5,nu2,ruote,poste2,k Gioca es End If End If End If Next Next Next Next Next ScriviResoconto ColoreTesto 2 Scrivi String(37,32) & "AMBO UNICO di O.MANARA",1 Scrivi String(45,32) & "",1 ColoreTesto 0 End Sub
|