Códigos ASCII

y programas personales para otros como tu, puede que te corrijan ;)
Responder
joanfran55
Mensajes: 16
Registrado: 09 Mar 2009, 02:10

Códigos ASCII

Mensaje por joanfran55 »

Muchas veces he tenido que hacer virguerías para averiguar qué carácter corresponde a cada número ASCII, pues no dispongo de teclado numérrico y pulsar Alt + número para comprobar se me hace pesado, con esta aplicación, sólo con meterle el número te dará el carácter, espero que os guste:

Código: Seleccionar todo

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <IE.au3>

$N = 0
;Gui-----------------------------------------------------------------------------------------------------------------------------------------
$Form1 = GUICreate("Códigos ASCII by joanfran55", 453, 100, -1, -1)
$Input1 = GUICtrlCreateInput("", 100, 10, 60, 25)
$Output1= GUICtrlCreateLabel("", 400, 10, 60, 25)
GUICtrlSetFont(1, 28, 800, 1, "MS Sans Serif")


GUISetState(@SW_SHOW)
$Button1 = GUICtrlCreateButton("Obtener carácter  >  ", 200, 10, 131, 25, $BS_DEFPUSHBUTTON)

GUICtrlCreateLabel("Introduce un número de 0 a 256 para obtener el carácter correspondiente al número ASCII", 10, 70, 600, 250)

While 1
	
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			$car= GUICtrlRead($Input1)
			If $car=1 Then
			$asc=Chr(1)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=2 Then
			$asc=Chr(2)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=3 Then
			$asc=Chr(3)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=4 Then
			$asc=Chr(4)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=5 Then
			$asc=Chr(5)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=6 Then
			$asc=Chr(6)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=7 Then
			$asc=Chr(7)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=8 Then
			$asc=Chr(8)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=9 Then
			$asc=Chr(9)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=10 Then
			$asc=Chr(10)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=11 Then
			$asc=Chr(11)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=12 Then
			$asc=Chr(12)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=13 Then
			$asc=Chr(13)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=14 Then
			$asc=Chr(14)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=15 Then
			$asc=Chr(15)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=16 Then
			$asc=Chr(16)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=17 Then
			$asc=Chr(17)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=18 Then
			$asc=Chr(18)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=19 Then
			$asc=Chr(19)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=20 Then
			$asc=Chr(20)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=21 Then
			$asc=Chr(21)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=22 Then
			$asc=Chr(22)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=23 Then
			$asc=Chr(23)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=24 Then
			$asc=Chr(24)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=25 Then
			$asc=Chr(25)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=26 Then
			$asc=Chr(26)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=27 Then
			$asc=Chr(27)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=28 Then
			$asc=Chr(29)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=30 Then
			$asc=Chr(30)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=31 Then
			$asc=Chr(31)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=32 Then
			$asc=Chr(32)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=33 Then
			$asc=Chr(33)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=34 Then
			$asc=Chr(34)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=35 Then
			$asc=Chr(35)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=36 Then
			$asc=Chr(36)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=37 Then
			$asc=Chr(37)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=38 Then
			$asc=Chr(38)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=39 Then
			$asc=Chr(39)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=40 Then
			$asc=Chr(40)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=41 Then
			$asc=Chr(41)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=42 Then
			$asc=Chr(42)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=43 Then
			$asc=Chr(43)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=44 Then
			$asc=Chr(44)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=45 Then
			$asc=Chr(45)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=46 Then
			$asc=Chr(46)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=47 Then
			$asc=Chr(47)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=48 Then
			$asc=Chr(48)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=49 Then
			$asc=Chr(49)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=50 Then
			$asc=Chr(50)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=51 Then
			$asc=Chr(51)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=52 Then
			$asc=Chr(52)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=53 Then
			$asc=Chr(53)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=54 Then
			$asc=Chr(54)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=55 Then
			$asc=Chr(55)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=56 Then
			$asc=Chr(56)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=57 Then
			$asc=Chr(57)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=58 Then
			$asc=Chr(58)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=59 Then
			$asc=Chr(59)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=60 Then
			$asc=Chr(60)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=61 Then
			$asc=Chr(61)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=62 Then
			$asc=Chr(62)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=63 Then
			$asc=Chr(63)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=64 Then
			$asc=Chr(64)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=65 Then
			$asc=Chr(65)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=66 Then
			$asc=Chr(66)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=67 Then
			$asc=Chr(67)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=68 Then
			$asc=Chr(68)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=69 Then
			$asc=Chr(69)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=70 Then
			$asc=Chr(70)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=71 Then
			$asc=Chr(71)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=72 Then
			$asc=Chr(72)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=73 Then
			$asc=Chr(73)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=74 Then
			$asc=Chr(74)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=75 Then
			$asc=Chr(75)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=76 Then
			$asc=Chr(76)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=77 Then
			$asc=Chr(77)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=78 Then
			$asc=Chr(78)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=79 Then
			$asc=Chr(79)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=80 Then
			$asc=Chr(80)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=81 Then
			$asc=Chr(81)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=82 Then
			$asc=Chr(82)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=83 Then
			$asc=Chr(83)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=84 Then
			$asc=Chr(84)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=85 Then
			$asc=Chr(85)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=86 Then
			$asc=Chr(86)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=87 Then
			$asc=Chr(87)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=88 Then
			$asc=Chr(88)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=89 Then
			$asc=Chr(89)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=90 Then
			$asc=Chr(90)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=91 Then
			$asc=Chr(91)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=92 Then
			$asc=Chr(92)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=93 Then
			$asc=Chr(93)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=94 Then
			$asc=Chr(94)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=95 Then
			$asc=Chr(95)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=96 Then
			$asc=Chr(96)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=97 Then
			$asc=Chr(97)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=98 Then
			$asc=Chr(98)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=99 Then
			$asc=Chr(99)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=100 Then
			$asc=Chr(100)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=101 Then
			$asc=Chr(101)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=102 Then
			$asc=Chr(102)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=103 Then
			$asc=Chr(103)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=104 Then
			$asc=Chr(104)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=105 Then
			$asc=Chr(105)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=106 Then
			$asc=Chr(106)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=107 Then
			$asc=Chr(107)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=108 Then
			$asc=Chr(108)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=109 Then
			$asc=Chr(109)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=110 Then
			$asc=Chr(110)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=111 Then
			$asc=Chr(111)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=112 Then
			$asc=Chr(112)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=113 Then
			$asc=Chr(113)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=114 Then
			$asc=Chr(114)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=115 Then
			$asc=Chr(115)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=116 Then
			$asc=Chr(116)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=117 Then
			$asc=Chr(117)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=118 Then
			$asc=Chr(118)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=119 Then
			$asc=Chr(119)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=120 Then
			$asc=Chr(120)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=121 Then
			$asc=Chr(121)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=122 Then
			$asc=Chr(122)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=123 Then
			$asc=Chr(123)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=124 Then
			$asc=Chr(124)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=125 Then
			$asc=Chr(125)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=126 Then
			$asc=Chr(126)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=127 Then
			$asc=Chr(172)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=128 Then
			$asc=Chr(128)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=129 Then
			$asc=Chr(129)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=130 Then
			$asc=Chr(130)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=131 Then
			$asc=Chr(131)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=132 Then
			$asc=Chr(132)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=133 Then
			$asc=Chr(133)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=134 Then
			$asc=Chr(134)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=135 Then
			$asc=Chr(135)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=136 Then
			$asc=Chr(136)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=137 Then
			$asc=Chr(137)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=138 Then
			$asc=Chr(138)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=139 Then
			$asc=Chr(139)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=140 Then
			$asc=Chr(140)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=141 Then
			$asc=Chr(141)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=142 Then
			$asc=Chr(142)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=143 Then
			$asc=Chr(143)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=144 Then
			$asc=Chr(144)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=145 Then
			$asc=Chr(145)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=146 Then
			$asc=Chr(146)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=147 Then
			$asc=Chr(147)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=148 Then
			$asc=Chr(148)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=149 Then
			$asc=Chr(149)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=150 Then
			$asc=Chr(150)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=151 Then
			$asc=Chr(151)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=152 Then
			$asc=Chr(152)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=153 Then
			$asc=Chr(153)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=154 Then
			$asc=Chr(154)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=155 Then
			$asc=Chr(155)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=156 Then
			$asc=Chr(156)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=157 Then
			$asc=Chr(157)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=158 Then
			$asc=Chr(158)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=159 Then
			$asc=Chr(159)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=160 Then
			$asc=Chr(160)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=161 Then
			$asc=Chr(161)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=162 Then
			$asc=Chr(162)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=163 Then
			$asc=Chr(163)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=164 Then
			$asc=Chr(164)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=165 Then
			$asc=Chr(165)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=166 Then
			$asc=Chr(166)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=167 Then
			$asc=Chr(167)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=168 Then
			$asc=Chr(168)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=169 Then
			$asc=Chr(169)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=170 Then
			$asc=Chr(170)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=171 Then
			$asc=Chr(171)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=172 Then
			$asc=Chr(172)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=173 Then
			$asc=Chr(173)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=174 Then
			$asc=Chr(174)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=175 Then
			$asc=Chr(175)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=176 Then
			$asc=Chr(176)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=177 Then
			$asc=Chr(177)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=178 Then
			$asc=Chr(178)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=179 Then
			$asc=Chr(179)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=180 Then
			$asc=Chr(180)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=181 Then
			$asc=Chr(181)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=182 Then
			$asc=Chr(182)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=183 Then
			$asc=Chr(183)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=187 Then
			$asc=Chr(187)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=188 Then
			$asc=Chr(188)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=189 Then
			$asc=Chr(189)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=190 Then
			$asc=Chr(190)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=191 Then
			$asc=Chr(191)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=192 Then
			$asc=Chr(192)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=193 Then
			$asc=Chr(193)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=194 Then
			$asc=Chr(194)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=195 Then
			$asc=Chr(195)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=196 Then
			$asc=Chr(196)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=197 Then
			$asc=Chr(197)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=198 Then
			$asc=Chr(198)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=199 Then
			$asc=Chr(199)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=200 Then
			$asc=Chr(200)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=201 Then
			$asc=Chr(201)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=202 Then
			$asc=Chr(202)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=203 Then
			$asc=Chr(203)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=204 Then
			$asc=Chr(204)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=205 Then
			$asc=Chr(205)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=206 Then
			$asc=Chr(206)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=207 Then
			$asc=Chr(207)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=208 Then
			$asc=Chr(208)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=209 Then
			$asc=Chr(209)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=210 Then
			$asc=Chr(210)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=211 Then
			$asc=Chr(211)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=212 Then
			$asc=Chr(212)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=213 Then
			$asc=Chr(213)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=214 Then
			$asc=Chr(214)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=215 Then
			$asc=Chr(215)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=216 Then
			$asc=Chr(216)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=217 Then
			$asc=Chr(217)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=218 Then
			$asc=Chr(218)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=219 Then
			$asc=Chr(219)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=220 Then
			$asc=Chr(220)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=221 Then
			$asc=Chr(221)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=222 Then
			$asc=Chr(222)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=223 Then
			$asc=Chr(223)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=224 Then
			$asc=Chr(224)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=225 Then
			$asc=Chr(225)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=226 Then
			$asc=Chr(226)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=227 Then
			$asc=Chr(227)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=228 Then
			$asc=Chr(228)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=229 Then
			$asc=Chr(229)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=230 Then
			$asc=Chr(230)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=231 Then
			$asc=Chr(231)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=232 Then
			$asc=Chr(232)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=233 Then
			$asc=Chr(233)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=234 Then
			$asc=Chr(234)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=235 Then
			$asc=Chr(235)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=236 Then
			$asc=Chr(236)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=237 Then
			$asc=Chr(237)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=238 Then
			$asc=Chr(238)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=239 Then
			$asc=Chr(239)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=240 Then
			$asc=Chr(240)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=241 Then
			$asc=Chr(241)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=242 Then
			$asc=Chr(242)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=243 Then
			$asc=Chr(243)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=244 Then
			$asc=Chr(244)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=245 Then
			$asc=Chr(245)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=246 Then
			$asc=Chr(246)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=247 Then
			$asc=Chr(247)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=248 Then
			$asc=Chr(248)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=249 Then
			$asc=Chr(249)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=250 Then
			$asc=Chr(250)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=251 Then
			$asc=Chr(251)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=252 Then
			$asc=Chr(253)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=254 Then
			$asc=Chr(254)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=255 Then
			$asc=Chr(255)
			GuiCtrlSetData($Output1, $asc)
			ElseIf $car=0 Then
			$asc=Chr(0)
		Else
			MsgBox(4096, "Error", "El número ha de estar entre 0 y 255")
			
			
			EndIF
	EndSwitch
WEnd

	
Espero que os sea útil.

Enhorabuena por el foro
Avatar de Usuario
Rupert.25
Hacker del Foro
Mensajes: 247
Registrado: 17 Jul 2007, 18:27

Re: Códigos ASCII

Mensaje por Rupert.25 »


Saludos, Muchas gracias! Sin duda será util.

Bienvenido al foro y Felicidades por tu primer Post, y por compartir tu script, Ahora mismo lo pruebo.
Avatar de Usuario
Rupert.25
Hacker del Foro
Mensajes: 247
Registrado: 17 Jul 2007, 18:27

Re: Códigos ASCII

Mensaje por Rupert.25 »

Oye lo estoy probando y me poareceria una mejor Idea, si se pudiera seleccionar el texto o la letra que resulta del codigo dado.

Podrias cambiar el Label por un Input.

Ademas una gran sugerencia qe te ahorrará tanto codigo es hacer lo siguiente:

Código: Seleccionar todo

          Case $Button1
            $car= GUICtrlRead($Input1)
			if $car >0 And $car <256 Then
				GUICtrlSetData($Output1,Chr($car))
			Else
				MsgBox(4096, "Error", "El número ha de estar entre 0 y 255")
			EndIF
En caso de que se presione el boton1 no es necesario hacer tantas comparaciones con una sola lo puedes lograr, puedes poner la siguiente condición:

If $car >0 And $car <256 then GUICtrlSetData($Output1,Chr($arc))

eso te ahorra las 256 comparaciones que haces :D.
Es una excelente idea y muy buen código, aunque si aplicas lo que te menciono es posible que funcione de las misma manera, pero te ahorras 256 lineas de codigo XD.
otyra sugerencia que puedo darte es que pueda hacer lo inverso, es decir que dada una letra retorne el codigo ASCII, eso lo hace la funcion ASC

Muchas gracias espero haberte ayudado.
joanfran55
Mensajes: 16
Registrado: 09 Mar 2009, 02:10

Re: Códigos ASCII

Mensaje por joanfran55 »

El caso es que lo pensé, lo de Chr($car), pero simplemente no funcionaba, por eso le puse tantas líneas. ¿lo que acabas de poner funciona?, pensaba que lo del paréntesis de dentro del Chr tenía que ser un número ya definido, no una variable, al ver que no funcionaba. Lo probaré.

En cuanto a lo de pasar el ASCII al número, ¡te me adelantaste! Eso era una segunda parte de la película

:smt003 :smt003 :smt003
Avatar de Usuario
timistar
Hacker del Foro
Mensajes: 89
Registrado: 24 Jun 2008, 05:03

Re: Códigos ASCII

Mensaje por timistar »

gracias
:smt040
joanfran55
Mensajes: 16
Registrado: 09 Mar 2009, 02:10

Re: Códigos ASCII

Mensaje por joanfran55 »

Mejorado gracias a Rupert.25 y puesto lo de pasar de carácter a ascii, ahora funciona en los dos sentidos:

Código: Seleccionar todo

 #NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <IE.au3>

$N = 0
;Gui-----------------------------------------------------------------------------------------------------------------------------------------
$Form1 = GUICreate("Códigos ASCII by joanfran55", 553, 170, -1, -1)
$Input1 = GUICtrlCreateInput("", 100, 10, 60, 25)
$Output1= GUICtrlCreateInput("", 400, 10, 30, 25, $ES_READONLY)
GUICtrlSetFont(1, 28, 800, 1, "MS Sans Serif")
GUISetState(@SW_SHOW)
$Button1 = GUICtrlCreateButton("Obtener carácter  >  ", 200, 10, 131, 25, $BS_DEFPUSHBUTTON)

GUICtrlCreateLabel("Introduce un número de 0 a 256 para obtener el carácter correspondiente al número ASCII", 40, 60, 600, 20)
GUICtrlCreateLabel("", 0, 75, 600, 2, $SS_SUNKEN)
$Input2 = GUICtrlCreateInput("", 100, 80, 60, 25)
$Output2= GUICtrlCreateInput("", 400, 80, 30, 25, $ES_READONLY)
GUICtrlSetFont(1, 28, 800, 1, "MS Sans Serif")
GUISetState(@SW_SHOW)
$Button2 = GUICtrlCreateButton("Obtener número >  ", 200, 80, 131, 25, $BS_DEFPUSHBUTTON)

GUICtrlCreateLabel("Introduce un carácter para obtener su número ASCII", 150, 130, 600, 250)



While 1
	
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		 Case $Button1
            $car= GUICtrlRead($Input1)
         if $car >0 And $car <256 Then
            GUICtrlSetData($Output1,Chr($car))
         Else
            MsgBox(4096, "Error", "El número ha de estar entre 0 y 255")
         EndIF
			
		 Case $Button2
            $num= GUICtrlRead($Input2)
         
            GUICtrlSetData($Output2,ASC($num))
        	
		
	EndSwitch
WEnd

	
        
Gracias por la ayuda!
Avatar de Usuario
Rupert.25
Hacker del Foro
Mensajes: 247
Registrado: 17 Jul 2007, 18:27

Re: Códigos ASCII

Mensaje por Rupert.25 »



Saludos....

Muchas gracias :D, asi quedó mucho mejir y con 236 lineas menos.

Lo probaré y veremos que mas se le puede agregar.

gracias, Hasta luego.
Responder