xmike58

[Zetrix]

Sub Main

ReDim MatriceCaselleDaEvid(1,1)


xx = InputBox("Quante estrazioni vuoi controllare?",,0)


For x = 0 To xx


Call DisegnaEstrazione(EstrazioneFin - x,MatriceCaselleDaEvid)



Call OrdinaMatrice(MatriceCaselleDaEvid,1) ---- -----> ?????




Next

End Sub


ciao mike58 volevo chiederti come si fa a ordinare i numeri estratti
dal minore al maggiore in questa tabella..
ho scritto questo codice "Call OrdinaMatrice(MatriceCaselleDaEvid,1)"
ma non funziona..
ti ringrazio se riesci ad aiutarmi a risolvere questo problema..
buona giornata

 

[Mike58]

Zetrix, in questo caso non è corretto, e non riusciresti ad ordinare i numeri anche usando il codice OrdinaMatrice in modo corretto.
la MatriceCasellaDaEvid è una matrice bidimensionale ed è usata per colorare un numero su ruota voluta e in posizione voluta, ma non ha in questo caso nessun valore.
Pertanto non la puoi ordinare perchè priva di valore o senza avere un valore ad essa associato.
Prima devi trovare il valore ed assegnare il valore a una matriceVettore e poi con Ordinamatrice, ordinii numeri in modo ascendente o discendente

Sub Main
   ReDim MatriceCaselleDaEvid(2,1)
   xx = InputBox("Quante estrazioni vuoi controllare?",,0)
   For x = 0 To xx
      MatriceCaselleDaEvid(1,0) = 4 ' ruota
      MatriceCaselleDaEvid(1,1) = 2 ' posizione
      MatriceCaselleDaEvid(2,0) = 5 ' ruota
      MatriceCaselleDaEvid(2,1) = 4 ' posizione
      Call OrdinaMatrice(MatriceCaselleDaEvid,1,1) '---- -----> ????? NON FUNZIONA
      Call DisegnaEstrazione(EstrazioneFin - x,MatriceCaselleDaEvid,,vbBlue)
      Scrivi StringaNumeri(MatriceCaselleDaEvid,,1) ' NON FUNZIONA
   Next
End Sub

 

[Zetrix]

mike non abbiamo risolto niente con questo script

so come si evidenziano i numeri ma a me interessa
mostrare i numeri ordinati

e possibile che in spaziometria luigi.b non a implementato questa funzione

 

[Zetrix]

Call OrdinaMatrice(aNum,1)


se uso questo codice i numeri li mette in ordine
ma questo codice e in un altro contesto
ma non so come si fa a mettere questo codice
per mostrare i numeri ordinati nella tabella

martedì, lug 28 2020
BA 6.35.37.61.66 ----->numeri ordinati

martedì, lug 28 2020
BA 35.61.6.37.66 ----->numeri estratti

----------------------------------------------------------------------

Option Explicit
Class clsCerchioCiclometrico
Dim aPos(90,2) ' memorizza le coordinate relative ai 90 numeri
Private CollCorde
Sub DisegnaCerchioCiclometricoX(aNumeri,aCorde)
Dim nRaggio ' raggio ddel cerchio
Dim cX,cY ' centro del cerchio x e y
Dim Base,Altezza ' dimensioni area disegno
Dim Angolo ' gestisce il ciclo per disegnare il cerchio
Dim pi ' pigreco
Dim x1,y1,x2,y2 ' coordinate generiche pr i segmenti
Dim cLung ' distanza per stampare i gradi
Dim k ' ciclo generico
Dim n
Dim z


Call PicClear
Set CollCorde = GetNewCollection
cLung = 2
pi = 3.14
Base = 150
Altezza = 150
nRaggio = 60
' preimposto le dimensioni dell'area
Call PicSetDimensioni(Base,Altezza,Base,Altezza)
' calcolo il centro del cerchio
cX = Base / 2
cY = Altezza / 2
Call PicCerchio(cX,cY,nRaggio)
Angolo = 360
n = 91
' ciclo per disegnare i semiraggi
For z = 90 To 540 Step 4
Angolo = FuoriX(z,360)
' calcolo cordinate per il segmento raggio
x1 = cX +((nRaggio) * Cos(- Angolo *(pi / 180)))
y1 = cY +((nRaggio) * Sin(- Angolo *(pi / 180)))
' memorizzo nell'array globale le coordinate appena calcolate
' cosi potranno essere riusate per disegnare le corde
n = n - 1
aPos(n,1) = x1
aPos(n,2) = y1
'If n Mod 10 = 0 Then
If n Mod 9 = 1 Then '-->scrivi numero distanziale esempio 10
'If n Mod 3 = 2 Then '-->scrivi numero distanziale esempio 10
'If n Mod 3 = 3 Then '-->scrivi numero distanziale esempio 10

' ogni 5 gradi disegno un semiraggio un po' piu lungo
' e stampo i gradi in corripondenza
x2 = cX +((nRaggio + cLung*3) * Cos(- Angolo *(pi / 180)))
y2 = cY +((nRaggio + cLung*3) * Sin(- Angolo *(pi / 180)))
Call PicLinea(x1,y1,x2,y2)
x2 = cX +((nRaggio + cLung*4) * Cos(-(Angolo + 2) *(pi / 180)))
y2 = cY +((nRaggio + cLung*4) * Sin(-(Angolo + 2) *(pi / 180)))
Call PicStampaTestoRT(x2,y2,n,Angolo)
Else
' disegno il semiraggio
x2 = cX +((nRaggio + cLung) * Cos(- Angolo *(pi / 180)))
y2 = cY +((nRaggio + cLung) * Sin(- Angolo *(pi / 180)))
Call PicLinea(x1,y1,x2,y2)
x2 = cX +((nRaggio + cLung) * Cos(-(Angolo + 2) *(pi / 180)))
y2 = cY +((nRaggio + cLung) * Sin(-(Angolo + 2) *(pi / 180)))
Call PicStampaTestoRT(x2,y2,n,Angolo)
End If
If n = 0 Then Exit For
Next
Call DisegnaFigura(aNumeri)
Call DisegnaDistanze(aCorde)
' mostro la figura in output
Call PicEsegui
End Sub
Private Sub DisegnaFigura(aNum)
Dim k
For k = 1 To UBound(aNum)
Call DisegnaCorda(aNum(k),aNum(FuoriX(k + 1,UBound(aNum))),vbRed,True,False)
Next
End Sub
Private Sub DisegnaDistanze(aCorde)
Dim k
For k = 1 To UBound(aCorde)
Call DisegnaCorda(aCorde(k,1),aCorde(k,2),vbBlue,True,True)
Next
End Sub
Private Sub DisegnaCorda(p1,p2,colore,bDisegnaDist,bLineaTratt)
Dim nX,nY,sDist
' p1 e p2 sono i gradi a cui si riferiscono inizio e fine della corda
'Call PicLineaTratteggiata(aPos(p1,1),aPos(p1,2),aPos(p2,1),aPos(p2,2),colore)
If AddCorda(p1,p2) Then
If bLineaTratt Then
Call PicLineaTratteggiata(aPos(p1,1),aPos(p1,2),aPos(p2,1),aPos(p2,2),colore)
Else
Call PicLinea(aPos(p1,1),aPos(p1,2),aPos(p2,1),aPos(p2,2),colore)
End If
Call PicPunto(aPos(p1,1),aPos(p1,2),6,colore)
Call PicPunto(aPos(p2,1),aPos(p2,2),6,colore)
If bDisegnaDist Then
If aPos(p1,1) > aPos(p2,1) Then
nX =(aPos(p1,1) - aPos(p2,1)) / 2 + aPos(p2,1)
Else
nX =(aPos(p2,1) - aPos(p1,1)) / 2 + aPos(p1,1)
End If
If aPos(p1,2) > aPos(p2,2)Then
nY =(aPos(p1,2) - aPos(p2,2)) / 2 + aPos(p2,2)
Else
nY =(aPos(p2,2) - aPos(p1,2)) / 2 + aPos(p1,2)
End If
Call PicCerchio(nX,nY,3,vbBlack,,True,vbYellow)

nX = nX - 1.5
nY = nY - 1.5
sDist = Format2(Distanza(p1,p2))
Call PicStampaTesto(nX,nY,sDist)
End If
End If
End Sub
Private Function AddCorda(n1,n2)
Dim sKey
If n1 <= n2 Then
sKey = "k" & Format2(n1) & Format2(n2)
Else
sKey = "k" & Format2(n2) & Format2(n1)
End If
On Error Resume Next
CollCorde.Add sKey,sKey
If Err = 0 Then
AddCorda = True
End If
End Function
End Class
Sub Main
Dim clsCerchio
Dim k,v,x,qt

Dim aCorde


'v = InputBox("Quale ruota vuoi controllare?",,0)
x = InputBox("Quante estrazioni vuoi controllare?",,0)


For v = 1 To 12

If v = 11 Then v = 12 End If ' con numeri

' prendo i numeri dell'ultima estrazione di bari
' disegno cerchio ciclometrico , figura dei numeri estratti , diagonali con distanze
ReDim aNum(0)
Call GetArrayNumeriRuota(EstrazioneFin - x,v,aNum)' ---->ruota 1

'qt = ScegliNumeri(aNum)

Call OrdinaMatrice(aNum,1) '------>mette i numeri ordinati

'qt = UBound(aNum)
' le corde sono le distanze interne e sono
' considerate tutte le coppie di vertici
aCorde = SviluppoIntegrale(aNum,2)
Set clsCerchio = New clsCerchioCiclometrico
Call clsCerchio.DisegnaCerchioCiclometricoX(aNum,aCorde)
Scrivi DataEstrazione((EstrazioneFin - x),1) & " ",0,0,1,5,4
Scrivi
Scrivi SiglaRuota(v) & " " & StringaNumeri(aNum),0,0,1,5,4
Scrivi



Next


End Sub


-----------------------------------------------------------------------------

mike ma qui non ce lo spoiler , questo listato lo modificato io
per le mie esigenze di studio..
come puoi vedere ce una funzione che mostra i numeri
ordinati..
ma come si fa a mostrare i numeri ordinati nella tabella ?
questo e il problema..
forse luigi.b potrebbe risolvere lui questo problema..
mike comunque se trovi un altra soluzione mi fai sapere

buona serata

 

[claudio8]

Scusa Mike, avevo preparato sto po po di papiro e non voglio buttarlo al vento

X Zetrix
Provo a darti una risposta ma sarebbe meglio che tu approfondisca l'help degli script x capire le funzioni che adoperi ed il loro "funzionamento"
Tu hai usato

DisegnaEstrazione

Sub DisegnaEstrazione(IdEstrazione, Optional MatriceCaselleDaEvid = Nothing, Optional MatriceLegami = Nothing, Optional coloreRigheLegami = vbBlue, Optional idArchivio = 0)

Descrizione
Consente di disegnare in modo grafico un 'intera estrazione nella finestra di output , è possibile anche evidenziare specifiche caselle o collegare le caselle tra loro per disegnare figure ( l'estrazione la rileva direttamente dall'archivo e non puoi modificarla )

Note
Valore di ritorno
Parametri

IdEstrazione	Il numero identificativo dell'estrazione da 1 a estrazioni totali nell'archivio
Optional MatriceCaselleDaEvid = Nothing	Parametro opzionale che identifica la coordinate delel caselle da evidenziare. La matrice va cosi definita Dim MatriceCaselleDaEvid(X ,1) il primo indice X identifica il numero degli elementi della matrice, il secondo specifica col valore 0 la ruota da 1 a 11 e col valore 1 la casella da 1 a 5 ad esempio se si vogliono evidenziare solo 2 caselle Dim MatriceCaselleDaEvid (2,1) MatriceCaselleDaEvid (1,0) = BA_ MatriceCaselleDaEvid (1,1) = 2 ' seconda posizione MatriceCaselleDaEvid (1,0) = CA_ MatriceCaselleDaEvid (1,1) = 4 ' quarta posizione
Optional MatriceLegami = Nothing	È una matrice di tipo MatriceLegami (0 to N ,0 to 3) identifica una coppia di caselle che devono essere unite con una linea il primo indice identifica un numero progressivo che identifica l'elemento nell'array il secondo indice al valore 0 identifica la ruota della prima casella al valore 1 la posizione della prima casella al valore 2 identifica la ruota della seconda casella al valore 3 la posizione della seconda casella
Optional coloreRigheLegami = vbBlue	Specifica il colore con cui disegnare le righe che congiungono le caselle
Optional idArchivio = 0	Indentificativo dell'archivio da usare

mentre per fare quello che vorresti, devresti usare

DisegnaEstrazioneQN
Sub DisegnaEstrazioneQN(aQuadroNumeri, Optional MatriceCaselleDaEvid = Nothing, Optional MatriceLegami = Nothing, Optional coloreRigheLegami = vbBlue)

Descrizione

Consente di disegnare in modo grafico un 'intera estrazione nella finestra di output , è possibile anche evidenziare specifiche caselle o collegare le caselle tra loro per disegnare figure La funzione opera su un quadro numerico preventivamente alimentato. Il quadro numerico è un array dimensionato con Redim aQuadro (Righe,Colonne) dove il valore massimo per righe va da 1 a 32 e per colonne da 1 a 55

Note

Valore di ritorno
Parametri

aQuadroNumeri	Array contenente il quadro numerico preventivamente alimentato e dimensionato con Redim aQuadroNumeri (righe,colonne)
Optional MatriceCaselleDaEvid = Nothing	Parametro opzionale che identifica la coordinate delel caselle da evidenziare. La matrice va cosi definita Dim MatriceCaselleDaEvid(X ,1) il primo indice X identifica il numero degli elementi della matrice, il secondo specifica col valore 0 la ruota da 1 a 11 e col valore 1 la casella da 1 a 5 ad esempio se si vogliono evidenziare solo 2 caselle Dim MatriceCaselleDaEvid (2,1) MatriceCaselleDaEvid (1,0) = BA_ MatriceCaselleDaEvid (1,1) = 2 ' seconda posizione MatriceCaselleDaEvid (1,0) = CA_ MatriceCaselleDaEvid (1,1) = 4 ' quarta posizione
Optional MatriceLegami = Nothing	È una matrice di tipo MatriceLegami (0 to N ,0 to 3) identifica una coppia di caselle che devono essere unite con una linea il primo indice identifica un numero progressivo che identifica l'elemento nell'array il secondo indice al valore 0 identifica la ruota della prima casella al valore 1 la posizione della prima casella al valore 2 identifica la ruota della seconda casella al valore 3 la posizione della seconda casella
Optional coloreRigheLegami = vbBlue	Specifica il colore con cui disegnare le righe che congiungono le caselle

però quest'ultima funzione che ti darebbe la possibilità di inserire i numeri estratti, (previo ordinamente in una matrice che sperotusappia fare) stranamente non da possibilità di inserire le ruote nella 1a colonna.
(questo è quello che succede a me vers.1631) spero che nell'ultima funzioni correttamente
questo lo script test che trovi tra gli script di SPMT modificato per la tua esigenza .

Option Explicit
Sub Main
    Dim r,e
    Dim nRighe,nColonne
    Dim nCaselleDaEvid
    Dim aQuadroNum
    Dim aNumDaEvid
    ReDim aNumEstraz(5)
    ' predispone le dimensioni della matrice che contien i numeri
    nRighe = 10
    nColonne = 5
    ReDim aQuadroNum(nRighe,nColonne)
    ReDim aNumDaEvid(100,1) ' dato che non so a priori la quantita di numeri metto 100
    For r = 1 To 10 ' ATTENZIONE, HO CICLATO SOLO LE PRIME 10 RUOTE
        aQuadroNum(r,0) = NomeRuota(r)
        For e = 1 To 5
            aNumEstraz(e) = Estratto(EstrazioneFin,r,e)
        Next
        OrdinaMatrice aNumEstraz,1
        For e = 1 To 5
            aQuadroNum(r,e) = aNumEstraz(e)
            If Gemello(aQuadroNum(r,e)) Then
                nCaselleDaEvid = nCaselleDaEvid + 1
                aNumDaEvid(nCaselleDaEvid,0) = r
                aNumDaEvid(nCaselleDaEvid,1) = e
            End If
        Next
        Scrivi SiglaRuota(r) & " " & StringaNumeri(aNumEstraz,,True)
    Next
    Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid)
    ReDim aMatriceLegami(nCaselleDaEvid - 1,3)
    For r = 1 To nCaselleDaEvid - 1
        aMatriceLegami(r,0) = aNumDaEvid(r,0)
        aMatriceLegami(r,1) = aNumDaEvid(r,1)
        aMatriceLegami(r,2) = aNumDaEvid(r + 1,0)
        aMatriceLegami(r,3) = aNumDaEvid(r + 1,1)
    Next
    Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid,aMatriceLegami,CLng(0))
