Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > it.comp.lang.visual-basic > #19410

Re: VB.NET - Creare DLL [SOLUIZIONE]

Show all headers | View raw

On Wednesday, July 25, 2018 at 7:48:08 PM UTC+2, Ettore wrote:

> Grazie "Luca D"

Ehm... prego

Però posso dire? non e' la prima volta che se non ti arriva la risposta nei tempi e modi che ritieni ti siano "dovuti", te ne esci con qualche pistolotto tipo questo che francamente mi fa scappare la voglia di rispondere la volta dopo.

A parte questo, c'è talmente tanto bordello nel post che hai appena fatto che non so come faccia a stare insieme questo programma da 38000 righe di codice senza chiamare un esorcista... e intendo cose tipo

>6) Scriverete tra questi codici la Funzione . => Public Function EarthL00(ByVal > t2kJD As Double)
> Attenzione non potevo mettere t2kJDEMIL, perche' nel programma gia' presente ! > quindi la richiamo cambiando il nome.

il parametro lo puoi chiamare come vuoi, anche se esiste una variabile altrove con lo stesso nome, basta che PASSI IL VALORE alla funzione quando la chiami

> Result += 0.03341656453 * Math.Cos(4.66925680415 + 6283.0758499914 * t2kJD)
> ecc...ecc... qui ho circa 1000 linee di sommatoria .! 

Per curiosità, sono 1000 righe tutte con lo stesso tipo di operazione?
cioè 
X * Math.Cos(Y + Z * t2kJD)

Perchè nel caso, se a cambiare siono solo i tre valori numerici, lo puoi ridurre ad un ciclo for di 3(tre) righe, se tieni la tabella coi coefficenti memorizzata a parte

> Result = String.Format("{0:f15}", (Result * 100000000)) 

Se Result e' definito Double, non ha senso convertirlo in stringa per poi farselo immediatamente ri-convertire (di nascosto) in Double dal framework, che è quello che succede con l'istruzione qui sopra

> Dim t2kJD As Double = Val(txtt2kJDEMIL.Text)
> txtResult.Text = (Calcola.EarthL00(CDbl(txtt2kJDEMIL.Text)).ToString) 

Vedi sopra... prendi una stringa da un textbox, la converti in double, poi chiami la funzione che vuole un double in input ma invece che dargli la variabile appena convertita, la ri-traformi di nuovo dal textbox (bonus artistico per aver usato Val e CDbl nello spazio di due righe per fare la stessa cosa, scegline una) e dulcis in fundo applichi .ToString al risultato che quindi (per come hai applicato Format() al punto prima) in totale viene convertito Double->String->Double->String

Ecc... ecc... insomma, quando dicevo di lasciare un attimo da parte il discorso DLL esterna, e' perchè mi pare ci sia parecchia confusione gia' nelle basi (vedi anche la "soluzione" a colpi di 28 IF dell'altro post), e non mi pareva il caso di aggiungere un altro livello di casino.

Che nessuno nasce imparato e' vero, pero' prima di permetterti di mandare a fanculo a destra e a manca chi non ti risponde, magari considera che è già una impresa capire le domande che fai, e che probabilmente il tempo che hai speso per farci la morale lo impiegheresti meglio a leggere un libro introduttivo, e intendo proprio *introduttivo*, al linguaggio

Back to it.comp.lang.visual-basic | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

VB.NET - Creare DLL "Ettore" <ettor50@nomail.com> - 2018-07-24 21:19 +0200
  Re: VB.NET - Creare DLL Luca D <antaniserse@yahoo.it> - 2018-07-24 15:58 -0700
    Re: VB.NET - Creare DLL "Ettore" <ettor50@nomail.com> - 2018-07-25 16:27 +0200
    Re: VB.NET - Creare DLL [SOLUIZIONE] "Ettore" <ettor50@nomail.com> - 2018-07-25 19:48 +0200
      Re: VB.NET - Creare DLL [SOLUIZIONE] "Ettore" <ettor50@nomail.com> - 2018-07-25 19:55 +0200
      Re: VB.NET - Creare DLL [SOLUIZIONE] Luca D <antaniserse@yahoo.it> - 2018-07-25 14:56 -0700
        Re: VB.NET - Creare DLL [SOLUIZIONE] "Ettore" <ettor50@nomail.com> - 2018-07-26 19:52 +0200
          Re: VB.NET - Creare DLL [SOLUIZIONE] Franz_aRTiglio <franzgol@N0SPAMtin.it> - 2018-07-26 20:38 +0200
          Re: VB.NET - Creare DLL [SOLUIZIONE] Luca D <antaniserse@yahoo.it> - 2018-07-26 15:17 -0700

csiph-web