Public Class Form1
    'CREO VARIABLES
    Dim numero, missatge As Integer
    Dim caracter, missatge2 As String
    'QUAN USUARI PIQUI BOTO
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'DESAR CODI INTRODUIT
        numero = Int(TextCodiAscii.Text)
        'NUMERO DINTRE DELS LIMITS
        If (numero >= 0 And numero <= 127) Then
            'ESBRINO CARACTER ASCII ASSOCIAT AL CODI
            caracter = Chr(numero)
            'MOSTRO RESULTAT
            missatge2 = "El caracter del numero " & Str(numero) & " és " & caracter
            missatge = MsgBox(missatge2, vbOKOnly + vbInformation, "Ascii2Symbol")
        Else
            missatge = MsgBox("Posa un unmero entre 0 i 127", vbOKOnly + vbCritical, "Ascii2Symbol")
        End If
    End Sub
End Class

Darrera modificació: dimarts, 1 de febrer 2022, 10:07