Tutti i forum  Lotto e altri giochi a pronostico  Script da metodi  PUNTO DIAM.

Nota: Devi essere registrato per rispondere al messaggio.
Per registrarti, premi qui. La registrazione è GRATUITA!

Risoluzione schermo: 640 x 480 800 x 600 1024 x 768 1280 x 1024 Nome utente: Password: Modo formattazione: Base  Help  Prompt  Formato: Carattere Andale Mono Arial Arial Black Book Antiqua Century Gothic Comic Sans MS Courier New Georgia Impact Lucida Console Script MT Bold Stencil Tahoma Times New Roman Trebuchet MS Verdana   Size 1 2 3 4 5 6   Colore Nero Rosso Giallo Rosa Verde Arancione Porpora Blu Beige Marrone Teal Blu scuro Castano Verde lime Messaggio: * HTML è attivo * Il codice su forum è attivo Smiles [quote][i]Inviato in origine da piermarco[/i] [br]Sub Main() 'Forum Ambolotto X lotoelotto_Il Punto Diametrale di Fabarri by listed_Enplein Dim n1(2),n2(2),n(3),rt(2),pt(1),ptt(2),pttt(3),amb(1),ab1(2),ab2(2),ab3(2),ab4(2),lg(5) pt(1) = 1 ptt(2) = 1 pttt(2) = 1.50 pttt(3) = .50 clp = 12 ini = EstrazioneFin - 50 fin = EstrazioneFin co = 0 For es = ini To fin Messaggio es For r1 = 1 To 10 For p1 = 1 To 4 : For p2 = p1 + 1 To 5 a = Estratto(es,r1,p1) : b = Estratto(es,r1,p2) dab = Distanza(a,b):n1(1) = a : n1(2) = b OrdinaMatrice n1,1 For r2 = r1 + 1 To 11 If r2 = 11 Then r2 = 12 For p3 = 1 To 4 : For p4 = p3 + 1 To 5 c = Estratto(es,r2,p3):d = Estratto(es,r2,p4) dcd = Distanza(c,d):n2(1) = c : n2(2) = d OrdinaMatrice n2,1 If dab = dcd And(n1(2) = n2(1) Or n1(1) = n2(2)) Then If n1(2) = n2(1) Then n(1) = n1(1):n(2) = n1(2):n(3) = n2(2) If n1(1) = n2(2) Then n(1) = n2(1):n(2) = n2(2):n(3) = n1(2) 'Previsione amb(1) = Diametrale(n(2)) ab1(1) = amb(1):ab1(2) = Fuori90((n(1) + 90) - dab) ab2(1) = amb(1):ab2(2) = Fuori90(n(3) + dab) ab3(1) = amb(1):ab3(2) = Diametrale(ab1(2)) ab4(1) = amb(1):ab4(2) = Diametrale(ab2(2)) lg(1) = amb(1):lg(2) = ab1(2):lg(3) = ab2(2):lg(4) = ab3(2):lg(5) = ab4(2) rt(1) = r1 : rt(2) = r2 co = co + 1 Scrivi String(55,"=") & " Caso n°" & co Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " [" & _ Format2(a) & " " & Format2(b) & "] Dist. " & Format2(dab) & " Pos. " & p1 & "^ " & p2 & "^" & Chr(10) & _ DataEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " [" & _ Format2(c) & " " & Format2(d) & "] Dist. " & Format2(dcd) & " Pos. " & p3 & "^ " & p4 & "^" & Chr(10) & _ "Triade composta con Elemento Mediano in posizione centrale",1 ColoreTesto 2 Scrivi "TRIADE " & Format2(n(1)) & " (" & Format2(dab) & ") " & Format2(n(2)) & _ " (" & Format2(dab) & ") " & Format2(n(3)),1 ColoreTesto 0 ImpostaGiocata 1,amb,rt,pt,clp,1 ImpostaGiocata 2,ab1,rt,ptt,clp,2 ImpostaGiocata 3,ab2,rt,ptt,clp,2 ImpostaGiocata 4,ab3,rt,ptt,clp,2 ImpostaGiocata 5,ab4,rt,ptt,clp,2 ImpostaGiocata 6,lg,rt,pttt,clp,3 Gioca es End If Next : Next Next Next : Next Next Next ScriviResoconto ColoreTesto 1 Scrivi String(27,32) & "Il Punto Diametrale di Fabarri ",1 Scrivi Scrivi String(38,32) & "Listed by Enplein",1 ColoreTesto 0 End Sub [/quote]   Seleziona qui per inserire la tua firma.