
Mikelius (Member)
Expert
    
Messaggi: 525
Iscritto: 14/04/2017
|
Ho provato a scaricare il programma Conversioni in VB.net, ma ho una notifica di "Virus Rilevato" quando tento di scaricarlo.
Falso positivo oppure è pericoloso?
Ultima modifica effettuata da Mikelius il 26/03/2018 alle 16:54 |
|

()
Newbie
    
Messaggi:
Iscritto:
|
Il virus ti ha eliminato le h ? :-)
A parte gli scherzi, puoi postare il link per scaricare il programma in questione?
|
|

Mikelius (Member)
Expert
    
Messaggi: 525
Iscritto: 14/04/2017
|
Postato originariamente da nessuno:
Il virus ti ha eliminato le h ? :-)
A parte gli scherzi, puoi postare il link per scaricare il programma in questione? |
|
|

()
Newbie
    
Messaggi:
Iscritto:
|
Ok ... non ci arrivo ... non essendo membro ... meglio così.
|
|

Mikelius (Member)
Expert
    
Messaggi: 525
Iscritto: 14/04/2017
|
Questo dovrebbe essere un link diretto
www.pierotofy.it/data/programs/Visual_Basic_dotNET/Conversioni.zip
|
|

()
Newbie
    
Messaggi:
Iscritto:
|
Non ho rilevato problemi. Comunque, basta eliminare la cartella obj e bin e ricomplare.
Il programma è migliorabile ma un buon inizio.
Se proprio vogliamo parlare di un difetto, vengono trattati tranquillamente valori negativi (ma per molte grandezze non hanno senso).
Qualche cosuccia "cosmetica" (la data nel titolo?) ...
|
|

Mikelius (Member)
Expert
    
Messaggi: 525
Iscritto: 14/04/2017
|
Il problema era proprio lo scaricamento.
Comunque ho disabilitato tutto,scaricato e provato.
Ho notato subito un errore ( 1 K -> 2.8 °C). Le altre non le ho provate con attenzione, ma pure nelle misure della pressione mi pare ci siano inesattezze (fatto un confronto rapido con il convertitore di google).
Non conosco il VB.net ma mi interessava perché ho fatto qualcosa simili in c#.net (io lo metto come progetto aggiornabile, mi piacciono di più) e mi interessava il confronto (la sintassi sarà differente, ma la struttura del .net non dovrebbe cambiare da vb a c#).
|
|

Carlo (Member)
Guru^2
    
Messaggi: 1423
Iscritto: 29/01/2018
|
Confermo, che ci sono problemi sul programma, conversioni, vorrei comunicare all'autore alcune prove riferite alla conversione delle temperature.
alla riga: Dim Temperatura() As String = {"Temperatura", "Fahrenheit-32", "Celsius-1,8", "Kelvin-273,15"}
se inserisco il valore 0 per i gradi celsius, invece del valore 1,8.
la conversione celsius kelvin è corretta, ma sbagliano le altre
Un problema sta nella routine:
If Nome <> "Temperatura" Then
rs.Text = Convert.ToDouble(tbxQty.Text.Trim.Replace(".", ".")) * (c1 / c2)
Else
If cbx2.Text = "Fahrenheit" Then
rs.Text = (Convert.ToDouble(tbxQty.Text.Trim.Replace(".", ".")) * (c1)) + c2
Else
Dim app As Double = Convert.ToDouble(tbxQty.Text.Trim.Replace(".", "."))
If Convert.ToDouble(app) < -273.15 Then
MsgBox("IN QUESTO CASO IL VALORE DI TEMPERATURA CELSIUS NON PUO' ESSERE < -273,15!")
Else
rs.Text = c2 + Convert.ToDouble(tbxQty.Text.Trim.Replace(".", "."))
End If
End If
End If
controlla la riga: rs.Text = c2 + Convert.ToDouble(tbxQty.Text.Trim.Replace(".", "."))
nel calcolo non può mancare il parametro c1!
Ultima modifica effettuata da Carlo il 27/03/2018 alle 10:04
in programmazione tutto è permesso |
|

Mikelius (Member)
Expert
    
Messaggi: 525
Iscritto: 14/04/2017
|
Postato originariamente da Carlo:
Confermo, che ci sono problemi sul programma, conversioni, vorrei comunicare all'autore alcune prove riferite alla conversione delle temperature.
alla riga: Dim Temperatura() As String = {"Temperatura", "Fahrenheit-32", "Celsius-1,8", "Kelvin-273,15"}
se inserisco il valore 0 per i gradi celsius, invece del valore 1,8.
la conversione celsius kelvin è corretta, ma sbagliano le altre
Un problema sta nella routine:
If Nome <> "Temperatura" Then
rs.Text = Convert.ToDouble(tbxQty.Text.Trim.Replace(".", ".")) * (c1 / c2)
Else
If cbx2.Text = "Fahrenheit" Then
rs.Text = (Convert.ToDouble(tbxQty.Text.Trim.Replace(".", ".")) * (c1)) + c2
Else
Dim app As Double = Convert.ToDouble(tbxQty.Text.Trim.Replace(".", "."))
If Convert.ToDouble(app) < -273.15 Then
MsgBox("IN QUESTO CASO IL VALORE DI TEMPERATURA CELSIUS NON PUO' ESSERE < -273,15!")
Else
rs.Text = c2 + Convert.ToDouble(tbxQty.Text.Trim.Replace(".", "."))
End If
End If
End If
controlla la riga: rs.Text = c2 + Convert.ToDouble(tbxQty.Text.Trim.Replace(".", "."))
nel calcolo non può mancare il parametro c1!
|
il metodo Text.Trim.Replace(".", ".") se non sbaglio cambia i "." con i "."? ha senso??? |
|