HSPTV!掲示板

キーを押したときに、input命令などを使わずに、そのキーの名前を表示できないでしょうか。
教えてください。
(たとえば、キーボードの[Rキー]を押したら、画面に「R」と表示されるなど)

getkeyについて調べてみてください。

onkey を使う手もあります

作れますよ

repeat
getkey ky,82:if ky=1:mes "Rのキーコードは82です。":break
wait 1
loop

getkeyだと、キーコードからですが、その反対のキーコードから文字を出すことがしたいんです。

	sdim string, 2
	dim key_flg, 227
	font "ＭＳ ゴシック", 64
	repeat
		repeat 227, 8
			getkey shift_key, 16
			getkey key, cnt
			if key { 
				if key_flg(cnt) = 0 {
					if cnt=8 {
						rekey = "BS"
					}
					if cnt=13 {
						rekey = "\\n"
					}
					if cnt = 32 {
						rekey = 32
					}
					if (cnt>47)&&(cnt<58) {
						if shift_key {
							if cnt ! 48 {
								rekey = cnt - 16
							}
						}
						else {
							rekey = cnt
						}
					}
					if (cnt>64)&&(cnt<91) {
							if shift_key {
								rekey = cnt
							}
							else {
								rekey = cnt + 32
							}
					}
					if (cnt>185)&&(cnt<223) {
						if (cnt>187)&&(cnt<192) {
							if shift_key=1 {
								rekey = cnt - 128
							}
							else {
								rekey = cnt - 144
							}
						} else {
							if shift_key {
								if (cnt>191)&&(cnt<223) {
									rekey = cnt - 96
								}
								if (cnt=186)|(cnt=187) {
									rekey = cnt - 144
								}
							}
							else {
								rekey = cnt - 128
							}
						}
					}
					if cnt = 226 {
						if shift_key {
							rekey = 95
						}
						else {
							rekey = 92
						}
					}
					if (cnt>95)&&(cnt<106) {
						if shift_key = 0 {
							rekey = cnt - 48
						}
					}
					if (cnt>105)&&(cnt<112) {
						if shift_key = 0 {
							rekey = cnt - 64
						}
					}
				}
				memcpy string, rekey, 2, 0, 0
				if key_flg(cnt) = 0 {
					redraw 0
					syscolor 15
					boxf
					color
					pos 0, 0
					mes string
					redraw 1
				}
				key_flg(cnt) = 1
			}
			else {
				key_flg(cnt) = 0 
			}
		loop
		await 10
	loop

getkeyのサンプルから拝借。

title "キー入力してください(^^)v"
onkey *inkey
onclick *inkey
stop
*inkey
cls 
font "",100
a=strf("%c",iparam)
if lparam >>30:stop
pos 0,0:mes a
stop

おかしい場合の対策はしておりません。