Novità

Per gli scripter piu bravi:errore o no?

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

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

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07
Indietro
Alto