| CITAZIONE (pigreko73.. @ 9/8/2014, 10:38) ciao Miki, il listato sul metodo di "Evoluzione sul Correttore Differenziale è questo CODICE Sub main() ColoreTesto 2 Scrivi" F O R U M S U P E R L O T T O " ColoreTesto 1 Scrivi"EVOLUZIONE SUL CORRETTORE DIFFERENZIALE" Scrivi"Metodo di Michele PACE - Listed by Federico53" ColoreTesto 0 Dim amb(10),lg(2),lg1(5),amb1(2),lg2(2) Dim ruote(10) Dim posta(5) Dim poste(5) poste(1)=0 poste(2)=1 poste(3)=1 clp=13 fin=EstrazioneFin ini=9300 For es=ini To fin AvanzamentoElab ini,fin,es caso = 0 For r1 = 1 To 10 For p=1 To 4 For p1=p+1 To 5 A = Estratto(es,r1,p):B = Estratto(es,r1,p1) di1 = Distanza(A,B) If di1=45 Then For r2=1 To 12 If r2=11 Then r2=12 For p2=1 To 4 For p3=p2+1 To 5 C = Estratto(es,r2,p2):D = Estratto(es,r2,p3) di2 = Distanza(C,D) If r2>r1 Then If di2 = di1 Then so1=Fuori90(A+B):so2=Fuori90(C+D) dm1=Diametrale(so1):dm2=Diametrale(so2) sv1=Fuori90(A+C):sv2=Fuori90(B+D) sd1=Fuori90(A+D):sd2=Fuori90(B+C) dv1=Distanza(A,C):dv2=Distanza(B,D) dd1=Distanza(A,D):dd2=Distanza(B,C) cd=Abs(dv1-dd1) a1=Fuori90(cd+sv1):a2=Fuori90(cd+sd1) x1=Fuori90(a1+a2)'AMBATA caso = caso + 1 casi = casi + 1 Scrivi String(65,"=") ColoreTesto 2 Scrivi" F O R U M S U P E R L O T T O " ColoreTesto 1 Scrivi"EVOLUZIONE SUL CORRETTORE DIFFERENZIALE" Scrivi"Metodo di Michele PACE - Listed by Federico53" ColoreTesto 0 Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es))&" " & Left(NomeRuota(r1),3) & " " & StringaEstratti(es,r1),1 Scrivi(" Estrazione n." & Format2(es) & " del " & DataEstrazione(es))&" " & Left(NomeRuota(r2),3) & " " & StringaEstratti(es,r2),1 ColoreTesto 1 Scrivi String(53,"-") & " Caso N " & Format2(caso) & " Estraz. ",0,0 ColoreTesto 2 Scrivi Format2(es) ColoreTesto 1 Scrivi String(53,"-") & " Casi Totali N " & Format2(casi) ColoreTesto 0
Scrivi " Ambi Diametrali che formano la Struttura ",1 Scrivi String(31,"-") ColoreTesto 2 Scrivi " " & Left(NomeRuota(r1),3) & " " & Format2(A) & Space(1) & Format2(B) & " DO1 " & Format2(di1) &_ " DV1 " & Format2(dv1) & Space(1)& " DD1 " & Format2(dd1) & " SV1 " & Format2(sv1)& " SD1 " & Format2(sd1),1 Scrivi " " & Left(NomeRuota(r2),3) & " " & Format2(C) & Space(1) & Format2(D) & " DO2 " & Format2(di2) &_ " DV2 " & Format2(dv2) & Space(1)& " DD2 " & Format2(dd2) & " SV2 " & Format2(sv2)& " SD2 " & Format2(sd2),1 ColoreTesto 1 Scrivi" CORRETTORE DIFFERENZIALE " & Format2(cd),1
ColoreTesto 0 Scrivi String(25,"-")
ruote(1) = r1 ruote(2) = r2 ruote(3)= 11
amb(1) = x1:amb(2) = so1 ImpostaGiocata 1,amb,ruote,poste,clp lg(1) = x1:lg(2) = so2 ImpostaGiocata 2,lg,ruote,poste,clp amb1(1) = x1:amb1(2) = dm1 ImpostaGiocata 3,amb1,ruote,poste,clp lg2(1) = x1:lg2(2) = dm2 ImpostaGiocata 4,lg2,ruote,poste,clp lg1(1) = x1:lg1(2) = so1:lg1(3) = so2:lg1(4) = dm1:lg1(5) = dm2 ImpostaGiocata 5,lg1,ruote,poste,clp Gioca es Scrivi"Listed by federico53" End If End If Next Next Next End If Next Next Next Next ScriviResoconto End Sub
|