Tutti i forum  Lotto e altri giochi a pronostico  Script da metodi  IL SEGRETO DEL MONACO DI SAN FERDINANDO

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() Dim k(10),ab(2),ab1(7) Dim rt(4),rtt(4),ruote(2) Dim pt(5),ptt(5) pt(1) = 1 : ptt(2) = 1: ptt(3) = 1 : clp = 13 ini = EstrazioneFin - 100 co = 0 For es = ini To EstrazioneFin Messaggio(es) For r = 1 To 10 rt(1) = r : rtt(1) = r For p1 = 1 To 5 n1 = Estratto(es,r,p1) For r1 = r + 1 To 12 If r1 = 11 Then r1 = 12 rt(2) = r1 : rtt(2) = r1 ruote(1) = 11:ruote(2) = 12 n2 = Estratto(es,r1,p1) If(n1) =(n2)Then co = co + 1 Scrivi String(70,"=") Scrivi DataEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & "" Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " " Scrivi DataEstrazione(es) & " " & SiglaRuota(r) & "-" & SiglaRuota(r1) & _ " Numero isotopo " & n1 & "-" & n2 & " estratto al " & p1 & "° posto",1 Scrivi ab(1) = Fuori90(n1 + 1) ab(2) = Vert(ab(1)) ImpostaGiocata 1,ab,rtt,pt,clp ab1(1) = Fuori90(n1 + 1) ab1(2) = Vert(ab1(1)) ab1(3) = Figura(ab1(1)) ab1(4) = Fuori90(ab1(3) + 1) ab1(5) = Fuori90(ab1(4) + 4) ab1(6) = Fuori90(ab1(5) + 4) ab1(7) = Diametrale(ab1(1)) ImpostaGiocata 2,ab1,rtt,ptt,clp ImpostaGiocata 3,ab1,ruote,ptt,clp Gioca es End If Next Next Next Next ScriviResoconto End Sub [/quote]   Seleziona qui per inserire la tua firma.