DOMANDA Inserimento Messaggi In Visual Basic

gamyz

Nuovo Utente
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:

Entra

oppure Accedi utilizzando