Tutti i forum  Lotto e altri giochi a pronostico  Script da metodi  Metodo Elisabetta Masi vedere cosa ha dato ieri

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]Option Explicit Sub Main Dim FIn,Ini,A,B,C,D,Clp,Es,Sp Dim R1,R2,P1,P2,P3,P4,Unouno50,S1,DiamS1 Dim FA,FB,FAB,SAB,DiCap12,SoCap12,Caso,Casi,Ok Dim DiamSab,DiamFab,DiamSoCap12,Elem23,DiamElem23 Dim Ambo1(2),Ambo2(2),Ambo3(2),Qua1(4),Qua2(4) Dim Post1(2),Post2(4),Ruo(2),Num(7) FIn = EstrazioneFin Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Unouno50,10363)) Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Unouno50,9)) Call ScegliRange(Ini,FIn,Ini,FIn) Scrivi Space(1) & "Ambo Ripetuto di Elisabetta Masi modificato per 2 quartine e 1 settina su 2 Ruote" & Space(1),1,,4,,3,,1 Post2(2) = 1 Post2(3) = 1 Post2(4) = 1 Sp = " " For Es = Ini To FIn Messaggio Es AvanzamentoElab Ini,FIn,Es Caso = 0 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) For R2 = R1 + 1 To 12 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) If A > 0 And C > 0 Then If A = C And B = D Then FA = Figura(A) : FB = Figura(B) FAB = CInt(FA & FB) : FAB = Fuori90(FAB) SAB = Fuori90(A + B) If FAB <> SAB Then DiCap12 = Distanza(FAB,SAB)'DIST CICLOMETRICA SoCap12 = Fuori90(FAB + SAB) S1 = Fuori90(DiCap12 + SAB) DiamS1 = Diametrale(S1) DiamSab = Diametrale(SAB) DiamFab = Diametrale(FAB) DiamSoCap12 = Diametrale(SoCap12) Elem23 = Fuori90((FAB + 90) - DiCap12) DiamElem23 = Diametrale(Elem23) Num(1) = A : Num(2) = B : Num(3) = FAB : Num(4) = SAB Num(5) = DiamElem23 : Num(6) = SoCap12 : Num(7) = Elem23 Ruo(1) = R1 : Ruo(2) = R2 If SerieFreqTurbo(Es - 30,Es - 1,Num,Ruo,3) = 0 Then Ambo1(1) = FAB : Ambo1(2) = SAB Ambo2(1) = SAB : Ambo2(2) = S1 Ambo3(1) = FAB : Ambo3(2) = Elem23 If FAB <> S1 And FAB <> Elem23 And SAB <> S1 And SAB <> Elem23 Then Qua1(1) = FAB : Qua1(2) = SAB : Qua1(3) = S1 : Qua1(4) = Elem23 Qua2(1) = DiamFab : Qua2(2) = DiamSab : Qua2(3) = DiamS1 : Qua2(4) = DiamElem23 Caso = Caso + 1 Casi = Casi + 1 Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2 Scrivi ReDim MatrCasella(4,1) MatrCasella(1,0) = R1 MatrCasella(1,1) = P1 MatrCasella(2,0) = R1 MatrCasella(2,1) = P2 MatrCasella(3,0) = R2 MatrCasella(3,1) = P3 MatrCasella(4,0) = R2 MatrCasella(4,1) = P4 Call DisegnaEstrazione(Es,MatrCasella,,vbBlue) Scrivi Scrivi Space(17) & "La Figura di " & Format2(A) & " = " & FA,1,0 Scrivi Space(11) & "La Figura di " & Format2(B) & " = " & FB,1 Scrivi Space(10) & "Unione delle 2 figure = " & Format2(FAB),1,0 Scrivi Space(7) & "<-- 1° Capogioco e 1° Elemento 1° Ambo",1 Scrivi Space(10) & "Estratto " & Format2(A) & " + " & "Estratto ",1,0 Scrivi Format2(B) & " = " & Format2(SAB) & " <-- 2° Capogioco e 2° Elemento 1° Ambo",1 Scrivi Space(10) & "La Distanza Ciclometrica tra " & Format2(SAB) & " e ",1,0 Scrivi Format2(FAB) & " = " & Format2(DiCap12),1 ' & Space(6) & " <-- 1° Elemento 3° Ambo",1 Scrivi Space(10) & "La Somma tra " & Space(16) & Format2(SAB) & " e ",1,0 Scrivi Format2(DiCap12) & " = " & Format2(S1) & Space(6) & " <-- 2° Elemento 2° Ambo",1 Scrivi Space(10) & "Il Primo Capog. " & Format2(FAB) & " - Dist. Ciclo " & Format2(DiCap12) & " = ",1,0 Scrivi Format2(Elem23) & Space(7) & "<-- 2° Elemento 3° Ambo",1 Scrivi Scrivi Space(10) & "I Diametrali della Quartina " & StringaNumeri(Qua1," ",True),1,0 Scrivi " sono " & StringaNumeri(Qua2," ",True),1 Scrivi Scrivi Space(25) & " Pronostico Per " & NomeRuota(R1) & " e " & NomeRuota(R2),1,,,1 Scrivi Space(24) & "Ambi Secchi " & Format2(FAB) & Sp & Format2(SAB),1,0 Scrivi Space(4) & Format2(SAB) & Sp & Format2(S1) & Space(4) & Format2(FAB) & Sp,1,0 Scrivi Format2(Elem23),1 Scrivi Space(15) & " Per Ambo e Terno e Quaterna " & StringaNumeri(Num," ",True),1 Scrivi Space(26) & " Per Ambo e Terno e Quaterna",1,,,2 Scrivi Space(28) & StringaNumeri(Qua1," ",True) & Space(5) & StringaNumeri(Qua2," ",True),1 Scrivi EliminaRipetuti Qua1 ImpostaGiocata 1,Qua1,Ruo,Post2,Clp EliminaRipetuti Qua2 ImpostaGiocata 2,Qua2,Ruo,Post2,Clp EliminaRipetuti Num ImpostaGiocata 3,Num,Ruo,Post2,Clp Gioca Es,1 End If End If End If End If End If Next Next Next Next Next Next If ScriptInterrotto Then Exit Sub Next ScriviResoconto End Sub ---------------------------------------------------------------------------------------- Estrazione generatrice del pronostico 10473 [111 - 12/07/2024] G 0001 Numeri in gioco : 16.25.52.79 su NA RO per Ambo,Terno,Quaterna V N. [16.25.52.79 ] [RO] [.. 79 .. 25 52] C. 6 Terno 10479 [117 - 23/07/2024] In corso per altre 3 estrazioni G 0002 Numeri in gioco : 07.34.61.70 su NA RO per Ambo,Terno,Quaterna In corso per altre 3 estrazioni G 0003 Numeri in gioco : 02.25.41.52.70.77.79 su NA RO per Ambo,Terno,Quaterna V N. [02.25.41.52.70.77.79 ] [RO] [.. 79 70 25 52] C. 6 Quaterna 10479 [117 - 23/07/2024] In corso per altre 3 estrazioni [/quote]   Seleziona qui per inserire la tua firma.