AIUTO script del metodo numeretti di napoli

[gitagi]

Chiedo se possibile avere lo script del metodo numeretti di napoli pubblicato su un mensile del lotto parecchi anni fa'

Tecnica:
Ultima est del mese fare la figura dei 5 estratti di napoli
esempio:30-10-2012

estratti 64 77 14 1 34
figura 1 5 5 1 7

1+5+5+1+7=19 FIGURA 1
Al risultato della figura sommare +1+1+1
Quindi 1 1°ambata
+1= 2 2°ambata
+1= 3 3° ambata
+1= 4 4°ambata

AMBATE IN GIOCO 1-2-3-4
PER AMBO AGGIUNGERE I MIEI NUMERI FISSI 40-50-60-70

4° COLPO 1-60

N.B. SE IL TOT. DELLA FIGURA FOSSE 9 BISOGNA GIOCARE 9-1-2-3-
SE IL TOT. DELLA FIGURA FOSSE 8 BISOGNA GIOCARE 8-9-1-2-
SE IL TOT. DELLA FIGURA FOSSE 7 BISOGNA GIOCARE 7-8-9-1

GRAZIE

 

[Roby]

L'ho diviso in 4 Cinquine
Ciao

Sub Main()
	Dim ruota(1)
	Dim aposta(5)
	Dim aposte(3)
	Dim xx(4)
	Dim ambata(4)
	Dim cinquina1(5)
	Dim cinquina2(5)
	Dim cinquina3(5)
	Dim cinquina4(5)
	aposta(1) = 1
	aposte(2) = 1
	aposte(3) = 1
	r = InputBox(" Ruota di Ricerca ? ",," 6 ")
	espartenza = CInt(InputBox(" Estrazione di Partenza ? ",," 7500 "))
	k = CInt(InputBox(" Colpi di gioco ? ",," 10 "))
	Inizio = espartenza
	Fine = EstrazioneFin
	co = 0
	For idEstr = Inizio To Fine
		Messaggio "elab. n° " & idestr & " del " & DataEstrazione(idestr) & " [ Metodo Numeretti su Napoli List By Blackmore ]"
		If IndiceMensile(idestr + 1) = 1 Then
			a = Estratto(idestr,r,1)
			b = Estratto(idestr,r,2)
			c = Estratto(idestr,r,3)
			d = Estratto(idestr,r,4)
			e = Estratto(idestr,r,5)
			n1 = Figura(a)
			n2 = Figura(b)
			n3 = Figura(c)
			n4 = Figura(d)
			n5 = Figura(e)
			nn = n1 + n2 + n3 + n4 + n5
			x = Figura(nn)
			xx(1) = x : xx(2) = x + 1 : xx(3) = x + 2 : xx(4) = x + 3
			If xx(1) = 9 Then: xx(2) = 1 : If xx(1) = 9 Then xx(3) = 2 : If xx(1) = 9 Then xx(4) = 3
		If xx(1) = 8 Then: xx(2) = 9 : If xx(1) = 8 Then xx(3) = 1 : If xx(1) = 8 Then xx(4) = 2
	If xx(1) = 7 Then: xx(2) = 8 : If xx(1) = 7 Then xx(3) = 9 : If xx(1) = 7 Then xx(4) = 1
co = co + 1
Scrivi String(105,"*") & " Caso n°" & Format2(co),1
ColoreTesto 1
Scrivi DataEstrazione(idEstr) & "  -  " & SiglaRuota(r) & "  -  " & StringaEstratti(idEstr,r) & "  Figure  " &(n1) & "-" &(n2) & "-" &(n3) & "-" &(n4) & "-" &(n5) & "  Somma delle figure = " & Format2(nn) & "  >>>  FIGURA  " & x & "  <<<",1
ColoreTesto 0
Scrivi String(105,"-"),1
ruota(1) = r
ambata(1) = xx(1) 
ambata(2) = xx(2)
ambata(3) = xx(3)
ambata(4) = xx(4)
'ImpostaGiocata 1,ambata,ruota,aposta,k,1 ' Togli l'apice prima di impostagiocata se vuoi vedere l'esito delle ambate 
cinquina1(1) = xx(1)
cinquina1(2) = 40
cinquina1(3) = 50
cinquina1(4) = 60
cinquina1(5) = 70
ImpostaGiocata 2,cinquina1,ruota,aposte,k,2
cinquina2(1) = xx(2)
cinquina2(2) = 40
cinquina2(3) = 50
cinquina2(4) = 60
cinquina2(5) = 70
ImpostaGiocata 3,cinquina2,ruota,aposte,k,2
cinquina3(1) = xx(3)
cinquina3(2) = 40
cinquina3(3) = 50
cinquina3(4) = 60
cinquina3(5) = 70
ImpostaGiocata 4,cinquina3,ruota,aposte,k,2
cinquina4(1) = xx(4)
cinquina4(2) = 40
cinquina4(3) = 50
cinquina4(4) = 60
cinquina4(5) = 70
ImpostaGiocata 5,cinquina4,ruota,aposte,k,2
Gioca idestr
End If
If ScriptInterrotto Then Exit For 
Next
Scrivi:Scrivi
ScriviResoconto
End Sub

 

[gitagi]

l'ho diviso in 4 cinquine
ciao

sub main()
    dim ruota(1)
    dim aposta(5)
    dim aposte(3)
    dim xx(4)
    dim ambata(4)
    dim cinquina1(5)
    dim cinquina2(5)
    dim cinquina3(5)
    dim cinquina4(5)
    aposta(1) = 1
    aposte(2) = 1
    aposte(3) = 1
    r = inputbox(" ruota di ricerca ? ",," 6 ")
    espartenza = cint(inputbox(" estrazione di partenza ? ",," 7500 "))
    k = cint(inputbox(" colpi di gioco ? ",," 10 "))
    inizio = espartenza
    fine = estrazionefin
    co = 0
    for idestr = inizio to fine
        messaggio "elab. N° " & idestr & " del " & dataestrazione(idestr) & " [ metodo numeretti su napoli list by blackmore ]"
        if indicemensile(idestr + 1) = 1 then
            a = estratto(idestr,r,1)
            b = estratto(idestr,r,2)
            c = estratto(idestr,r,3)
            d = estratto(idestr,r,4)
            e = estratto(idestr,r,5)
            n1 = figura(a)
            n2 = figura(b)
            n3 = figura(c)
            n4 = figura(d)
            n5 = figura(e)
            nn = n1 + n2 + n3 + n4 + n5
            x = figura(nn)
            xx(1) = x : Xx(2) = x + 1 : Xx(3) = x + 2 : Xx(4) = x + 3
            if xx(1) = 9 then: Xx(2) = 1 : If xx(1) = 9 then xx(3) = 2 : If xx(1) = 9 then xx(4) = 3
        if xx(1) = 8 then: Xx(2) = 9 : If xx(1) = 8 then xx(3) = 1 : If xx(1) = 8 then xx(4) = 2
    if xx(1) = 7 then: Xx(2) = 8 : If xx(1) = 7 then xx(3) = 9 : If xx(1) = 7 then xx(4) = 1
co = co + 1
scrivi string(105,"*") & " caso n°" & format2(co),1
coloretesto 1
scrivi dataestrazione(idestr) & "  -  " & siglaruota(r) & "  -  " & stringaestratti(idestr,r) & "  figure  " &(n1) & "-" &(n2) & "-" &(n3) & "-" &(n4) & "-" &(n5) & "  somma delle figure = " & format2(nn) & "  >>>  figura  " & x & "  <<<",1
coloretesto 0
scrivi string(105,"-"),1
ruota(1) = r
ambata(1) = xx(1) 
ambata(2) = xx(2)
ambata(3) = xx(3)
ambata(4) = xx(4)
'impostagiocata 1,ambata,ruota,aposta,k,1 ' togli l'apice prima di impostagiocata se vuoi vedere l'esito delle ambate 
cinquina1(1) = xx(1)
cinquina1(2) = 40
cinquina1(3) = 50
cinquina1(4) = 60
cinquina1(5) = 70
impostagiocata 2,cinquina1,ruota,aposte,k,2
cinquina2(1) = xx(2)
cinquina2(2) = 40
cinquina2(3) = 50
cinquina2(4) = 60
cinquina2(5) = 70
impostagiocata 3,cinquina2,ruota,aposte,k,2
cinquina3(1) = xx(3)
cinquina3(2) = 40
cinquina3(3) = 50
cinquina3(4) = 60
cinquina3(5) = 70
impostagiocata 4,cinquina3,ruota,aposte,k,2
cinquina4(1) = xx(4)
cinquina4(2) = 40
cinquina4(3) = 50
cinquina4(4) = 60
cinquina4(5) = 70
impostagiocata 5,cinquina4,ruota,aposte,k,2
gioca idestr
end if
if scriptinterrotto then exit for 
next
scrivi:scrivi
scriviresoconto
end sub

grazie 1000
molto gentile

 

[pasqualet59]

Ciao

 

[pasqualet59]