per luigib

[Zetrix]

ciao luigib ,
nn so perke ma lo script visualizza solo due num nel cerchio ciclom invece di tre numeri, allego script

 

[LuigiB]

ciao , posta lo script non l'immagine dello script poi vedremo

 

[Zetrix]

Sub Main
Dim idEstr
Dim ClsFg
Dim r
Dim nTrovate
Dim vetRuote(10)
Dim nFatte
Dim nDaFare

nDaFare = EstrazioneIni -(EstrazioneFin)
For r = 1 To 10
vetRuote(r) = r
Next

For idEstr = EstrazioneFin - 0 To EstrazioneFin '<---- imposta estrazioni precedenti AQUILONE (A)

If GetAmbiDistanzaX(idEstr,Coll,45,vetRuote) > 0 Then '<------ Distanza orizzontale

For Each ClsFg In coll
If Decina(clsFg.ClsNumero(1).Numero) <> Decina(clsFg.ClsNumero(2).Numero) Then

For r = 1 To 10



If Distanza(Estratto(idEstr,r,clsFg.ClsNumero(1).Posizione),clsFg.ClsNumero(1).Numero) = 27 Then '<-------- Distanza verticale

ReDim MatriceCaselleDaEvid(3,1)
nTrovate = 0
nTrovate = nTrovate + 1
MatriceCaselleDaEvid(nTrovate,0) = clsFg.ClsNumero(1).Ruota
MatriceCaselleDaEvid(nTrovate,1) = clsFg.ClsNumero(1).Posizione

nTrovate = nTrovate + 1
MatriceCaselleDaEvid(nTrovate,0) = clsFg.ClsNumero(2).Ruota
MatriceCaselleDaEvid(nTrovate,1) = clsFg.ClsNumero(2).Posizione



nTrovate = nTrovate + 1
MatriceCaselleDaEvid(nTrovate,0) = r
MatriceCaselleDaEvid(nTrovate,1) = clsFg.ClsNumero(1).Posizione

Call DisegnaEstrazione(idEstr,MatriceCaselleDaEvid)

Call GetArrayNumeriFromFiguraCiclo(ClsFg,anumeri)
Call DisegnaCerchioCiclometrico(anumeri,True)


Scrivi "--------------------------------------------------------"




End If








Next

End If
Next
End If
nFatte = nFatte + 1
Call AvanzamentoElab(1,nDaFare,nFatte)
If ScriptInterrotto Then Exit For

Next


End Sub

 

[LuigiB]

ciao è normale che disegni solo due numeri perche quando prepara l'array numeri lo legge dalla coppia di numeri a distanza 45.
ad ogni modo per far disegnare il triangolo si fa cosi

Sub Main
	Dim idEstr
	Dim ClsFg
	Dim r
	Dim nTrovate
	Dim vetRuote(10)
	Dim nFatte
	Dim nDaFare
	nDaFare = EstrazioneIni -(EstrazioneFin)
	For r = 1 To 10
		vetRuote(r) = r
	Next
	For idEstr = EstrazioneFin - 0 To EstrazioneFin '<---- imposta estrazioni precedenti AQUILONE (A)
		If GetAmbiDistanzaX(idEstr,Coll,45,vetRuote) > 0 Then '<------ Distanza orizzontale
			For Each ClsFg In coll
				If Decina(clsFg.ClsNumero(1).Numero) <> Decina(clsFg.ClsNumero(2).Numero) Then
					For r = 1 To 10
						If Distanza(Estratto(idEstr,r,clsFg.ClsNumero(1).Posizione),clsFg.ClsNumero(1).Numero) = 27 Then '<-------- Distanza verticale
							
							MsgBox r
							MsgBox Estratto(idEstr,r,clsFg.ClsNumero(1).Posizione)
							MsgBox clsFg.ClsNumero(1).Numero
							
							ReDim MatriceCaselleDaEvid(3,1)
							nTrovate = 0
							nTrovate = nTrovate + 1
							MatriceCaselleDaEvid(nTrovate,0) = clsFg.ClsNumero(1).Ruota
							MatriceCaselleDaEvid(nTrovate,1) = clsFg.ClsNumero(1).Posizione
							nTrovate = nTrovate + 1
							MatriceCaselleDaEvid(nTrovate,0) = clsFg.ClsNumero(2).Ruota
							MatriceCaselleDaEvid(nTrovate,1) = clsFg.ClsNumero(2).Posizione
							nTrovate = nTrovate + 1
							MatriceCaselleDaEvid(nTrovate,0) = r
							MatriceCaselleDaEvid(nTrovate,1) = clsFg.ClsNumero(1).Posizione
							Call DisegnaEstrazione(idEstr,MatriceCaselleDaEvid)
							ReDim aNumeri (0)
							Call GetArrayNumeriFromFiguraCiclo(ClsFg,aNumeri)
							ReDim Preserve aNumeri(3)
							aNumeri (3) = Estratto(idEstr,r,clsFg.ClsNumero(1).Posizione)

							Call DisegnaCerchioCiclometrico(aNumeri,True)
							Scrivi "--------------------------------------------------------"
						End If
					Next
				End If
			Next
		End If
		nFatte = nFatte + 1
		Call AvanzamentoElab(1,nDaFare,nFatte)
		If ScriptInterrotto Then Exit For
	Next
End Sub

 

[Zetrix]

grazie luigib complimenti anke del programma

 

[LuigiB]

grazie , ciao