Ambi dopo terno spia

[solare]

Ciao, chiedo agli esperti se possono modificare questo listato anziché andare di volta in volta ad inserire la ruota di ricerca ed il terno se magari si può automatizzarlo in modo che una volta avviato il listato chieda l'inserimento della terzina e la ruota.
grazie


Sub Main()




'ambi + freq dopo terno spia




Dim mt(4005,5),n(2),ru(1)
r=12'ruota della spia




a=85 'spia 1
b=65 'spia 2
c=36 'spia 3




cl=10'colpi
rr=r''ruota di rilevamento o altra ruota, basta sostituire r con un numero diverso
ru(1)=10
ini=4500 'estrazione di partenza
fin=EstrazioneFin-cl 'estrazione finale
cc=0
For es=ini To fin
If Posizione(es,r,a)>0 And Posizione(es,r,b)>0 And Posizione(es,r,c)>0 Then
cc=cc+1
co=0
For i=1 To 89
n(1)=i
For j=i+1 To 90
n(2)=j
co=co+1
mt(co,1)=co
mt(co,2)=n(1)
mt(co,3)=n(2)
mt(co,4)=NomeRuota(rr)
fr=SerieFreq(es+1,es+cl,n,ru,2)
mt(co,5)=mt(co,5)+fr
Next
Next
'togli apice nell' area tratteggiata per visualizzare le estrazioni dei cicli
'----------------------------------------------------
'ColoreTesto 2
'Scrivi es&" "&NomeRuota(r)&" "& StringaEstratti (es,r)
'For z=es+1 To es+cl
'ColoreTesto 1
'Scrivi z&" "&NomeRuota(rr)&" "& StringaEstratti (z,rr)
'next
'----------------------------------------------------
ColoreTesto 0
End If
Next
OrdinaMatrice mt,-1,5
Scrivi "TERNO SPIA "& Format2(a)&"-"& Format2(b)&"-"& Format2 (c)&" sulla ruota di "& NomeRuota(r)
Scrivi "Uscito "&cc&" volte da "& DataEstrazione(ini)&" a "& DataEstrazione (fin)
For xx=1 To 5
Scrivi Format2(mt(xx,2))&" "& Format2(mt(xx,3))&" "&mt(xx,4)&" "&mt(xx,5)
Next
End Sub

 

[Master]

ciao
prova così

 Sub Main()
 'ambi + freq dopo terno spia
 Dim mt(4005,5),n(2),ru(1)
 'r=12'ruota della spia
 'a=85 'spia 1
 'b=65 'spia 2
 'c=36 'spia 3
 r = InputBox("RUOTA RICERCA DELLA SPIA?","RUOTA",12)
 ff = InputBox("Digita i 3 NUMERI separati da un punto ( . )","FISSI","85.65.36")
 ff = "0." & ff
 h = Split(ff,".")
 a = CInt(h(1)) : b = CInt(h(2)) : c = CInt(h(3))
 cl = 10'colpi
 rr = r''ruota di rilevamento o altra ruota, basta sostituire r con un numero diverso
 'ru(1)=10
 ru(1) = InputBox("RUOTA FREQUENTI?","RUOTA",10)
 ini = 4500 'estrazione di partenza
 fin = EstrazioneFin - cl 'estrazione finale
 cc = 0
 For es = ini To fin
  If Posizione(es,r,a) > 0 And Posizione(es,r,b) > 0 And Posizione(es,r,c) > 0 Then
   cc = cc + 1
   co = 0
   For i = 1 To 89
    n(1) = i
    For j = i + 1 To 90
     n(2) = j
     co = co + 1
     mt(co,1) = co
     mt(co,2) = n(1)
     mt(co,3) = n(2)
     mt(co,4) = NomeRuota(ru(1))
     fr = SerieFreq(es + 1,es + cl,n,ru,2)
     mt(co,5) = mt(co,5) + fr
    Next
   Next
   'togli apice nell' area tratteggiata per visualizzare le estrazioni dei cicli
   '----------------------------------------------------
   'ColoreTesto 2
   'Scrivi es&" "&NomeRuota(r)&" "& StringaEstratti (es,r)
   'For z=es+1 To es+cl
   'ColoreTesto 1
   'Scrivi z&" "&NomeRuota(rr)&" "& StringaEstratti (z,rr)
   'next
   '----------------------------------------------------
   ColoreTesto 0
  End If
 Next
 OrdinaMatrice mt,- 1,5
 Scrivi "TERNO SPIA " & Format2(a) & "-" & Format2(b) & "-" & Format2(c) & " sulla ruota di " & NomeRuota(r)
 Scrivi "Uscito " & cc & " volte da " & DataEstrazione(ini) & " a " & DataEstrazione(fin)
 For xx = 1 To 5
  Scrivi Format2(mt(xx,2)) & " " & Format2(mt(xx,3)) & " " & mt(xx,4) & " " & mt(xx,5)
 Next
End Sub

 

[solare]

Grazie Master, gentilissimo.

 

[Alien.]

ciao,chiedo scusa,nei due listati dando gli stessi numeri spia poi danno due ruote diverse una da venezia ed l'altra nazionale si può controllare? grazie. Ciao Solare tu come lo usi.dai dei terni o numeri a caso come spie?

 

[solare]

Ciao alien, io lo uso inserendo l'ultimo terno sortito.

 

[Alien.]

è.....in che senso ultimo terno uscito? un' esempio su bari ! ciao e notte blu

 

[solare]

senso che ho sviluppi la cinquina sortita e poi inserisci uno alla volta i terni oppure prendi tre dei cinque numeri sortiti e via

 

[Alien.]

GRAZIE

ATTENDI 12 SECONDI..........

 

[Alien.]

acc...perchè si è fermato al 09/07/2016 mentre l 'archivio è aggiornato al 02 ago 2016? help

 

[Alien.]

ma mi domando gli ambi che da come frequenti siano o no quelli da mettere in gioco.....?????

 

[solare]

Ciao alien, gli ambi che da sono da mettere in gioco
i passi sono : Ruota di ricerca della spia es. 10 poi inserisci il terno spia e poi inserisci 10 per avere la ruota dove giocare. Se invece vuoi elaborare ba al primo passagio inserisci 1 e poi ancora 1 per confermare la giocata degli ambi a bari.

 

[Alien.]

perfetto,grazie....prova 1 e 10 ba -ve credo che sia ottima

 

[solare]

Ciao Alien, ho visto adesso l'1 e 10 che tu hai indicato a Ba Ve. sortito a colpo a Bari.
Da quale navicella l'hai trovato.....

 

[Alien.]

acc... e cosa è uscito.......sta a vedere...che dato la mia statistica non ho giocato proprio quello............

è qua è un labirinto ti devi portare dietro la corda o filo di Arianna hhahaha


ma tu che terno hai messo? alla prima del mese?

 

[solare]

Non ricordo...!!!

 

[Alien.]

acc....mo vengo li con l'astronave e ti porto a fare un ....viaggetto.....

ma ti devi segnare tutto quello che fai altrimenti non ha senso.......ok!!! ciao

 

[Alien.]

ma...credo ...che gli ambi che da sono già usciti e poi non da altro...gasp