トップ 差分 一覧 ソース 検索 ヘルプ PDF RSS ログイン

FlashCardbyHSP

Flash Card


flashCard01.hsp(204)

; Flash Card
; version 01
; copyleft 2011-05-26 sugiura@nagoya-u.jp

; テキストファイルから、一行一単語、読み込む
; テキストファイルは words.txt というファイル名で、
; 一行一単語ずつにして、同じフォルダーに入れておく。

*start
cls

pos 100, 100
font "MS ゴシック", 48, 17

mes "では、はじめます。"

notesel words				; 事前に読み込みバッファ設定
noteload "words.txt"		; テキストファイルの読み込み

gosuu = notemax				; notemaxは、メモリーパッド内の行数。

wordlist = ""
word = ""

repeat gosuu				; 行数(語数)分だけ繰り返す。
	noteget word, cnt		; noteget で行単位で読みだす。cntで読み込み回数をインデックス番号とする
	wordlist(cnt) = word	; 読み込んだ単語を、配列に入れていく。
	word = ""
	await 1
loop

randomize
repeat length(wordlist)
	x = rnd(cnt+1)
	R(cnt) = R(x)
	R(x) = cnt + 1
	await 1
loop

cls

pos 100, 100
font "MS ゴシック", 48, 17

mes "単語数は、"+gosuu+"語です。"
mes ""
pos 100, 200
button goto "OK", *main
stop


*main
cls

repeat length(R)
;	mes R(cnt)
;	wait 20
	monme = str(cnt + 1)
	
	pos 250, 150
	font "MS ゴシック", 48, 17
	mes monme+": "+wordlist(R(cnt)-1)
	wait 120
	cls
	await 1
loop

; おわり

wait 150
	pos 200, 100
	font "MS ゴシック", 48, 17
	
mes "おわりますか?"
mes ""
mes ""

font "MS ゴシック", 48, 17
button goto "Again!", *start
mes ""
button goto "おわります", *owari
stop


*owari
	cls
	wait 50
	pos 200, 100
	font "MS ゴシック", 48, 17
	mes "じゃ、またね。"
	wait 150
end

実行ファイルflashCard01.exe(296)
サンプル単語リストwords.txt(249)