Buon anno a tutti

keeper · 1 Gennaio 2013

grazie mike non mi ero accorto di aver inserito lo con copia incolla una funzione in precedenza memorizzata e ho avuto pochissimo tempo da dedicarmi questi sono i miei primi esercizi per fare gli script grazie

Roby · 1 Gennaio 2013

Buon anno a tutti....

Codice:

Sub Main() ColoreTesto 1	Scrivi
	Scrivi "5 QUARTINE SU' TO-VE ALLA 6° ESTRAZIONE MENSILE",1
	Scrivi
	Scrivi
	Scrivi " METODO E LIST BY Steel",1
	Scrivi
	ColoreTesto 0
	Dim ruote(10)
	Dim nn1(5): Dim nn2(5) : Dim nn3(5) : Dim nn4(5) : Dim nn5(5): Dim poste(4)
	poste(2) = 1.5
	poste(3) = 1
	poste(4) = .50
	klp = 9
	ini = 8000
	fin = EstrazioneFin
	co = 0
	For es = ini To fin
		If IndiceMensile(es) = 6 Then
			ruote(1) = 9
			ruote(2) = 10
			casi = casi + 1
			co = co + 1
			ColoreTesto 2:Scrivi String(100,"#") & " Caso n° " & casi,1
			ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
			ColoreTesto 0
			nn1(1) = Fuori90(Estratto(es,2,1) + 32)
			nn1(2) = Fuori90(Estratto(es,2,5) + 64)
			nn1(3) = Fuori90(Estratto(es,1,2) + 32)
			nn1(4) = Fuori90(Estratto(es,2,1) + 89)
			ImpostaGiocata 1,nn1,ruote,poste,klp
			nn2(1) = Fuori90(Estratto(es,2,1) * 7)
			nn2(2) = Fuori90(Estratto(es,3,3) + 39)
			nn2(3) = Fuori90(Estratto(es,2,1) * 32)
			nn2(4) = Fuori90(Estratto(es,2,1) * 11)
			ImpostaGiocata 2,nn2,ruote,poste,klp
			nn3(1) = Fuori90(Estratto(es,2,1) + 1)
			nn3(2) = Fuori90(Estratto(es,12,3) * 7)
			nn3(3) = Fuori90(Estratto(es,1,1) + 15)
			nn3(4) = Fuori90(Estratto(es,1,4) + 11)
			ImpostaGiocata 3,nn3,ruote,poste,klp
			nn4(1) = Fuori90(Estratto(es,2,1) * 78)
			nn4(2) = Fuori90(Estratto(es,2,2) * 31)
			nn4(3) = Fuori90(Estratto(es,4,1) + 11)
			nn4(4) = Fuori90(Estratto(es,3,1) * 55)
			ImpostaGiocata 4,nn4,ruote,poste,klp
			nn5(1) = Fuori90(Estratto(es,2,1) * 48)
			nn5(2) = Fuori90(Estratto(es,4,4) + 85)
			nn5(3) = Fuori90(Estratto(es,2,1) + 45)
			nn5(4) = Fuori90(Estratto(es,1,1) + 43)
			ImpostaGiocata 5,nn5,ruote,poste,klp
			Gioca es,1
		End If
	Next
	Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
	ScriviResoconto
End Sub

keeper · 1 Gennaio 2013

ciao steel ottimi questi script ma di sommativi ne esistono per 10elotto5m?

Roby · 2 Gennaio 2013

keeper ha scritto:
ciao steel ottimi questi script ma di sommativi ne esistono per 10elotto5m?

Ciao Keeper,
ti rispondo di si ma....non li tratto...
io e il mio socio Blackmore...siamo solo ed esclusivamente innamorati
alla sommativa applicata al Lotto

keeper · 2 Gennaio 2013

ah ecco sei socio di black!

keeper · 2 Gennaio 2013

scherzo siete entrambi ottimi previsionisti se così vi posso chiamare una domanda
secondo il tuo script la previsione da mettere in gioco è questa?

02.01.2013--->1° Estrazione MensileEstrazione generatrice del pronostico 08633 [ 1 - 02/01/2013]G 0001Numeri in gioco : 06.54.88.66.19 su CA PA per Ambo,TernoIn corso per altre 10 estrazioniG 0002Numeri in gioco : 18.48.18.88.31 su CA PA per Ambo,TernoIn corso per altre 10 estrazioniG 0003Numeri in gioco : 41.34.21.06.42 su CA PA per Ambo,TernoIn corso per altre 10 estrazioniG 0004Numeri in gioco : 28.13.38.18.06 su CA PA per Ambo,TernoIn corso per altre 10 estrazioniG 0005Numeri in gioco : 63.51.78.36.30 su CA PA per Ambo,TernoIn corso per altre 10 estrazionicosì almeno seguo le tue teorie logicamente anche quelle del socio altrimenti si offende

keeper · 2 Gennaio 2013

penso di utilizzare questa progressione
aProgressioni(2,1) =2.00
aProgressioni(2,2) =2.00
aProgressioni(2,3) =2.00
aProgressioni(2,4) =2.00
aProgressioni(2,5) =2.00
aProgressioni(2,6) =2.50
aProgressioni(2,7) =3.00
aProgressioni(2,8) =3.50
aProgressioni(2,9) =4.00
aProgressioni(2,10) =5.00

keeper · 2 Gennaio 2013

29.12.2012--->13° Estrazione MensileEstrazione generatrice del pronostico 08632 [156 - 29/12/2012]G 0001Numeri in gioco : 07.15.18 su BA per Ambo,TernoIn corso per altre 9 estrazioniG 0002Numeri in gioco : 38.89.86 su BA per Ambo,TernoIn corso per altre 9 estrazioniG 0003Numeri in gioco : 06.52.60 su BA per Ambo,TernoIn corso per altre 9 estrazioniG 0004Numeri in gioco : 84.12.05 su BA per Ambo,TernoIn corso per altre 9 estrazioni29.12.2012--->13° Estrazione Mensile
Estrazione generatrice del pronostico 08632 [156 - 29/12/2012]G 0001Numeri in gioco : 07.15.18 su BA per Ambo,TernoIn corso per altre 9 estrazioniG 0002Numeri in gioco : 38.89.86 su BA per Ambo,TernoIn corso per altre 9 estrazioniG 0003Numeri in gioco : 06.52.60 su BA per Ambo,TernoIn corso per altre 9 estrazioniG 0004Numeri in gioco : 84.12.05 su BA per Ambo,TernoIn corso per altre 9 estrazionianche questa mi da seguire su bari ruota mia preverita

Roby · 2 Gennaio 2013

Ciao Keeper,
bisogna sempre ricordarsi che bisogna andare sempre con i piedi di piombo,La Matematica sommativa è in grado di dare vincite che con altri studi non riesci ad avere
ma....è anche vero che...non sempre è oro ciò che luccica

Guarda questo listato statistico,sicuramente non ha l'output dei sommativi ma...è pur sempre ottimo

Codice:

Sub Main()	ColoreTesto 1
	Scrivi "RICERCA SPIA SOMMA 91 SU TO ",1
	ColoreTesto 1
	Scrivi"METODO STATISTICO ELABORATO BY  Marco² (Steel)",2
	ColoreTesto 1
	Scrivi " 5 TERNI ETEROGENEI  x 9 COLPI ",1
	ColoreTesto 0
	Dim ruota(2)
	Dim posta(1)
	Dim poste(2)
	Dim terzina1(3)
	Dim terzina2(3)
	Dim terzina3(3)
	Dim terzina4(3)
	Dim terzina5(3)
	poste(2) = 1
	clp = 9
	ini = EstrazioneFin - 900
	fin = EstrazioneFin
	co = 0
	For es = ini To fin
		Messaggio es
		Call AvanzamentoElab(Ini,Fin,es)
		For p1 = 1 To 4
			For p2 = p1 + 1 To 5
				a = Estratto(es,9,p1)
				b = Estratto(es,9,p2)
				ok = 0
				If Fuori90(a + b) = 1 Then
					terzina1(1) = 57
					terzina1(2) = 64
					terzina1(3) = 88
					terzina2(1) = 65
					terzina2(2) = 82
					terzina2(3) = 89
					terzina3(1) = 23
					terzina3(2) = 75
					terzina3(3) = 90
					terzina4(1) = 2
					terzina4(2) = 11
					terzina4(2) = 23
					terzina5(1) = 1
					terzina5(2) = 2
					terzina5(3) = 28
					ok = 1
				End If
				If ok = 1 Then
					co = co + 1
					ColoreTesto 7
					Scrivi String(80,"*") & " Caso n°" & co,1
					Scrivi DataEstrazione(es) & "  *** LIST BY  Marco² ***AMBO SPIA SOMMA 91 /  " & a & " - " & b,1
					Scrivi String(80,"*"),1
					ColoreTesto 0
					ruota(1) = 2
					ruota(2) = 4
					ImpostaGiocata 1,terzina1,ruota,poste,clp,2
					ImpostaGiocata 2,terzina2,ruota,poste,clp,2
					ImpostaGiocata 3,terzina3,ruota,poste,clp,2
					ImpostaGiocata 4,terzina4,ruota,poste,clp,2
					ImpostaGiocata 5,terzina5,ruota,poste,clp,2
					Gioca es,1
				End If
			Next
		Next
	Next
	ScriviResoconto
End Sub

keeper · 3 Gennaio 2013

senza ombra di dubbio ma volentieri ci punto qualche euro su bari. grazie

Roby · 10 Gennaio 2013

daniel ha scritto:
Su l8 non c'è nessun problema, è quasi istantaneo, non riesco a capirne il motivo.
Ho provato anche con molte più estrazioni anche dal 1939 e non da nessun problema di attesa di compilazione resoconto.
Comunque punto solo sulla terza giocata ..........
Ciao

Che fai dormi???
Prima proponi e poi non le giochi?
Puntavo sulla terza e alla terza è arrivato l'ambo.
Ciao ciao

Codice:

02.01.2013--->1° Estrazione Mensile
mer 02.01.2013  [8633]
  G  1:  ATQC          06.54.88.66.19   Ca Pa    4/10    
     in corso (4° su 10)
  G  2:  ATQC          18.48.88.31      Ca Pa    4/10    
     in corso (4° su 10)
  G  3:  ATQC          41.34.21.06.42   Ca Pa    4/10    
     A  42.41            su Pa    4° colpo   [8637/10.01.2013]
     I4
  G  4:  ATQC          28.13.38.18.06   Ca Pa    3/10    
     A  13.18            su Pa    3° colpo   [8636/08.01.2013]
     I3
  G  5:  ATQC          63.51.78.36.30   Ca Pa    4/10    
     in corso (4° su 10)

Roby · 10 Gennaio 2013

Non sono mica gioachino che apre un post al giorno per evidenziare le sue vincite!

Ho visto si

keeper · 11 Gennaio 2013

ottimo steel

Roby · 11 Gennaio 2013

Grazie Keeper,ogni tanto...passa a trovarci

Detto ciò!...Vedemo se ste 3 quartine fruzzicano

Codice:

Sub Main() ColoreTesto 7	Scrivi
	Scrivi "3 QUARTINE SU' VE-NZ ALLA 5° DEL MESE",1
	Scrivi
	Scrivi
	Scrivi " METODO E LIST BY  Marco² (Steel)",1
	Scrivi
	ColoreTesto 0
	Dim ruote(10)
	Dim quaterna1(5): Dim quaterna2(5) : Dim quaterna3(5): Dim poste(4)
	poste(2) = 1
	poste(3) = 1
	poste(4) = 1
	klp = 10
	ini = 8375
	fin = EstrazioneFin
	co = 0
	For es = ini To fin
		If IndiceMensile(es) = 5 Then
			ruote(1) = 10
			ruote(2) = 12
			casi = casi + 1
			co = co + 1
			ColoreTesto 1:Scrivi String(100,">") & " Caso n° " & casi,1
			ColoreTesto 1:Scrivi String(100,"+")
			ColoreTesto 2:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
			ColoreTesto 1:Scrivi String(100,"+")
			ColoreTesto 1:Scrivi String(100,"<")
			ColoreTesto 0
			quaterna1(1) = Fuori90(Estratto(es,1,1) * 25)
			quaterna1(2) = Fuori90(Estratto(es,6,4) + 12)
			quaterna1(3) = Fuori90(Estratto(es,1,3) + 44)
			quaterna1(4) = Fuori90(Estratto(es,2,1) + 10)
			ImpostaGiocata 1,quaterna1,ruote,poste,klp
			quaterna2(1) = Fuori90(Estratto(es,1,1) + 4)
			quaterna2(2) = Fuori90(Estratto(es,7,2) + 37)
			quaterna2(3) = Fuori90(Estratto(es,4,4) + 78)
			quaterna2(4) = Fuori90(Estratto(es,2,1) + 27)
			ImpostaGiocata 2,quaterna2,ruote,poste,klp
			quaterna3(1) = Fuori90(Estratto(es,1,1) + 3)
			quaterna3(2) = Fuori90(Estratto(es,7,4) + 56)
			quaterna3(3) = Fuori90(Estratto(es,5,5) + 68)
			quaterna3(4) = Fuori90(Estratto(es,2,3) + 56)
			ImpostaGiocata 3,quaterna3,ruote,poste,klp
			Gioca es,1
		End If
	Next
	Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
	ScriviResoconto
End Sub

keeper · 11 Gennaio 2013

però se fruzzicano lo apro io un post anzi un forum

Roby · 12 Gennaio 2013

steel ha scritto:

Codice:

Sub Main()    ColoreTesto 1
    Scrivi
    Scrivi "5 CINQUINE SU' CA-PA ALLA 1° ESTRAZIONE MENSILE",1
    Scrivi
    Scrivi
    Scrivi " METODO E LIST BY Steel",1
    Scrivi
    ColoreTesto 0
    Dim ruote(10)
    Dim nn1(5): Dim nn2(5) : Dim nn3(5) : Dim nn4(5) : Dim nn5(5): Dim poste(5)
    poste(2) = .80
    poste(3) = .10
    'poste(4) = .05
    'poste(5) = .05
    klp = 10
    ini = 8175
    fin = EstrazioneFin
    co = 0
    For es = ini To fin
        If IndiceMensile(es) = 1 Then
            ruote(1) = 2
            ruote(2) = 7
            casi = casi + 1
            co = co + 1
            ColoreTesto 2:Scrivi String(100,"$") & " Caso n° " & casi,1
            ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
            ColoreTesto 0
            nn1(1) = Fuori90(Estratto(es,12,1) + 70)
            nn1(2) = Fuori90(Estratto(es,10,2) * 3)
            nn1(3) = Fuori90(Estratto(es,5,2) + 83)
            nn1(4) = Fuori90(Estratto(es,1,2) + 85)
            nn1(5) = Fuori90(Estratto(es,9,4) + 61)
            ImpostaGiocata 1,nn1,ruote,poste,klp
            nn2(1) = Fuori90(Estratto(es,12,1) + 82)
            nn2(2) = Fuori90(Estratto(es,8,5) * 68)
            nn2(3) = Fuori90(Estratto(es,2,1) + 66)
            nn2(4) = Fuori90(Estratto(es,2,1) + 46)
            nn2(5) = Fuori90(Estratto(es,12,1) + 5)
            ImpostaGiocata 2,nn2,ruote,poste,klp
            nn3(1) = Fuori90(Estratto(es,12,1) + 15)
            nn3(2) = Fuori90(Estratto(es,1,3) + 42)
            nn3(3) = Fuori90(Estratto(es,7,5) + 90)
            nn3(4) = Fuori90(Estratto(es,12,1) * 66)
            nn3(5) = Fuori90(Estratto(es,9,1) + 15)
            ImpostaGiocata 3,nn3,ruote,poste,klp
            nn4(1) = Fuori90(Estratto(es,12,1) + 2)
            nn4(2) = Fuori90(Estratto(es,12,4) + 5)
            nn4(3) = Fuori90(Estratto(es,1,4) + 65)
            nn4(4) = Fuori90(Estratto(es,12,1) * 18)
            nn4(5) = Fuori90(Estratto(es,12,4) + 88)
            ImpostaGiocata 4,nn4,ruote,poste,klp
            nn5(1) = Fuori90(Estratto(es,12,1) + 37)
            nn5(2) = Fuori90(Estratto(es,4,5) + 20)
            nn5(3) = Fuori90(Estratto(es,12,1) + 52)
            nn5(4) = Fuori90(Estratto(es,6,2) + 28)
            nn5(5) = Fuori90(Estratto(es,12,1) + 4)
            ImpostaGiocata 5,nn5,ruote,poste,klp
            Gioca es,1
        End If
    Next
    Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
    ScriviResoconto
End Sub

continuano le vincite

keeper · 12 Gennaio 2013

allora fruzzicano bene posso aprire?

Roby · 15 Gennaio 2013

Metodo con previsione con listato,
si basa sulla sortita della spia 26 uscita simultaneamente nelle ruote di BA-CA
attenzione chi usa il metodo tradizionale del carta penna e calcolatrice,quando si incotra l'abbinamento
uguale all'ambata,si fa il +1

Marco²(88
(SteeL) l'unico e inimitabile...diffidate dalle imitazioni!

Codice:

Sub Main()ColoreTesto 1:Scrivi String(50," ") & "SPIA 26 SU BARI/CAGLIARI SU ENTRAMBE LE RUOTE"
ColoreTesto 1:Scrivi String(50," ") & "METODO E LISTATO BY Marco² (Steel)"
ColoreTesto 1:Scrivi String(50," ") & " Marco² L'UNICO E INIMITABILE "
ColoreTesto 0:Scrivi
Dim ruote(10)
Dim ambata(1)
Dim ambo1(2)
Dim ambo2(2)
Dim ambo3(2)
Dim ambo4(2)
Dim posta(1)
Dim poste(2)
posta(1) = 1
poste(2) = 2
r1 = InputBox("1° RUOTA DI RICERCA ?",,1)
r2 = InputBox("2° RUOTA DI RICERCA ?",,2)
xxx = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO?",,1000))
k = 10
co = 0
fin = EstrazioneFin
ini = xxx
For es = ini To fin
AvanzamentoElab ini,fin,es
For p1 = 1 To 5
For p2 = 1 To 5
bari = Estratto(es,r1,p1)
cagliari = Estratto(es,r2,p2)
If bari = 26 Then
If bari = cagliari Then
casi = casi + 1
ruote(1) = 1 : ruote(2) = 2
ColoreTesto 3:Scrivi String(100,"=") & " Caso n° " & casi,1
ColoreTesto 3:Scrivi String(100,"+")
co = co + 1
ColoreTesto 1:Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & " Numero Ripetuto " & bari
ColoreTesto 1:Scrivi DataEstrazione(es) & " - " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & " Numero Ripetuto " & cagliari
ColoreTesto 0
ColoreTesto 3:Scrivi String(100,"=")
ColoreTesto 3:Scrivi String(100,"+")
ambata(1) = Fuori90(Estratto(es,3,4) + 11)
ImpostaGiocata 1,ambata,ruote,posta,k,1
ambo1(1) = ambata(1)
ambo1(2) = Fuori90(Estratto(es,8,4)*36)
If ambo1(2) = ambo1(1) Then ambo1(2) = Fuori90(ambo1(1) + 1)'se i numeri sono uguali si fa il +1
ImpostaGiocata 2,ambo1,ruote,poste,k,2
ambo2(1) = ambata(1)
ambo2(2) = Fuori90(Estratto(es,1,3) + 58)
If ambo2(2) = ambo2(1) Then ambo2(2) = Fuori90(ambo2(1) + 1)'se i numeri sono uguali si fa il +1
ImpostaGiocata 3,ambo2,ruote,poste,k,2
ambo3(1) = ambata(1)
ambo3(2) = Fuori90(Estratto(es,2,1)*57)
If ambo3(2) = ambo3(1) Then ambo3(2) = Fuori90(ambo3(1) + 1)'se i numeri sono uguali si fa il +1
ImpostaGiocata 4,ambo3,ruote,poste,k,2
ambo4(1) = ambata(1)
ambo4(2) = Fuori90(Estratto(es,9,2) + 14)
If ambo4(2) = ambo4(1) Then ambo4(2) = Fuori90(ambo4(1) + 1)'se i numeri sono uguali si fa il +1
ImpostaGiocata 5,ambo4,ruote,poste,k,2
Gioca es,1
http://***************.forumfree.it/
End If
End If
Next
Next
Next
Scrivi:Scrivi:Scrivi:Scrivi:ScriviResoconto
End Sub

anto59 · 15 Gennaio 2013

ciaoo Marco unico e inimitabile io faccio tutto carta e penna volevo sapere cosa si gioca!!

Roby · 15 Gennaio 2013

anto59 ha scritto:
ciaoo Marco unico e inimitabile io faccio tutto carta e penna volevo sapere cosa si gioca!!

Ciao Anto,
BA-CA ambata 58
abbinamenti 4-18-42-87

Buon anno a tutti

Advanced Member >PLATINUM PLUS<

Roby

Guest

Advanced Member >PLATINUM PLUS<

Roby

Guest

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Roby

Guest

Advanced Member >PLATINUM PLUS<

Roby

Guest

Roby

Guest

Advanced Member >PLATINUM PLUS<

Roby

Guest

Advanced Member >PLATINUM PLUS<

Roby

Guest

Advanced Member >PLATINUM PLUS<

Roby

Guest

Banned

Roby

Guest