Ciao Ragazzi

[rudivall]

Ragazzi non ci riesco.....ho 4 numeri che vengono da un metodo mettiamo che il metodo mi trovi 56 8 11 53 come posso ricavare dei 4 numeri i due maggiori? Che poi dovrò sottrarre e vedere il loro ritardo...chi mi da una mano...

 

[claudio8]

Che devi usare?
Spaziometria o excel?

 

[rudivall]

Ciao Claudio uso Spaziometria di LuigiB, ci ho provato con la funzione Massimo ma essendo 4 numeri anche prendendoli a due a due non riesco a estrapolarli dalle varie condizioni.....

 

[avio]

ciao
ti faccio un esempio
k(1)=56
k(2)=8
k(3)=11
k(4)=53
eliminaripetuti k

k(1)=8
k(2)=11
k(3)=53
k(4)=56

 

[i legend]

Ciao
Dim aN(4)
aN(1)=3

aN(2)=33
aN(3)=31
aN(4)=39
Call ordinamatriceturbo(aN,-1)
Scrivi
differenza(aN(1),aN(2))
distanza (a,b)
Oppure
aN(1)-aN(2)
Se an(1)=aN(2) come gestisci la situazione?
Questa è la soluzione più semplice che mi è venuta in mente.
Prova se funziona oppure no
Ciao

 

[salvo50]

Ciao Rudivall,
Presumo all'inizio che tu non sai dei 4 numeri qual'è il maggiore, minore o intermedi, io faccio così quando ho il tuo stesso problema

Option Explicit
Sub Main
   Dim M(4),A,B,C,D
   A = 56
   B = 8
   C = 11
   D = 53
   M(1) = CInt(A)
   M(2) = CInt(B)
   M(3) = CInt(C)
   M(4) = CInt(D)
   OrdinaMatrice M,1
   Scrivi M(1) ' M(1)corrisponde al numero più piccolo
   Scrivi M(2) ' M(2)corrisponde al numero superiore al più piccolo
   Scrivi M(3) ' M(3)corrisponde al numero inferiore al più grande
   Scrivi M(4) ' M(4)corrisponde al numero più grande
End Sub

Ciao ILegend, scusami non avevo visto il tuo suggerimento

 

[claudio8]

Il detto cinese della canna da pesca che ripeteva Luigi, vi ricorda qualcosa? ✍

Va tutto bene, ma se Rudivall non ci arriva da solo occorre che quanto si scrive in costrutto venga spiegato passo passo altrimenti l'amico prenderà il tutto e lo ricopierà da qualche parte senza che gli entri nulla nella cappoccia.

Sub Main
    Dim K(4) 'dichiaro l'array che contiene i numeri
    Dim Ru(1) 'dichiaro l'array che contiene la ruota
    ' elenco i numeri nelle 4 posizioni dell'array
    K(1) = 56 '1a posizione
    K(2) = 11 '2a
    K(3) = 8 '3a
    K(4) = 53 '4a posizione
    Ru(1)= 1 '(BA_) specifico la ruota di ricerca
    OrdinaMatrice K,- 1 ' Ordino l'Array in decrescente
    Scrivi "Scrittura in colonna dei numeri in formato2 e del rispettivo ritardo " ' scrivo i numeri incolonnati della array ordinata in decresc e ritardo specifico.
    For x = 1 To UBound(K)
        Scrivi Format2(K(x)) & " ritardo su " & SiglaRuota(Ru(1))& " " & RitardoEstratto(K(x),EstrazioneFin,Ru(1))
    Next
    Scrivi "Dimostrazione di nuovo ordinamento da k(1) a K(4)" ' riscrivo i numeri
    Scrivi K(1)     & " " & K(2) & " " & K(3) & " " & K(4)
    Scrivi "Differenza tra i primi 2 maggiori"
    Scrivi "K(1)-K(2) = " & K(1)-K(2)
 
End Sub

Nel caso vi siano numeri uguali ( ipotesi di I Legend) utilizza la funzione "eliminaripetuti" indicata da Avio

Saluti

 

[rudivall]

Ragazzi veramente gentilissimi tutti, che spettacolo Claudio, grazie caro Salvo, grazie mille Ilegend, grazie del Consiglio Avio, buon proseguimento di serata a tutti...

 

[rudivall]

Ciao amici, ciao Claudio se ti è possibile ancora un aiuto, ho utilizzato il tuo esempio, vorrei chiederti se invece del ritardo volessi vedere nelle precedenti 18 estrazioni quante volte sono usciti i numeri della matrice k dove devo modificare? Il ritardo funziona benissimo grazie.
K(1) = M1 '1a posizione
K(2) = M2 '2a
K(3) = M3 '3a
K(4) = M4 '4a posizione
K(5) = EE
K(6) = 45
OrdinaMatrice K,- 1 ' Ordino l'Array in decrescente
Scrivi "Scrittura in colonna dei numeri in formato2 e del rispettivo ritardo " ' scrivo i numeri incolonnati della array ordinata in decresc e ritardo specifico.
For x = 1 To UBound(K)
Scrivi Format2(K(x)) & " ritardo su " & SiglaRuota(R1)& " " & RitardoEstratto(K(x),EstrazioneFin,R1)& " ritardo su " & SiglaRuota(R2)& " " & RitardoEstratto(K(x),EstrazioneFin,R2)
Next

 

[i legend]

Estrattofrequenzaturbo credo che sia la funzione ,ma vado a memoria
Ciao

 

[rudivall]

Grazie mille Ilegend, avevo già provato la funzione estrattofrequenzaturbo ma non và ,parte ma poi si blocca con questo errore con la funzione Ritardo Estratto va benissimo e mi piace anche come la scrive....

 

[i legend]

Estratto frequenza ha bisogno di un inizio e una fine
Puoi postare lo script ?

 

[rudivall]

Si Ilegend non guardare il casino perchè è uno script di prova metodi che utilizzo molto...grazie

 

[claudio8]

Estrattofrequenzaturbo credo che sia la funzione ,ma vado a memoria
Ciao

perfetto I Legend

Sub Main
    Dim K(4) 'dichiaro l'array che contiene i numeri
    Dim Ru(1) 'dichiaro l'array che contiene la ruota
    Dim co_freq
    ' elenco i numeri nelle 4 posizioni dell'array
    K(1) = 56 '1a posizione
    K(2) = 11 '2a
    K(3) = 8 '3a
    K(4) = 53 '4a posizione
    Ru(1) = 1 '(BA_) specifico la ruota di ricerca
    OrdinaMatrice K,- 1 ' Ordino l'Array in decrescente
    Scrivi "Scrittura in colonna dei numeri in formato2 e del rispettivo ritardo " ' scrivo i numeri incolonnati della array ordinata in decresc e ritardo specifico.
    For x = 1 To UBound(K)
        Scrivi Format2(K(x)) & " ritardo su " & SiglaRuota(Ru(1)) & " " & FormatSpace(RitardoEstratto(K(x),EstrazioneFin,Ru(1)),3,True) & " frequenza " & _
        EstrattoFrequenzaTurbo (Ru(1),K(x),EstrazioneFin - 17,EstrazioneFin)
    Next
    Scrivi "Dimostrazione di nuovo ordinamento da k(1) a K(4)" ' riscrivo i numeri
    Scrivi K(1) & " " & K(2) & " " & K(3) & " " & K(4)
    Scrivi "Differenza tra i primi 2 maggiori"
    Scrivi "K(1)-K(2) = " & K(1) - K(2)
End Sub

X Rudivall
Ricordati sempre di leggere l'help e di segure pedissequamente le indicazioni.

Per conoscere dalla pagina del codice i parametri obbligatori o optional di cui ogni funzione ha bisogno, posiziona il mouse dopo il nome della funzione e dai un colpo sulla barraspaziatrice, ti apparirà una striscia gialla che elenca i parametri della funzione, man mano che sposti il cursore tra i parametri, oltre ogni singola virgola di separazione degli stessi, parte del testo della striscia gialla si evidenzierà in grassetto ed avrai sotto controllo quale parametro stai dando in pasto alle "belve" (funzioni).
Controlla se ti "funziona" la striscia gialla.

Ciao

 

[rudivall]

Grazie mille caro Claudio, appena torno a casa provo i tuoi consigli...

 

[rudivall]

Ciao Claudio non ci sono riuscito mi continuava a dare errori, ho cercato di risolvere così il risultato lo riesce a dare lo stesso.....

 

[claudio8]

Vedo che sulle prime righe c'è alla fine una parentesi in più. Se non risiede li l'errore, prova a mettere lo script che vediamo dove da errore.
Ciao