Novità

x luigib

arcor

arcor

Advanced Member
ciao Luigi scusami se ti disturbo ma altri scripter di altri forum dopo 2 settimane non riescono a sistemare questo script che ti posto sotto(lo ha fatto mike58)in pratica occorre inserire la ricerca mensile quindi a scelta
gennaio- febbraio etc al momento ricerca solo su gennaio inserendo 2 o 3 quindi febbraio marzo non funziona altra opzione è quella di far partire la ricerca da una data prestabilita a scelta esempio dal 25-08-2012 al
22-10-2012 tutto quì
spero tu possa riuscire tempo permettendo a risolvere l'arcano:(:confused:
---------------------------------------------------------------------------------------------
Sub Main
Dim cmb(5)' aumentare il contatore pari al numero di combinazioni da cercare
Dim Ru(1)
Dim k,idestr
Dim nu
qm = CInt(InputBox("Quale mese vuoi considerare ",,1))
ReDim aruote(12)
Scrivi " Ruota di... ",1,0,4
If ScegliRuote(aruote) > 0 Then
For k = 1 To UBound(aruote)
If aruote(k) > 0 Then
Scrivi " " & NomeRuota(aruote(k)),1,0,3
End If
Next
End If
Fin = EstrazioneFin
Ini = EstrazioneIni
idestr = idestr+1
Scrivi NomeRuota(Ru(1)),1,0
Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin)
Scrivi
ReDim atitoli(17)
atitoli(1) = " N. CMB "
atitoli(2) = " Combinazione "
atitoli(3) = " Freq x 2 "
atitoli(4) = " Freq x 3 "
atitoli(5) = " Freq x 4 "
atitoli(6) = " Freq x 5 "
atitoli(7) = " Rit x 2 "
atitoli(8) = " Rit x 3 "
atitoli(9) = " Rit x 4 "
atitoli(10) = " Ritx 5"
atitoli(11) = " St.x 2 "
atitoli(12) = " st.x 3 "
atitoli(13) = " st.x 4 "
atitoli(14) = " st.x 5 "
atitoli(15) = " Esito "
atitoli(16) = " Stringa estratti "
atitoli(17) = " Nome Mese "
Call InitTabella(atitoli,1,,3,5)
'-------------inserimento combinazioni --------------------------
cmb(1) = "21-17-45-89"
cmb(2) = "15-50"
cmb(3) = "32-33"
cmb(4) = "45-90"
cmb(5) = "55-71"
'----------------- fine combinazioni ------------------------------
If Mese(idestr) = qm Then
For N = 1 To UBound(cmb)
nu = Split("-" & Format2(cmb(N)),"-")
sf1 = SerieFreqTurbo(Ini,Fin,nu,aruote,2)
sf2 = SerieFreqTurbo(Ini,Fin,nu,aruote,3)
sf3 = SerieFreqTurbo(Ini,Fin,nu,aruote,4)
sf4 = SerieFreqTurbo(Ini,Fin,nu,aruote,5)
'Tot = Tot + SF
sr1 = SerieRitardoTurbo(Ini,fin,nu,aruote,2)
sr2 = SerieRitardoTurbo(Ini,fin,nu,aruote,3)
sr3 = SerieRitardoTurbo(Ini,fin,nu,aruote,4)
sr4 = SerieRitardoTurbo(Ini,fin,nu,aruote,5)
st1 = SerieStoricoTurbo(Ini,fin,nu,aruote,2)
st2 = SerieStoricoTurbo(Ini,fin,nu,aruote,3)
st3 = SerieStoricoTurbo(Ini,fin,nu,aruote,4)
st4 = SerieStoricoTurbo(Ini,fin,nu,aruote,5)
Call VerificaEsitoTurbo(nu,aruote,fin,2,1,,retesito,,retestratti)
ReDim avalori(17)
avalori(1) = n
avalori(2) = StringaNumeri(nu)
avalori(3) = sf1
avalori(4) = sf2
avalori(5) = sf3
avalori(6) = sf4
avalori(7) = sr1
avalori(8) = sr2
avalori(9) = sr3
avalori(10) = sr4
avalori(11) = st1
avalori(12) = st2
avalori(13) = st3
avalori(14) = st4
avalori(15) = retesito
avalori(16) = retestratti
avalori(17) = MeseNome(idestr)
Call AddRigaTabella(avalori,,,3)
Call SetColoreCella(3,vbGreen)
Call SetColoreCella(4,vbGreen)
Call SetColoreCella(5,vbGreen)
Call SetColoreCella(6,vbGreen)
Call SetColoreCella(7,vbRed)
Call SetColoreCella(8,vbRed)
Call SetColoreCella(9,vbRed)
Call SetColoreCella(10,vbRed)
Call SetColoreCella(11,vbMagenta)
Call SetColoreCella(12,vbMagenta)
Call SetColoreCella(13,vbMagenta)
Call SetColoreCella(14,vbMagenta)


