Script che ricava i 10 n. più frequenti ...richiesta riformattazione codice

skygirl · 9 Dicembre 2014

Inserisco altro script di Blackmore tratto da http://forum.lottoced.com/f12/mega-raccolta-%22script%22-315/
ringrazio i volenterosi che volessero riformattare il codice in modo da potere inserire lo script su Spaziometria

Scrivi : Scrivi "QUESTO SCRIPT RICAVA I 1O NUMERI PIù FREQUENTI DOPO L'USCITA DI UN QUALSIASI NUMERO (CON InputBox Per Ruota e Colpi)"

Sub main()
Dim ruote(1)
Dim posta(1)
Dim num(90,2)
Dim uscito(90,2)
r=InputBox("Su quale ruota?",,1)
colpi=InputBox("Quanti colpi?",,10)
ruote(1)=r
ini=7000
fin=EstrazioneFin
Scrivi " Analisi dal "& DataEstrazione(ini)&" ad oggi"
Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i "&colpi&" colpi",1
For sp=1 To 90
Messaggio " Spia: "&sp
For i=1 To 90
num(i,1)=0 : num(i,2)=0
Next
co=0
For es=ini To fin
If Posizione(es,r,sp)>0 Then
co=co+1
ess=es+colpi+1
If ess>fin Then ess=fin End If
For a=es+1 To ess
For v=1 To 90
uscito(v,2)=0
Next
For e=1 To 5
n=Estratto(a,r,e)
num(n,1)=n
num(n,2)=num(n,2)+1
uscito(n,1)=n
uscito(n,2)=uscito(n,2)+1
If uscito(n,2)>1 Then
num(n,2)=num(n,2)-1
uscito(n,2)=1
End If
Next
Next
End If
Next
OrdinaMatrice num, -1, 2
per=Int((co/100)*65)
Scrivi "_________________________________________________ ________________"
Scrivi "Numero spia: "&sp&" su "& FormatSpace(NomeRuota(r),10)&" casi = "&co&" colpi "& colpi
Scrivi
riga="Num. "
riga1="Freq. "
For i=1 To 10
riga=riga & FormatSpace(num(i,1),3)&" "
riga1=riga1 & FormatSpace(Eval(num(i,2)),4)&" "
Next
Scrivi riga,1
ColoreTesto 2
Scrivi riga1
ColoreTesto 0
Next
End Sub

Blackmore

Mike58 · 9 Dicembre 2014

Ciao Skygirl, purtroppo molti script datati hanno perso la formattazione originale a causa non dello script listato dall 'autore ma dovuto al cambiamento del form del forum avvenuto qualche anno fa.

molti script hanno questo tipo di errore e nella fattispecie del caso
si presentano cosi

If Posizione(es,r,sp)>0 Then
che se letto non vuol dire nulla perché gli operatori logici >,<,=,+,- sono stati sostituiti con >0
il codice esatto è:
If Posizione(es,r,sp) > 0 Then che se letto significa se la posizione del numero spia alla estrazione considerata è > 0 esegui

se no sei capace di correggere tali listati è meglio non considerarli altrimenti ti imbatterai sempre in queste problematiche.

per postare in maniera corretta lo script andare in modalità avanzata e metterlo fra gli appositi code individuabile dalla icona " # ".

Tuttavia ti posto lo stesso script con delle mie correzioni e aggiunte.

Codice:

Sub Main()
	'Primi 10 più frequenti usciti dopo il numero Spia'
	Dim ruote(1)
	Dim posta(1)
	Dim num(90,4)
	Dim uscito(90,2)
	Dim anum(10)
	Dim nume(90,4)
	my = MsgBox("1 - numeri rilevati " & Chr(13) & "2 - frequenza nei cicli dei numeri " & Chr(13) & "3 - Ritardo dei numeri rilevati " & Chr(13) & "4 - Frequenza numeri ultimi 10 colpi",,"LETTURA NUMERI RICAVATI")
	r = InputBox("Su quale ruota?",,12)
	colpi = InputBox("Quanti colpi?",,10)
	ruote(1) = r
	ini = EstrazioneFin - 200
	fin = EstrazioneFin
	Scrivi "              Analisi dal " & DataEstrazione(ini) & " a " & DataEstrazione(fin)
	Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
	For sp = 1 To 90
		Messaggio " Spia: " & sp & "          <  Script by Mike58  >"
		Call AvanzamentoElab(1,90,sp)
		For i = 1 To 90
			num(i,1) = 0
			num(i,2) = 0
			num(i,4) = 0
		Next
		co = 0
		For es = ini To fin
			If Posizione(es,r,sp) > 0 Then
				co = co + 1
				ess = es + colpi
				If ess > fin Then ess = fin End If
				For a = es + 1 To ess
					For v = 1 To 90
					Next
					For e = 1 To 5
						n = Estratto(a,r,e)
						num(n,1) = n
						If Posizione(a,r,num(n,1)) Then num(n,2) = num(n,2) + 1
						frc = num(n,2)
						
						fru = EstrattoFrequenzaTurbo(r,n,es + 1,es + colpi)
						num(n,2) = frc
						rit = EstrattoRitardoTurbo(r,n,Ini,fin)
						rtsp = EstrattoRitardoTurbo(r,sp,Ini,fin)
						num(n,3) = rit
						num(n,4) = fru
					Next
				Next
			End If
	
Next
OrdinaMatrice num,- 1,2
per = Int((co/100)*65)
If rtsp < 10 Then
	Scrivi "_________________________________________________________________"
	ColoreTesto 1
	Scrivi "Numero spia: " & sp & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & co & "   colpi " & colpi,0,0
	ColoreTesto 2
	Scrivi " - Rit. Spia.. " & rtsp,0,0
	ColoreTesto 7
	Scrivi "  ---> Spia attiva per " &(colpi - rtsp) & " Colpi ",1
	ColoreTesto 0
	'
Else
	Scrivi "_________________________________________________________________"
	Scrivi "Numero spia: " & sp & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & co & "   colpi " & colpi,0,0
	ColoreTesto 2
	Scrivi " - Rit. Spia.. " & rtsp
	ColoreTesto 0
End If
riga = "Num.   "
riga1 = "Freq.  "
riga2 = "Rit.   "
riga3 = "Ult.cc "
For i = 1 To 10
	riga = riga & FormatSpace(num(i,1),3) & "  "
	riga1 = riga1 & FormatSpace(Eval(num(i,2)),4) & " "
	riga2 = riga2 & FormatSpace(Eval(num(i,3)),4) & " "
	riga3 = riga3 & FormatSpace(Eval(num(i,4)),4) & " "
	anum(i) = num(i,1)
	sf2 = SerieFreqTurbo(Ini,fin,anum,ruote,2)
	sf3 = SerieFreqTurbo(Ini,fin,anum,ruote,3)
	sr2 = SerieRitardoTurbo(Ini,fin,anum,ruote,2)
	sr3 = SerieRitardoTurbo(Ini,fin,anum,ruote,3)
Next
Scrivi riga,1
ColoreTesto 2
Scrivi riga1
ColoreTesto 7
Scrivi riga2
ColoreTesto 1
Scrivi riga3
ColoreTesto 0
Scrivi String(65,"-")
Scrivi"Frequenza combinazione per  ambo  " & sf2
Scrivi"Frequenza combinazione per  terno " & sf3
Scrivi"Ritardo combinazione per ambo     " & sr2
Scrivi"Ritardo combinazione per terno    " & sr3
Next
End Sub

skygirl · 9 Dicembre 2014

Ciao Mike58 è un vero peccato che a causa del cambiamento del form del forum sia sorto questo problema con gli script ormai datati.
Molti sono riuscita ad inserirli in Spaziometria ma molti altri gli ho lasciati perdere perché non capivo il problema

Però trovo ottima l'idea di Blackmore di raccogliere gli script in un unico argomento.
Si potrebbe riaprire una sezione Nuova raccolta script

???
Grazie

Mike58 · 9 Dicembre 2014

L'idea della mega raccolta script è stata messa in atto dall'amico Blackmore con un grande spirito di iniziativa e grande disponibilità, ma ahinoi questa non paga sempre in quanto le gelosie e i disturbatori ci sono in ogni dove e per questo che tanti sono andati in altri lidi o hanno smesso di postare.

Io Ti posso consigliare, visto che sei curiosa, di cominciare a capire una semplice impostazione di script e passo passo potrai riuscire anche con l'aiuto della guida script a crearne uno tuo e credimi io ho cominciato cosi e la soddisfazione è tanta.

Ciao e buona curiosità

solare · 10 Dicembre 2014

Bello questo listato
Ottimo Mike58

solare · 10 Dicembre 2014

Mike58, mi è venuta un'idea
si potrebbe modificarlo in questo modo ?
Inserisco la cinquina sortita di una determinata ruota ed ottengo anche eventuali convergenze
Ciao

Roby · 10 Dicembre 2014

Buongiorno,
in attesa di Mike58, provi questo listato.
Unico neo: i numeri devono essere immesssi in ordine crescente, cioè dal più piccolo al più grande.
Controllare sempre, salvo errori ed omissis.

Codice:

Option Explicit
Sub Main()
    'Primi 10 più frequenti usciti dopo il numero Spia a scelta per solare'
    Dim my,ne,r,E1,E2,E3,E4,E5,colpi,sp,i,co,es,Ini,fin,ess,v,e,n,frc
    Dim a,fru,rit,rtsp,per,riga,riga1,riga2,riga3,sf2,sf3,sr2,sr3
    Dim ruote(1)
    Dim posta(1)
    Dim num(90,4)
    Dim uscito(90,2)
    Dim anum(10)
    Dim nume(90,4)
    my = MsgBox("1 - numeri rilevati " & Chr(13) & "2 - frequenza nei cicli dei numeri " & Chr(13) & "3 - Ritardo dei numeri rilevati " & Chr(13) & "4 - Frequenza numeri ultimi 10 colpi",,"LETTURA NUMERI RICAVATI")
    ne = CInt(InputBox("Estrazioni di Controllo","NUMERO ESTRAZIONI",200))
    r = InputBox("Su quale ruota?","RUOTA DI CONTROLLO",1)
    my = MsgBox("INSERIRE I NUMERI IN ORDINE CRESCENTE " & Chr(13) & "      DAL PIU'  PICCOLO AL PIU' GRANDE",,"INSERIMENTO NUMERI SPIA")
    E1 = CInt(InputBox("1° numero spia","1° NUMERO SPIA",18))
    E2 = CInt(InputBox("2° numero spia","2° NUMERO SPIA",22))
    E3 = CInt(InputBox("3° numero spia","3° NUMERO SPIA",38))
    E4 = CInt(InputBox("4° numero spia","4° NUMERO SPIA",57))
    E5 = CInt(InputBox("5° numero spia","5° NUMERO SPIA",80))
    colpi = InputBox("Quanti colpi?","NUMERO COLPI",10)
    ruote(1) = r
    Ini = EstrazioneFin - ne
    fin = EstrazioneFin
    Scrivi "              Analisi dal " & DataEstrazione(Ini) & " a " & DataEstrazione(fin)
    Scrivi "Primi 10 più frequenti usciti dopo il numero Spia entro i " & colpi & " colpi",1
    For sp = E1 To E5
        If sp = E1 Or sp = E2 Or sp = E3 Or sp = E4 Or sp = E5 Then
            Messaggio " Spia: " & Format2(sp) & "          <  Script by Mike58  >"
            Call AvanzamentoElab(E1,E5,sp)
            For i = 1 To 90
                num(i,1) = 0
                num(i,2) = 0
                num(i,4) = 0
            Next
            co = 0
            For es = Ini To fin
                If Posizione(es,r,sp) > 0 Then
                    co = co + 1
                    ess = es + colpi
                    If ess > fin Then ess = fin End If
                    For a = es + 1 To ess
                        For v = 1 To 90
                        Next
                        For e = 1 To 5
                            n = Estratto(a,r,e)
                            num(n,1) = n
                            If Posizione(a,r,num(n,1)) Then num(n,2) = num(n,2) + 1
                            frc = num(n,2)
                            fru = EstrattoFrequenzaTurbo(r,n,es + 1,es + colpi)
                            num(n,2) = frc
                            rit = EstrattoRitardoTurbo(r,n,Ini,fin)
                            rtsp = EstrattoRitardoTurbo(r,sp,Ini,fin)
                            num(n,3) = rit
                            num(n,4) = fru
                        Next
                    Next
                End If
            Next
            OrdinaMatrice num,- 1,2
            per = Int((co/100)*65)
            If rtsp < 10 Then
                Scrivi "_________________________________________________________________"
                ColoreTesto 1
                Scrivi "Numero spia: " & Format2(sp) & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & Format2(co) & "   colpi " & Format2(colpi),0,0
                ColoreTesto 2
                Scrivi " - Rit. Spia.. " & Format2(rtsp),0,0
                ColoreTesto 7
                Scrivi "  ---> Spia attiva per " &(colpi - rtsp) & " Colpi ",1
                ColoreTesto 0
                '
            Else
                Scrivi "_________________________________________________________________"
                Scrivi "Numero spia: " & Format2(sp) & " su " & FormatSpace(NomeRuota(r),10) & " casi = " & Format2(co) & "   colpi " & Format2(colpi),0,0
                ColoreTesto 2
                Scrivi " - Rit. Spia.. " & Format2(rtsp)
                ColoreTesto 0
            End If
            riga = "Num.   "
            riga1 = "Freq.  "
            riga2 = "Rit.   "
            riga3 = "Ult.cc "
            For i = 1 To 10
                riga = riga & FormatSpace(num(i,1),3) & "  "
                riga1 = riga1 & FormatSpace(Eval(num(i,2)),4) & " "
                riga2 = riga2 & FormatSpace(Eval(num(i,3)),4) & " "
                riga3 = riga3 & FormatSpace(Eval(num(i,4)),4) & " "
                anum(i) = num(i,1)
                sf2 = SerieFreqTurbo(Ini,fin,anum,ruote,2)
                sf3 = SerieFreqTurbo(Ini,fin,anum,ruote,3)
                sr2 = SerieRitardoTurbo(Ini,fin,anum,ruote,2)
                sr3 = SerieRitardoTurbo(Ini,fin,anum,ruote,3)
            Next
            Scrivi riga,1
            ColoreTesto 2
            Scrivi riga1
            ColoreTesto 7
            Scrivi riga2
            ColoreTesto 1
            Scrivi riga3
            ColoreTesto 0
            Scrivi String(65,"-")
            Scrivi"Frequenza combinazione per  ambo  " & sf2
            Scrivi"Frequenza combinazione per  terno " & sf3
            Scrivi"Ritardo combinazione per ambo     " & sr2
            Scrivi"Ritardo combinazione per terno    " & sr3
        End If
    Next
End Sub

solare · 10 Dicembre 2014

Grazie disaronno, si niente male, mancherebbe avere un resoconto delle convergenze finali

giungla · 16 Dicembre 2014

NON MI FUNZIONA!

giungla · 18 Dicembre 2014

giungla ha scritto:
NON MI FUNZIONA!

Ciao, oltre al fatto che lo script mi da errore, volevo chiedere se fosse possibile modificarlo facendo cercare
I 12 numeri più frequenti usciti prima della spia nelle ultime 450 estrazioni

Ciao

Cerca

Cerca

Script che ricava i 10 n. più frequenti ...richiesta riformattazione codice

skygirl

Advanced Member >GOLD<

Mike58

Advanced Member >PLATINUM PLUS<

skygirl

Advanced Member >GOLD<

Mike58

Advanced Member >PLATINUM PLUS<

solare

Advanced Member >PLATINUM<

solare

Advanced Member >PLATINUM<

Roby

Guest

solare

Advanced Member >PLATINUM<

giungla

Junior Member

giungla

Junior Member

Ultima estrazione Lotto

Ultimi Messaggi