FC2ブログ

スポンサーサイト

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

【へっぱち】ちゃん年みー組へっぱち先生卒業式ラジオ出てきたよ【うー吉】

オオギリストレーダーチャートを作成して早2週間

なんとへっぱち先生からの卒業証書(通知表)作成のオファーがありましたよ!

もともとレーダーチャートも各部門の1位だけ掲載して
あとは「キャー私のも見せて見せてー」っていう声が殺到するかなー
って思ってたら全然そんなことなくて、「まぁそんなもんか」と思ってた矢先のことだったんで
喜んで飛びつきました

通知書を作成するに当たりへっぱち先生からいくつかオーダーがありました
・大喜利をやり始めた頃と現在を見ることで成長を見たい
・こんな~はイヤだお題、一言お題も追加したい

あと、個人的に「できるかなー」と思ってた
・赤い部屋と緑の部屋のデータ統合作業
 (これができると赤い部屋+緑の部屋での値での統計が取れるの)

この3点の改修作業を行いましたが、なかなかに頭使う

※ここから先、アクセスのプログラムの話になります
自己満足で書いたんで読み飛ばしても差し支えないですよー

・大喜利をやり始めた頃と現在を見ることで成長を見たい

 初期3000回、直近3000回、このデータをどうやって抜き取って
 データを作成するかって話です

 ここで考えなきゃいけないのは
 「オートナンバーを使わずにテーブルに連番で符番したい」
 ってことなんです

 一発でやる方法あるのかもしれないけど俺はわからないので
 イベントプロシージャのなかに

 Dim txt符番 As Long
 Dim 符番 As Long
 Dim txt回数 As Long

 For 符番 = 1 To Me.txt回数
 Me.txt符番 = 符番
 DoCmd.GoToRecord acForm, "F_20_符番", acNext
 Next

 こんな感じで書いてます
 重要なのは「DoCmd.GoToRecord acForm, "F_20_符番", acNext」
 アクセスでは次のレコードに移動したときにデータ入力の確定が行われるので
 こうやって入力の確定を行っているんですね
 (大喜利データベースの順位のデータもこうやって確定させてるんですよ)
 ※「コレ、変じゃね」とか思ったSEの方、放って置くのも優しさかと思うので
  穏便にお願いします

 プログラムの順番としては
 ①投稿データを投稿日時の昇順で並べる
 ②符番フィールドに番号を振っていく
 ③初回3000回分のデータを抜き出してテーブル作成
  →項目ごとの投稿回数、得票数を抜き出し
 ④符番をクリア
 ⑤投稿データを投稿日時の降順で並べなおす
 ⑥符番フィールドに番号を振っていく
 ⑦直近3000回分のデータ抜き出し…

 となってるんですね
 「3000行目まで」って命令がわかればラクだったんだけどねー

・こんな○○は○○だ、こんな~はイヤだで分けたデータを出したい
 「こんな○○は○○だ」という文章には、当然「こんな~はイヤだ」という
 文章も含まれています

 もともとのプログラムでは
 「Like "こんな*" And Like "*は*" And Like "*だ"」
 (「文頭が『こんな』って言葉で、文中に『は』が含まれてて、文末が『だ』」なお題
  って書いてあります)

 って記述してあるんです。
 これにより
 「こんな教師はイヤだ」も「こんな教師は教師失格だ」も同じカテゴリとして
 捕らえてるんですね

 これを分割するには

 こんな○○は○○だ投稿回: [こんな~は~だお題の投稿回]-[こんな~はイヤだの投稿回]

「Like "こんな*" And Like "*は*" And Like "*イヤだ"」
 (「文頭が『こんな』って言葉で、文中に『は』が含まれてて、文末が『イヤだ』」なお題
  って書いてあります)
  ※実際は「*嫌だ」もプログラムに組み込んでますよ
  ※「*いやだ」は組み込まなくても持ってきてくれます

 というフィールドを組んで全体の
 こんな○○は○○だ、からイヤだお題を引いたのが該当するのかなって
 思いました

 データの統合は…単なる追加クエリです
 ただデータがでかすぎるとアクセスが動かなくなるので
 もともとのCSVファイルを大胆に切り刻んでいるんです
 これはまた違う機会で…

 


個人のデータを作った後はエクセルで作業しています
アクセスで作ったデータをコピペするだけでグラフに反映されるような
仕組みになってます

最初はアクセス内で得票率まで出してたけど、計算結果を参照して
セルのリンクで見せるよりは、エクセル内で計算させたほうが
計算間違いが見えにくいかなって思い、得票率をエクセル内で計算させてます

ざっと書いてますが、これを考え付くのに先週一週間ずーっと
かかりました
(これがまた仕事じゃないから楽しいんですよw)

その結果が、八角形のオオギリストレーダーチャートになるんです

プログラム部分は作りこんだんで
データだけは5分もあればできるんです

ただ、画面スクリーン撮ってjpgに加工して…
っていうのが全部手作業なんで面倒なところなんです

一回、jpgまで作っちゃうと数字も直せないしねw

というプログラム部分裏話でした

---ここからラジオの話---

とは言っても俺にできるのは
「こういう数字でした」っていうのを提供するだけで
その数字にどういう意味があるのかを分析するのはへっぱち先生のお仕事

さらに、その中のボケの傾向まで分析してたのは圧巻の一言
自分でも気が付かなかったボケの傾向なんかも教えてもらいました

分析やインタビューはそれぞれに盛り上がり
5時間もかかるロングラジオとなりました
そりゃ俺も寝るわな、ごめんなさい

卒業に当たっての一言はボケもあるけど
いくつかはガチのおっさんからの
「これから充実した生活送って欲しいなー」アドバイスも
混じってるんで心の片隅にでも置いといてもらえれば幸いです

それと!もしも
「私のデータ見せてくれたら、イイことしてア・ゲ・ル」とか
「せっ…先輩・・・私のデータ…見せてください!」
っていう人がいたら遠慮なくコメント欄なりtwitterなり
skypeなりで声かけてくださいね
自分の作ったプログラムで喜んでもらうって割といいモンです


(終わり)

(追伸)
今日は、3月11日

去年の今頃はずっと停電で寒くて大喜利もできなくて
津波が来たって言っても全然状況がわからなくって
ツイッターで人の発言見るのが、すごく人の生活のにおいがして
安心できたなーって覚えてます

すごく多くの人に心配してもらったし
3月一杯くらいは物資も全然なかったし
(コンビニの食料品の棚、お菓子も含めてなんもないの
 棚が空っぽなの)
あと、けいおん!!9巻のDVDの入荷もすごい遅れたの覚えてます

電気があってPCが動かせてブログも更新できて
なにより生きてて健康に大喜利ができて、良かったなって
(追伸、終わり)

スポンサーサイト

コメントの投稿

非公開コメント

No title

お褒めにあずかり光栄です。
ラジオも大盛況の内に終了できました。
ひとえに、うー吉先生の努力とアイデアのおかげです。
連日連夜の作業大変お疲れ様でした。
またお願いしますw

No title

*へっぱち先生*

へっぱち先生も分析お疲れ様でした!
オオギリスト4タイプ論の「学者」カテゴリらしい
活躍だったと思います

俺は「王様」タイプなのでデータ作って
ちやほやされるの大好きなんで
また「こういうデータ作れない?」
って話しあれば喜んで飛びつきますんで
よろしくお願いします
プロフィール

うーちゃん@狼

Author:うーちゃん@狼
skype:u-chan_1222
どしどしどーぞ

最新記事
最新コメント
最新トラックバック
月別アーカイブ
カテゴリ
FC2カウンター
検索フォーム
RSSリンクの表示
リンク
ブロとも申請フォーム

この人とブロともになる

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