PER MIKE 58-UN PICCOLO AIUTINO-

[net535353]

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

 

[Mike58]

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.

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]

Caro Mike grazie sempre per la tua diponibilita'. Controllo e ti faccio sapere.
Ciao
net53

 

[net535353]

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]

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]

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]

Grazie.

 

[net535353]

TUTTO A POSTO E DI NUOVO GRAZIE
CIAO

 

[net535353]

Scusami Mike, se voglio iniziare da un determinata estrazione del mese cosa devo cambiare e inserire?

 

[net535353]

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]

Si Hai fatto bene per la scelta dell'indice mensile.

Ciao

 

[net535353]

Ciao MIKE, mica ti sei dimenticato DI FARMI IL SECONDO SCRIPT?
GRAZIE.
NET53

 

[Mike58]

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.

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

 

[net535353]

CARO MIKE TI RINGRAZIO PER LA TUA GENTILEZZA E DISPONIBILITA'.
TI SALUTO AFFETTUOSAMENTE.
CIAO
NET53