Per gli scripter piu bravi:errore o no?

mazuma · 8 Aprile 2012

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

Roby · 8 Aprile 2012

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

Roby · 8 Aprile 2012

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

mazuma · 8 Aprile 2012

Ciao black,

Il codice sembra giusto,però i risultati dicono il contrario,allora c'è qualcosa di sbagliato.

Baffoblu · 11 Aprile 2012

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

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

Cerca

Cerca

Per gli scripter piu bravi:errore o no?

mazuma

Member

Roby

Guest

Roby

Guest

mazuma

Member

Baffoblu

Guest

Ultima estrazione Lotto

Ultimi Messaggi