Next
End If
Scrivi
Scrivi "Tabella Riepilogativa delle combinazioni su : " & Fin - Ini & " Estrazioni.",1
Call CreaTabella()
Call PicStampaTesto(1,10,"Listed by Mike58 ",,1,1,,11,vbRed)
PicEsegui
End Sub
 
ciao , a dire il vero non ho capito .... sei sicuro che cerchi solo su gennaio ?
In altre parole cosa intendi per cercare solo su gennaio ? Ad esempi che se analizzo tutto l'archivio devo considerare solo ed esclusivamente le estrazioni di Gennaio ? Se è cosi mi sa che lo script non fa quello che vorresti ...
 
ciao , verifica se questo script funziona , per far partire la ricerca da una data specifca dovrai semplicemente selezionare la data che vuoi nel range principale del programma (la barra rosa sotto)

Codice: 
Sub Main
	Dim cmb(5)' aumentare il contatore pari al numero di combinazioni da cercare
	Dim Ru(1)
	Dim k,idestr
	Dim nu
	Dim sf1
	qm = CInt(InputBox("Quale mese vuoi considerare, da 1 a 12 qualsiasi altro valore adopera tutti i mesi ",,1))
	ReDim aruote(12)
	Scrivi " Ruota di... ",1,0,4
	If ScegliRuote(aruote) > 0 Then
		For k = 1 To UBound(aruote)
			If aruote(k) > 0 Then
				Scrivi " " & NomeRuota(aruote(k)),1,0,3
			End If
		Next
	End If
	Fin = EstrazioneFin
	Ini = EstrazioneIni
	idestr = idestr + 1
	Scrivi NomeRuota(Ru(1)),1,0
	Scrivi " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin)
	Scrivi
	ReDim atitoli(17)
	atitoli(1) = " N. CMB "
	atitoli(2) = " Combinazione "
	atitoli(3) = " Freq x 2 "
	atitoli(4) = " Freq x 3 "
	atitoli(5) = " Freq x 4 "
	atitoli(6) = " Freq x 5 "
	atitoli(7) = " Rit x 2 "
	atitoli(8) = " Rit x 3 "
	atitoli(9) = " Rit x 4 "
	atitoli(10) = " Ritx 5"
	atitoli(11) = " St.x 2 "
	atitoli(12) = " st.x 3 "
	atitoli(13) = " st.x 4 "
	atitoli(14) = " st.x 5 "
	atitoli(15) = " Esito "
	atitoli(16) = " Stringa estratti "
	atitoli(17) = " Nome Mese "
	Call InitTabella(atitoli,1,,3,5)
	'-------------inserimento combinazioni --------------------------
	cmb(1) = "21-17-45-89"
	cmb(2) = "15-50"
	cmb(3) = "32-33"
	cmb(4) = "45-90"
	cmb(5) = "55-71"
	'----------------- fine combinazioni ------------------------------
	If qm >= 1 And qm <= 12 Then
		Call ImpostaEstrValide(qm,Ini,fin)
	End If
	For N = 1 To UBound(cmb)
		nu = Split("-" & Format2(cmb(N)),"-")
		sf1 = SerieFreqTurbo(Ini,Fin,nu,aruote,2)
		sf2 = SerieFreqTurbo(Ini,Fin,nu,aruote,3)
		sf3 = SerieFreqTurbo(Ini,Fin,nu,aruote,4)
		sf4 = SerieFreqTurbo(Ini,Fin,nu,aruote,5)
		'Tot = Tot + SF
		sr1 = SerieRitardoTurbo(Ini,fin,nu,aruote,2)
		sr2 = SerieRitardoTurbo(Ini,fin,nu,aruote,3)
		sr3 = SerieRitardoTurbo(Ini,fin,nu,aruote,4)
		sr4 = SerieRitardoTurbo(Ini,fin,nu,aruote,5)
		st1 = SerieStoricoTurbo(Ini,fin,nu,aruote,2)
		st2 = SerieStoricoTurbo(Ini,fin,nu,aruote,3)
		st3 = SerieStoricoTurbo(Ini,fin,nu,aruote,4)
		st4 = SerieStoricoTurbo(Ini,fin,nu,aruote,5)
		Call VerificaEsitoTurbo(nu,aruote,fin,2,1,,retesito,,retestratti)
		ReDim avalori(17)
		avalori(1) = n
		avalori(2) = StringaNumeri(nu)
		avalori(3) = sf1
		avalori(4) = sf2
		avalori(5) = sf3
		avalori(6) = sf4
		avalori(7) = sr1
		avalori(8) = sr2
		avalori(9) = sr3
		avalori(10) = sr4
		avalori(11) = st1
		avalori(12) = st2
		avalori(13) = st3
		avalori(14) = st4
		avalori(15) = retesito
		avalori(16) = retestratti
		avalori(17) = MeseNome(idestr)
		Call AddRigaTabella(avalori,,,3)
		Call SetColoreCella(3,vbGreen)
		Call SetColoreCella(4,vbGreen)
		Call SetColoreCella(5,vbGreen)
		Call SetColoreCella(6,vbGreen)
		Call SetColoreCella(7,vbRed)
		Call SetColoreCella(8,vbRed)
		Call SetColoreCella(9,vbRed)
		Call SetColoreCella(10,vbRed)
		Call SetColoreCella(11,vbMagenta)
		Call SetColoreCella(12,vbMagenta)
		Call SetColoreCella(13,vbMagenta)
		Call SetColoreCella(14,vbMagenta)
	Next
	Scrivi
	Scrivi "Tabella Riepilogativa delle combinazioni su : " & Fin - Ini & " Estrazioni.",1
	Call CreaTabella()
	Call PicStampaTesto(1,10,"Listed by Mike58 ",,1,1,,11,vbRed)
	PicEsegui
End Sub
Sub ImpostaEstrValide(nMese,Inizio,fine)
	Dim k
	For k = Inizio To fine
		If Mese(k) = nMese Then
			Call ImpostaEstrazione(k,True)
		Else
			Call ImpostaEstrazione(k,False)
		End If
	Next
End Sub
 
Ciao Luigi, mi aggiugo anch'io alla richiesta lo script dovrebbe analizzare i dati in specialmodo sulle frequenze totali nel mese richiesto e sul range impostato, ma ultimamente mi sto un pò incartando e non mi riesce arrivare al risultato.
Ho anche cercato attraverso un'altro script impostato per mese e che ricerca viceversa le ambate e qui il risultato sembra essere veritiero ma nel fondere i 2 script purtroppo l'incartamente e continuato e pertanto non sono riuscito ad accontentare il buon Arcor.
E' chiaro che manca qualcosa come l'identificativo delle estrazione(idestr) per richiamare il Mese(idestr) e la seriefreq dovrebbe agire su idestr e non su ini-fin, ma come dico sopre mi sono incartato.
Dacci una mano.

Ti allego il 2 script creato da me dal quale ho cercato di prendere spunto.

Codice: 
Sub Main()
 Dim ru(1),nua(4005,10),nn(2)
 ee = InputBox("DA QUALE DATA INIZIARE"," DATA ","31/12/2008")
 'ee = CInt(InputBox("Quali estrazioni vuoi esaminare ?Ultime ",,300))
 'If ee = "" Then Exit Sub
 ms = CInt(InputBox("In quale mese? ",,1))
 If ms = "" Then Exit Sub
 r = CInt(InputBox("Di quale ruota? ",,1))
 If r = "" Then Exit Sub
 ru(1) = r
 q = CInt(InputBox("Quanti ambi ed estratti vuoi visualizzare ? ",,20))
 If q = "" Then Exit Sub
 'cg = CInt(InputBox("con quale capogioco ? ",,30))
 'If cg = "" Then Exit Sub
 fin = EstrazioneFin
 ini = EstrazioneFin - 600
 '------------init tabella ------------------
 ReDim atitoli(10)
 atitoli(1) = " "
 atitoli(2) = " Numero "
 atitoli(3) = " Frequenza "
 atitoli(4) = " Ritardo Attuale "
 atitoli(5) = " Anno_2012 "
 atitoli(6) = " Anno_2011 "
 atitoli(7) = " Anno 2010 "
 atitoli(8) = " Anno 2009 "
 atitoli(9) = " Anno 2013 "
 atitoli(10) = "   "
 Call InitTabella(atitoli,1,,3,5)
 For es = PrimaSuccessiva(ee) To fin
  If Mese(es) = ms Then
   co = 0
   'For x = 1 To 89
   'x = cg
   'For y = x + 1 To 90
   For x = 1 To 90
    'If x <> y Then
    co = co + 1
    nua(co,1) = co
    nua(co,2) = x
    'nua(co,3) = y
    nn(1) = x
    'nn(2) = y
    k = SerieFreqTurbo(es,es,nn,ru,1)
    rt = SerieRitardoTurbo(Ini,fin,nn,ru,1)
    nua(co,4) = nua(co,4) + k
    nua(co,5) = rt
    'End If
    If Anno(es) = 2012 Then k1 = SerieFreq(es,es,nn,ru,1)
    nua(co,6) = nua(co,6) + k1
    If Anno(es) > 2011 Then k2 = SerieFreq(es,es,nn,ru,1)
    nua(co,7) = nua(co,7) + k2
    If Anno(es) = 2010 Then k3 = SerieFreq(es,es,nn,ru,1)
    nua(co,8) = nua(co,8) + k3
    If Anno(es) = 2009 Then k4 = SerieFreq(es,es,nn,ru,1)
    nua(co,9) = nua(co,9) + k4
    If Anno(es) = 2013 Then k5 = SerieFreq(es,es,nn,ru,1)
    nua(co,10) = nua(co,10) + k5
    
   Next
   'Next
  End If
 Next
 OrdinaMatrice nua,- 1,4
 ColoreTesto 2
 Scrivi Space(10) & "Dal " & ee & " al " & DataEstrazione(fin),1
 ColoreTesto 0
 Scrivi "I " & q & " Numeri più frequenti " & " a " & NomeRuota(r) & " nel mese di " & MeseNome(ms)
 Scrivi
 'ColoreTesto 1:Scrivi Space(10) & "Ambi" & Space(3) & "Freq" & Space(3) & " - ritardo"
 'ColoreTesto 0
 For z = 1 To q
  ReDim avalori(10)
  avalori(1) = "   "
  avalori(2) = nua(z,2) '& "." & nua(z,3)
  avalori(3) = nua(z,4)
  avalori(4) = nua(z,5)
  avalori(5) = nua(z,6)
  avalori(6) = nua(z,7)
  avalori(7) = nua(z,8)
  avalori(8) = nua(z,9)
  avalori(9) = nua(z,10)
  avalori(10) = "   "
  Call AddRigaTabella(avalori,,,3)
  
  Call SetColoreCella(2,,2)
  Call SetColoreCella(3,,1)
  Call SetColoreCella(4,,7)
  Call SetColoreCella(5,4,0)
  Call SetColoreCella(6,4,0)
  Call SetColoreCella(7,4,0)
  Call SetColoreCella(8,4,0)
  Call SetColoreCella(9,4,0)
  If avalori(5) = 0 And avalori(6) > 0 And avalori(7) > 0 And avalori(8) > 0 And avalori(9) > 0 Then Call SetColoreCella(2,vbGreen)
  If avalori(5) > 0 Then Call SetColoreCella(2,2,4)
  If avalori(4) = 0 Then Call SetColoreCella(4,3,2)
  Call SetColoreCella(1,1,0)
  Call SetColoreCella(10,1,0)
  k11 = k11 + avalori(5)
  k12 = k12 + avalori(6)
  k13 = k13 + avalori(7)
  k14 = k14 + avalori(8)
  k15 = k15 + avalori(9)
  'riga = Format2(nua(z,2)) & "-" & Format2(nua(z,3)) & Space(3) & Format2(nua(z,4)) & Space(10) & Format2(nua(z,5))
  'Scrivi Space(10) & riga,1
  'riga = ""
 Next
 ReDim avalori1(10)
  avalori1(1) = " "
  avalori1(5) = k11
  avalori1(6) = k12
  avalori1(7) = k13
  avalori1(8) = k14
  avalori1(9) = k15
  Call AddRigaTabella(avalori1,1,,3,5)
  
 Call CreaTabella()
 Scrivi "     Tabella listed by Mike58      ",1,- 1,3
End Sub
 
grazie luigi è ok ringrazio anche mike per l'interessamento costante alla mia richiesta speriamo che luigi metta anche la possibilità di scegliere il mese di ricerca
ciaooo
 
non ho capito .. tente presente che l'unica modifica fatta da me consiste

om questa

Codice: 
Sub ImpostaEstrValide(nMese,Inizio,fine)
	Dim k
	For k = Inizio To fine
		If Mese(k) = nMese Then
			Call ImpostaEstrazione(k,True)
		Else
			Call ImpostaEstrazione(k,False)
		End If
	Next
End Sub


questa funzione serve per abilitatre solo le estrazioni di un determinato mese poi la statistica automaticamente usera solo le estrazioni abilitate.
Per arcor il mese si puo scegliere mi sembra , ad ogni modo vio ho dato lo spunto ora ticca a voi.
Ciao
 
OK Grazie Luigi, va tutto bene poi risistemo lo script, come lo vuole Arcor.

P.S.ma ieri non c'era lo script ? alla ora che ho scrtto io !!!
 
ciao Mike , si che c'era , ora lo script dovrebbe fare quello che voleva Arcor .. io ho aggiunto solo quella funzione e ovviamente l'ho richiamata nello script.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 18 gennaio 2025
    Bari
    24
    76
    02
    72
    12
    Cagliari
    21
    08
    77
    04
    17
    Firenze
    74
    84
    07
    12
    72
    Genova
    13
    07
    33
    47
    18
    Milano
    01
    34
    09
    55
    48
    Napoli
    46
    23
    25
    03
    06
    Palermo
    44
    07
    01
    46
    84
    Roma
    88
    78
    64
    74
    04
    Torino
    07
    87
    67
    38
    53
    Venezia
    31
    25
    04
    18
    02
    Nazionale
    49
    82
    59
    65
    67
    Estrazione Simbolotto
    Bari
    03
    13
    31
    23
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto