Per Esselotto (correzzione)

[Roby]

Ciao Esselotto.
Il 26.9.2010, mi hai fatto lo script sotto descritto, ho natato che l'archivio parte da 1939, non potresti farlo partire da Gen. 1871?
Io ho provato a cercare di capire come fare ma non ci sono riuscito.
Non vorrei farTi perdere tempo ma io non ci riesco proprio, potresTi
correggermelo Tu.
Grazie !


Rileva solo numeri che in un dato mese, si sono presentati insieme al Capo gioco.


''''''''Ricerca i numeri piu frequenti, con un CapoGioco in un dato mese
'''''''''''''Prelevare solo Testo colorato Blu


Sub main()
Scrivi "Spia - migliori ambate insieme al capogioco (modificato da esselotto )" & Chr(10)
Scrivi "modificato da esselotto per joi lotto lottoced )" & Chr(10)

Dim n(90,4),ru(1),ru1(1),nu(1),nn1(1)
ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?",,1000))
If ee="" Then Exit Sub
nn=CInt(InputBox("Numero Capogioco ?",,15))
If nn="" Then Exit Sub
mes1=CInt(InputBox("Quale mese 1 Gennaio, 2 Febbraio ?",,1))
If mes1="" Or Mes1 >12 Then Exit Sub
r1=CInt(InputBox(" Quale Ruota 1 Bari, 2 Cagliari, ecc.?",,1))
If r1="" Then Exit Sub
am=CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 90?",,10))
If am="" Then Exit Sub
r2=11
nn1(1)=nn
fin=EstrazioneFin
ini=fin-ee
For es=ini To fin
If Posizione(es,r1,nn)>0 Then
ru1(1)=r2
If mes1=Mese (es) Then
If SerieFreq(es,es,nn1,ru1,1)=1 Then

ess=es
If ess>fin Then ess=fin
co=0
For i=1 To 90
If i<>nn Then
co=co+1
n(co,1)=co
n(co,2)=i
nu(1)=i
ru(1)=r1
fr=SerieFreq(es,ess,nu,ru,1)' ricerca frequenza su ruota
n(co,3)=n(co,3)+fr
End if
Next
End if
End If
End If
Next
Scrivi
ColoreTesto 1
Scrivi " Migliori ambate con il Capogioco "& nn &" ruota di "&nomeruota(r1)& Chr(10)
ColoreTesto 0
Scrivi" Dal "&dataestrazione(ini)&"("&es&") al "&dataestrazione(fin)&" ("&fin&")"& Chr(10)
Scrivi " N° Presenze Ruota di ---->"& NomeRuota(r1)& "...... Mese di "& MeseNome (mes1),1
OrdinaMatrice n,-1,3
For w=1 To am
Scrivi" "& Format2(n(w,2))&" "&FormatSpace(n(w,3),4,1)'&" "&FormatSpace(n(w,4),4,1)

Next
ColoreTesto 0
Scrivi String(50,"=")& Chr(10)
Scrivi "°°°esselotto°°°",1
End Sub

 

[oruam]

strano perchè il mio parte
Dal 17.01.2004(8306) al 27.11.2010 (8305)
digidando 8000 al posto di 1000 estrazioni ottengo
Dal 05.11.1876(8306) al 27.11.2010 (8305)
vedi se ti trovi

 

[joi_lotto]

Ciao oruam.
Io, dove c'era 1000 ho messo 8306.
Prova con l'ambo 11-70 a RO uscito(da script n.5) da programma di
L. ced uscito n. 7 MESE DICEMBRE.

 

[joi_lotto]

Ho provato mettendo 8305 e mi da la data 7.1.1871 ma il conteggio non
quadra ho provato con L.ced inserendo la data del 39 e a quel punto mi da lo stesso risultato dello script. (5)

Ciao.

 

[oruam]

vedi se puo andare
,o ci vuole la mano di esse

''''''''Ricerca i numeri piu frequenti, con un CapoGioco in un dato mese
'''''''''''''Prelevare solo Testo colorato Blu


Sub main()
Scrivi "Spia - migliori ambate insieme al capogioco (modificato da esselotto )" & Chr(10)
Scrivi "modificato da esselotto per joi lotto lottoced )" & Chr(10)

Dim n(90,4),ru(1),ru1(1),nu(1),nn1(1)
ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?",,1000))
If ee="" Then Exit Sub
nn=CInt(InputBox("Numero Capogioco ?",,15))
If nn="" Then Exit Sub
mes1=CInt(InputBox("Quale mese 1 Gennaio, 2 Febbraio ?",,1))
If mes1="" Or Mes1 >12 Then Exit Sub
r1=CInt(InputBox(" Quale Ruota 1 Bari, 2 Cagliari, ecc.?",,1))
If r1="" Then Exit Sub
am=CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 90?",,10))
If am="" Then Exit Sub
r2=11
nn1(1)=nn
casi=0
fin=EstrazioneFin
ini=EstrazioneFin-ee
For es=ini To fin
If Posizione(es,r1,nn)>0 Then

ru1(1)=r2
If mes1=Mese (es) And  SerieFreq(es,es,nn1,ru1,1)>0 Then 


ess=es
If ess>fin Then ess=fin 
casi=casi+1
co=0
For i=1 To 90
If i<>nn Then 
co=co+1
n(co,1)=co
n(co,2)=i
nu(1)=i
ru(1)=r1
fr=SerieFreq(es,ess,nu,ru,1)
n(co,3)=n(co,3)+fr
End If
Next
End If
End If

Next
Scrivi
ColoreTesto 1
Scrivi " Migliori ambate con il Capogioco "& nn &" ruota di "&nomeruota(r1)& Chr(10)
ColoreTesto 0
Scrivi" Dal "&dataestrazione(ini)&"("&es-ee&") al "&dataestrazione(fin)&" ("&fin&")si è presentato "&casi&" volte"& Chr(10)
Scrivi " N° Presenze Ruota di ---->"& NomeRuota(r1)& "...... Mese di "& MeseNome (mes1),1
OrdinaMatrice n,-1,3
For w=1 To am
Scrivi" "& Format2(n(w,2))&" "&FormatSpace(n(w,3),4,1)

Next
ColoreTesto 0
Scrivi String(50,"=")& Chr(10)
Scrivi "°°°esselotto°°°",1
End Sub

 

[esselotto]

quote:Originally posted by oruam

vedi se puo andare
,o ci vuole la mano di esse

''''''''Ricerca i numeri piu frequenti, con un CapoGioco in un dato mese
'''''''''''''Prelevare solo Testo colorato Blu


Sub main()
Scrivi "Spia - migliori ambate insieme al capogioco (modificato da esselotto )" & Chr(10)
Scrivi "modificato da esselotto per joi lotto lottoced )" & Chr(10)

Dim n(90,4),ru(1),ru1(1),nu(1),nn1(1)
''''ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?",,1000))
''''If ee="" Then Exit Sub
nn=CInt(InputBox("Numero Capogioco ?",,15))
If nn="" Then Exit Sub
mes1=CInt(InputBox("Quale mese 1 Gennaio, 2 Febbraio ?",,1))
If mes1="" Or Mes1 >12 Then Exit Sub
r1=CInt(InputBox(" Quale Ruota 1 Bari, 2 Cagliari, ecc.?",,1))
If r1="" Then Exit Sub
am=CInt(InputBox(" Quante ambate vuoi visualizzare da 1 a 90?",,10))
If am="" Then Exit Sub
r2=11
nn1(1)=nn
casi=0
'''''fin=EstrazioneFin
''''ini=EstrazioneFin-ee
fin=EstrazioneFin ' <----- fine archivio
ini=EstrazioneIni '<--- da inizio archivio  
For es=ini To fin
If Posizione(es,r1,nn)>0 Then

ru1(1)=r2
If mes1=Mese (es) And  SerieFreq(es,es,nn1,ru1,1)>0 Then 


ess=es
If ess>fin Then ess=fin 
casi=casi+1
co=0
For i=1 To 90
If i<>nn Then 
co=co+1
n(co,1)=co
n(co,2)=i
nu(1)=i
ru(1)=r1
fr=SerieFreq(es,ess,nu,ru,1)
n(co,3)=n(co,3)+fr
End If
Next
End If
End If

Next
Scrivi
ColoreTesto 1
Scrivi " Migliori ambate con il Capogioco "& nn &" ruota di "&nomeruota(r1)& Chr(10)
ColoreTesto 0
Scrivi" Dal "&dataestrazione(ini)&"("&es-ee&") al "&dataestrazione(fin)&" ("&fin&")si è presentato "&casi&" volte"& Chr(10)
Scrivi " N° Presenze Ruota di ---->"& NomeRuota(r1)& "...... Mese di "& MeseNome (mes1),1
OrdinaMatrice n,-1,3
For w=1 To am
Scrivi" "& Format2(n(w,2))&" "&FormatSpace(n(w,3),4,1)

Next
ColoreTesto 0
Scrivi String(50,"=")& Chr(10)
Scrivi "°°°esselotto°°°",1
End Sub

Corretto

Scusami oruam se joi lotto chiede dall'inizio archivio.

basta togliere, o mettere apici su questa riga. Tanto non serve più

ee=CInt(InputBox("Quante estrazioni vuoi esaminare ?",,1000))
If ee="" Then Exit Sub


e Modificare qui
da così
fin=EstrazioneFin
ini=EstrazioneFin-ee


a così
fin=EstrazioneFin ' <----- fine archivio
ini=EstrazioneIni '<--- da inizio archivio

Piccola spiegazione per capire il procedimento.

esselotto

 

[esselotto]

 

[joi_lotto]

Ciao ragazzi e SOPRATUTTO GRAZIE.

Ma oggi è una giornata nera. Appena starò meglio proverò a fare la modifica.

Grazie ancora.

Grazie.

 

[esselotto]

quote:Originally posted by joi_lotto

Ciao ragazzi e SOPRATUTTO GRAZIE.

Ma oggi è una giornata nera. Appena starò meglio proverò a fare la modifica.

Grazie ancora.

Grazie.

ciao joi lotto

si vede che hai avuto una giornata nera
Lo script sopra e stato già corretto

 

[esselotto]

lo colorato in Blu
per capire di quale script parlavo.

 

[joi_lotto]

Ciao Esselotto e Oruam.
Ma la mia invalidità quando mi prende con dolori cosi forti non mi permette di poter capire proprio nulla.(già "capisco poco di mio" poi con questi script altro che rompicapo!)
Praticamente per quella/e giornata/e non esisto.

Chiusa parentesi.

Vi RINGRAZIO TANTISSIMO.
Grazie.