correzioni su spaziometria ultima versione

[Zetrix]

x Joe91 confermo con l'ultima versione 1.5.18 sull output manca la ruota nazionale...
x Alien il listato lo trovi su questo post (pag/1)....lo devi copiare e incollare su spazioMetria.......

 

[Zetrix]

                   Sub Main
    Dim idEstr
    Dim CollP
    Dim PPL ' As clsParallelepipedo
    Dim CRD ' As clsVertice
    
    ReDim aRuote(1)
    ReDim aPoste(10)
    
    aRuote(1) = 11
    aPoste(2) = 1
        
    For idEstr = EstrazioniArchivio - 0 To EstrazioniArchivio '<----  imposta estr. precedenti
        ' ottengo i parallelepipedi presenti nell'estrazione
        Call GetCollParallelepipedi(idEstr,CollP)
    
        ' per ogni parallelepipedo trovato nella tale estrazione faccio il disegno
        For Each PPL In CollP
            
            'ReDim aNumeri(8) '<----  imposta  numeri  figura
            'If GetArrayNumeriFromFiguraSpaziometrica(ppl , aNumeri) = 4 Then
            If GetNumeroVerticiFiguraSpaziometrica(PPL) = 8 Then '<---- imposta numeri figura
            
                ReDim aNumeri(0)
                Call GetArrayNumeriFromFiguraSpaziometrica(PPL,aNumeri)
                
                Call DisegnaFiguraSpaziometrica(idEstr,PPL)
                Call ImpostaGiocata(1,aNumeri,aRuote,aPoste,10,2)
                
                
            End If
        Next
    
        
    Next
    
End Sub

xAlien questo e un listato simile a quello preced ..con la variante che qui puoi cambiare i num vertici delle figure...

 

[giorgioantonio]

Salve LuigiB,

chiedo una sola cosa quando apro
CONVERGENZE
non mi mostra tutta la lista degli script
Da cosa dipende?

Grazie se possibile una risposta

 

[LuigiB]

Salve LuigiB,

chiedo una sola cosa quando apro
CONVERGENZE
non mi mostra tutta la lista degli script
Da cosa dipende?

Grazie se possibile una risposta

ciao non ho capito a cosa ti riferisci. Quali sono le convergenze negli script ?

 

[giorgioantonio]

Salve Luigi
volevo dire i file che si trovano nella directory dove sono depositati gli script.
Alcuni file legge che sono presenti e quindi a fianco di essi devo mettere la
spunta su più di un file e vedere se tra i file richiamano gli stessi numeri con metodologie diverse.
Ma non devo entrare negli script è il convergenze che va a trovare i file scriptati.
Spero di non confondere.
Forse chi utilizza questa funzione mi potrebbe dare un indizio.
Ciao

 

[Alien.]

 Sub Main
Dim idEstr
Dim CollP
Dim PPL ' As clsParallelepipedo
Dim CRD ' As clsVertice

ReDim aRuote(1)
ReDim aPoste(10)

aRuote(1) = 11
aPoste(2) = 1

For idEstr = EstrazioniArchivio - 0 To EstrazioniArchivio '<---- imposta estr. precedenti
' ottengo i parallelepipedi presenti nell'estrazione
Call GetCollParallelepipedi(idEstr,CollP)

' per ogni parallelepipedo trovato nella tale estrazione faccio il disegno
For Each PPL In CollP

'ReDim aNumeri(8) '<---- imposta numeri figura
'If GetArrayNumeriFromFiguraSpaziometrica(ppl , aNumeri) = 4 Then
If GetNumeroVerticiFiguraSpaziometrica(PPL) = 8 Then '<---- imposta numeri figura

ReDim aNumeri(0)
Call GetArrayNumeriFromFiguraSpaziometrica(PPL,aNumeri)

Call DisegnaFiguraSpaziometrica(idEstr,PPL)
Call ImpostaGiocata(1,aNumeri,aRuote,aPoste,10,2)


End If
Next


Next

End Sub

xAlien questo e un listato simile a quello preced ..con la variante che qui puoi cambiare i num vertici delle figure...

acc.....grazie Zetrix ma dato che devo fare colazione mi spieghi cosa ho di colazione ?



bhe voglio dire che sono a digiuno e non so cosa fare con tutti quei dolcini colorati ed il risultato ?

 

[Zetrix]

Alien devi essere bravo tu ..nn vuoi mica l'ambo servito su un piatto colorati di dolcini...????
sono figure spaziometriche .... puoi applicare la ciclometria ....