Novità

E'

Provaci Alien

Codice: 
Sub Main
   fin = EstrazioneFin
   '-------------------------------
   'complemento a 90 1°to+11
   e1 = fuori90(Estratto(fin,TO_,1) + 1)
   n1 = ComplAdX(e1,90)
   '-------------------------------
   'decina 4°ge +3°ro+33
   e2 = Fuori90((Decina(Estratto(fin,GE_,4)) + 33))
   n2 = ComplAdX(e2,90)
   '-------------------------------------
   Scrivi "(1°_To + 11) =  " & Fuori90(Estratto(fin,TO_,1)+1),1
   Scrivi "Numero... e1... " & e1 & " Numero completamento a 90 = " & n1
   Scrivi "decina(4°_ge + 33) =  " & Fuori90( (Decina(Estratto(fin,GE_,4)) + 33)),1
   Scrivi "Numero... e2... " & e2 & " Numero completamento a 90 = " & n2
End Sub

(1°_To + 11) = 11
Numero... e1... 11 Numero completamento a 90 = 79
decina(4°_ge + 33) = 38
Numero... e2... 38 Numero completamento a 90 = 52
 
Codice: 
Sub Main
   fin = EstrazioneFin
   '-------------------------------
   'complemento a 90 1°to+11
   e1 = Fuori90(Estratto(fin,TO_,1) + 11)
   n1 = ComplAdX(e1,90)
   '-------------------------------
   'decina 4°ge +3°ro+33
   e2 = Fuori90((Decina(Estratto(fin,GE_,4)) + 33))
   n2 = ComplAdX(e2,90)
   '-------------------------------------
   Scrivi "(1°_To + 11) =  " & Fuori90(Estratto(fin,TO_,1)+11),1
   Scrivi "Numero... e1... " & e1 & " Numero completamento a 90 = " & n1
   Scrivi "decina(4°_ge + 33) =  " & Fuori90( (Decina(Estratto(fin,GE_,4)) + 33)),1
   Scrivi "Numero... e2... " & e2 & " Numero completamento a 90 = " & n2
End Sub

1°_To + 11) = 21
Numero... e1... 21 Numero completamento a 90 = 69
decina(4°_ge + 33) = 38
Numero... e2... 38 Numero completamento a 90 = 52
 
Ad onor del vero ho sbagliato il 2 ° algoritmo
per chi interessato eccolo corretto. ( visto che Alien è fuori galassia)

Codice: 
Sub Main
   fin = EstrazioneFin
   '-------------------------------
   'complemento a 90 1°to+11
   e1 = Fuori90(Estratto(fin,TO_,1) + 11)
   n1 = ComplAdX(e1,90)
   '-------------------------------
   'decina 4°ge +3°ro+33
   e2 = Fuori90( (Decina(Estratto(fin,GE_,4)) + (Estratto(fin,RO_,3)) + 33))
   n2 = ComplAdX(e2,90)
   '-------------------------------------
   Scrivi "(1°_To + 11) =  " & e1
   Scrivi "Numero... e1... " & e1 & " Numero completamento a 90 = " & n1
   Scrivi "decina(4°_ge + 3°_ro + 33) =  " & e2,1
   Scrivi "Numero... e2... " & e2 & " Numero completamento a 90 = " & n2
End Sub
 
Ciao Mike si sono un po"fuori" a fare l'auto didatta ho uno script da modificare uno già fatto perchè molto semplice ma questo aveva

complemento a 90 1°to+11
e
decina 4°ge +3°ro+33

ma vedo che i maestri di script lo fanno in modo diverso

ho questo

ReDim VetNumeri(06)
VetNumeri(01) = Fuori90(Estratto(Es,NA_,03) + 81)
VetNumeri(02) = Fuori90(Estratto(Es,TO_,02) + 29)
VetNumeri(03) = Fuori90(Estratto(Es,FI_,03) + 17)
VetNumeri(04) = Fuori90(Estratto(Es,CA_,03) + Estratto(Es,VE_,01) + 13)
VetNumeri(05) = Fuori90(Cadenza(Estratto(Es,RO_,05)) + Estratto(Es,VE_,02) + 04)
VetNumeri(06) = Fuori90(Figura(Estratto(Es,FI_,05)) + 20)


che dovrei cambiare con
1​
3°RO+33
2​
3°BA+3°CA+2
3​
COMPLEMENTO A 90 1°TO+11
4​
DECINA 4°GE+3°RO+33
5​
2°GE+73
6​
1°BA+56

1​
VetNumeri(01) = Fuori90(Estratto(Es,RO_,03) + 33)
2​
VetNumeri(02) = Fuori90(Estratto(Es,BA_,03) + Estratto(Es,CA_,03) +2)
3​
VetNumeri(03) =Fuori90(Estratto(fin,TO_,1) + 11)
4​
e2 = Fuori90( (Decina(Estratto(fin,GE_,4)) + (Estratto(fin,RO_,3)) + 33))
5​
VetNumeri(05) = Fuori90(Estratto(Es,GE_,02) + 73)
6​
VetNumeri(06) = Fuori90(Estratto(Es,BA_,01) +56)








poi ho fatto questa "macedonia" e mi da

errore

in



End Sub

Grazie per la pazienza
 
Ciao Alien,

Prima cosa è capire come si vuole inserire valori e quali variabili utilizzare per essi.

Come sono calcolati i risultati e con quali estratti sono elaborati.

Ovvero dove e come sono presi gli estratti con cui eseguire i calcoli.

Quali sono le variabili e come le si vuole gestire.

Si vede chiaramente che utilizzi VetNumeri ... per contenere alcuni valori ed E2 per uno di essi.

Per indirizzale la lettura in alcune istruzioni usi Es in altre Fin.

Non è un errore quello che hai scritto.

Per il computer sono istruzioni che tu hai impartito in altrettante linee di comando.

Sono errori se volevi utilizzare un solo contenitore (VetNumeri) per contenitore per TUTTI i calcoli ...

oppure se è sempre la stessa estrazione dalla quale recuperare gli estratti con cui eseguire i calcoli,

sarebbe meglio avere solo un contenitore Es (oppure) Fin.

Consiglio: meno calcoli fai ... meglio è.

Dunque senza sapere cosa volevi fare ... non ci sono errori.

Tranne gli altri eventuali errori di logica e di sintassi.


Immagine.png


:)
 
Alien ... penso tu sappia cosa è un sommativo.

Dunque sconsiglio vivamente di pensare che cosa si è voluto trovare nel passato

possa essere preludio rappresentativo di un qualcosa che sarà in futuro.

Ho completato in metodo, con le poche istruzioni mancanti e con quel poco che ci si capisce dal contorno.

Codice: 
Sub Main
'Redatto il 6/7/2022
   Dim Ini,Fin,Es
   Dim VetNumeri(6),vetRuote(1),vetPoste(4),nColpi
   vetRuote (1) =  TT_ : vetPoste(2) = 0.7 : vetPoste(3) = 0.2 : vetPoste(4) = 0.1 : nColpi = 3
   For Es = EstrazioneFin - 155 To EstrazioneFin
      VetNumeri(1) = Fuori90(Estratto(Es,RO_,3) + 33)
      VetNumeri(2) = Fuori90(Estratto(Es,BA_,3) + Estratto(Es,CA_,3) + 2)
      VetNumeri(3) = Fuori90 (90-Fuori90(Estratto(Es,TO_,1) + 11))
      VetNumeri(4) = Fuori90((Decina(Estratto(Es,GE_,4)) +(Estratto(Fin,RO_,3)) + 33))
      VetNumeri(5) = Fuori90(Estratto(Es,GE_,2) + 73)
      VetNumeri(6) = Fuori90(Estratto(Es,BA_,1) + 56)
      ImpostaGiocata 1,VetNumeri,vetRuote,vetPoste,nColpi,2 
      Gioca Es,True 
   Next
   ScriviResoconto
End Sub
 
Ciao joe , grazie per la cortesia il caos è che non ho inserito qua il codice dello script che gli do io ed non ritrovo più un cavolo sono un pò "astrale":ROFLMAO: ho oltre 200 script con un codice ......
 
Alien a volte basta chiedere e se si può si fa volentieri

'09/09/2021

Sub Main()
Scrivi
ColoreTesto 1
Scrivi
Scrivi"=== 8^ del mese Napoli a colpo by BubùLotto Production",1

Dim rt(3) 'la ruota è NAPOLI
Dim nr(11),amb1(10),amb2(10),amb3(10) ' i nr in gioco sono 6 in Lunghetta
co = co + 1
Dim pta1(5),pta2(5),pta3(5)',pta4(5),pta5(5)
pta1(1) = 1 ' la puntata per l'ambata è di 1 euro
pta2(2) = 1 ' la puntata per l'ambo è di 1 euro
pta3(2) = 1
pta3(3) = 1

rt(1) = 6

co = co + 1


k = 1 ' i colpi in gioco sono 1
Scrivi
ColoreTesto 1
Scrivi
For n = 9975 To EstrazioneFin '09/09/2021


If IndiceMensile(n) = 8 Then 'i conti li faccio alla quarta estrazione del mese
co = co + 1
cont = cont + 1

nr(1) = Fuori90(Estratto(n,8,3) + 33)
nr(2) = Fuori90(Estratto(n,4,2) + 73)
nr(3) = Fuori90(Estratto(n,1,1) + 56)
nr(4) = Fuori90(Estratto(n,1,3) + Estratto(n,2,3) + 2)
nr(5) = Fuori90(90 -(Estratto(n,9,1)) + 11)
nr(6) = Fuori90(Decina(Estratto(n,4,4)) + Estratto(n,8,3) + 33)

'**********************************************************


Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(nr) Then
rip = 1
While NumeriRipetuti(nr)
For x = 1 To 5 ' numeri totali 5-1= 6
For y = x + 1 To 6 '6 perchè i numeri in totale sono 6
If nr(x) = nr(y) Then nr(y) = Fuori90(nr(y) + 1)
Next
Next
Wend
End If
Rem fine formula


'*****************************************************




Scrivi
ColoreTesto 0

amb3(1) = nr(1)
amb3(2) = nr(2)
amb3(3) = nr(3)
amb3(4) = nr(4)
amb3(5) = nr(5)
amb3(6) = nr(6)
ImpostaGiocata 6,amb3,rt,pta3,k


co = co + 1
Gioca n',1
End If
Next
Scrivi
ColoreTesto 0
ScriviResoconto


End Sub
 
E' bubù hai riconosciuto il tuo script ,grazie ritrovato i tuoi script cinquina 1 colpo ma come al solito al "futuro " ci pensa il "banco" a fermare i numeri perchè non è possibile non esca neppure un ambo su tre metodi.....credo che ritornerò fra le stelle.😂

Ma cosa succede se si porta a 12 colpi ?
 
Alien. ha scritto:
E' bubù hai riconosciuto il tuo script ,grazie ritrovato i tuoi script cinquina 1 colpo ma come al solito al "futuro " ci pensa il "banco" a fermare i numeri perchè non è possibile non esca neppure un ambo su tre metodi.....credo che ritornerò fra le stelle.😂

Ma cosa succede se si porta a 12 colpi ?
Clicca per espandere...
La risposta penso che la sai già, sono metodi sommativo funzionano per un pò, poi di colpo smettono, inoltre è una sestina anche se su ruota unica vale la pena provarci per un colpo, se va bene altrimenti si cambia, 12 colpi diventa oneroso per le mie finanze di pensionato. Ciao e in bocca al lupo 🤞
 
Si bubù esatto so come funzionano avrò oltre 200 script ogni tanto li riprendo ma nulla di nulla solo 3 volte ho preso un ambo secco poi vento di mare :unsure::ROFLMAO: ,grazie per la tua "cortesia".
 
Giusto l'€ ci ha fatto il regalo di dimezzare stipendi è pensioni. Ma se fai un metodo per 10/12 colpi per chi ha la fortuna di azzardare, una quaderna o cinquina non si mette nel casseto:unsure::D:D🤣 con tanto K.
 
joe ha scritto:
Alien ... penso tu sappia cosa è un sommativo.

Dunque sconsiglio vivamente di pensare che cosa si è voluto trovare nel passato

possa essere preludio rappresentativo di un qualcosa che sarà in futuro.

Ho completato in metodo, con le poche istruzioni mancanti e con quel poco che ci si capisce dal contorno.

Codice: 
Sub Main

'Redatto il 6/7/2022

   Dim Ini,Fin,Es

   Dim VetNumeri(6),vetRuote(1),vetPoste(4),nColpi

   vetRuote (1) =  TT_ : vetPoste(2) = 0.7 : vetPoste(3) = 0.2 : vetPoste(4) = 0.1 : nColpi = 3

   For Es = EstrazioneFin - 155 To EstrazioneFin

      VetNumeri(1) = Fuori90(Estratto(Es,RO_,3) + 33)

      VetNumeri(2) = Fuori90(Estratto(Es,BA_,3) + Estratto(Es,CA_,3) + 2)

      VetNumeri(3) = Fuori90 (90-Fuori90(Estratto(Es,TO_,1) + 11))

      VetNumeri(4) = Fuori90((Decina(Estratto(Es,GE_,4)) +(Estratto(Fin,RO_,3)) + 33))

      VetNumeri(5) = Fuori90(Estratto(Es,GE_,2) + 73)

      VetNumeri(6) = Fuori90(Estratto(Es,BA_,1) + 56)

      ImpostaGiocata 1,VetNumeri,vetRuote,vetPoste,nColpi,2

      Gioca Es,True

   Next

   ScriviResoconto

End Sub
Clicca per espandere...
copiando lo schema di Joe modificandolo e "pettinandolo" esce questo sommativo che va in positivo (col senno di poi ...... 😃 :D)
Sub Main
'Redatto il 6/7/2022 bellissimo sommativo di joe "
Dim Ini,Fin,Es
Dim VetNumeri(6),vetRuote(1),vetPoste(4),nColpi
vetRuote(1) = CA_ : vetPoste(2) = 0.7 : vetPoste(3) = 0.3 : nColpi = 3
For Es = EstrazioneFin - 55 To EstrazioneFin
' VetNumeri(1) = Fuori90(Estratto(Es,RO_,3) + 33)
VetNumeri(2) = Fuori90(Estratto(Es,NZ_,1) + 56)
VetNumeri(3) = Fuori90(Estratto(Es,TO_,2) + 17)
VetNumeri(4) = Fuori90(Estratto(Es,NA_,3) + 56)
VetNumeri(5) = Fuori90(Estratto(Es,FI_,4) + 17)
VetNumeri(6) = Fuori90(Estratto(Es,NA_,5) + 39)
ImpostaGiocata 1,VetNumeri,vetRuote,vetPoste,nColpi,2
Gioca Es,,,1'True
Next
ScriviResoconto
End Sub


😃
 
fillotto ha scritto:
copiando lo schema di Joe modificandolo e "pettinandolo" esce questo sommativo che va in positivo (col senno di poi ...... 😃 :D)
Sub Main
'Redatto il 6/7/2022 bellissimo sommativo di joe "
Dim Ini,Fin,Es
Dim VetNumeri(6),vetRuote(1),vetPoste(4),nColpi
vetRuote(1) = CA_ : vetPoste(2) = 0.7 : vetPoste(3) = 0.3 : nColpi = 3
For Es = EstrazioneFin - 55 To EstrazioneFin
' VetNumeri(1) = Fuori90(Estratto(Es,RO_,3) + 33)
VetNumeri(2) = Fuori90(Estratto(Es,NZ_,1) + 56)
VetNumeri(3) = Fuori90(Estratto(Es,TO_,2) + 17)
VetNumeri(4) = Fuori90(Estratto(Es,NA_,3) + 56)
VetNumeri(5) = Fuori90(Estratto(Es,FI_,4) + 17)
VetNumeri(6) = Fuori90(Estratto(Es,NA_,5) + 39)
ImpostaGiocata 1,VetNumeri,vetRuote,vetPoste,nColpi,2
Gioca Es,,,1'True
Next
ScriviResoconto
End Sub


😃
Clicca per espandere...
ottimo script per studio personale come sviluppare semplici listati,grazie
 
proverei

per ambo e terno su CA-



857043
854330
704322
704330
432230

UNICO PROBLEMA è AD OGNI ESTRAZIONE MA SE ESCE IL TERNO................
 
facendo seguito a quanto scritto al # 14 una modifica al modello proposto: ruota di gioco
Nazionale per un solo colpo! ecco come si è comportato nelle 55 estrazioni precedenti :
Codice: 
Sub Main
'Redatto il 6/7/2022 bellissimo sommativo di joe
   Dim Ini,Fin,Es
   Dim VetNumeri(5),vetRuote(1),vetPoste(4),nColpi
   vetRuote(1) = NZ_ : vetPoste(2) = 0.7 : vetPoste(3) = 0.3 : nColpi = 1
   For Es = EstrazioneFin - 55 To EstrazioneFin
         VetNumeri(1) =  Fuori90(Estratto(Es,VE_,3) + 65)
      VetNumeri(2) = Fuori90(Estratto(Es,MI_,1) + 17)
      VetNumeri(3) = Fuori90(Estratto(Es,MI_,5) + 16)
      VetNumeri(4) = Fuori90(Estratto(Es,NA_,5) + 58)
      VetNumeri(5) = Fuori90(Estratto(Es,NZ_,5) + 44)
      EliminaRipetuti VetNumeri
      ImpostaGiocata 1,VetNumeri,vetRuote,vetPoste,nColpi,3
      Gioca Es,,,1'True
   Next
   ScriviResoconto
End Sub
Numeri in gioco : 38.56.57.78 per oggi un solo colpo poi si cambiano!!!!!
Ho scelto la ruota NZ per avere anche una chance per il simbolotto
 
Alien. ha scritto:
Ciao,fillotto puoi provare su tutte e naz per 10 colpi,cosa succede,grazie.
Clicca per espandere...
Ma è ovvio che non va!! Questo è ottimizzato( manco tanto) per la NZ. In sostanza con Excel
ho rintracciato i sommatori che si sono più presentati nell'estrazione successiva sulla NZ
es: VetNumeri(1) = Fuori90(Estratto(Es,VE_,3) + 65) ho notato , nel caso specifico,che il 3° di ve a cui aggiungo 65 mi da lo stesso numero nell'estraz. successiva presente nella ruota nz (10 volte) cosi per gli altri sommatori .Il bel lavoro lo ha fatto Joe , io l'ho sfruttato così;)
;);)
 
Volendo considerare che ... i numeri siano numeri ... si da per pacifico che:

1 + 1 = 2

2 + 1 = 3

3 +1 = 4

ecc ...

Ora sapendo ... qual'è il risultato (il finale/ lo scopo) da raggiungere ...

Procedendo all'inverso.

4 -1 = 3

3 - 1 = 2

2 - 1 = 1

ecc ... ecc ... SI calcola facilmente l' ADDENDO DA SOMMARE. (per semplicità "+1" ma è identico ragionamento per ogni valore)

Cioè un "ADDENDO" adatto ad avere il risultato "4" al 3° colpo e che parte a contare da "1" aggiunge "+1" ... "PER 3" concorsi.

Se desiderasse di volere il risultato "4" al 1° Colpo ... sarebbe "+3" e fine della fiera!

Ma che ci sia capacità divinatoria in questo ... è da ESCLUDERE MATEMATICAMENTE.

Perché è dimostrato che questi metodi appena finito il periodo di ESTRAZIONI NOTE di cui si conoscono gli TUTTI gli ESTRATTI,

E SONO MATEMATICAMENTE NOTE E CERTE, TUTTE LE DISTANZE E/O I RISULTATI DI TUTTE LE SOMME.

CIOE' QUANDO non è più possibile disporre di TUTTI "I RISULTATI" GIA' NOTI ...

cioè la TRAMA portante degli estratti in archivio e l' ORDITO di calcoli con cui ottenere il RICAMO del risultato.

ESSO FALLISCE SEMPRE e MOLTO SPESSO a cominciare già dal primo colpo, per finire anche peggio, andando oltre.

Anche se ... ad onor del vero ... "questo peggio" non dipende dal "sommativo" vero e proprio.

Dice il proverbio: Ogni giorno nasce un cucco, beato chi lo cucca.

Infatti del "metodo" s'è dimenticato di scrivere quanto veniva richiesto (e/o pagato) per ogni pronostico.

Considerando che non è bello inserire il link da cui è stato preso ... non lo faccio. Ma anche questo è reale e vero.

Un Buon Week End a tutte/i.

:)
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 10 gennaio 2025
    Bari
    40
    61
    11
    86
    37
    Cagliari
    31
    02
    51
    68
    87
    Firenze
    73
    55
    34
    52
    18
    Genova
    11
    40
    27
    82
    20
    Milano
    80
    71
    65
    19
    10
    Napoli
    50
    30
    03
    01
    36
    Palermo
    66
    42
    43
    76
    89
    Roma
    05
    22
    62
    35
    39
    Torino
    17
    58
    62
    86
    69
    Venezia
    43
    89
    14
    04
    40
    Nazionale
    64
    76
    35
    40
    19
    Estrazione Simbolotto
    Bari
    08
    07
    37
    33
    38
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto