DISTANZA 30 SU GENOVA DI NANDO MANICCIA

Rispondi
Avatar utente
DjNomade
Messaggi: 603
Iscritto il: 28/10/2011, 20:50
Località: MARCHE

DISTANZA 30 SU GENOVA DI NANDO MANICCIA

Messaggio da DjNomade » 22/08/2014, 18:33

DISTANZA 30 SU GENOVA DI NANDO MANICCIA ,per le spiegazioni andate QUI

Ciauz



Codice: Seleziona tutto

'22/08/2014
'http://www.pentambo.info/forum/viewtopic.php?f=57&t=5025&sid=807c513d1eb4e6f64bd8ed02c1ed836a#p25495
Scrivi "====================================DISTANZA 30 SU GENOVA  DI NANDO MANICCIA",1
Scrivi "================================================ by DjNomade",1
Scrivi String(70,"="),1
Sub Main()
	Dim nu1(10),nu2(10),nu3(10),nu4(10)
	Dim ruota(3),ruote(3)
	Dim posta(1),poste(2),post(3),pos(5)
	posta(1) = 1:poste(2) = 1
	post(2) = 0.5:post(3) = 1.5
	pos(2) = 3:pos(3) = 0.8:pos(4) = 0.2
	fin = EstrazioneFin
	ini = 8854
	For es = ini To fin
		AvanzamentoElab ini,fin,es
		For r1 = 4 To 4
			For p1 = 1 To 4
				For p2 = p1 + 1 To 5
					n1 = Estratto(es,r1,p1)
					n2 = Estratto(es,r1,p2):ds1 = Distanza(n1,n2)
					If ds1 = 30 Then
						casi = casi + 1:Scrivi String(75,"="),1
						Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
						" > ambo distanza 30 -->" & Format2(n1) & "." & Format2(n2) & " >"
						Scrivi String(65,"-") & " caso n° " &(casi)
						ruote(1) = r1 : k = 9:co = 0
						ruota(1) = r1
						amb = 18
						abb1 = 03
						abb2 = 19
						nu1(1) = amb
						co = co + 1
						ImpostaGiocata co,nu1,ruota,posta,k
						nu2(1) = amb:nu2(2) = abb1
						co = co + 1
						ImpostaGiocata co,nu2,ruote,poste,k
						nu2(1) = amb:nu2(2) = abb2
						co = co + 1
						ImpostaGiocata co,nu2,ruote,poste,k
						nu3(1) = amb:nu3(2) = abb1:nu3(3) = abb2
						co = co + 1
						ImpostaGiocata co,nu3,ruote,pos,k
						Gioca es
					End If
					Next:Next:Next
				Next
				ScriviResoconto
				Scrivi "========================================DISTANZA 30 SU GENOVA DI NANDO MANICCIA",1
				Scrivi "================================================ by DjNomade",1
				Scrivi String(70,"="),1
End Sub



Avatar utente
luca92
Messaggi: 3403
Iscritto il: 14/04/2012, 23:13
Località: Milano

Re: DISTANZA 30 SU GENOVA DI NANDO MANICCIA

Messaggio da luca92 » 09/10/2014, 1:31

Grazie a Nando per il metodo e a DjNomade per lo script!









Ciao
Luca

:abb:
Immagine




Immagine







Immagine

Rispondi

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite