Tutti i forum  Lotto e altri giochi a pronostico  Metodi  programma l8script determinate

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 neriana[/i] [br]ho ideato questa formula x identificare ambata determinata nel giro di pochi colpi Scrivi"===========================" Sub Main() Dim num(1) Dim num1(5) Dim num2(3) Dim num3(3) Dim num4(3) Dim ruote(10) Dim poste(3) Dim post1(10),post2(10),post3(10),post4(10),post5(10) post1(1) = 1:post1(6) = 1 post2(1) = 1:post2(7) = 1 post3(1) = 1:post3(8) = 1 post4(1) = 1:post4(9) = 1 post5(1) = 1:post5(10) = 1 poste(2) = 1 k=10 tmp = CInt(InputBox("Quante estrazioni controllo?","",10)) r1=InputBox ("Scegli Ruota Calcolo","Ruota Calcolo",1) fin = EstrazioneFin ini = fin - tmp For es = ini To fin Messaggio CStr(EstrazioneFin - es) a1 = Estratto(es-1,r1,1) a11 = Estratto(es,r1,1) a111=91-Fuori90(a1+ a11) a2 = Estratto(es-1,r1,2) a22 = Estratto(es,r1,2) a222=91-Fuori90(a2+ a22) a3 = Estratto(es-1,r1,3) a33 = Estratto(es,r1,3) a333=91-Fuori90(a3+ a33) a4 = Estratto(es-1,r1,4) a44 = Estratto(es,r1,4) a444=91-Fuori90(a4+ a44) a5 = Estratto(es-1,r1,5) a55 = Estratto(es,r1,5) a555=91-Fuori90(a5+ a55) Scrivi DataEstrazione(es-1) & " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es-1,r1) ,1 Scrivi DataEstrazione(es) & " " & Left(NomeRuota(r1),2) & " " & StringaEstratti(es,r1) ,1 ColoreTesto 1 Scrivi"=================",1 Scrivi"S V I L U P P O",1 Scrivi"=================",1 ruote(1) = r1 num(1) = a111 ImpostaGiocata 1,num,ruote,post1,k num(1) = a222 ImpostaGiocata 2,num,ruote,post2,k num(1) = a333 ImpostaGiocata 3,num,ruote,post3,k num(1) = a444 ImpostaGiocata 4,num,ruote,post4,k num(1) = a555 ImpostaGiocata 5,num,ruote,post5,k num1(1) = a111 num1(2) = a222 num1(3) = a333 num1(4) = a444 num1(5) = a555 ImpostaGiocata 6,num1,ruote,poste,k Gioca es Scrivi"*****************************************************************" 'End If Next 'Next 'Next 'Next 'Next 'Next 'Next ScriviResoconto End Sub [/quote]   Seleziona qui per inserire la tua firma.