DOMANDA Inserimento Messaggi In Visual Basic

gamyz

Nuovo Utente
40
1
Salve, sono alle prime armi con la programmazione in Visual Basic, ho creato un semplice programma che applica lo sconto del 10% se la spesa non supera i 500 euro, e del 20% nel caso opposto. Quindi dopo aver inserito i dati appaiono a schemo i messaggi che dicono quanto é lo sconto(in euro) e l'importo totale. Volevo sapere come inserire una msgbox che mi indichi, DOPO lo sconto e l'importo, quale é la percentuale di sconto applicata.
Qui sotto il codice
Codice:
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim S As Double
        Dim Sc As Double
        Dim I As Double
        S = CDbl(InputBox("Inserire totale spesa", "Input dati"))
        If S <= 500 Then
            Sc = 10 * S / 100
            I = S - Sc
        Else
            Sc = 20 * S / 100
            I = S - Sc
        End If
        MsgBox("Lo sconto é di " + CStr(Sc))
        MsgBox("L'importo totale é di " + CStr(I))
    End Sub
    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
        MsgBox("Premere il pulsante per avviare il programma")
    End Sub
End Class
Grazie!
 
Ultima modifica da un moderatore:
M

Mursey

Ospite
Codice:
Public Class Form1
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         Dim S As Double
         Dim Sc As Double
         Dim I As Double
         Dim Sconto as Integer
         S = CDbl(InputBox("Inserire totale spesa", "Input dati"))
         If S <= 500 Then
             Sconto = 10
         Else
             Sconto = 20
         End If
         Sc = Sconto * S / 100
         I = S - Sc
         MsgBox("Lo sconto é di " + CStr(Sc))
         MsgBox("L'importo totale é di " + CStr(I))
         MsgBox("La percentuale di sconto é del " + CStr(Sconto) + "%")
     End Sub
     Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
         MsgBox("Premere il pulsante per avviare il programma")
     End Sub
End Class

Sarebbe meglio comunque far vedere un'unica message box con tutte le informazioni,
per farlo usa https://support.microsoft.com/it-it/kb/281670
 
Ultima modifica da un moderatore:

Ci sono discussioni simili a riguardo, dai un'occhiata!

Entra

oppure Accedi utilizzando

Discussioni Simili