永遠無窮の創作庫

パソコンで色々やってみるブログです。自作小説、詩、TRPG、短歌、プログラミングなど。

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
このエントリーをはてなブックマークに追加
初めて当ブログに訪れた方や何度か当ブログにお越し頂いている皆様。もしブログの内容を気に入って頂けましたらRSSリーダーの登録やFacebookページのいいね!をよろしくお願いします。
[ --/--/-- --:-- ] スポンサー広告 | TB(-) | CM(-)

「ブログのネタに困った時の、ブログの種100」の選択プログラム完成!

「ブログのネタに困った時の、ブログの種100」の続報です。
100個作ったはいいものの、このままじゃ使いづらいと思い、ランダムで選択し、クリップボードに出来るプログラムを組みましたー。

使用言語はHSP、完成品はこれです。
BlogSeed100.zip
zipで圧縮しているので、解凍して使ってみて下さい。一応、使用は自己責任で。大丈夫だとは思うけど。


あー、作ってたら記事を書く暇がなくなったので、ソースコードを公開しておきます。

BlogSeed100.hsp

     #include "hspext.as"

sx = 500 : sy = 100
screen 0,sx,sy,0
title "ブログのネタに困った時の、ブログの種100"

randomize

sdim buf,3000
sdim seed,40,100
sdim selectseed
sdim nselectseed
dim ran

exist "data.dat"
if strsize=-1:pos 180,42:mes "ファイルがありません":stop

bload "data.dat",buf

split buf,"\n",seed

pos 10,10
button goto "選ぶ",*select_one

stop

*select_one

clrobj 0,0
pos 10,10
button goto "選ぶ",*select_two
pos 80,10
button goto "コピー",*ccopy
objsize 100,24
pos 150,10
button goto "数字付きコピー",*cncopy

*select_two
ran = rnd(100)
selectseed = seed(ran)
nselectseed = strf("%3d",ran) + "." + selectseed

color 255,255,255
boxf

pos 10,55
color 0,0,0
mes nselectseed

stop

*ccopy

clipset selectseed

stop

*cncopy

clipset nselectseed

stop




これで少しは使いやすくなるかなー。
まぁ、私は使いやすくなるでしょう。多分。

では、本当に時間が無いので、今回はこのへんで。
おわりー。
http://eienmukyu.com/2012/03/blogseed100-program-completion/ このエントリーをはてなブックマークに追加
初めて当ブログに訪れた方や何度か当ブログにお越し頂いている皆様。もしブログの内容を気に入って頂けましたらRSSリーダーの登録やFacebookページのいいね!をよろしくお願いします。
[ 2012/03/12 23:57 ] プログラミング | TB(-) | CM(-)
プロフィール

永無(忘年会P)

Author:永無(忘年会P)
永無です。ニコニコ動画では忘年会Pという名前を使用しています。
このブログでは、広く浅く、いろんな事に挑戦し、記事にしています。

ゲームを作ろう、小説を書こう、と、日々思いつつやってません。
アイデアだけが溜まっていく毎日です。

どうすればより面白いブログになるのか、試行錯誤中です。
よろしくお願いします。

興味があること:
動画作成,ゲーム作成,小説書き,
詩作,UTAU,MMD,TRPG,短歌,合唱,
将棋,麻雀,読書,X)HTML,CSS,
PHP,Javascript,ActionScript,
C++,HSP,Java



この日記のはてなブックマーク数

作った動画:mylist/22266195
TRPG SNS
ぬっぽん
うたのわ
永遠無窮の本棚(はてなブログ)
永遠無窮のメモ帳(Tumblr)

最新コメント
最新トラックバック
FC2カウンター
Twitter

Twitter < > Reload

ブログランキング
人気記事
ブログパーツ

フィードメーター - 永遠無窮の創作庫



ブログパーツ
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。