Public Class Form1
    'CREO VARIABLES
    Dim caracter, titol As String
    Dim numero, missatge As Integer
    'QUAN PICA BOTO
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'DESAR SIMBOL
        caracter = TextBox1.Text
        'ESBRINAR CODI
        numero = Asc(caracter)
        'SI EL CODI ES VALID
        If (numero >= 33 And numero <= 127) Then
            'MOSTRA CODI
            titol = "El codi ASCII del caracter " & caracter & " es " & Str(numero)
            missatge = MsgBox(titol, vbOKOnly + vbInformation, "Symbol2Ascii")
            'SI NO
        Else
            'MOSTRA ERROR
            missatge = MsgBox("Caracter amb codi no valid", vbOKOnly + vbCritical, "Symbol2Ascii")
        End If
    End Sub
End Class

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