nazionale piccolo metodo decima del mese

[nuovadimensione]

alla decima del mese il secondo estratto piu 44 il fuori 90 se serve abbinamenti fissi 14 54 la previsione per 6 colpi partendo da oggi e 11 14 11 54 buon natale a tutto il forum

 

[maria72]

ciao....anche io ho il metodo,il mese scorso ha pagato al 1 colpo
speremmmm

 

[nuovadimensione]

e si maria pero non so che statistica a io non sono tanto bravo al pc ciao maria e auguri di buon natale e crepi il lupo

 

[maria72]

da agosto ha pagato sempre ambo.......
novembre pagato al 1 colpo
l'autore dice di sviluppare il metodo x altri 6 mesi
vediamo che accade

 

[Roby]

Ciao,
ti ho fatto il listato...portando i colpi a 12 per aumentare i esiti,visto che si tratta di unica ambata
volendo puoi lavorare sui abbinamenti statistici,cambiando i valori

Sub Main()	Scrivi : ColoreTesto 2 : Scrivi "1 ambata + 2 ambi alla 10° del mese sulla NZ"
	Scrivi : ColoreTesto 2 : Scrivi " Metodo di Nuovadimenzione listato da Steel² "
	Scrivi : ColoreTesto 0 : Scrivi
	Dim pt(2),rt(1),ambata(1),nn(2),pta(2)
	pt(1) = 1
	pta(2) = 1
	clp = 12
	rt(1) = 12
	ini = EstrazioneIni + 8330
	fin = EstrazioneFin
	co = 0
	For es = ini To fin
		Messaggio(es)
		If IndiceMensile(es) = 10 Then
			AvanzamentoElab Ini,fin,es
			casi = casi + 1
			ColoreTesto 1
			Scrivi String(60,"=") & " Caso n° " & casi,1
			Scrivi : ColoreTesto 2 : Scrivi String(40,32) & " Pronostico n° " & co & "",1
			ColoreTesto 0 : Scrivi
			co = co + 1
			ambata(1) = Fuori90(Estratto(es,12,2) + 44)
			ImpostaGiocata 1,ambata,rt,pt,clp
			nn(1) = Fuori90(Estratto(es,12,2) + 44)
			nn(2) = 14
			ImpostaGiocata 2,nn,rt,pta,clp
			nn(1) = Fuori90(Estratto(es,12,2) + 44)
			nn(2) = 54
			ImpostaGiocata 3,nn,rt,pta,clp
			Gioca es,1
		End If
	Next
	Scrivi : Scrivi "Casi Rilevati " & CInt(co)
	ScriviResoconto
End Sub

 

[maria72]

grazie steel.....ma non capisco uso carta e penna

23 agosto------24///abbin.14.54......8 colpo 24 14

22 sttembre 32//abbin.14.54......13 colpo 32 14

23 ottobre 34//abbin 14.54......2 colpo 34 54

22 novembre 25 abbin 14.54.....1 colpo 25 54........posso testimoniare che ho vinto a novembre.

22 dicembre 11 abbin.14 54..........

 

[SUNRISE]

Su .

 

[franca46]

buongiorno steel

il listato mi dà errore , io ho L8

Imposta Giocata 1,ambata,rt,pt,clp

e qui

Imposta Giocata 3,ambata,rt,pta,clp

ciao

 

[Joe91]

Ciao Franca, BuonGiorno a tutte/i.

"ImpostaGiocata" deve essere scritto senza "spazi" intermedi.

 

[Roby]

buongiorno steel

il listato mi dà errore , io ho L8

Imposta Giocata 1,ambata,rt,pt,clp

e qui

Imposta Giocata 3,ambata,rt,pta,clp

ciao

Ciao Franca,
abbiamo speso un mucchio di soldi per farti studiare e...questi sono i risultati!?
Ihihih....Ciao franchetta...un abbraccio... Marco²

un saluto e ringraziamento anche all'amico Joe

 

[franca46]

ma davvero , che vergogna che sono!!!!!!

comunque l'ho ricopiato e non dà nulla di nulla

 

[Roby]

ma davvero , che vergogna che sono!!!!!!

comunque l'ho ricopiato e non dà nulla di nulla

Chiediloa Mike....ihihihihihih

 

[franca46]

 

[Joe91]

....

comunque l'ho ricopiato e non dà nulla di nulla

Ciao Franca,

è veramente strano, perchè è un programma che non dovrebbe dare problemi.

Lo inserisco qui di seguito, provato e funzionante con spaziometria.

Sub Main() 
 Scrivi : ColoreTesto 2 : Scrivi "1 ambata + 2 ambi alla 10° del mese sulla NZ"
 Scrivi : ColoreTesto 2 : Scrivi " Metodo di Nuovadimenzione listato da Steel² "
 Scrivi : ColoreTesto 0 : Scrivi
 Dim pt(2),rt(1),ambata(1),nn(2),pta(2)
 pt(1) = 1
 pta(2) = 1
 clp = 12
 rt(1) = 12
 ini = 8330
 fin = EstrazioneFin
 co = 0
 For es = ini To fin
  Messaggio(es)
  If IndiceMensile(es) = 10 Then
   AvanzamentoElab Ini,fin,es
   casi = casi + 1
   ColoreTesto 1
   Scrivi String(60,"=") & " Caso n° " & casi,1
   Scrivi : ColoreTesto 2 : Scrivi String(40,32) & " Pronostico n° " & co & "",1
   ColoreTesto 0 : Scrivi
   co = co + 1
   ambata(1) = Fuori90(Estratto(es,12,2) + 44)
   ImpostaGiocata 1,ambata,rt,pt,clp
   nn(1) = Fuori90(Estratto(es,12,2) + 44)
   nn(2) = 14
   ImpostaGiocata 2,nn,rt,pta,clp
   nn(1) = Fuori90(Estratto(es,12,2) + 44)
   nn(2) = 54
   ImpostaGiocata 3,nn,rt,pta,clp
   Gioca es,1
  End If
 Next
 Scrivi : Scrivi "Casi Rilevati " & CInt(co)
 ScriviResoconto
End Sub

Se necessario posso controllarlo, anche con L8, ma solo ... il prossimo anno!

Fammi sapere.

 

[Roby]

Ciao Joe, penso che il problema di Franca sia sempre il solito....
Con L8 bisogna togliere la virgola e l'1 dopo Gioca es

Così per Spaziometria:
Gioca es,1

Così per L8 o Lottodesk:
Gioca es

Prova così Franca

Ciao a tutti e felice Anno nuovo!!!

 

[franca46]

ciao ragazzi

black questa almeno la so. ma non va comunque.

non ho guardato cosa cambia con quello di joe che gira.

grazie della pazienza che avete con me.

 

[franca46]

 

[pet70]

a me con spaziometria funziona benissimo

 

[nuovadimensione]

solo 11 peccato pero continuo

 

[nuovadimensione]

nuova previsione nazionale 7 14 7 54