Novità

PER MIKE 58-UN PICCOLO AIUTINO-

net535353

Member
Ciao , MIKE, come stai ? spero bene.
E' da molto tempo che non ti scrivo perche' mi sono un po allontanato e come si dice "chi si ferma e' perduto" e io mi sono perso.
Ora se mi puoi dare un aiuto nella realizzazione di 2 script che ho trovato in rete. Ti invio 2 piccoli schemini esplicativi che ho corretto rispetto a quelli che avevo gia' allegato nell'aria FORUM perche' presentavano piccoli errori. Spero di essere stato chiaro nell'esposzione.
Ti ringrazio anticipatamente perche' sei sempre disponibile.
Ciao
net53
 

Allegati

  • PRIMO SCRIPT.png
    PRIMO SCRIPT.png
    17,6 KB · Visite: 48
  • SECONDO SCRIPT.png
    SECONDO SCRIPT.png
    16,7 KB · Visite: 48

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Net anch'io mi sono un pò perso, purtroppo è un periodo che sà di poco.
Negli esempi mancano un qualche altro dettaglio e poi non sono le mie specialità.
comunque ti metto il primo script così da valutarne le risultanze se poi trovo altro tempo cercherò di fare il 2 ° script.

per ora vedi il primo.

Codice:
Sub Main
   Dim nu(5),Ru(2),posta(3)
   posta(2) = 1 : posta(3) = .5
   Ini = EstrazioneFin - 80
   fin = EstrazioneFin
   r = InputBox("Quale ruota di Rilevamento",,1)
   p = InputBox("Quale posizione Estratto",,1)
   For es = Ini To fin
   If es = 9783 Then riga = " Questo è il tuo esempio "
  
   k = k + 1
      a = Estratto(es,r,p)
      b = Cadenza(a) + 1
      c = b + 1
      ab = Fuori90(a + b)
      abc = Figura(a) + b + c
      d = Figura(a)
      bc = Figura(b + c)
      bc1 = bc + 1
      ff = Fuori90(d & Figura(bc))
      gg = Fuori90(d & Cadenza(bc1))
      hh = Fuori90(Figura(bc) & Cadenza(bc1))
      nu(1) = ab : nu(2) = abc : nu(3) = ff : nu(4) = gg : nu(5) = hh
      Ru(1) = r
      Ru(2) = RuotaGemella(r)
      Scrivi String(100,"=") & " Caso n. " & k & vbTab & riga : riga = ""
      Scrivi a,1,0
      Scrivi Space(3) & b,0,0
      Scrivi Space(3) & c,0
      Scrivi ab,1
      Scrivi abc,1
      Scrivi d
      Scrivi bc
      Scrivi Cadenza(bc1)
      Scrivi ff,1
      Scrivi gg,1
      Scrivi hh,1
      Scrivi StringaNumeri(nu,,1)
      ImpostaGiocata 1,nu,Ru,posta,13,2
      Gioca es,1
   Next
   ScriviResoconto
End Sub
 

net535353

Member
Caro Mike dal momento in cui i numeri da giocare partendo e calcolati da quella determinata estrazione sono esatti penso che il listato vada bene.
Volevo sapere solo che cosa devo cambiare per visualizzare le sorti di terno e quaterna. Il secondo script credo che abbia approssimativamente la stessa struttura.
Ciao
net53
 

net535353

Member
Se e possibile inserire il comando per continuare a verificare le probabili uscite anche dopo una o piu' sortite nel corso delle 13 estrazioni e non interromperlo. Grazie.
 

Mike58

Advanced Member >PLATINUM PLUS<
Dim nu(5),Ru(2),posta(3)
posta(2) = 1 : posta(3) = .5
come vedi la Dim Posta(3) è settata per 3 dimensioni basta portarla a 5 e valorizzare le relative dimensioni
Posta(5)
posta(4) = .5 : posta(5) = .5

mentre per interrompere le giocate ed elencarle fino ai colpi stabiliti basta togliere un parametro in
ImpostaGiocata 1,nu,Ru,posta,13,2
con
ImpostaGiocata 1,nu,Ru,posta,13

poi se vuoi vedere tutto le giocate
Gioca es,1 togliere ,1 che elenca solo i casi positivi.
vedi tu se riesci

2° script se ho tempo lo faccio.

Ciao
 

net535353

Member
Penso di esserci riuscito PERCHE' MI SONO RICORDATO E Ho fatto questa modifica:

'If es = 9783 Then riga = " Questo è il tuo esempio "'
If IndiceMensile(es ) = 1 Then

e inserito alla fine END IF
DIMMI SE HO FATTO BENE
 

Mike58

Advanced Member >PLATINUM PLUS<
Net dimenticato e senza stimoli.
questi no sono proprio script che mi stuzzicano la voglia.

Comunque eccolo per le modifiche ulteriori valgono le parole già scritte.

Codice:
Sub Main
   Dim nu(5),Ru(2),posta(3)
   posta(2) = 1 : posta(3) = .5
   Ini = EstrazioneFin - 80
   fin = EstrazioneFin
   r = InputBox("Quale ruota di Rilevamento",,1)
   p = InputBox("Quale posizione Estratto",,1)
   For es = Ini To fin
   If es = 9783 Then riga = " Questo è il tuo esempio "
 
   k = k + 1
      a = Estratto(es,r,p)'33
      b = Cadenza(a) + 1'4
      c = Figura(a)' 6
      d = c&b ' 64
      ab = Fuori90(a+b) ' 33+4 = 37
      abc = fuori90(b&Cadenza(a)+Decina(a)) ' 46
      
      
      nu(1) = d : nu(2) = ab : nu(3) = abc
      Ru(1) = r
      Ru(2) = RuotaGemella(r)
      Scrivi String(100,"=") & " Caso n. " & k & vbTab & riga : riga = ""
      
      Scrivi a,1
      Scrivi b,1
      Scrivi c
      Scrivi d
      Scrivi ab
      Scrivi abc
      
      Scrivi StringaNumeri(nu,,1)
      ImpostaGiocata 1,nu,Ru,posta,13,2
      Gioca es,1
   Next
   ScriviResoconto
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto