Novità

metodo con richiesta script

arcor

arcor

Advanced Member
un saluto a tutti qualcuno può gentilmente realizzare uno script di questo metodo ho già calcolato le previsioni x dicembre
grazie mille
si calcola sempre il mese prima
metodo con previsione per il mese di Dicembre 2011
metodo sommativo ( calcolo del mese di Novembre 2011 )
-----------------------------------------------------------------------------
5° Estratto su Fi della 2^ mese prec. 03.11.2011 [ 87 ] + 73 / A
4° Estratto su Ge della 2^ mese prec. 03.11.2011 [ 38 ] + 27 / B
3° Estratto su Ca della 1^ mese prec. 02.11.2011 [ 25 ] + 42 / A1
1° Estratto su Ve della 2^ mese prec. 03.11.2011 [ 56 ] + 35 / A2
1° Estratto su Mi della 3^ mese prec. 05.11.2011 [ 72 ] + 14 / A3
5° Estratto su Ba della 2^ mese prec. 03.11.2011 [ 4 ] + 58 / B1
3° Estratto su Pa della 3^ mese prec. 05.11.2011 [ 34 ] + 57 / B2
2° Estratto su Ge della 4^ mese prec. 08.11.2011 [ 18 ] + 65 / B3
1° Estratto su Ge della 1^ mese prec. 02.11.2011 [ 37 ] + 64 / C
3° Estratto su Pa della 2^ mese prec. 03.11.2011 [ 72 ] + 40 / D
5° Estratto su Ge della 1^ mese prec. 02.11.2011 [ 71 ] + 51 / C2
4° Estratto su To della 4^ mese prec. 08.11.2011 [ 12 ] + 9 / D2
-----------------------------------------------------------------------------
Estrazione generatrice del pronostico 08463 [144 - 01/12/2011]
Numeri in gioco : 70.65 su VE per Estratto
In corso per altre 9 estrazioni
Numeri in gioco : 70.65 su VE per Ambo
In corso per altre 9 estrazioni
Numeri in gioco : 70.67 su VE per Ambo
In corso per altre 9 estrazioni
Numeri in gioco : 70.01 su VE per Ambo
In corso per altre 9 estrazioni
Numeri in gioco : 70.86 su VE per Ambo
In corso per altre 9 estrazioni
Numeri in gioco : 65.62 su VE per Ambo
In corso per altre 9 estrazioni

Numeri in gioco : 65.01 su VE per Ambo
In corso per altre 9 estrazioni
Numeri in gioco : 65.83 su VE per Ambo
In corso per altre 9 estrazioni
Numeri in gioco : 70.65.11.22 su VE per Ambo,Terno,Quaterna
In corso per altre 9 estrazioni
Numeri in gioco : 70.65.32.21 su VE per Ambo,Terno,Quaterna
In corso per altre 9 estrazioni
 
vinci

vinci

Super Member >GOLD<
Questo si chiama metodo ducale di Fabio Bubu

Sub
Main()


Dim ruote(1),nu1(2),nu2(2),nu3(4),posta(1),poste(2),post(4)


posta(1) = 1


poste(2) = 1


post(2) = 1


post(3) = 1


post(4) = 1

ce
= InputBox("da quale estrazione vuoi controllare? ","estrazione",8163)

k
= InputBox("per quanti colpi?","colpi di gioco",9)

ini
= ce

fin
= EstrazioneFin
Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)",1


For n = ini To EstrazioneFin
If IndiceMensile(n) = 1 Or n = 7810 Then

 x
= PrimaMesePrec(n)


Messaggio "elab. estr. [" &(n) & "] di " & DataEstrazione(n,1)

casi
= casi + 1


Scrivi String(57,"=") & " by maxma62",1


Scrivi "metodo ducale di f. bubù ( calcolo del mese di " & monthname(Mese(x)) & " " & Anno(x) & " )"


Scrivi String(68,"-")


Scrivi " 5° Estratto su Fi della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,3,5) & " ] + 73 / A " 'ambata
Scrivi " 4° Estratto su Ge della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,4,4) & " ] + 27 / B " 'ambata
Scrivi " 3° Estratto su Ca della 1^ mese prec. " & DataEstrazione(x) & " [ " & Estratto(x,2,3) & " ] + 42 / A1 "


Scrivi " 1° Estratto su Ve della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,10,1) & " ] + 35 / A2 "


Scrivi " 1° Estratto su Mi della 3^ mese prec. " & DataEstrazione(x + 2) & " [ " & Estratto(x + 2,5,1) & " ] + 14 / A3 "


Scrivi " 5° Estratto su Ba della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,1,5) & " ] + 58 / B1 "


Scrivi " 3° Estratto su Pa della 3^ mese prec. " & DataEstrazione(x + 2) & " [ " & Estratto(x + 2,7,3) & " ] + 57 / B2 "


Scrivi " 2° Estratto su Ge della 4^ mese prec. " & DataEstrazione(x + 3) & " [ " & Estratto(x + 3,4,2) & " ] + 65 / B3 "


Scrivi " 1° Estratto su Ge della 1^ mese prec. " & DataEstrazione(x) & " [ " & Estratto(x,4,1) & " ] + 64 / C "


Scrivi " 3° Estratto su Pa della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,7,3) & " ] + 40 / D "


Scrivi " 5° Estratto su Ge della 1^ mese prec. " & DataEstrazione(x) & " [ " & Estratto(x,4,5) & " ] + 51 / C2 "


Scrivi " 4° Estratto su To della 4^ mese prec. " & DataEstrazione(x + 3) & " [ " & Estratto(x + 3,9,4) & " ] + 9 / D2 "


Scrivi String(56,"-") & " caso n° " &(casi)


ruote(1) = 10

co
= 0

nA
= Fuori90(Estratto(x + 1,3,5) + 73)

nB
= Fuori90(Estratto(x + 1,4,4) + 27)

nA1
= Fuori90(Estratto(x,2,3) + 42)

nA2
= Fuori90(Estratto(x + 1,10,1) + 35)

nA3
= Fuori90(Estratto(x + 2,5,1) + 14)

nB1
= Fuori90(Estratto(x + 1,1,5) + 58)

nB2
= Fuori90(Estratto(x + 2,7,3) + 57)

nB3
= Fuori90(Estratto(x + 3,4,2) + 65)

nC
= Fuori90(Estratto(x,4,1) + 64)

nD
= Fuori90(Estratto(x + 1,7,3) + 40)

nC2
= Fuori90(Estratto(x,4,5) + 51)

nD2
= Fuori90(Estratto(x + 3,9,4) + 9)


nu1(1) = nA


nu1(2) = nB

co
= co + 1


ImpostaGiocata co,nu1,ruote,posta,k


nu2(1) = nA


nu2(2) = nB

co
= co + 1


ImpostaGiocata co,nu2,ruote,poste,k


nu2(2) = nA1

co
= co + 1


ImpostaGiocata co,nu2,ruote,poste,k


nu2(2) = nA2

co
= co + 1


ImpostaGiocata co,nu2,ruote,poste,k


nu2(2) = nA3

co
= co + 1


ImpostaGiocata co,nu2,ruote,poste,k


nu2(1) = nB


nu2(2) = nB1

co
= co + 1


ImpostaGiocata co,nu2,ruote,poste,k


nu2(2) = nB2

co
= co + 1


ImpostaGiocata co,nu2,ruote,poste,k


nu2(2) = nB3

co
= co + 1


ImpostaGiocata co,nu2,ruote,poste,k


nu3(1) = nA


nu3(2) = nB


nu3(3) = nC


nu3(4) = nD

co
= co + 1


ImpostaGiocata co,nu3,ruote,post,k


nu3(1) = nA


nu3(2) = nB


nu3(3) = nC2


nu3(4) = nD2

co
= co + 1


ImpostaGiocata co,nu3,ruote,post,k


Gioca n


End If
Next
ScriviResoconto

End
 Sub

'----------------------------------------------

Function
 PrimaMesePrec(n)


For x = n To n - 35 Step - 1


If Cadenza(Distanza(Mese(n),Mese(x))) = 1 And IndiceMensile(x) = 1 Then
PrimaMesePrec = x


Exit For
End If
Next

End
 Function

 
vinci

vinci

Super Member >GOLD<
Scusate ma da quando c'è questo nuovo forum non riesco più
a fare il copia incolla correttamente. Non so come posso fare,
se qualcuno mi può aiutare a risolvere questo problema.
Grazie
 
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
prova

prova

Codice: 
Sub Main()
 Dim ruote(1),nu1(2),nu2(2),nu3(4),posta(1),poste(2),post(4)
 posta(1) = 1
 poste(2) = 1
 post(2) = 1
 post(3) = 1
 post(4) = 1
 ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",8163) '7025
 k = InputBox("per quanti colpi?","colpi di gioco",9)
 ini = ce
 fin = EstrazioneFin
 Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)",1
 For n = ini To EstrazioneFin
  If IndiceMensile(n) = 1 Or n = 7810 Then
   x = PrimaMesePrec(n)
   Messaggio "elab. estr. [" &(n) & "] di " & DataEstrazione(n,1)
   casi = casi + 1
   Scrivi String(57,"=") & " by maxma62",1
   Scrivi "metodo ducale di f. bubù ( calcolo del mese di " & monthname(Mese(x)) & " " & Anno(x) & " )"
   Scrivi String(68,"-")
   Scrivi " 5° Estratto su Fi della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,3,5) & " ] + 73 / A " 'ambata
   Scrivi " 4° Estratto su Ge della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,4,4) & " ] + 27 / B " 'ambata
   Scrivi " 3° Estratto su Ca della 1^ mese prec. " & DataEstrazione(x) & " [ " & Estratto(x,2,3) & " ] + 42 / A1 "
   Scrivi " 1° Estratto su Ve della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,10,1) & " ] + 35 / A2 "
   Scrivi " 1° Estratto su Mi della 3^ mese prec. " & DataEstrazione(x + 2) & " [ " & Estratto(x + 2,5,1) & " ] + 14 / A3 "
   Scrivi " 5° Estratto su Ba della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,1,5) & " ] + 58 / B1 "
   Scrivi " 3° Estratto su Pa della 3^ mese prec. " & DataEstrazione(x + 2) & " [ " & Estratto(x + 2,7,3) & " ] + 57 / B2 "
   Scrivi " 2° Estratto su Ge della 4^ mese prec. " & DataEstrazione(x + 3) & " [ " & Estratto(x + 3,4,2) & " ] + 65 / B3 "
   Scrivi " 1° Estratto su Ge della 1^ mese prec. " & DataEstrazione(x) & " [ " & Estratto(x,4,1) & " ] + 64 / C "
   Scrivi " 3° Estratto su Pa della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,7,3) & " ] + 40 / D "
   Scrivi " 5° Estratto su Ge della 1^ mese prec. " & DataEstrazione(x) & " [ " & Estratto(x,4,5) & " ] + 51 / C2 "
   Scrivi " 4° Estratto su To della 4^ mese prec. " & DataEstrazione(x + 3) & " [ " & Estratto(x + 3,9,4) & " ] + 9 / D2 "
   Scrivi String(56,"-") & " caso n° " &(casi)
   ruote(1) = 10
   co = 0
   nA = Fuori90(Estratto(x + 1,3,5) + 73)
   nB = Fuori90(Estratto(x + 1,4,4) + 27)
   nA1 = Fuori90(Estratto(x,2,3) + 42)
   nA2 = Fuori90(Estratto(x + 1,10,1) + 35)
   nA3 = Fuori90(Estratto(x + 2,5,1) + 14)
   nB1 = Fuori90(Estratto(x + 1,1,5) + 58)
   nB2 = Fuori90(Estratto(x + 2,7,3) + 57)
   nB3 = Fuori90(Estratto(x + 3,4,2) + 65)
   nC = Fuori90(Estratto(x,4,1) + 64)
   nD = Fuori90(Estratto(x + 1,7,3) + 40)
   nC2 = Fuori90(Estratto(x,4,5) + 51)
   nD2 = Fuori90(Estratto(x + 3,9,4) + 9)
   nu1(1) = nA
   nu1(2) = nB
   co = co + 1
   ImpostaGiocata co,nu1,ruote,posta,k
   nu2(1) = nA
   nu2(2) = nB
   co = co + 1
   ImpostaGiocata co,nu2,ruote,poste,k
   nu2(2) = nA1
   co = co + 1
   ImpostaGiocata co,nu2,ruote,poste,k
   nu2(2) = nA2
   co = co + 1
   ImpostaGiocata co,nu2,ruote,poste,k
   nu2(2) = nA3
   co = co + 1
   ImpostaGiocata co,nu2,ruote,poste,k
   nu2(1) = nB
   nu2(2) = nB1
   co = co + 1
   ImpostaGiocata co,nu2,ruote,poste,k
   nu2(2) = nB2
   co = co + 1
   ImpostaGiocata co,nu2,ruote,poste,k
   nu2(2) = nB3
   co = co + 1
   ImpostaGiocata co,nu2,ruote,poste,k
   nu3(1) = nA
   nu3(2) = nB
   nu3(3) = nC
   nu3(4) = nD
   co = co + 1
   ImpostaGiocata co,nu3,ruote,post,k
   nu3(1) = nA
   nu3(2) = nB
   nu3(3) = nC2
   nu3(4) = nD2
   co = co + 1
   ImpostaGiocata co,nu3,ruote,post,k
   Gioca n
  End If
 Next
 ScriviResoconto
End Sub
'----------------------------------------------
'funzione PrimaMesePrec di rosanna
Function PrimaMesePrec(n)
 For x = n To n - 35 Step - 1
  If Cadenza(Distanza(Mese(n),Mese(x))) = 1 And IndiceMensile(x) = 1 Then
   PrimaMesePrec = x
   Exit For
  End If
 Next
End Function







vediamo
 
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
Ciao a tutti, ho seguito le istruzioni del baffo è sembra funzionare dopo 3 tentativi.
Ho fatto l'autoformattazione in spaziometria ed incollato tra l'insert-code# in modalità avanzata.
Anche se!!! con questo code lo script per chi vuole leggerlo dal forum risulta illegibile.
Speriamo lottoced prenda visione della difficoltà di tanti e possa porre rimedio.
Il mio vuole essere un augurio anche se convengo che questo forum può solo migliorare

Un Saluto a tutti.
 
B

Baffoblu

Guest
Vedete se va meglio




Codice: 
Sub Main()
    Dim ruote(1),nu1(2),nu2(2),nu3(4),posta(1),poste(2),post(4)
    posta(1) = 1
    poste(2) = 1
    post(2) = 1
    post(3) = 1
    post(4) = 1
    ce = InputBox("da quale estrazione vuoi controllare? ","estrazione",8163) '7025
    k = InputBox("per quanti colpi?","colpi di gioco",9)
    ini = ce
    fin = EstrazioneFin
    Scrivi "Resoconto da " & DataEstrazione(ini,1) & " a " & DataEstrazione(fin,1) & " (" &(fin - ce) & " estr.)",1
    For n = ini To EstrazioneFin
        If IndiceMensile(n) = 1 Or n = 7810 Then
            x = PrimaMesePrec(n)
            Messaggio "elab. estr. [" &(n) & "] di " & DataEstrazione(n,1)
            casi = casi + 1
            Scrivi String(57,"=") & " by maxma62",1
            Scrivi "metodo ducale di f. bubù ( calcolo del mese di " & monthname(Mese(x)) & " " & Anno(x) & " )"
            Scrivi String(68,"-")
            Scrivi " 5° Estratto su Fi della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,3,5) & " ] + 73 / A " 'ambata
            Scrivi " 4° Estratto su Ge della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,4,4) & " ] + 27 / B " 'ambata
            Scrivi " 3° Estratto su Ca della 1^ mese prec. " & DataEstrazione(x) & " [ " & Estratto(x,2,3) & " ] + 42 / A1 "
            Scrivi " 1° Estratto su Ve della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,10,1) & " ] + 35 / A2 "
            Scrivi " 1° Estratto su Mi della 3^ mese prec. " & DataEstrazione(x + 2) & " [ " & Estratto(x + 2,5,1) & " ] + 14 / A3 "
            Scrivi " 5° Estratto su Ba della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,1,5) & " ] + 58 / B1 "
            Scrivi " 3° Estratto su Pa della 3^ mese prec. " & DataEstrazione(x + 2) & " [ " & Estratto(x + 2,7,3) & " ] + 57 / B2 "
            Scrivi " 2° Estratto su Ge della 4^ mese prec. " & DataEstrazione(x + 3) & " [ " & Estratto(x + 3,4,2) & " ] + 65 / B3 "
            Scrivi " 1° Estratto su Ge della 1^ mese prec. " & DataEstrazione(x) & " [ " & Estratto(x,4,1) & " ] + 64 / C "
            Scrivi " 3° Estratto su Pa della 2^ mese prec. " & DataEstrazione(x + 1) & " [ " & Estratto(x + 1,7,3) & " ] + 40 / D "
            Scrivi " 5° Estratto su Ge della 1^ mese prec. " & DataEstrazione(x) & " [ " & Estratto(x,4,5) & " ] + 51 / C2 "
            Scrivi " 4° Estratto su To della 4^ mese prec. " & DataEstrazione(x + 3) & " [ " & Estratto(x + 3,9,4) & " ] + 9 / D2 "
            Scrivi String(56,"-") & " caso n° " &(casi)
            ruote(1) = 10
            co = 0
            nA = Fuori90(Estratto(x + 1,3,5) + 73)
            nB = Fuori90(Estratto(x + 1,4,4) + 27)
            nA1 = Fuori90(Estratto(x,2,3) + 42)
            nA2 = Fuori90(Estratto(x + 1,10,1) + 35)
            nA3 = Fuori90(Estratto(x + 2,5,1) + 14)
            nB1 = Fuori90(Estratto(x + 1,1,5) + 58)
            nB2 = Fuori90(Estratto(x + 2,7,3) + 57)
            nB3 = Fuori90(Estratto(x + 3,4,2) + 65)
            nC = Fuori90(Estratto(x,4,1) + 64)
            nD = Fuori90(Estratto(x + 1,7,3) + 40)
            nC2 = Fuori90(Estratto(x,4,5) + 51)
            nD2 = Fuori90(Estratto(x + 3,9,4) + 9)
            nu1(1) = nA
            nu1(2) = nB
            co = co + 1
            ImpostaGiocata co,nu1,ruote,posta,k
            nu2(1) = nA
            nu2(2) = nB
            co = co + 1
            ImpostaGiocata co,nu2,ruote,poste,k
            nu2(2) = nA1
            co = co + 1
            ImpostaGiocata co,nu2,ruote,poste,k
            nu2(2) = nA2
            co = co + 1
            ImpostaGiocata co,nu2,ruote,poste,k
            nu2(2) = nA3
            co = co + 1
            ImpostaGiocata co,nu2,ruote,poste,k
            nu2(1) = nB
            nu2(2) = nB1
            co = co + 1
            ImpostaGiocata co,nu2,ruote,poste,k
            nu2(2) = nB2
            co = co + 1
            ImpostaGiocata co,nu2,ruote,poste,k
            nu2(2) = nB3
            co = co + 1
            ImpostaGiocata co,nu2,ruote,poste,k
            nu3(1) = nA
            nu3(2) = nB
            nu3(3) = nC
            nu3(4) = nD
            co = co + 1
            ImpostaGiocata co,nu3,ruote,post,k
            nu3(1) = nA
            nu3(2) = nB
            nu3(3) = nC2
            nu3(4) = nD2
            co = co + 1
            ImpostaGiocata co,nu3,ruote,post,k
            Gioca n
        End If
    Next
    ScriviResoconto
End Sub
'----------------------------------------------
'funzione PrimaMesePrec di rosanna
Function PrimaMesePrec(n)
    For x = n To n - 35 Step - 1
        If Cadenza(Distanza(Mese(n),Mese(x))) = 1 And IndiceMensile(x) = 1 Then
            PrimaMesePrec = x
            Exit For
        End If
    Next
End Function
 
fillotto

fillotto

Advanced Member >PLATINUM<
Premetto che manco da una quindicina di giorni, sono riuscito a rimettermi nel nuovo forum ma non riesco a copiare più gli script che è successo??
Forse ancora devo esplorare le novità?
Ho chiuso "Spazio" e riaperto quindi incollato lo script ed è andata....:)
 
Ultima modifica:
B

Baffoblu

Guest
Non postate gli script a colori,
perchè perdono tutta la formattazione,
e quando si inseriscono in spaziometria,
bisogna lavorarci su anche parecchio,
a secondo dello script.
Usate il code # previsto in modalita avanzata.

o al limite all'inizio dello script mettete :

" parentesi quadra, code , parentesi quadra ".

alla fine dello script, invece mettete :

" parentesi quadra, /code, parentesi quadra "


 
Ultima modifica di un moderatore:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 25 maggio 2024
    Bari
    42
    02
    23
    01
    29
    Cagliari
    44
    56
    70
    54
    29
    Firenze
    61
    46
    70
    36
    65
    Genova
    44
    77
    25
    27
    26
    Milano
    14
    90
    44
    34
    57
    Napoli
    72
    08
    43
    18
    44
    Palermo
    46
    40
    57
    13
    20
    Roma
    87
    20
    30
    21
    13
    Torino
    86
    15
    63
    28
    16
    Venezia
    64
    30
    65
    71
    07
    Nazionale
    27
    21
    49
    74
    59
    Estrazione Simbolotto
    Milano
    02
    01
    16
    39
    20
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto