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
    martedì 10 giugno 2025
    Bari
    48
    32
    74
    59
    08
    Cagliari
    77
    73
    72
    18
    66
    Firenze
    56
    33
    86
    23
    75
    Genova
    81
    29
    70
    25
    28
    Milano
    27
    21
    87
    88
    90
    Napoli
    80
    57
    86
    24
    43
    Palermo
    47
    30
    37
    69
    27
    Roma
    57
    51
    16
    18
    50
    Torino
    61
    11
    12
    83
    33
    Venezia
    11
    21
    53
    74
    39
    Nazionale
    29
    48
    42
    83
    81
    Estrazione Simbolotto
    Napoli
    31
    25
    11
    06
    16

Ultimi Messaggi

Indietro
Alto