Per Mike 58

[solare]

Ciao, potresti farmi un favore in merito a questo listato che hai realizzato tu ?
Inserire la possibilità di selezionare anche tutte le posizioni di ricerca.
Grazie

 

[Mike58]

Ciao Solare, quale sarebbe il listato ?

 

[solare]

Eccolo Mike58, scusami mi sono dimenticato di incollarlo
Sub Main()
Scrivi " ambata, isotopa, ambo, secco di solare ",1 ' - http://forum.lottoced.com/f8/ambata-isotopa-ambo-secco-117090/ -
Dim n1(01),n2(02),n3(02),ruota(02),posta1(01),posta2(02)
ee = CInt(InputBox("Estrazioni da controllare?",,100))
p1 = CInt(InputBox("In che posizione?"," 1 - 5 ",1))
posta1(01) = 1
posta2(02) = 1
klp1 = 13
klp2 = 80
ini = EstrazioneFin - ee
fin = EstrazioneFin
For es = ini To fin
Messaggio(es)
AvanzamentoElab ini,fin,es
For r1 = 1 To 10
a = Estratto(es,r1,p1)
r2 = r1 + 1
If r2 = 11 Then r2 = 12
b = Estratto(es,r2,p1)
If a = b Then
caso = caso + 1
Scrivi String(95,"-") & "Caso n° " & Format2(caso),1
Scrivi GetInfoEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " Estratto il numero " & Format2(a) & " in " & Format2(p1) & "° Posizione",1
Scrivi GetInfoEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " Estratto il numero " & Format2(b) & " in " & Format2(p1) & "° Posizione",1
ruota(01) = r1
ruota(02) = r2
n1(01) = a
ImpostaGiocata 1,n1,ruota,posta1,klp1,1
n2(01) = a
n2(02) = Fuori90(a + 01)
ImpostaGiocata 2,n2,ruota,posta2,klp2,2
n3(01) = a
n3(02) = Fuori90(a - 01)
ImpostaGiocata 3,n3,ruota,posta2,klp2,2
Gioca es,True,,1
End If
Next
Next
ScriviResoconto
End Sub

 

[Mike58]

eccolo Solare, bastava mettere un ciclo for per le posizioni.

Sub Main()
	Scrivi " ambata, isotopa, ambo, secco di solare ",1 ' - ambata, isotopa, ambo, secco -
	Dim n1(01),n2(02),n3(02),ruota(02),posta1(01),posta2(02)
	ee = CInt(InputBox("Estrazioni da controllare?",,100))
	'p1 = CInt(InputBox("In che posizione?"," 1 - 5 ",1))
	posta1(01) = 1
	posta2(02) = 1
	klp1 = 13
	klp2 = 80
	ini = EstrazioneFin - ee
	fin = EstrazioneFin
	For es = ini To fin
		Messaggio(es)
		AvanzamentoElab ini,fin,es
		For r1 = 1 To 10
			For p1 = 1 To 5
				a = Estratto(es,r1,p1)
				r2 = r1 + 1
				If r2 = 11 Then r2 = 12
				b = Estratto(es,r2,p1)
				If a = b Then
					caso = caso + 1
					Scrivi String(95,"-") & "Caso n° " & Format2(caso),1
					Scrivi GetInfoEstrazione(es) & " " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " Estratto il numero " & Format2(a) & " in " & Format2(p1) & "° Posizione",1
					Scrivi GetInfoEstrazione(es) & " " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & " Estratto il numero " & Format2(b) & " in " & Format2(p1) & "° Posizione",1
					ruota(01) = r1
					ruota(02) = r2
					n1(01) = a
					ImpostaGiocata 1,n1,ruota,posta1,klp1,1
					n2(01) = a
					n2(02) = Fuori90(a + 01)
					ImpostaGiocata 2,n2,ruota,posta2,klp2,2
					n3(01) = a
					n3(02) = Fuori90(a - 01)
					ImpostaGiocata 3,n3,ruota,posta2,klp2,2
					Gioca es,True,,1
				End If
			Next
		Next
	Next
	ScriviResoconto
End Sub

 

[solare]

Grazie mike58