Voici le code original Klaus je met les 2 versions de clac hexa à la suite


[CODE=b4x]'Sub calc_hexa(in_hexa As Byte )As Char

'   

'    If Vquartet1 = 0 Then

'    out_hexa = "0"

'    Else If Vquartet1 = 1 Then

'    out_hexa = "1"

'    Else If Vquartet1 = 2 Then

'    out_hexa = "2"       

'    else If Vquartet1 = 3 Then

'    out_hexa = "3"

'    Else If Vquartet1 = 4 Then

'    out_hexa = "4"

'    Else If Vquartet1 = 5 Then

'    out_hexa = "5"

'    Else If Vquartet1 = 6 Then

'    out_hexa = "6"

'    Else If  Vquartet1 = 7 Then

'    out_hexa = "7"

'    Else if  Vquartet1 = 8 Then

'    out_hexa = "8"

'    Else If  Vquartet1 = 9 Then

'    out_hexa = "9"

'    Else If  Vquartet1 = 10 Then

'    out_hexa = "A"

'    Else If Vquartet1 = 11 Then

'    out_hexa = "B"

'    Else If Vquartet1 = 12 Then

'    out_hexa = "C"

'    Else If  Vquartet1 = 13 Then

'    out_hexa = "D"

'    Else if  Vquartet1 = 14 Then

'    out_hexa = "E"

'    Else If  Vquartet1 = 15 Then

'    out_hexa = "F"

'End If

'

'Return out_hexa

'   

'End Sub


Sub calc_hexa (in_hexa As Byte) As Char

    Dim out_hexa As Char = "0"    'if in_hexa not valid hex value, then return "?"

    If in_hexa >= 0 And in_hexa <= 15 Then

        out_hexa = "0123456789ABCDEF".CharAt(in_hexa)

    End If

    Return out_hexa

End Sub


[/CODE]


Je recherche une ou des méthodes pour réduire des répétitions de codes
