Novità

E'

Alien.

Advanced Premium Member
CIAO


come si scrive con lo script
complemento a 90 1°to+11
decina 4°ge +3°ro+33




GRAZIE.
 

Mike58

Advanced Member >PLATINUM PLUS<
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
 

Mike58

Advanced Member >PLATINUM PLUS<
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
 

Mike58

Advanced Member >PLATINUM PLUS<
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
 

Alien.

Advanced Premium Member
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
 

joe

Advanced Member >PLATINUM PLUS<
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


:)
 

joe

Advanced Member >PLATINUM PLUS<
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
 

Alien.

Advanced Premium Member
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 ......
 

bubù

Advanced Member >PLATINUM<
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
 

Alien.

Advanced Premium Member
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 ?
 

bubù

Advanced Member >PLATINUM<
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 ?
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 🤞
 

Alien.

Advanced Premium Member
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".
 

Alien.

Advanced Premium Member
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.
 

fillotto

Advanced Member >PLATINUM<
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
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


😃
 

Alien.

Advanced Premium Member
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


😃
ottimo script per studio personale come sviluppare semplici listati,grazie
 

Alien.

Advanced Premium Member
proverei

per ambo e terno su CA-




857043
854330
704322
704330
432230

UNICO PROBLEMA è AD OGNI ESTRAZIONE MA SE ESCE IL TERNO................
 

fillotto

Advanced Member >PLATINUM<
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
 

fillotto

Advanced Member >PLATINUM<
Ciao,fillotto puoi provare su tutte e naz per 10 colpi,cosa succede,grazie.
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ì;)
;);)
 

joe

Advanced Member >PLATINUM PLUS<
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:

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 06 dicembre 2022
    Bari
    36
    74
    22
    54
    80
    Cagliari
    65
    36
    47
    27
    06
    Firenze
    57
    76
    30
    79
    77
    Genova
    66
    90
    63
    24
    70
    Milano
    65
    80
    33
    69
    36
    Napoli
    72
    28
    16
    66
    29
    Palermo
    41
    72
    50
    18
    10
    Roma
    79
    28
    44
    37
    34
    Torino
    32
    54
    07
    87
    88
    Venezia
    22
    11
    72
    49
    30
    Nazionale
    39
    74
    61
    81
    45
    Estrazione Simbolotto
    Venezia
    32
    38
    15
    13
    18

Ultimi Messaggi

Alto