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 04 maggio 2024
    Bari
    02
    31
    81
    52
    21
    Cagliari
    39
    88
    84
    01
    67
    Firenze
    36
    30
    70
    06
    41
    Genova
    59
    23
    61
    22
    27
    Milano
    05
    17
    69
    57
    39
    Napoli
    81
    62
    82
    43
    50
    Palermo
    73
    55
    62
    45
    18
    Roma
    76
    70
    01
    64
    15
    Torino
    82
    55
    35
    70
    46
    Venezia
    58
    23
    61
    29
    21
    Nazionale
    10
    14
    01
    43
    09
    Estrazione Simbolotto
    Milano
    30
    01
    05
    32
    11
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto