Novità

Buon anno a tutti

  • Creatore Discussione Creatore Discussione steel
  • Data di inizio Data di inizio
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
 
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
 
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
 
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
 
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
 
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:rolleyes:
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
 
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)
 
Ultima modifica:
Non sono mica gioachino che apre un post al giorno per evidenziare le sue vincite!

Ho visto si:)
 
Grazie Keeper,ogni tanto...passa a trovarci:)
Detto ciò!...Vedemo se ste 3 quartine fruzzicano:cool:

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
 
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
spazio.jpg
continuano le vincite:o
 
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!:cool:


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
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 12 giugno 2025
    Bari
    26
    16
    67
    08
    12
    Cagliari
    67
    31
    37
    76
    80
    Firenze
    03
    63
    28
    09
    43
    Genova
    68
    38
    53
    86
    85
    Milano
    66
    41
    88
    07
    53
    Napoli
    11
    32
    09
    24
    79
    Palermo
    07
    44
    76
    30
    35
    Roma
    03
    64
    30
    65
    29
    Torino
    40
    46
    31
    32
    39
    Venezia
    88
    67
    46
    04
    51
    Nazionale
    76
    67
    49
    34
    56
    Estrazione Simbolotto
    Napoli
    23
    03
    04
    17
    02
Indietro
Alto