Chiedo cortesemente un aiuto per un listato

[solare]

Ciao, vorrei che il listato elabori ad ogni estrazione il 2 estratto +10 di ogni ruota con abbinamento dei seguenti numeri fissi 9-18-36-54
quindi la giocata sarà 1 ambata + 4 numeri fissi in abbinamento per ambo secco x ogni ruota periodo di gioco 13 colpi
Spero sia possibile
Grazie

 

[Joe91]

Ciao ...

prova questo:

Sub Main
	'x Solare By Joe
	'Ciao, vorrei che il listato elabori ad ogni estrazione il 2 Estratto +10 di ogni ruota con abbinamento dei seguenti numeri fissi 9-18-36-54
	'quindi la giocata sarà 1 ambata + 4 numeri fissi In abbinamento per ambo secco periodo di gioco 13 colpi
	'Spero sia possibile
	'Grazie
	Dim N(1),Nu(2),Ab(4),Ru(1),P(1),Po(2) : Ab(1) = 9 : Ab(2) = 18 : Ab(3) = 36 : Ab(4) = 54 : P(1)=1 : Po(2) = 1
	Ini = EstrazioneFin - 45 : Fin = EstrazioneFin
	For Es = Ini To Fin : AvanzamentoElab Ini,Fin,Es
	Scrivi String (105,"="),1
		For R = 1 To 12 : If R = 11 Then R = 12
			Ru(1) = R
			N(1) = Fuori90(Estratto(Es,R,2) + 10) : Nu(1) = N(1)
			ImpostaGiocata 1,N,Ru,P,13,1
			For G = 1 To 4 : Nu(2) = Ab(G)
				ImpostaGiocata G+1,Nu,Ru,Po,13,2
			Next
			Gioca Es,True
			Scrivi String (105,"-")
		Next
	Next
	ScriviResoconto
End Sub

 

[solare]

Grazie, pensa che mi hanno detto che era un super metodo...........per fortuna

secondo me va meglio con la stessa procedura, formando gli ambi unendo le due ruote consecutive, esempio di oggi Ba 20+10 Ca 15+10 gioco su entrambe le ruote 30-25 come base andando poi a formare 4 terzine con gli abbinamenti
quindi le ruote saranno Ba Ca....Fi Ge......Mi Na......Pa Ro...To Ve. Ho fatto delle prove sembra vada meglio così.

 

[solare]

Non c'è qualcuno che possa modificarlo Grazie