+- BorderGame (https://www.bordergame.it)
+-- Forum: Programmazione (/Forum-Programmazione--158)
+--- Forum: Programmazione (/Forum-Programmazione)
+---- Forum: Visual Basic & .NET (/Forum-Visual-Basic-NET)
+---- Discussione: Convertire caratteri ASCII (/Thread-Convertire-caratteri-ASCII)
Convertire caratteri ASCII - scl - 25-11-2012 01:07 PM
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 SubFonte: autoitfanclub