Tutti i forum  Lotto e altri giochi a pronostico  Script da metodi  Metodo Danilo CS1 vecchio ma ancora valido

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 vinci[/i] [br]Sub Main() Scrivi ColoreTesto 2:Scrivi String(40," ") & "Metodo 1 Quartina su VENEZIA vecchio ma ancora valido" ColoreTesto 0: Scrivi:Scrivi Dim ruote(10) Dim numeri1(5) Dim posta(5) posta(1) = 1 posta(2) = 1 posta(3) = 1 ini = InputBox("Estrazione di partenza?",,6590) k = InputBox("Inserisci i colpi di gioco",,10) caso = 0 For n = ini To EstrazioneFin If IndiceMensile(n) = 1 Then caso = caso + 1 ruote(1) = 10 Scrivi String(100,"*") & "Caso n°" & Caso,1 ColoreTesto 1:Scrivi"Metodo Danilo CS1 -------> VENEZIA calcolo alla 1° Estrazione del mese quartina per 10 colpi per ambata,ambo e terno" ColoreTesto 0:Scrivi numeri1(1) = Fuori90(Estratto(n,1,4) + Estratto(n,10,4) + 25) numeri1(2) = Fuori90(Estratto(n,1,1) + Estratto(n,7,3) + 42) numeri1(3) = Fuori90(Estratto(n,5,1) + Estratto(n,8,4) + 21) numeri1(4) = Fuori90(Estratto(n,3,5) + Estratto(n,10,4) + 25) EliminaRipetuti numeri1 ImpostaGiocata 1,numeri1,ruote,posta,k,2 Gioca n End If Next ScriviResoconto End Sub [/quote]   Seleziona qui per inserire la tua firma.