End Sub

alla fine della favola, fai prima a creare una tabella che alimentata da una matrice ordinante i numeri della estrazione scriva in output ciò che vuoi.

Saluti

 

[Zetrix]

grazie claudio8 del listato

questa funzione -->DisegnaEstrazioneQN ce lo in spaziometria ..

adesso ho capito dove sta l'inghippo mannaggia la pupazza
come dice bonolis ...
grazie mille claudio adesso lo sistemo meglio il listato per
le mie esigenze di studio..
adesso posso realizzare i nuovi disegni...

saluti

 

[claudio8]

Zetrix
Non ti arrabbiare, sii tranquillo, spaziometria e spazioscript è un programma molto ampio, dobbiamo ringraziare chi lo ha fatto con tanto di impegno e disponibilità "a gratis".
Un lavoraccio immane con un unico programmatore, che ha ricevuto richieste a non finire dalle + serie alle + strampalate.

Non essere impaziente, non pensare che tutti gli scripter lo conoscono a menadito e che abbiano sempre tempo a disposizione.
Tornando al programma, il funzionamento delle funzioni (help) ed i listati che le spiegano (Test) ed applicano ci sono, basta avere pazienza e volontà di imparare a conoscerle.


Saluti anche a Luigi se passa da queste parti.

 

[Mike58]

Ciao Zerix,Claudio, è chiaro che per ogni cosa bisogna ingegnarsi.
Se non c'erano numeri Vettori associati ad una matrice era chiaro che non ci poteva essere nessun ordinamento.
Mentre diverso e più completo è l'esempio di cluadio che cerca gli estratti in NumeriVettori e li ordina con l'apposito codice.
Bisogna ingegnarsi per i propri scopi e sbatterci più volte la testa come abbiamo fatto tutti in passato e ancora oggi.
Ma ci piace anche imparare così.

 

[joe]

Quello che scrivono Mike è Claudio è non solo giusto ma giustissimo.

Come tutte le cose di logica di matematica, di ragionamento e più in genere,

dove ci vuole studio ...

... ci vuole studio.

Se lo si legge su un manuale o in esempio,

ma, non ci si applica con la dovuta attenzione,

dopo un attimo smette di esistere.

Se invece è parte del dovuto "esercizio-personale"

(che non può essere demandato o preteso da altri)

diventa patrimonio di cui è possibile disporre.

Almeno fin tanto che la memoria lo consente.

O meglio ancora, un ripasso lo ravviva.

In ogni caso è stato la palestra, l'allenamento ed il buon orientamento

ad un pensiero ed alla predisposizione ad un atteggiamento logico e preciso.

A mio modo di classificare anche positivo, perché determinato

ed orientato e meglio capace di risolvere problemi.

Non ultimo quello di aumentare e mantenere "presente"

l'esperienza via-via acquisita.

Forse anche, in modo divertente e gratificante.

Mannaggia ed occhi a quadretti ... escludendo!

 

[Zetrix]

Option Explicit
Sub Main
Dim r,e
Dim nRighe,nColonne
Dim nCaselleDaEvid
Dim aQuadroNum
Dim aNumDaEvid
ReDim aNumEstraz(5)
' predispone le dimensioni della matrice che contien i numeri
nRighe = 10
nColonne = 5
ReDim aQuadroNum(nRighe,nColonne)
ReDim aNumDaEvid(100,1) ' dato che non so a priori la quantita di numeri metto 100
For r = 1 To 10 ' ATTENZIONE, HO CICLATO SOLO LE PRIME 10 RUOTE
aQuadroNum(r,0) = NomeRuota(r)
For e = 1 To 5
aNumEstraz(e) = Estratto(EstrazioneFin,r,e)
Next
OrdinaMatrice aNumEstraz,1
For e = 1 To 5
aQuadroNum(r,e) = aNumEstraz(e)
If(aQuadroNum(r,e)) = 3 Or(aQuadroNum(r,e)) = 48 Or(aQuadroNum(r,e)) = 6 Or(aQuadroNum(r,e)) = 61 Then
nCaselleDaEvid = nCaselleDaEvid + 1
aNumDaEvid(nCaselleDaEvid,0) = r
aNumDaEvid(nCaselleDaEvid,1) = e
End If
Next
'Scrivi SiglaRuota(r) & " " & StringaNumeri(aNumEstraz,,True)
Next
'Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid)
ReDim aMatriceLegami(nCaselleDaEvid - 1,3)
For r = 1 To nCaselleDaEvid - 1
aMatriceLegami(r,0) = aNumDaEvid(r,0)
aMatriceLegami(r,1) = aNumDaEvid(r,1)
aMatriceLegami(r,2) = aNumDaEvid(r + 1,0)
aMatriceLegami(r,3) = aNumDaEvid(r + 1,1)
Next
Call DisegnaEstrazioneQN(aQuadroNum,aNumDaEvid,aMatriceLegami,CLng(0))

Call DisegnaEstrazione(EstrazioneFin,aNumDaEvid,aMatriceLegami,CLng(0))


End Sub



ciao mike,claudio,joe

joe allora vediamo se riesci ad aggiustare questo script

in disegnaestrazioneQN come si fa a mettere la data estrazione
e l'elenco delle ruote ?

xluigi.b se passa di qua e sta leggendo questa mia richiesta vorrei sapere
se ce una funzione in spaziometria per mostrare i numeri ordinati in una tabella
e se non ce questa funzione se quanto puoi
se potresti metterla in un prossimo aggiornamento..
grazie

 

[joe]

Ricordo di aver chiesto a Luigi la possibilità di ordinare

le matrici indicando la precedenza da attribuire alle varie colonne.

Esaudito, Spaziometria dovrebbe averla.

Portare la matrice in tabella ... si può.

Io però ... no, preferisco non complicarmi troppo la vita.

In ogni caso ... vale quanto scritto sopra:

Luigi può anche scrivere sta a noi leggere.

Sub Main
        ' identifica ad esempio 4 caselle
      ReDim MatriceCaselleDaEvid(4,1)
      ' Primo elemento
      MatriceCaselleDaEvid(1,0) = 1 ' ruota di bari
      MatriceCaselleDaEvid(1,1) = 1 ' Primo Estratto
      ' secondo elemento
      MatriceCaselleDaEvid(2,0) = 1 ' ruota di bari
      MatriceCaselleDaEvid(2,1) = 2 ' secondo Estratto
      ' terzo elemento
      MatriceCaselleDaEvid(3,0) = 10 ' ruota di venezia
      MatriceCaselleDaEvid(3,1) = 3 ' terzo Estratto
      ' quarto elemento
      MatriceCaselleDaEvid(4,0) = 10 ' ruota di venezia
      MatriceCaselleDaEvid(4,1) = 4 ' quarto Estratto
  
      
      ReDim MatriceLegami(4,3)
      ' Primo legame
      MatriceLegami(1,0) = 1 ' ruota prima casella  (In questo caso 1 = bari)
      MatriceLegami(1,1) = 1 ' Posizione prima casella  (In questo caso 1 = prima Posizione)
      MatriceLegami(1,2) = 1 ' ruota seconda casella  (In questo caso 1 = bari)
      MatriceLegami(1,3) = 2 ' Posizione seconda casella  (In questo caso 2 = seconda Posizione)
      ' secondo legame
      MatriceLegami(2,0) = 1 ' ruota prima casella  (In questo caso 1 = bari)
      MatriceLegami(2,1) = 2 ' Posizione prima casella  (In questo caso  2 = seconda Posizione)
      MatriceLegami(2,2) = 10 ' ruota seconda casella  (In questo caso 10 = venezia)
      MatriceLegami(2,3) = 4 ' Posizione seconda casella  (In questo caso 4 = quarta Posizione)
        ' terzo legame
      MatriceLegami(3,0) = 10 ' ruota prima casella  (In questo caso 10 = venezia )
      MatriceLegami(3,1) = 4 ' Posizione prima casella  (In questo caso  4 = quarta Posizione)
      MatriceLegami(3,2) = 10 ' ruota seconda casella  (In questo caso 10 = venezia)
      MatriceLegami(3,3) = 3 ' Posizione seconda casella  (In questo caso 3 = terza Posizione)      
      ' quarto legame
      MatriceLegami(4,0) = 10 ' ruota prima casella  (In questo caso 10 = venezia )
      MatriceLegami(4,1) = 3 ' Posizione prima casella  (In questo caso  3 = terza Posizione)
      MatriceLegami(4,2) = 1 ' ruota seconda casella  (In questo caso 1  = bari)
      MatriceLegami(4,3) = 1 ' Posizione seconda casella  (In questo caso 1 = prima Posizione)      
      
      ' tre Modi diversi di disegnare il tutto
      Call DisegnaEstrazione(8000,MatriceCaselleDaEvid,MatriceLegami)
      Call DisegnaEstrazione(8000,MatriceCaselleDaEvid)
      Call DisegnaEstrazione(8000,,MatriceLegami)
      

  
End Sub

E' tra gli esempi.

 

[claudio8]

ciao mike,claudio,joe

joe allora vediamo se riesci ad aggiustare questo script

in disegnaestrazioneQN come si fa a mettere la data estrazione
e l'elenco delle ruote ? NON ESISTE

xluigi.b se passa di qua e sta leggendo questa mia richiesta vorrei sapere
se ce una funzione in spaziometria per mostrare i numeri ordinati in una tabella
e se non ce questa funzione se quanto puoi
se potresti metterla in un prossimo aggiornamento. La funzione c'è ma non in DisegnaEstrazione
grazie

Se puoi rispondermi:
devi assolutamente disegnare nella tabella?
saluti

 

[Zetrix]

joe l'esempio che ai messo lo so che ci sono le matrici caselle da evid

rispondo alla domanda di claudio..

si devo disegnare nella tabella ma con i numeri ordinati
però con l'esempio con disegnaestrazioneQN e un po difficile
da gestire perche non e la stessa cosa con disegna estrazione
dove posso disegnare piu facile..
con disegnaestrazioneQN e un po piu complicato anche se
ho diversi script con questa ma come detto prima non e la stessa
cosa con disegna estrazione..
anche perche come abbiamo visto non scrive ne la data estrazione
e ne tantomeno l elenco delle ruote..
quindi come vedi non e la stessa cosa con disegna estrazione..
forse luigi.b sa come ordinare i numeri estratti sempre nella
tabella con disegna estrazione..
oppure si deve creare un altra tabella simile a quella con
disegna estrazione dove si puo gestire meglio le ruote i numeri
e poi disegnarle..

 

[claudio8]

joe l'esempio che ai messo lo so che ci sono le matrici caselle da evid

rispondo alla domanda di claudio..

si devo disegnare nella tabella ma con i numeri ordinati -..........Avevo capito bene allora
però con l'esempio con disegnaestrazioneQN e un po difficile
da gestire perche non e la stessa cosa con disegna estrazione
dove posso disegnare piu facile.. .............................................Ti piace vincere facile
con disegnaestrazioneQN e un po piu complicato anche se
ho diversi script con questa ma come detto prima non e la stessa
cosa con disegna estrazione..
anche perche come abbiamo visto non scrive ne la data estrazione
e ne tantomeno l elenco delle ruote..
quindi come vedi non e la stessa cosa con disegna estrazione..
forse luigi.b sa come ordinare i numeri estratti sempre nella
tabella con disegna estrazione.. ................................................Dovrebbe modificare la funzione DisegnaEstrazionQN ma non lo farà sino a chissà quando.
oppure si deve creare un altra tabella simile a quella con
disegna estrazione dove si puo gestire meglio le ruote i numeri
e poi disegnarle.. ......................................................................Non eisiste

Devi usare l'ingegno come dice Mike e forse una soluzione c'è senza l'aiuto di Luigi.
Ciao.

 

[joe]

Potresti provare a costruirti un archivio

con i numeri ordinati e poi provare ad usare quest'ultimo.

 

[claudio8]

Zetrix
dal tuo script con qualche "Spaziometrismo"
Vedi se noti qualcosa ... chi cerca trova ... aguzza l'ingegno



Scopri l'arcano altrimenti Salutiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii