Novità

Per gli scripter piu bravi:errore o no?

M

mazuma

Member
Ciao a tutti,

Comincio per dirvi che sono un principiante ,per questo ho bisognio del vostro consiglio,
ho questo script:

Codice: 
Sub Main()
    Dim ambi(4500,8),nn(1),ruota(2),amba(4500,4500),mm(2),xx(3)
    nru = InputBox("Su quale ruota, ",,1)
    nes = InputBox("Inserisci SPIA ....",,14)
    ne = InputBox("Numero estrazioni:",,5)
    perc = InputBox("Percentuale minima (60-100%):",,100)
    ncg = InputBox("Numero colpi di gioco",,1)
    ruota(1) = eval(nru)
    ruota(2) = 2
    casi = 0
    ini = EstrazioneFin - eval(ne)
    fin = EstrazioneFin
    For es = ini To fin
        If IsNumeroPresenteInEstrazione(es,eval(nru),eval(nes),0) Then
            casi = casi + 1
            esncg = es + eval(ncg)
            If esncg > EstrazioneFin Then esncg = EstrazioneFin End If
            co = 0
            For r = 1 To 10
                For p = 1 To 5
                    For nu = 1 To 90
                        co = co + 1
                        a = Estratto(es,r,p)
                        b = Fuori90(a + nu)
                        nn(1) = b
                        ambi(co,1) = co
                        ambi(co,2) = b
                        ambi(co,3) = r
                        ambi(co,4) = p
                        ambi(co,5) = nu
                        fr1 = SerieFreq(es + 1,esncg,nn,ruota,1)
                        If fr1 > 0 Then ambi(co,6) = ambi(co,6) + 1
                    Next
                Next
            Next
            co = 0
            OrdinaMatrice ambi,- 1,6
            For c = 1 To 500
                For d = c + 1 To 500
                    co = co + 1
                    For est = es + 1 To esncg
                        x = ambi(c,2)
                        y = ambi(d,2)
                        xx(1) = x
                        xx(2) = y
                        fr2 = SerieFreq(es + 1,esncg,xx,ruota,2)
                        If fr2 > 0 Then amba(c,d) = amba(c,d) + 1
                    Next
                Next
            Next
        End If
    Next
    ColoreTesto 1
    Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
    Scrivi
    If eval(nes) > 0 Then
        Scrivi "Spia                     : " & eval(nes),1
    End If
    Scrivi "RUOTA DI GIOCO           : " & NomeRuota(nru),1
    Scrivi "COLPI DI GIOCO           : " & ncg,1
    Scrivi "CASI ANALIZZATI          : " & casi,1
    ColoreTesto 0
    For x = 1 To 4500
        s = eval(x) & "  " & eval(ambi(x,4)) & "°" & Left(NomeRuota(eval(ambi(x,3))),2) & " + " & _
        Format2(ambi(x,5)) & "       " & FormatSpace(ambi(x,6),3) & "       " & FormatSpace(ambi(x,2),3)
        If eval(ambi(x,6)) > 0 Then
            Scrivi s
        End If
    Next
    Scrivi" ------------------------------------------------------------------ "
    ColoreTesto 1
    For ca = 1 To 500
        For ce = 1 To 500
            riga = eval(ambi(ca,4)) & "°" & Left(NomeRuota(eval(ambi(ca,3))),2) & " + " & _
            Format2(ambi(ca,5)) & "  --  " & eval(ambi(ce,4)) & "°" & Left(NomeRuota(eval(ambi(ce,3))),2) & " + " & _
            Format2(ambi(ce,5)) & "       " & FormatSpace(amba(ca,ce),3) & "       " & FormatSpace(ambi(ca,2),3) & " - " & FormatSpace(ambi(ce,2),3)
            If eval(amba(ca,ce)) > 0 Then
                Scrivi riga
            End If
        Next
    Next
End Sub

il output per il primo caso

ANALISI Dal 20.03.2012 al 31.03.2012
Spia : 14
RUOTA DI GIOCO : Bari
COLPI DI GIOCO : 1
CASI ANALIZZATI : 1
1 3°Ca + 56 1 14
2 4°To + 23 1 5
3 3°Ca + 59 1 17
4 1°Mi + 31 1 14
5 1°Mi + 34 1 17
6 3°Ca + 47 1 5
7 1°Mi + 52 1 35
8 4°To + 35 1 17
9 4°To + 32 1 14
10 2°Pa + 67 1 78

fino qua tutto ok
sposto di una estrazione,e!!!

ANALISI Dal 22.03.2012 al 03.04.2012
Spia : 14
RUOTA DI GIOCO : Bari
COLPI DI GIOCO : 1
CASI ANALIZZATI : 2
1 4°Ba + 64 1 19
2 4°Ba + 65 1 20
3 4°Ba + 66 1 21
4 4°Ba + 63 1 18
5 4°Ba + 60 1 15
6 4°Ba + 61 1 16
7 4°Ba + 62 1 17
8 4°Ba + 67 1 22
9 4°Ba + 72 1 27
10 4°Ba + 73 1 28

I risultati devono essere uguali ,solo il valore della somma deve cambiare

dov'è lo sbaglio?

Un saluto
 
Secondo me non c'è nessuno sbaglio, gli adattatori sommativi possono cambiare di volta in volta
nel 2° Output i casi esaminati sono 2, quindi il listato calcola automaticamente gli adattatori dell'ultima
estrazione nella quale si è ripresentata la spia 14
A meno che non sia il solito problema delle exit for
 
Ultima modifica:
Prima di affidarti a questo script, chiedi a Luigi o a qualcun'altro
non vorrei darti uno script sbagliato....


Codice: 
Sub Main()
	Dim ambi(4500,8),nn(1),ruota(2),amba(4500,4500),mm(2),xx(3)
	nru = InputBox("Su quale ruota, ",,1)
	nes = InputBox("Inserisci SPIA ....",,14)
	ne = InputBox("Numero estrazioni:",,5)
	perc = InputBox("Percentuale minima (60-100%):",,100)
	ncg = InputBox("Numero colpi di gioco",,1)
	ruota(1) = eval(nru)
	ruota(2) = 2
	casi = 0
	ini = EstrazioneFin - eval(ne)
	fin = EstrazioneFin
	For es = ini To fin
		If IsNumeroPresenteInEstrazione(es,eval(nru),eval(nes),0) Then
			casi = casi + 1
			esncg = es + eval(ncg)
			If esncg > EstrazioneFin Then esncg = EstrazioneFin End If
			
			
			co = 0
			For r = 1 To 10
				For p = 1 To 5
					For nu = 1 To 90
						co = co + 1
						a = Estratto(es,r,p)
						b = Fuori90(a + nu)
						nn(1) = b
						ambi(co,1) = co
						ambi(co,2) = b
						ambi(co,3) = r
						ambi(co,4) = p
						ambi(co,5) = nu
						fr1 = SerieFreq(es + 1,esncg,nn,ruota,1)
						If fr1 > 0 Then ambi(co,6) = ambi(co,6) + 1
						
					Next
				Next
			Next
			co = 0
			OrdinaMatrice ambi,- 1,6
			For c = 1 To 500
				For d = c + 1 To 500
					co = co + 1
					For est = es + 1 To esncg
						x = ambi(c,2)
						y = ambi(d,2)
						xx(1) = x
						xx(2) = y
						fr2 = SerieFreq(es + 1,esncg,xx,ruota,2)
						If fr2 > 0 Then amba(c,d) = amba(c,d) + 1
						
					Next
				Next
			Next
			Exit For
		End If 
	Next
	ColoreTesto 1
	Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
	Scrivi
	If eval(nes) > 0 Then
	
		Scrivi "Spia                     : " & eval(nes),1
		
	End If
	Scrivi "RUOTA DI GIOCO           : " & NomeRuota(nru),1
	Scrivi "COLPI DI GIOCO           : " & ncg,1
	Scrivi "CASI ANALIZZATI          : " & casi,1
	ColoreTesto 0
	For x = 1 To 4500
		s = eval(x) & "  " & eval(ambi(x,4)) & "°" & Left(NomeRuota(eval(ambi(x,3))),2) & " + " & _
		Format2(ambi(x,5)) & "       " & FormatSpace(ambi(x,6),3) & "       " & FormatSpace(ambi(x,2),3)
		If eval(ambi(x,6)) > 0 Then
			Scrivi s
			 
		End If
	Next
	Scrivi" ------------------------------------------------------------------ "
	ColoreTesto 1
	For ca = 1 To 500
		For ce = 1 To 500
			riga = eval(ambi(ca,4)) & "°" & Left(NomeRuota(eval(ambi(ca,3))),2) & " + " & _
			Format2(ambi(ca,5)) & "  --  " & eval(ambi(ce,4)) & "°" & Left(NomeRuota(eval(ambi(ce,3))),2) & " + " & _
			Format2(ambi(ce,5)) & "       " & FormatSpace(amba(ca,ce),3) & "       " & FormatSpace(ambi(ca,2),3) & " - " & FormatSpace(ambi(ce,2),3)
			If eval(amba(ca,ce)) > 0 Then
				Scrivi riga
				
			End If
		Next
	Next
End Sub
 
Dal 20.03.2012 al 31.03.2012

il N° 14 è sortito 1 volta

-------------------------------

Dal 22.03.2012 al 03.04.2012

il N° 14 è sortito 2 volte

------------------------------
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 28 marzo 2026
    Bari
    53
    04
    01
    11
    09
    Cagliari
    67
    19
    47
    35
    64
    Firenze
    13
    48
    58
    39
    15
    Genova
    52
    87
    51
    79
    67
    Milano
    07
    79
    84
    28
    37
    Napoli
    26
    90
    68
    82
    67
    Palermo
    38
    57
    65
    20
    56
    Roma
    81
    66
    45
    53
    08
    Torino
    29
    47
    55
    78
    71
    Venezia
    07
    29
    76
    14
    15
    Nazionale
    17
    10
    21
    29
    15
    Estrazione Simbolotto
    Firenze
    02
    38
    33
    11
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto