X-Received: by 2002:a37:ddd3:: with SMTP id u80-v6mr13118031qku.16.1532555794154; Wed, 25 Jul 2018 14:56:34 -0700 (PDT) X-Received: by 2002:a37:1a22:: with SMTP id a34-v6mr606297qka.5.1532555793970; Wed, 25 Jul 2018 14:56:33 -0700 (PDT) Path: csiph.com!weretis.net!feeder6.news.weretis.net!feeder.usenetexpress.com!feeder-in1.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!e8-v6no33201qtp.0!news-out.google.com!e39-v6ni490qtb.0!nntp.google.com!e8-v6no33197qtp.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: it.comp.lang.visual-basic Date: Wed, 25 Jul 2018 14:56:33 -0700 (PDT) In-Reply-To: Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=87.9.121.13; posting-account=eitZdgoAAAC6C9CXmyhLNaQM3MgI3eZM NNTP-Posting-Host: 87.9.121.13 References: User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: Subject: Re: VB.NET - Creare DLL [SOLUIZIONE] From: Luca D Injection-Date: Wed, 25 Jul 2018 21:56:34 +0000 Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable Lines: 63 Xref: csiph.com it.comp.lang.visual-basic:19410 On Wednesday, July 25, 2018 at 7:48:08 PM UTC+2, Ettore wrote: > Grazie "Luca D" Ehm... prego Per=C3=B2 posso dire? non e' la prima volta che se non ti arriva la rispost= a nei tempi e modi che ritieni ti siano "dovuti", te ne esci con qualche pi= stolotto tipo questo che francamente mi fa scappare la voglia di rispondere= la volta dopo. A parte questo, c'=C3=A8 talmente tanto bordello nel post che hai appena fa= tto 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 . =3D> Public Function EarthL0= 0(ByVal > t2kJD As Double) > Attenzione non potevo mettere t2kJDEMIL, perche' nel programma gia' prese= nte ! > quindi la richiamo cambiando il nome. il parametro lo puoi chiamare come vuoi, anche se esiste una variabile altr= ove con lo stesso nome, basta che PASSI IL VALORE alla funzione quando la c= hiami > Result +=3D 0.03341656453 * Math.Cos(4.66925680415 + 6283.0758499914 * t2= kJD) > ecc...ecc... qui ho circa 1000 linee di sommatoria .!=20 Per curiosit=C3=A0, sono 1000 righe tutte con lo stesso tipo di operazione? cio=C3=A8=20 X * Math.Cos(Y + Z * t2kJD) Perch=C3=A8 nel caso, se a cambiare siono solo i tre valori numerici, lo pu= oi ridurre ad un ciclo for di 3(tre) righe, se tieni la tabella coi coeffic= enti memorizzata a parte > Result =3D String.Format("{0:f15}", (Result * 100000000))=20 Se Result e' definito Double, non ha senso convertirlo in stringa per poi f= arselo immediatamente ri-convertire (di nascosto) in Double dal framework, = che =C3=A8 quello che succede con l'istruzione qui sopra > Dim t2kJD As Double =3D Val(txtt2kJDEMIL.Text) > txtResult.Text =3D (Calcola.EarthL00(CDbl(txtt2kJDEMIL.Text)).ToString)= =20 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 var= iabile appena convertita, la ri-traformi di nuovo dal textbox (bonus artist= ico 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 q= uindi (per come hai applicato Format() al punto prima) in totale viene conv= ertito Double->String->Double->String Ecc... ecc... insomma, quando dicevo di lasciare un attimo da parte il disc= orso DLL esterna, e' perch=C3=A8 mi pare ci sia parecchia confusione gia' n= elle basi (vedi anche la "soluzione" a colpi di 28 IF dell'altro post), e n= on 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 =C3= =A8 gi=C3=A0 una impresa capire le domande che fai, e che probabilmente il = tempo che hai speso per farci la morale lo impiegheresti meglio a leggere u= n libro introduttivo, e intendo proprio *introduttivo*, al linguaggio