Il gioco del lotto su NonSoloLotto.com

Il gioco del lotto su NonSoloLotto.com
Home | Profilo | Registrazione | Discussioni attive | Utenti | Cerca | FAQ | Entra in Chat!
Nome utente:
Password:
Salva la password
Hai dimenticato la password?

 Tutti i forum
 Lotto e altri giochi a pronostico
 Script da metodi
 script lotto
 Nuova discussione  Partecipa alla discussione
 Versione stampabile

Autore Discussione precedente Discussione Discussione successiva

qantonio
Utente Nuovo

21 invii

Spedito - 27 febbraio 2018 :  20:02:33  Mostra profilo  Rispondi con citazione
cortesemente x chi puo' farmi questo listato lotto:
11° estrazione del mese:
ambata = 5° ge+13
1° abb x ambo:1° fi -5° fi x 1° ro
2° abb x ambo 3° fi + 2° mi - 1° fi
3° abb x ambo 1° ro +4° ca - 4° mi
1° abb x terno 2° ba +3° ve x 3° pa
2° abb x terno 1° ba x4° nz +1° ge
3° abb x terno 1° ba +5° ge x 3° pa
ruote di gioco ba ca, grazie in anticipo.

Duca
Utente Nuovo

24 invii

Spedito - 28 febbraio 2018 :  11:22:22  Mostra profilo  Rispondi con citazione
Ciao
Eccolo controlla se i conti sono esatti

Sub Main()
	Scrivi : ColoreTesto 1 : Scrivi"Metodo di qantonio su BA-Ca Alla 11° del mese "
	Scrivi "http://www.nonsololotto.com/topic.asp?TOPIC_ID=41799"
	Scrivi "ambata = 5° ge+13"
	Scrivi "1° abb x ambo:1° fi -5° fi x 1° ro"
	Scrivi "2° abb x ambo 3° fi + 2° mi - 1° fi"
	Scrivi "3° abb x ambo 1° ro +4° ca - 4° mi"
	Scrivi"1° abb x terno 2° ba +3° ve x 3° pa"
	Scrivi"2° abb x terno 1° ba x4° nz +1° ge"
	Scrivi"3° abb x terno 1° ba +5° ge x 3° pa"
	Scrivi : ColoreTesto 0
	Dim rt(2),pt(1),pta(2),ptta(3)
	Dim n1(2),ambata(4),ambo(7)
	pt(1) = 1 :pta(2) = 1 : ptta(3) = 1
	ee = InputBox("Quante estrazioni vuoi analizzare?","ESTRAZIONI",100)
	clp = 13
	rt(1) = 1 : rt(2) = 2
	ini = EstrazioneFin - ee
	fin = EstrazioneFin
	For es = ini To fin
		Messaggio(es)
		If IndiceMensile(es) = 11 Then '11° estrazione del mese
			casi = casi + 1
			Scrivi String(90,"=") & " Caso n° " & casi,1
			Scrivi DataEstrazione(es) & " < " & SiglaRuota(4) & " > " & StringaEstratti(es,4),1
			Scrivi
			n1(1) = Fuori90(Estratto(es,GE_,5) + 13)
			ImpostaGiocata 1,n1,rt,pt,clp
			ambata(1) = Fuori90(Estratto(es,GE_,5) + 13)
			ambata(2) = Fuori90((90 + Estratto(es,FI_,1) - Estratto(es,FI_,5)) * Estratto(es,RO_,1))
			ambata(3) = Fuori90((90 + Estratto(es,FI_,3) + Estratto(es,MI_,2)) - Estratto(es,FI_,1))
			ambata(4) = Fuori90((90 + Estratto(es,RO_,1) + Estratto(es,CA_,4)) - Estratto(es,MI_,4))
			ImpostaGiocata 2,ambata,rt,pta,clp
			ambo(1) = Fuori90(Estratto(es,GE_,5) + 13)
			ambo(2) = Fuori90((90 + Estratto(es,FI_,1) - Estratto(es,FI_,5)) * Estratto(es,RO_,1))
			ambo(3) = Fuori90((90 + Estratto(es,FI_,3) + Estratto(es,MI_,2)) - Estratto(es,FI_,1))
			ambo(4) = Fuori90((90 + Estratto(es,RO_,1) + Estratto(es,CA_,4)) - Estratto(es,MI_,4))
			ambo(5) = Fuori90((Estratto(es,BA_,2) + Estratto(es,VE_,3)) * Estratto(es,PA_,3))
			ambo(6) = Fuori90((Estratto(es,BA_,1)* Estratto(es,NZ_,4)) + Estratto(es,GE_,1))
			ambo(7) = Fuori90((Estratto(es,BA_,1) + Estratto(es,GE_,5)) * Estratto(es,PA_,3))
			ImpostaGiocata 3,ambo,rt,ptta,clp
			Gioca es
		End If
	Next
	Scrivi : Scrivi "Casi Rilevati " & CInt(casi)
	ScriviResoconto
End Sub


Vai ad inizio pagina

franca46
Amministratore

Italy
22809 invii

Spedito - 28 febbraio 2018 :  13:09:28  Mostra profilo  Rispondi con citazione
Ciao Duca , grazie!!!
Ben tornato!!!!

Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina

franca46
Amministratore

Italy
22809 invii

Spedito - 04 marzo 2018 :  18:00:54  Mostra profilo  Rispondi con citazione
citazione:
Inviato in origine da franca46

Ciao Duca , grazie!!!
Ben tornato!!!!



mi hai risparmiato lavoro ,

chissà se l'utente qantonio ha gradito , mah!!!!

Franca46
Cerca di essere sempre te stesso,
così un giorno potrai dire di essere stato l'unico
Vai ad inizio pagina
  Discussione precedente Discussione Discussione successiva
 Nuova discussione  Partecipa alla discussione
 Versione stampabile
Vai a:
Il gioco del lotto su NonSoloLotto.com © NonSoloLotto.com Vai ad inizio pagina
 Image Forums 2001 Snitz Forums 2000