C# / VB.NET - [vb .net] textbox

Forum - C# / VB.NET - [vb .net] textbox - Pagina 2

Pagine: [ 1 2 ]

R0gerBlack (Member)
Expert

Messaggi: 210
Iscritto: 10/06/2010

Postato alle 21:55
Sabato, 12/04/2014

Testo quotato

Postato originariamente da nessuno:

Testo quotato

Postato originariamente da R0gerBlack:
ma anche 2108,99 = 2108

No ... in quel caso vale 2109

@nessuno, che io sappia il tipo Integer tronca il valore decimale, non lo arrotonda (7/4 = 1), quindi dovrebbe essere lo stesso 2108, comunque sembra che in VB.NET si tenda ad arrotondarlo.

@ju89 metti questo codice all'inizio della sub

Codice sorgente - presumibilmente VB.NET

If value = "" Then
Return
End If

Comunque puoi isolare il codice in un Try-Catch per evitare altri tipi di errori (tipo se viene inserita una stringa)

Ultima modifica effettuata da R0gerBlack il 13/04/2014 alle 11:12

nessuno (Normal User)
Guru^2

Messaggi: 6403
Iscritto: 03/01/2010

Postato alle 0:23
Domenica, 13/04/2014

Il tipo è un tipo e non esegue nulla.

E' l'operazione di conversione tra la stringa e l'integer (che passa da un reale) che esegue l'approssimazione. Succede anche in VB6 ...

Fra l'altro, personalmente non mi piace affatto una scrittura come

x = ....Text

perché una conversione esplicita evita problemi "nascosti".

Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.

ju89 (Normal User)
Pro

Messaggi: 61
Iscritto: 26/03/2014

Postato alle 14:46
Lunedì, 14/04/2014

ho inserito il codice :

Codice sorgente - presumibilmente VB.NET

If value = "" Then
            Return
        End If

ma appena scrivo un numuero quando avvio il programma, va in errore ( InvalidCastException non è stata gestita).

Vi lascio il codice che ho inserito.

Codice sorgente - presumibilmente VB.NET

Private Sub sanzione_TextChanged(sender As Object, e As EventArgs) Handles sanzione.TextChanged
        Dim value As Decimal = sanzione.Text
        If value = "" Then
            Return
        End If
        If value >= 211 And value <= 2108 Then
            Label5.Text = 12
        ElseIf value >= 2108.01 And value <= 5270 Then
            Label5.Text = 24
        ElseIf value >= 5270.01 And value <= 99999 Then
            Label5.Text = 60
        End If
    End Sub

Roby94 (Member)
Guru

Messaggi: 1170
Iscritto: 28/12/2009

Postato alle 18:27
Lunedì, 14/04/2014

Allora, forse non ci siamo spiegati bene, il cast è la conversione di un tipo in un altro, tipi simili ma con rage diversi non hanno grandi problemi di cast, in quanto se il rage è adeguato questi possono convertirsi implicitamente, se invece i due tipo non hanno nulla a che fare tra loro, come il decimale e la stringa, serve una funzione che si occupi di questa conversione, in C# esiste il Parse devi trovare quale funzione permette questo cast esplicito in VB .NET

R0gerBlack (Member)
Expert

Messaggi: 210
Iscritto: 10/06/2010

Postato alle 20:16
Lunedì, 14/04/2014

ju89 scusa non ho tenuto conto del fatto che in teoria un Decimal non potrebbe neanche avere il valore "", quindi dovresti scrivere all'inizio della procedura

Codice sorgente - presumibilmente VB.NET

If sanzione.Text = "" Then
Return
End If

L'idea di una conversione esplicita non è male, ma sinceramente in VB.NET che si tollera di tutto non mi sembra così necessaria per un programma amatoriale.

Ultima modifica effettuata da R0gerBlack il 14/04/2014 alle 21:14

nessuno (Normal User)
Guru^2

Messaggi: 6403
Iscritto: 03/01/2010

Postato alle 20:42
Lunedì, 14/04/2014

Se si vuole imparare a programmare, sin dai primi programmi, è necessario utilizzare le corrette metodologie.

ju89 (Normal User)
Pro

Messaggi: 61
Iscritto: 26/03/2014

Postato alle 20:51
Lunedì, 14/04/2014

@R0gerBlack anche aggiungendo la tua riga di codice, andava in errore.
Adesso il codice funzionante che ho messo è questo

Codice sorgente - presumibilmente VB.NET

Private Sub sanzione_TextChanged(sender As Object, e As EventArgs) Handles sanzione.TextChanged
        If sanzione.Text = "" Then
            Return
        End If
        If sanzione.Text >= 211 And sanzione.Text <= 2108 Then
            Label5.Text = 12
        ElseIf sanzione.Text >= 2108.01 And sanzione.Text <= 5270 Then
            Label5.Text = 24
        ElseIf sanzione.Text >= 5270.01 And sanzione.Text <= 99999 Then
            Label5.Text = 60
        End If
    End Sub

e non da nessun errore.
Vi ringrazio per l'aiuto, sempre disponibili e gentili.

Pagine: [ 1 2 ]