HSPに投稿されたコード一覧

HSP 中1のころにつくったソフト紹介ソフト。

	;Java
	screen 0,500,400
	color 0,0,0
	boxf
	pos 0,0
	color 255,255,255
	font"",23
	pos 200,170:mes"ソフト紹介"
	wait 100
*main
	x=200
	y=170
	repeat 100
	redraw 0
	;x=x-1
	y=y-1
	color 0,0,0
	boxf
	color 255,255,255
	font"",23
	pos x,y:mes"ソフト紹介"
	redraw 1
	await 1
	loop
	font"",13
	pos 187,100:mes"ジャンルを選んでください"
	y1=500
	y2=530
	y3=560
	repeat
	title""+y1+" "+y2+" "+y3+""
	redraw 0
	color
	boxf 0,120,500,400
	if y1!200:y1=y1-3
	if y2!200:y2=y2-3
	if y3!200:y3=y3-3
	stick key,0
	font"",23,4
	m=0
	if mousex>110:if mousey>200:if mousex<175:if mousey<227:color 255,158,0:pos 110,y1:mes"ゲーム":m=1
	if mousex>210:if mousey>200:if mousex<275:if mousey<227:color 255,158,0:pos 210,y2:mes"ツール":m=2
	if mousex>310:if mousey>200:if mousex<375:if mousey<227:color 255,158,0:pos 310,y3:mes"アホツール":m=3
	font"",23
	color 255,255,255
	pos 110,y1:mes"ゲーム"
	pos 210,y2:mes"ツール"
	pos 310,y3:mes"アホツール"
	if key=256:if m=1:goto*game
	if key=256:if m=2:goto*tool
	redraw 1
	await 1
	loop
	stop
*game
	y1=200
	x1=110
	repeat 60
	redraw 0
	color
	boxf
	x1=x1-1
	y1=y1-3
	color 255,158,0
	font"",23,4
	pos x1,y1:mes"ゲーム"
	font"",23
	color 255,255,255
	pos x1,y1:mes"ゲーム"
	redraw 1
	await 1
	loop
	repeat
	redraw 0
	color 255,255,255
	font"",23
	pos 50,120:mes"数当てゲーム"
	pos 50,220:mes"おみくじ"
	font"",13
	pos 20,370:mes"戻る"
	color 0,158,230
	boxf 270-1,70-1,480+1,380+1
	color 0,0,0
	boxf 270,70,480,380
	font"",13
	color 200,200,200
	pos 280,80:mes"詳細\n\n"+syo+""
	syo="ソフト名にカーソルを合わせると\n詳細が表示されます"
	if mousex>50:if mousey>120:if mousey<150:if mousex<190:syo="対応OS\n98,ME,2000,XP,Vista\n\nバージョン: 2.5\n\nダウンロード可\n\n初めて作ったゲームです。\n小さい子にお勧め!!\n単純に数を当てるゲームです。"
	if mousex>50:if mousey>220:if mousey<250:if mousex<150:syo="対応OS\n98,ME,2000,XP,Vista\n\nバージョン: 3.0\n\nダウンロード可\n\n神社のおみくじのような感覚です。\n箱を振るかのようにボタンを押す\nとボタンがゆれます\n結果に対しての\nアドバイス機能もついています。"
	stick key,0
	title""+mousex+" "+mousey+""
	if key=256:if mousex>15:if mousey>365:if mousex<45:if mousey<382:goto*main
	redraw 1
	await 1
	loop
*tool
	y2=200
	x2=210
	repeat 60
	redraw 0
	color
	boxf
	x2=x2-3
	y2=y2-3
	color 255,158,0
	font"",23,4
	pos x2,y2:mes"ツール"
	font"",23
	color 255,255,255
	pos x2,y2:mes"ツール"
	redraw 1
	await 1
	loop
	repeat
	redraw 0
	color 255,255,255
	font"",23
	pos 50,120:mes"SoftPack"
	pos 50,160:mes"SimpleMemo"
	pos 50,200:mes"TextMemo"
	font"",13
	pos 20,370:mes"戻る"
	color 0,158,230
	boxf 270-1,70-1,480+1,380+1
	color 0,0,0
	boxf 270,70,480,380
	font"",13
	color 200,200,200
	pos 280,80:mes"詳細\n\n"+syo+""
	syo="ソフト名にカーソルを合わせると\n詳細が表示されます"
	if mousex>50:if mousey>120:if mousey<150:if mousex<140:syo="対応OS\nXP(のみ)\n\nバージョン: 2.0α\n\nダウンロード可\n\nテストバージョン\n\nロック機能を発展させた\nツールです。\nこのソフトはほかにも機能が\n搭載される予定です。\nロック機能はパスワードの安全度、\nクイックロックなど使いやすい\nツールとなっています"
	if mousex>50:if mousey>160:if mousey<190:if mousex<173:syo="対応OS\n98,ME,2000,XP,Vista\n\nバージョン: 1.0\n\nダウンロード可\n\n画面の右端に表示され、\nメモしたいときにすぐに\nメモできるツールです。\n小さいウィンドウなので\nデスクトップがごちゃごちゃに\nなりにくいと思います"
	if mousex>50:if mousey>200:if mousey<220:if mousex<173:syo="対応OS\n98,ME,2000,XP,Vista\n\nバージョン: 1.0\n\nダウンロード可\n\nテキストの表示にこだわった\nツールです。テキストの色、\n大きさの表示を変更できます。\n保存もTextファイルで\n保存できるので一般の\nメモ帳と同様に使用できます。"
	stick key,0
	title""+mousex+" "+mousey+""
	if key=256:if mousex>15:if mousey>365:if mousex<45:if mousey<382:goto*main
	redraw 1
	await 1
	loop

HSP 中1のころにつくったソフト紹介ソフト。

	;Java
	screen 0,500,400
	color 0,0,0
	boxf
	pos 0,0
	color 255,255,255
	font"",23
	pos 200,170:mes"ソフト紹介"
	wait 100
*main
	x=200
	y=170
	repeat 100
	redraw 0
	;x=x-1
	y=y-1
	color 0,0,0
	boxf
	color 255,255,255
	font"",23
	pos x,y:mes"ソフト紹介"
	redraw 1
	await 1
	loop
	font"",13
	pos 187,100:mes"ジャンルを選んでください"
	y1=500
	y2=530
	y3=560
	repeat
	title""+y1+" "+y2+" "+y3+""
	redraw 0
	color
	boxf 0,120,500,400
	if y1!200:y1=y1-3
	if y2!200:y2=y2-3
	if y3!200:y3=y3-3
	stick key,0
	font"",23,4
	m=0
	if mousex>110:if mousey>200:if mousex<175:if mousey<227:color 255,158,0:pos 110,y1:mes"ゲーム":m=1
	if mousex>210:if mousey>200:if mousex<275:if mousey<227:color 255,158,0:pos 210,y2:mes"ツール":m=2
	if mousex>310:if mousey>200:if mousex<375:if mousey<227:color 255,158,0:pos 310,y3:mes"アホツール":m=3
	font"",23
	color 255,255,255
	pos 110,y1:mes"ゲーム"
	pos 210,y2:mes"ツール"
	pos 310,y3:mes"アホツール"
	if key=256:if m=1:goto*game
	if key=256:if m=2:goto*tool
	redraw 1
	await 1
	loop
	stop
*game
	y1=200
	x1=110
	repeat 60
	redraw 0
	color
	boxf
	x1=x1-1
	y1=y1-3
	color 255,158,0
	font"",23,4
	pos x1,y1:mes"ゲーム"
	font"",23
	color 255,255,255
	pos x1,y1:mes"ゲーム"
	redraw 1
	await 1
	loop
	repeat
	redraw 0
	color 255,255,255
	font"",23
	pos 50,120:mes"数当てゲーム"
	pos 50,220:mes"おみくじ"
	font"",13
	pos 20,370:mes"戻る"
	color 0,158,230
	boxf 270-1,70-1,480+1,380+1
	color 0,0,0
	boxf 270,70,480,380
	font"",13
	color 200,200,200
	pos 280,80:mes"詳細\n\n"+syo+""
	syo="ソフト名にカーソルを合わせると\n詳細が表示されます"
	if mousex>50:if mousey>120:if mousey<150:if mousex<190:syo="対応OS\n98,ME,2000,XP,Vista\n\nバージョン: 2.5\n\nダウンロード可\n\n初めて作ったゲームです。\n小さい子にお勧め!!\n単純に数を当てるゲームです。"
	if mousex>50:if mousey>220:if mousey<250:if mousex<150:syo="対応OS\n98,ME,2000,XP,Vista\n\nバージョン: 3.0\n\nダウンロード可\n\n神社のおみくじのような感覚です。\n箱を振るかのようにボタンを押す\nとボタンがゆれます\n結果に対しての\nアドバイス機能もついています。"
	stick key,0
	title""+mousex+" "+mousey+""
	if key=256:if mousex>15:if mousey>365:if mousex<45:if mousey<382:goto*main
	redraw 1
	await 1
	loop
*tool
	y2=200
	x2=210
	repeat 60
	redraw 0
	color
	boxf
	x2=x2-3
	y2=y2-3
	color 255,158,0
	font"",23,4
	pos x2,y2:mes"ツール"
	font"",23
	color 255,255,255
	pos x2,y2:mes"ツール"
	redraw 1
	await 1
	loop
	repeat
	redraw 0
	color 255,255,255
	font"",23
	pos 50,120:mes"SoftPack"
	pos 50,160:mes"SimpleMemo"
	pos 50,200:mes"TextMemo"
	font"",13
	pos 20,370:mes"戻る"
	color 0,158,230
	boxf 270-1,70-1,480+1,380+1
	color 0,0,0
	boxf 270,70,480,380
	font"",13
	color 200,200,200
	pos 280,80:mes"詳細\n\n"+syo+""
	syo="ソフト名にカーソルを合わせると\n詳細が表示されます"
	if mousex>50:if mousey>120:if mousey<150:if mousex<140:syo="対応OS\nXP(のみ)\n\nバージョン: 2.0α\n\nダウンロード可\n\nテストバージョン\n\nロック機能を発展させた\nツールです。\nこのソフトはほかにも機能が\n搭載される予定です。\nロック機能はパスワードの安全度、\nクイックロックなど使いやすい\nツールとなっています"
	if mousex>50:if mousey>160:if mousey<190:if mousex<173:syo="対応OS\n98,ME,2000,XP,Vista\n\nバージョン: 1.0\n\nダウンロード可\n\n画面の右端に表示され、\nメモしたいときにすぐに\nメモできるツールです。\n小さいウィンドウなので\nデスクトップがごちゃごちゃに\nなりにくいと思います"
	if mousex>50:if mousey>200:if mousey<220:if mousex<173:syo="対応OS\n98,ME,2000,XP,Vista\n\nバージョン: 1.0\n\nダウンロード可\n\nテキストの表示にこだわった\nツールです。テキストの色、\n大きさの表示を変更できます。\n保存もTextファイルで\n保存できるので一般の\nメモ帳と同様に使用できます。"
	stick key,0
	title""+mousex+" "+mousey+""
	if key=256:if mousex>15:if mousey>365:if mousex<45:if mousey<382:goto*main
	redraw 1
	await 1
	loop

HSP 2010年4月につくられたコード。

	bgscr 0,500,300,,(ginfo_dispx-500)/2,(ginfo_dispy-300)/2
	#include"hsp3util.as"
	onclick gosub *move
	c1=255
	c2=c1
	c3=230
	x=200
	sn="Software"
	repeat
	redraw 0
	x=x-1
	if c1!0:c1=c1-5
	if c2!0:c2=c2-5
	if c3!0:c3=c3-5
	if c1=0:if c3=0:break
	color 255,255,230
	boxf
;	gradf 0,0,650,30,1,$009ee6,$FFFFFF
;
	;gradf 0,230,650,200,1,$FF8000,$FFFFFF
	gradf 0,233,650,200,1,$009ee6,$FFFFFF
	color
	font"tahoma",45
	pos 70,70:mes sn
	font"tahoma",15
	color c1,c2,c3
	pos 250,x:mes"Now Loading..."
	redraw 1
	await 01
	loop
	repeat 100
	redraw 0
	l=l+1
	color 255,255,230
	boxf
;	gradf 0,0,650,30,1,$009ee6,$FFFFFF
;
	;gradf 0,230,650,200,1,$FF8000,$FFFFFF
	gradf 0,233,650,200,1,$009ee6,$FFFFFF
	font"tahoma",15
	color c1,c2,c3
	pos 250,x:mes"Now Loading...  "+L+" %"
	color
	font"tahoma",45
	pos 70,70:mes sn
	redraw 1
	await 1
	loop
	repeat
	redraw 0
	x=x-1
	if c1!255:c1=c1+5
	if c2!255:c2=c2+5
	if c3!255:c3=c3+5
	if c12!255:c12=c12-5
	if c22!255:c22=c22-5
	if c32!255:c32=c32-5
	if c1=255:if c3=255:break
	color 255,255,230
	boxf
;	gradf 0,0,650,30,1,$009ee6,$FFFFFF
;
	;gradf 0,230,650,200,1,$FF8000,$FFFFFF
	gradf 0,233,650,200,1,$009ee6,$FFFFFF
	font"tahoma",15
	color c1,c2,c3
	pos 250,x:mes"Now Loading...  "+L+" %"
	color c12,c22,c32
	font"",15
	pos 250,x+45:mes"処理中"
	color
	font"tahoma",45
	pos 70,70:mes sn
	redraw 1
	await 1
	loop
	redraw 0
	redraw 1
	repeat 1
	text 500
;	gradf 0,0,650,30,1,$009ee6,$FFFFFF
;
;	;gradf 0,230,650,200,1,$FF8000,$FFFFFF
	gradf 0,233,650,200,1,$009ee6,$FFFFFF
	color
	font"MS UI gothic",15
	pos 295,x+48:emes"..."
;
	color 255,255,255
	font"MS UI gothic",15
	pos 295,x+48:mes"..."
	await 500
	loop
	c1=0
	c2=0
	c3=0
	repeat 100
	if c1!255:c1=c1+5
	if c2!255:c2=c2+5
	if c3!255:c3=c3+5
	redraw 0
	x=x-1
	color 255,255,230
	boxf
;	gradf 0,0,650,30,1,$009ee6,$FFFFFF
;
	;gradf 0,230,650,200,1,$FF8000,$FFFFFF
	gradf 0,233,650,200,1,$009ee6,$FFFFFF
	font"",15
	color c1,c2,c3
	pos 250,x+48:mes"処理中"
	color
	font"tahoma",45
	pos 70,70:mes sn
	redraw 1
	await 1
	loop
	c1=255
	c2=255
	c3=255
	xx=200
	repeat 0
	if c1!0:c1=c1-5
	if c2!0:c2=c2-5
	if c3!0:c3=c3-5
	redraw 0
	xx=xx+1
	color 255,255,230
	boxf
;	gradf 0,0,650,30,1,$009ee6,$FFFFFF
;
	;gradf 0,230,650,200,1,$FF8000,$FFFFFF
	gradf 0,233,650,200,1,$009ee6,$FFFFFF
	font"",30
	color c1,c2,c3
	pos xx,90:mes"へようこそ"
	color
	font"tahoma",45
	pos 70,70:mes sn
	redraw 1
	await 1
	loop
	wait 100
	repeat
	y=y+5
	redraw 0
	color 255,255,230
	boxf
	gradf 0,233-y,650,200,1,$009ee6,$FFFFFF
	redraw 1
	if 230-y<-200:break
	await 1
	loop
	y=-100
	repeat 100
	redraw 0
	y=y+1
	gradf 0,233-y,650,200,1,$009ee6,$FFFFFF
	redraw 1
	await 1
	loop
	c1=0
	c2=0
	c3=0
	repeat
	redraw 0
	color 255,255,230
	boxf
	if c1!0:c1=c1-5
	if c2!0:c2=c2-5
	if c3!0:c3=c3-5
	font"tahoma",60
	color c1,c2,c3
	pos 100,50:mes sn
	font"",13
	color
	;pos 100,120:mes"実行する動作を選択してください"

	gradf 0,233,650,200,1,$009ee6,$FFFFFF
	redraw 1
	await 1
	loop
	stop
*move
	if wparam=1 : sendmsg hwnd,$00A1,2,0
	return

HSP 【HSP3】FizzBuzzじゃなくて3の倍数と3が付く数字のときだけアホになりますアレ

#runtime "hsp3cl"
repeat 100,1
c=str(cnt):if cnt\3=0|instr(c,0,"3")!=-1:mes "アホ":else:mes cnt
loop

HSP 【HSP】書き込み・オープンできるかチェックする

#module _FileCheck_
#uselib "kernel32"
#cfunc _FC_CreateFile "CreateFileA" sptr,sptr,sptr,sptr,sptr,sptr,sptr
#cfunc _FC_GetLastError"GetLastError"
#func _FC_CloseHandle "CloseHandle" sptr
#define	GENERIC_READ 0x80000000
#define	GENERIC_WRITE 0x40000000
#define OPEN_EXISTING 0x00000003
#define FILE_ATTRIBUTE_NORMAL 0x00000080
#define INVALID_HANDLE_VALUE -1
#deffunc FileCheck str _fname
	fname = _fname
	hFile = _FC_CreateFile(fname, GENERIC_READ | GENERIC_WRITE, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
	error = _FC_GetLastError()
	if hFile != INVALID_HANDLE_VALUE {
		_FC_CloseHandle hFile
	}
return error
#global

// stat の値は
// http://homepage3.nifty.com/aokura/tips/e000000.html
// を参考にしてください。

	FileCheck "test.txt"
	if stat == 0{
		mes "正常終了しました。"
	}else : if stat == 2 || stat == 3{
		mes "ファイルが見つかりません。"
	}else : if stat == 4 || stat == 5{
		mes "ファイルを開くことができません。"
	}else : if stat == 32 || stat == 33{
		mes "ファイルを書き込むことができません。"
	}

HSP test

//HSP
sdim folder,1024
dim num,2//繰り返し変数
dim files,20//フォルダー20個分の配列
dim ftja,20//tjaのありか20箇所分
dim tja,500//tjaファイル500個分の配列
dim data,20//tjaファイル500個分の配列
dim tjaf,500

dirlist folder,"*",5
num(0) = stat

split folder,"\n",files//20フォルダー分代入

repeat num(0)
dirlist ftja(cnt),files(cnt)+"/*.tja",1//*.tja部分を好きな拡張子に変更してください。
ind(cnt) = stat
loop

repeat num(0)
num(1) = num(1) + ind(cnt)
loop

repeat num(0);num(0)
if strlen(ftja(cnt)) > 7 {
	data(count) = ftja(cnt)
	count++
}
loop

repeat count
tjas =tjas+data(counts)
counts++
loop
dialog tjas//検索結果
;split tjas,"\n",tjaf//分割する場合はコメントアウト

HSP HSPパッケージ管理システムのエラー12で落ちるバグについて

	exist cur+"\\version.log"
	if strsize!-1{
		notesel versionsave2
		noteload cur+"\\version.log"
		exist ""+versionsave2+""
		if strsize!-1{
			delete ""+versionsave2+""
;			delete cur+"\\version.log"
		}
	}

HSP inputボックスがクリックされたら空欄にするアレ Ver2

// hscallbk.as が必要です。
// http://chokuto.ifdef.jp/download/#hscallbk

#include "user32.as"
#include "hscallbk.as"

#define WM_KILLFOCUS 0x0008
#define WM_LBUTTONDOWN 0x0201
#define GWL_WNDPROC -4
// ダミー定義
#uselib ""
#func _InputWndProc "" int,int,int,int

	// コールバック関数の登録
	setcallbk Proc, _InputWndProc, *InputWndProc

	objsize 120, 20
	text = "検索"
	input text : objid_text = stat

	// input のウィンドウプロシージャの変更
	SetWindowLong objinfo(objid_text, 2), GWL_WNDPROC, varptr(Proc)
	// 変更前のウィンドウプロシージャ
	OldInputWndProc = stat

	// 比較のためにノーマルボタンを設置
	normal = ""
	input normal

stop

*InputWndProc
	// input ボックスが左クリックされた場合
	if callbkarg(1) == WM_LBUTTONDOWN{
		if text == "検索"{
			// input を空欄にする
			text = ""
			objprm objid_text, text
		}
	}else : if callbkarg(1) == WM_KILLFOCUS{
		// 非アクティブになったときの処理
			if text == ""{
				// input を元に戻す
				text = "検索"
				objprm objid_text, text
			}
	}
	CallWindowProc OldInputWndProc, callbkarg(0), callbkarg(1), callbkarg(2), callbkarg(3)
return

HSP inputボックスがクリックされたら空欄にするアレ

// hscallbk.as が必要です。
// http://chokuto.ifdef.jp/download/#hscallbk

#include "user32.as"
#include "hscallbk.as"

#define WM_LBUTTONDOWN 0x0201
#define GWL_WNDPROC -4
// ダミー定義
#uselib ""
#func _InputWndProc "" int,int,int,int

	// コールバック関数の登録
	setcallbk Proc, _InputWndProc, *InputWndProc

	objsize 120, 20
	text = "検索"
	input text : objid_text = stat

	// input のウィンドウプロシージャの変更
	SetWindowLong objinfo(objid_text, 2), GWL_WNDPROC, varptr(Proc)
	// 変更前のウィンドウプロシージャ
	OldInputWndProc = stat

stop

*InputWndProc
	// input ボックスが左クリックされた場合
	if callbkarg(1) == WM_LBUTTONDOWN{
		if text == "検索"{
			// input を空欄にする
			text = ""
			objprm objid_text, ""
		}
	}
	CallWindowProc OldInputWndProc, callbkarg(0), callbkarg(1), callbkarg(2), callbkarg(3)
return

HSP テスト

    bit=1

    repeat 8
        mes bit<<cnt
    loop

    bit=%10000000

    repeat 8
        mes bit>>cnt
    loop

    stop
Total Pages: 20 / 22« 先頭...101819202122

よく投稿されているコード

タグ

最近投稿されたコード