BorderGame

Salvatelo con il blocco note/gedit sul desktop o dove volete chiamandolo "nome.vbs"

Codice:

SUB Convertitore()

Chiedo = MsgBox("scegliere si per convertite un  carattere in ASCII, scegliere no per convertire un carattere ASCII nel  suo corrispondente (e annulla per uscire)", vbYesNoCancel +  vbInformation,"Convertitore")

If Chiedo = vbYes Then

MyCaracter =  InputBox("Inserisci una lettera che verrà convertita nel suo  corrispondente in ASCII","Convertitore Carattere - ASCII")

If (MyCaracter <> Empty) Then

Convert = Asc(MyCaracter)

MsgBox Convert, vbInformation

Convertitore()

Else

Cancel()

End If

Elseif Chiedo = vbNo Then

MyASCII  = InputBox("Inserisci un carattere in ASCII che verrà convertito nel  suo corrispondente","Convertitore ASCII - carattere")

If (MyASCII <> Empty) Then

Convert = Chr(MyASCII)

MsgBox Convert, vbInformation

Convertitore()

Else

Cancel()

End If

Else

Cancel()

End If

End SUb

Convertitore()

Sub Cancel()

'serve ad uscire

End Sub

Fonte: autoitfanclub

scl