Novità

Metodino-ino-ino

M

morena59

Junior Member
Salve a tutti,
questo metodo l'ho chiamato: "cazzeggiando per il quadro estrazionale"
Vengo al sodo:
rilevare in una ruota qualsiasi,un ambo diametrale e su altra ruota
(impotante che sia sucessiva e non precedente all'ambo diametrale)
il numero somma dell'ambo.
A rilevamento, giocheremo il diametrale del numero somma come ambata
La quartina sarà composta dall'ambata,dalla (ambata:2),(ambata:2)+30,(ambata:2)+60
Esempiuccio:
12/1/2012
NA 43-88
RO 41
previsione
NA-RO 86 (diametrale del numero somma)
86-43-73-13
esito al 1 1° colpo NA 86
esito al 2° colpo RO 86 e ambo 86-13
Nel fratempo ci sono state molte altre vincite.
Vi allego lo script
[CODE]Sub Main() Dim ruote(11)
Dim n1(4)
Dim ambata(1)
Dim posta(1)
Dim poste(10)
posta(1) = 1
poste(2) = 1
ambata(1) = 1
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",500)
k = InputBox("per quanti colpi?","colpi di gioco",12)
ini = EstrazioneFin - ce
fin = EstrazioneFin
casi = 0
ok = 0
For es = ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 9
For r2 = r1 + 1 To 11
If r2 = 11 Then
r2 = 12
End If
For p1 = 1 To 4
For p2 = p1 + 1 To 5
For p3 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r2,p3)
'---------------------------------------------
If Distanza(a,b) = 45 Then
If c = Fuori90(a + b) Then
nu1 = Fuori90(a + b)
nu2 = Diametrale(nu1)
nu3 =(nu2)/2
nu4 = Fuori90(nu3 + 30)
nu5 = Fuori90(nu3 + 60)
ok = 1
'-----------------------------------------------
If ok = 1 Then
ambata(1) = nu2
n1(1) = nu2
n1(2) = nu3
n1(3) = nu4
n1(4) = nu5
casi = casi + 1
Scrivi String(100,"°") & " Caso n°" & casi,1
ColoreTesto 1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] * [ " & Format2(a) & " - " & Format2(b) & " ]" & " * estratti : " & " [ " &(a) & " - " &(b) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] * [ " & Format2(c) & " - " & Format2(d) & " ]" & " * estratti : " & " [ " &(c) & " ] ",1
ruote(1) = r1
ruote(2) = r2
ambata(1) = nu2
n1(1) = nu2
n1(2) = nu3
n1(3) = nu4
n1(4) = nu5
ColoreTesto 0
ImpostaGiocata 1,ambata,ruote,posta,k,1
ImpostaGiocata 2,n1,ruote,poste,k,2
Gioca es,1
End If
End If
End If
Next
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & casi,1
ColoreTesto 0
Scrivi String(100," * ")
ColoreTesto 0
ScriviResoconto
End Sub


[/CODE]
 
M

Marcyl

Advanced Member >GOLD<
Ciao marco, complimenti per il "c..........o per il quadro estrazionale":), cortesemente mi puoi postare qualche previsione in corso?
Grazie e buona serata
marcello
 
M

Marcyl

Advanced Member >GOLD<
Ciao Marco, finalmente ho aggiornato con l'ultima versione di Spaziometria..:)
Per quanto riguarda questo script... ti volevo chiedere di aggiungere un altro abbinamento.... e cioè l'altro numero dell'ambo di partenza... mi spiego meglio con un esempio:

Estrazione del 06/03/2012
ROMA 53-8
NAZIONALE 61
Secondo il tuo metodino-ino la previsione è:
RO-NAZ
16 ambata
8-38-68 abbinamenti per ambo
Io invece ti chiedo di provare ad aggiugere il 53 pure come abbinamento per ambo...:)
Grazie
 
M

morena59

Junior Member
Ciao Marcello,
era ora!!!!!:cool:Riguardo al metodo "cazzeggio" ci avevo pensato anch'io
ma volevo provare con meno numeri.Cmq,hai visto l'output?
Puoi analizzare anche 2000/3000 estrazioni che la percentuale resta invariata.
Sicuramente da tenere in considerazione:cool:
Ecco il listato modificato:eek:
Codice: 
[/SIZE][/FONT]Sub Main()	Dim ruote(11)
	Dim n1(5)
	Dim ambata(1)
	Dim posta(1)
	Dim poste(10)
	posta(1) = 1
	poste(2) = 1
	ambata(1) = 1
	ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",500)
	k = InputBox("per quanti colpi?","colpi di gioco",12)
	ini = EstrazioneFin - ce
	fin = EstrazioneFin
	casi = 0
	ok = 0
	For es = ini To fin
		Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
		Call AvanzamentoElab(Ini,fin,es)
		For r1 = 1 To 9
			For r2 = r1 + 1 To 11
				If r2 = 11 Then
					r2 = 12
				End If
				For p1 = 1 To 4
					For p2 = p1 + 1 To 5
						For p3 = 1 To 5
							a = Estratto(es,r1,p1)
							b = Estratto(es,r1,p2)
							c = Estratto(es,r2,p3)
							'---------------------------------------------
							If Distanza(a,b) = 45 Then
								If c = Fuori90(a + b) Then
									nu1 = Fuori90(a + b)
									nu2 = Diametrale(nu1)
									nu3 =(nu2)/2
									nu4 = Fuori90(nu3 + 30)
									nu5 = Fuori90(nu3 + 60)
									nu6 = Diametrale(nu3)
									ok = 1
									'-----------------------------------------------
									If ok = 1 Then
										ambata(1) = nu2
										n1(1) = nu2
										n1(2) = nu3
										n1(3) = nu4
										n1(4) = nu5
										casi = casi + 1
										Scrivi String(100,"°") & " Caso n°" & casi,1
										ColoreTesto 1
										Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
										" ] * [ " & Format2(a) & " - " & Format2(b) & " ]" & "  *   estratti : " & " [ " &(a) & " - " &(b) & " ] ",1
										Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
										" ] * [ " & Format2(c) & " - " & Format2(d) & " ]" & "  *   estratti : " & " [ " &(c) & " ] ",1
										ruote(1) = r1
										ruote(2) = r2
										ambata(1) = nu2
										n1(1) = nu2
										n1(2) = nu3
										n1(3) = nu4
										n1(4) = nu5
										n1(5) = nu6
										ColoreTesto 0
										ImpostaGiocata 1,ambata,ruote,posta,k,1
										ImpostaGiocata 2,n1,ruote,poste,k,2
										Gioca es,1
									End If
								End If
							End If
						Next
					Next
				Next
			Next
		Next
	Next
	Scrivi
	Scrivi String(100,"*")
	ColoreTesto 2
	Scrivi" casi trovati : " & casi,1
	ColoreTesto 0
	Scrivi String(100," * ")
	ColoreTesto 0
	ScriviResoconto
End Sub




[FONT=times new roman][SIZE=5]


 
B

Baffoblu

Guest
Ciao antelao

Fai gli stessi sbagli che facevo io
tempo fa....


Nello script queste righe non ti servono a nulla
se le elimini, funziona lo stesso.....


ok = 0
ok = 1
If ok = 1 Then
End If


(questo "End If" è quello dopo "gioca es")
-------------------------------------------


Il giochetto del (ok=0 / ok=1)

ti serve solo in situazioni particolari....
Quando ci sono decisioni multiple da affrontare,
e a volte nemmeno serve, dipende.


Un altra dritta che ti do !

:)

 
D

DEAEBE

Advanced Member
scusa Antelao ma da dove vengono fuori oltre al 43 che fa parte dei numeri principali il 73 e il 16 come si calcolano? Grazie per la risposta se potrai darmela, ma non tutti siamo bravi come voi che sapete usare il computer, noi purtroppo siamo capaci solo con carta e penna.
 
D

DEAEBE

Advanced Member
scusa Antelao ma da dove vengono fuori oltre al 43 che fa parte dei numeri principali il 73 e il 16 come si calcolano? Grazie per la risposta se potrai darmela, ma non tutti siamo bravi come voi che sapete usare il computer, noi purtroppo siamo capaci solo con carta e penna. Ancora una domanda perche' non mi e' chiaro il secondo caso che ha descritto Marcyl e cioè i numeri come si calcolano? Scusami tanto ma ad una certa eta' e' gia' tanto saper navigare un po' in internet.
 
fefo.1979

fefo.1979

Member
mi sa che è colpa delle migliaia delle volte che metto io il naso in quell'area che vedete lievitare così il numero di visite ;)
 
N

Nataly

Member
antelao ha scritto:

Grazie Baffone per le dritte,
Ma a quanto pare,alla gente non ne frega na mazza di ciò che mettiamo a disposizione.
Credo che il nostro unico spazio,rimanga "l'area download"
almeno lì!.....ce la raccontiamo con buoni intenditori,
​qui è solo tempo perso
Clicca per espandere...

dai dai non preoccuparti gli utenti ti seguono... ho cliccato io almeno 259 volte....................
;)
 
D

DEAEBE

Advanced Member
scusatemi per quello che ho scritto precedentemente, pero' volevo farvi sapere che ho capito il procedimento e vi sono grata per quello che regalate ed ancora grazie mille e buona giornata
 
M

morena59

Junior Member
Stasera ambo VE 60-75 al 9° colpo

giovedì, mar 8 2012 [ GE - 35.45.60.15.84 ] * [ 60 - 15 ] * estratti : [ 60 - 15 ] giovedì, mar 8 2012 [ VE - 46.20.62.25.75 ] * [ 75 - ] * estratti : [ 75 ] Estrazione generatrice del pronostico 08506 [ 29 - 08/03/2012]G 0001Numeri in gioco : 30 su GE VE per EstrattoIn corso per altre 3 estrazioniG 0002Numeri in gioco : 30.15.45.75.60 su GE VE per AmboV N. [30.15.45.75.60 ] [VE] [.. 60 .. 75 ..] C. 9 Ambo 08515 [ 38 - 29/03/2012]Interrotta per esito verificato
 
Ultima modifica:
M

maurizio.bardelle

Junior Member
curiosita script

curiosita script

antelao ha scritto:
Salve a tutti,
questo metodo l'ho chiamato: "cazzeggiando per il quadro estrazionale"
Vengo al sodo:
rilevare in una ruota qualsiasi,un ambo diametrale e su altra ruota
(impotante che sia sucessiva e non precedente all'ambo diametrale)
il numero somma dell'ambo.
A rilevamento, giocheremo il diametrale del numero somma come ambata
La quartina sarà composta dall'ambata,dalla (ambata:2),(ambata:2)+30,(ambata:2)+60
Esempiuccio:
12/1/2012
NA 43-88
RO 41
previsione
NA-RO 86 (diametrale del numero somma)
86-43-73-13
esito al 1 1° colpo NA 86
esito al 2° colpo RO 86 e ambo 86-13
Nel fratempo ci sono state molte altre vincite.
Vi allego lo script
[CODE]Sub Main() Dim ruote(11)
Dim n1(4)
Dim ambata(1)
Dim posta(1)
Dim poste(10)
posta(1) = 1
poste(2) = 1
ambata(1) = 1
ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",500)
k = InputBox("per quanti colpi?","colpi di gioco",12)
ini = EstrazioneFin - ce
fin = EstrazioneFin
casi = 0
ok = 0
For es = ini To fin
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,fin,es)
For r1 = 1 To 9
For r2 = r1 + 1 To 11
If r2 = 11 Then
r2 = 12
End If
For p1 = 1 To 4
For p2 = p1 + 1 To 5
For p3 = 1 To 5
a = Estratto(es,r1,p1)
b = Estratto(es,r1,p2)
c = Estratto(es,r2,p3)
'---------------------------------------------
If Distanza(a,b) = 45 Then
If c = Fuori90(a + b) Then
nu1 = Fuori90(a + b)
nu2 = Diametrale(nu1)
nu3 =(nu2)/2
nu4 = Fuori90(nu3 + 30)
nu5 = Fuori90(nu3 + 60)
ok = 1
'-----------------------------------------------
If ok = 1 Then
ambata(1) = nu2
n1(1) = nu2
n1(2) = nu3
n1(3) = nu4
n1(4) = nu5
casi = casi + 1
Scrivi String(100,"°") & " Caso n°" & casi,1
ColoreTesto 1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
" ] * [ " & Format2(a) & " - " & Format2(b) & " ]" & " * estratti : " & " [ " &(a) & " - " &(b) & " ] ",1
Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
" ] * [ " & Format2(c) & " - " & Format2(d) & " ]" & " * estratti : " & " [ " &(c) & " ] ",1
ruote(1) = r1
ruote(2) = r2
ambata(1) = nu2
n1(1) = nu2
n1(2) = nu3
n1(3) = nu4
n1(4) = nu5
ColoreTesto 0
ImpostaGiocata 1,ambata,ruote,posta,k,1
ImpostaGiocata 2,n1,ruote,poste,k,2
Gioca es,1
End If
End If
End If
Next
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & casi,1
ColoreTesto 0
Scrivi String(100," * ")
ColoreTesto 0
ScriviResoconto
End Sub


[/CODE]
Clicca per espandere...

questo script è esattamente in questo sito http://superlotto.blogfree.net/?t=3992646 sei la stessa persona ? el pantero?
 
M

morena59

Junior Member
Ebbene sì....mi hai smascherato!Sono un copiatore!
Non capisco il perchè,una persona debba iscriversi per forza
con lo stesso nick su altri forum!
Bahhhh!
 
Ultima modifica:
M

maurizio.bardelle

Junior Member
non si arrabbi, era soltanto una curiosità .
Comunque da parte mia si è liberi di fare cio che si vuole sempre lasciando la libertà di farlo anche agli altri .
mi scuso di nuovo
antelao ha scritto:
Ebbene sì....mi hai smascherato!Sono un copiatore!
Non capisco il perchè,una persona debba iscriversi per forza
con lo stesso nick su altri forum!
Bahhhh!
Clicca per espandere...
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 07 maggio 2024
    Bari
    68
    80
    23
    56
    71
    Cagliari
    43
    74
    20
    02
    11
    Firenze
    75
    19
    18
    74
    69
    Genova
    45
    38
    26
    16
    87
    Milano
    06
    23
    72
    66
    05
    Napoli
    46
    21
    49
    80
    73
    Palermo
    15
    09
    54
    48
    49
    Roma
    06
    58
    78
    27
    31
    Torino
    78
    27
    31
    64
    74
    Venezia
    60
    47
    90
    06
    22
    Nazionale
    43
    58
    26
    18
    79
    Estrazione Simbolotto
    Milano
    17
    16
    25
    23
    43
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto