Convertir ńumero entero a Hexadecimal con Hex()

' Gambas module file

' by postapase
' http://novatocodegambas.blogspot.com.uy/

'Reto: http://www.solveet.com/exercises/decimal-a-hexadecimal-/605

' Crear una función que tome un entero y devuelva una cadena con su conversión a hexadecimal.
'
' ejemplo:
' hex 2 = "2"
' hex 10 = "A"
' hex 666 = "29A"

Public Sub Main()

Print ConvertirNumero_A_Hexadecimal(2)
Print ConvertirNumero_A_Hexadecimal(10)
Print ConvertirNumero_A_Hexadecimal(666)

End

Private Sub ConvertirNumero_A_Hexadecimal(numeroX As Integer) As String

Return Hex(numeroX)

End

Escritura directa en un archivo

Buenas, puede suceder que necesitemos un archivo donde guardemos datos para el funcionamiento de nuestro programa sin la intervención del usuario. Aquí les dejo un ejemplo super simple como me gusta a mi para que sea mas fácil comprender.

' gambas class file

' by postapase
' Escritura directa en un archivo

Public Sub Form_Open()
Dim Ruta As String = User.Home & "/prueba.txt" 'Variable de tipo cadena,
' que contiene la ruta donde se guardara/creara el archivo con los datos

Dim Archivo As File 'declaracion de variable de tipo archivo

Me.Center 'Centra el formulario

Archivo = Open Ruta For Create 'Abre archivo, sino existe lo crea

Print #Archivo, "Hola, hoy es el día " & Format(Date, gb.LongDate) 'escribe 1ª linea
Print #Archivo 'deja la linea en blanco, escribe 2ª linea
Print #Archivo, "El archivo se guardo en:" ' escribe 3ª linea
Print #Archivo, Ruta 'escribe 4ª linea

Close #Archivo 'cierra el archivo

End

' Ahora busquen el archivo en User.Home &"/prueba.txt" para ver los resultados