Multipli e radicali

[lorelai]

vi presento...ma sicuramente lo conoscerete ...un metodino per ambate ...
quando su ruota si presentano alcuni numeri....si mettono in gioco le quartine per le sorti che volete...
all'uscita del
n.4 mettere in gioco 2.20.22.20
n.9 mettere in gioco 3.30.33.39
n.16 mettere in gioco 4.40.44.49
n.25 mettere in gioco 5.50.55.59
n.36 mettere in gioco 6.60.66.69
N.49 mettere in gioco 7.70.77.79
n.64 mettere in gioco 8.80.88.89
n.81 mettere in gioco 89.90.9

vediamo dalla prima estrazione del mese di maggio
BA 81...alla terza 89..(8.89)
RM 16 .alla prima 4
VE 25..alla quarta 50
VE 09..alla terza 39

dalla seconda estrazione del mese di maggio
CA 49 ...alla prima 7
Mi 04 ...in gioco...
RM 04...in gioco
TO 64 ...alla prima 89
VE 04 ..in gioco

dalla terza del mese di maggio
RM 09 ....in gioco
TO 64.....in gioco
VE 49.....alla prima 7

dalla quarta estrazione di maggio
BA 64....in gioco
CA 16....in gioco
FI 36 ....in gioco
GE 09....in gioco
MI 49....in gioco
NA 09...in gioco
PA 36....in gioco
RM 09....in gioco

dalla quinta estrazione di maggio
BA 81...............
FI 04...............


è semplicissimo ........ciaooooo

 

[Roby]

Fatto un po' alla buona per la fretta....
Controllalo, ciao

Sub Main()
	ColoreTesto 1:Scrivi String(40," ") & "METODO DI LORELAI : SCRIPT BY BLACKMORE",1
	ColoreTesto 0: Scrivi
	Dim ruota(1)
	Dim n(10)
	Dim num(4)
	Dim posta(3)
	posta(1) = 1
	posta(2) = 1
        posta(3) = 1
	xx = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO?",,100))
	k = CInt(InputBox("QUANTI COLPI?",,10))
	co = 0
	fin = EstrazioneFin
	ini = EstrazioneFin - xx
	For es = ini To fin
		AvanzamentoElab ini,fin,es
		For r = 1 To 10
			For p = 1 To 5
				a = Estratto(es,r,p)
				ok = 0
				If a = 04 Then:: num(1) = 02 : num(2) = 20 : num(3) = 22 : num(4) = 29 :ok = 1
			
			If a = 09 Then:: num(1) = 03 : num(2) = 30 : num(3) = 33 : num(4) = 39 :ok = 1
		
		If a = 16 Then:: num(1) = 04 : num(2) = 40 : num(3) = 44 : num(4) = 49 :ok = 1
	
	If a = 25 Then:: num(1) = 05 : num(2) = 50 : num(3) = 55 : num(4) = 59 :ok = 1

If a = 36 Then:: num(1) = 06 : num(2) = 60 : num(3) = 66 : num(4) = 69 :ok = 1

If a = 49 Then:: num(1) = 07 : num(2) = 70 : num(3) = 77 : num(4) = 79 :ok = 1

If a = 64 Then:: num(1) = 08 : num(2) = 80 : num(3) = 88 : num(4) = 89 :ok = 1

If a = 81 Then:: num(1) = 89 : num(2) = 90 : num(3) = 09 : num(4) = 00 :ok = 1

If ok = 1 Then
	co = co + 1
	Scrivi String(100,"=") & " Caso N°" & co,1
	Scrivi DataEstrazione(es) & "  ||  " & SiglaRuota(r) & "  ||  " & StringaEstratti(es,r) & "  ||  SPIA N° " & a & " In "& p &"° Posizione ||",1
	Scrivi String(100,"="),1
	ruota(1) = r:cg = 0
	n(1) = num(1)
	n(2) = num(2)
	n(3) = num(3)
	n(4) = num(4)
	cg = cg + 1
	ImpostaGiocata cg,n,ruota,posta,k,2
	Gioca es
End If
Next:Next:Next
ScriviResoconto
End Sub

 

[lorelai]

purtroppo non so leggere gli script ..e tutte le ricerche che faccio sono carta e penna....

 

[Roby]

Scaricati il programma Spaziometria nell'area download, è gratis ed è grandioso
Ciao

 

[lorelai]

ci provo..grazie....però non sono molto pratica....se non mi sentite per un po..........

 

[lorelai]

MI ARRENDO!!!!!!!!...troppo difficile....

 

[lorelai]

non so se avete notato.........l'8 maggio GE 9..........in gioco 3-30-33-39....................ieri GE 3-30-33 !!!!!!!!!!!

ciaoooooooo

 

[Aline]

Grazie Lorelai sei davvero brava e generosa a voler condividere i tuoi metodi con tutti noi ciao

 

[lorelai]

ti ringrazio......lo faccio con piacere, come del resto fate anche voi con i vostri metodi e le vostre opinioni......e poi solo uniti e ''astuti'' possiamo farcela.........