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ì 18 settembre 2025
    Bari
    24
    27
    08
    70
    68
    Cagliari
    75
    27
    64
    20
    17
    Firenze
    53
    20
    46
    14
    39
    Genova
    38
    72
    71
    36
    65
    Milano
    24
    43
    76
    19
    26
    Napoli
    32
    70
    51
    23
    48
    Palermo
    23
    73
    55
    64
    62
    Roma
    66
    58
    15
    49
    55
    Torino
    84
    22
    38
    29
    64
    Venezia
    47
    52
    56
    35
    89
    Nazionale
    04
    49
    67
    57
    05
    Estrazione Simbolotto
    Palermo
    07
    18
    33
    28
    19
Indietro
Alto