2026
2025
2024
2023
2022
2021
2020
2019
2018
2017
2016
2015
2014
2013
2006年05月の記事
全22件 (22件中 1-22件目)
1
-
追加日記
友人（ｋ斐）に3時ごろ会いました彼は気づいていませんでしたがPC-Aにきましたまあ自分は最初PC-Bにいたんですがプリンターの調子が悪いしなぜか雰囲気が余りよくなかったのでPC-Aに移動して少ししたら来ましたこれを書いていて思ったｋ斐を知らないとよくわからない追加だなさてこれでおしまい帰って違うレポートしあげるかね
2006/05/31
コメント(0)
-
日々努力サレド報ワレズ
特に努力しているわけじゃないです 適当に書いただけです 流れに身を任せて生きている自分は努力する気力がありません やると決めても自分のいらない特技「忘却」によりしないとかあります さて訳の分からないことはここまでにして次に行きましょう 前から思っていたのですが煙草ってそんなにいい物なんでしょうか？ 自分は煙草使わないので分からないです この癌になるとか関係ないです その人が煙草が原因で死のうが知りません そういう事ではなく使うとどんな感じになるのか知りたいと思っただけです 自分では買って使うとか却下です 何故なら依存している人がどんな感じになっているか知りたいからです まあこの話を思いついた理由が歩きながらとか小さい子供（5歳以下）が近くにいるのに煙草をすっている人をみたからですね 別に使うなとは言いませんがせめて最低限のマナーだけは守って欲しいですね 煙草の灰を道に捨てるとかいらいらしますし煙草で火傷になりたくないですからね 最後に２つ書いて終わります さっき書いた5歳以下というのは自分の脳内で関わりたくない位小さい子供の区切りです ついでに言うと12歳以下が関わりたくない子供で16歳未満が関わりたくない人それ以外が普通の人です 自分の特技は「忘却」以外に「現実逃避」とか「気合」など13位あります と言うことで次回予告「バカ犬と呼ばないで（？）」です お楽しみに（SFCのあるゲームのステージタイトルだったかな？
2006/05/30
コメント(0)
-
は～い荒屋でございます
タイトルは第六感で書きました 書いていて何となくむなしくなりました 荒屋って言うのは先生の名前だったりします 多分人工知能の先生だったかな確認するの面倒なので省略 誰か知りたいときは福岡工業大学のＨＰのリンクから探せばＨＰがあるかもしれません あとAmazonの本で荒屋眞二で調べるとでます 買ってあげてください自分は買いませんが講義で使うとか言って人工知能概論（第２版）ーコンピュータ知能からＷeb知能までー〔荒屋眞二著:2200円＋税〕とか言うのを買わされました この人の講義は面白いのでちゃんとでています（レポートを滞納しました） 今日も元気に再履修の物理を受けましたがさすがに2回目なのでわかりやすいです 今日はここまでかな？ 書くことないし次回予告「まず鉛筆の芯（シャープペンの芯は不可）といらなくなった電気製品のコンセント（名前合ってるか不明）を用意長さはコード20センチンただしコンセントが付いていることコードの切り口の方から4センチ銅線を出す出した銅線を鉛筆の芯の両端に巻く最後にコンセントをさす」です お楽しみに（多分発火します危険なので書いてあることを実行しないでください
2006/05/29
コメント(0)
-
今このときを忘れぬように・・・
はい今日も意味不明なタイトルではじめましたこの日記もだいぶ書いたなあでも毎日書いていないどころか一ヶ月に3回しか書いてないとかもあるってことで記入率が26%そんなことは置いておいてもうすぐ5月終わりますねそういえばテレビで九州のどっかが入梅したとかいっていた記憶があります皆さん雨って好きですか？自分は嫌いですね理由は月が見えないとか外に出るとぬれるとかありますいやな理由で一番なのは湿度が上がるからですね雨の日って窓閉めるんでパソコンとかつけてると室温あがっていらいらしますそれにたぶんパソコンって湿気ってあまりよくないですよね？今日はもう書くことは特にないな明日あたり小説でも買おうかなでもお金ないんで食費から出そうと思います・・・・・書いてから気づきましたが冷蔵庫の食べるものが少ないという事実がありました小説あきらめて食べ物買いに行きたいと思いますまだあきらめてはいませんがわからない講義が多くなって大変ですそういえば前に来た勧誘の人 (5/17日記参照) が単位とるばかりが大学ですることではないといっていましたが単位をとらなかったら進学も卒業もできません特に一回でもサボると癖になってしまう自分はサボらないようにがんばりますすでに一回サボったとか気のせいだと信じたいですねさて今日はこれでおしまい次回の予告でもないしためにもならない次回日記予告「ここからどこに行っても南だな」ですお楽しみに(意味はわからなくていいですなんとなく書いただけですから
2006/05/29
コメント(0)
-
明日はゆっくり休むか・・・
いつものことですがタイトルの通りになったためしがありません休日になる前となった日は絶対にへんなメール来るし（友人H）まあいきたくない時は返信で行くときとだるいときは返信なしだからわかるだろうさていきなりわけのわからないことを書いてみましたがいつもどおりなんであまり気にせずにがんばっていこうと思います現在データベース演習の講義中ですデータベース演習っていうのはSQL文です高校で少しやった記憶があるので楽です明日髪を切りにいこうと思います結構長くなったので寝癖がきついです朝起きてパソコンつけて朝食作ってパソコンして後片付けしてパソコンの電源を切るのに忙しくて直す時間がありませんパソコンの使用をやめようとは思わないのでしなければいいという意見は受け付けませんそういえば2年になって図書館に行ってないなあまあいいか誰かに会えるわけでもないしそしてまたあの長いしかも役に立たないものを書いてみたりするDim Ans As IntegerDim Cal As IntegerDim Mem As IntegerPrivate Sub Command1_Click(Index As Integer) Select Case Cal Case 0 Select Case Index Case 0 Ans = Ans * 10 + 0 Label1.Caption = Ans Case 1 Ans = Ans * 10 + 1 Label1.Caption = Ans Case 2 Ans = Ans * 10 + 2 Label1.Caption = Ans Case 3 Ans = Ans * 10 + 3 Label1.Caption = Ans Case 4 Ans = Ans * 10 + 4 Label1.Caption = Ans Case 5 Ans = Ans * 10 + 5 Label1.Caption = Ans Case 6 Ans = Ans * 10 + 6 Label1.Caption = Ans Case 7 Ans = Ans * 10 + 7 Label1.Caption = Ans Case 8 Ans = Ans * 10 + 8 Label1.Caption = Ans Case 9 Ans = Ans * 10 + 9 Label1.Caption = Ans End Select Case 1 Select Case Index Case 0 Mem = Mem * 10 + 0 Label1.Caption = Mem Case 1 Mem = Mem * 10 + 1 Label1.Caption = Mem Case 2 Mem = Mem * 10 + 2 Label1.Caption = Mem Case 3 Mem = Mem * 10 + 3 Label1.Caption = Mem Case 4 Mem = Mem * 10 + 4 Label1.Caption = Mem Case 5 Mem = Mem * 10 + 5 Label1.Caption = Mem Case 6 Mem = Mem * 10 + 6 Label1.Caption = Mem Case 7 Mem = Mem * 10 + 7 Label1.Caption = Mem Case 8 Mem = Mem * 10 + 8 Label1.Caption = Mem Case 9 Mem = Mem * 10 + 9 Label1.Caption = Mem End Select Case 2 Select Case Index Case 0 Mem = Mem * 10 + 0 Label1.Caption = Mem Case 1 Mem = Mem * 10 + 1 Label1.Caption = Mem Case 2 Mem = Mem * 10 + 2 Label1.Caption = Mem Case 3 Mem = Mem * 10 + 3 Label1.Caption = Mem Case 4 Mem = Mem * 10 + 4 Label1.Caption = Mem Case 5 Mem = Mem * 10 + 5 Label1.Caption = Mem Case 6 Mem = Mem * 10 + 6 Label1.Caption = Mem Case 7 Mem = Mem * 10 + 7 Label1.Caption = Mem Case 8 Mem = Mem * 10 + 8 Label1.Caption = Mem Case 9 Mem = Mem * 10 + 9 Label1.Caption = Mem End Select Case 3 Select Case Index Case 0 Mem = Mem * 10 + 0 Label1.Caption = Mem Case 1 Mem = Mem * 10 + 1 Label1.Caption = Mem Case 2 Mem = Mem * 10 + 2 Label1.Caption = Mem Case 3 Mem = Mem * 10 + 3 Label1.Caption = Mem Case 4 Mem = Mem * 10 + 4 Label1.Caption = Mem Case 5 Mem = Mem * 10 + 5 Label1.Caption = Mem Case 6 Mem = Mem * 10 + 6 Label1.Caption = Mem Case 7 Mem = Mem * 10 + 7 Label1.Caption = Mem Case 8 Mem = Mem * 10 + 8 Label1.Caption = Mem Case 9 Mem = Mem * 10 + 9 Label1.Caption = Mem End Select Case 4 Select Case Index Case 0 Mem = Mem * 10 + 0 Label1.Caption = Mem Case 1 Mem = Mem * 10 + 1 Label1.Caption = Mem Case 2 Mem = Mem * 10 + 2 Label1.Caption = Mem Case 3 Mem = Mem * 10 + 3 Label1.Caption = Mem Case 4 Mem = Mem * 10 + 4 Label1.Caption = Mem Case 5 Mem = Mem * 10 + 5 Label1.Caption = Mem Case 6 Mem = Mem * 10 + 6 Label1.Caption = Mem Case 7 Mem = Mem * 10 + 7 Label1.Caption = Mem Case 8 Mem = Mem * 10 + 8 Label1.Caption = Mem Case 9 Mem = Mem * 10 + 9 Label1.Caption = Mem End Select End SelectEnd SubPrivate Sub Command2_Click(Index As Integer) Select Case Cal Case 1 Ans = Ans + Mem Case 2 Ans = Ans - Mem Case 3 Ans = Ans * Mem Case 4 Ans = Ans / Mem End Select Select Case Index Case 0 Cal = 1 Mem = 0 Case 1 Cal = 2 Mem = 0 Case 2 Cal = 3 Mem = 0 Case 3 Cal = 4 Mem = 0 End SelectEnd SubPrivate Sub Command3_Click() If Mem > 0 Then Select Case Cal Case 1 Ans = Ans + Mem Case 2 Ans = Ans - Mem Case 3 Ans = Ans * Mem Case 4 Ans = Ans / Mem End Select End If Label1.Caption = AnsEnd SubPrivate Sub Command4_Click() Ans = 0 Mem = 0 Label1.Caption = AnsEnd SubPrivate Sub Command5_Click() EndEnd SubPrivate Sub Command6_Click() If Cal = 0 Then Ans = Int(Ans / 10) Label1.Caption = Ans Else Mem = Int(Mem / 10) Label1.Caption = Mem End IfEnd Sub本当に使えないですねこれをもっと改良して以降と思いますたとえそれが無駄な努力で何の役にも立たなくてもがんばりますこれはVB6で作りました外見はこんな感じとまあ見ただけじゃわからないでしょうがパソコンのせいかどうかわかりませんが学校のパソコンでは5桁までしか計算できないというすばらしいものですｗさてこんなにくだらないことを書いて満足したのでこれで終了です次回予告「中学のときの文化祭みたいなのでやった劇を思い出し別に白はいいじゃん黒って最悪だよ・・・と思った(劇の内容は絵の具の白が白は色がないから嫌だと自分の色を探すとかいうやつだったはず)」ですお楽しみに(その文化祭で自分のクラスは1～2年のときは好評だったが3年のときは不評だった
2006/05/26
コメント(0)
-
あ～忘れてた
また携帯で書いてます 昨日日記を書くつもりでしたが忘れていました あと今日提出のレポート家に置いてきてしまいました 友人に聞いたところ取りに帰るかここで印刷しろとか言われたので考えました 取りに帰る：時間的に無理 ここで印刷：持ってきている記憶媒体にデータなし 諦めます さて今日はＴシャツを着ています 肌寒いです 昨日夜に洗濯しわすれたので羽織るものがありませんでした今日は忘れていることが多いので家に帰るまでに死なないようにしたいです また日本語の使い方間違えたかもしれませんがここまで次回の日記を予告「気がつくと家の駐輪場に置いてある自分の自転車の籠に大量のゴミ（ペットボトル２広告２ゴミ入り袋１）が入っていた」です お楽しみに（犯人が特定できないのでゴミは学校に捨てました
2006/05/24
コメント(0)
-
やりやがった
今日は再履修の物理がありました 名字呼ばれました また間違えてるし 返事が小さかったので聞こえなかったらしくまた呼ばれました 今度はフルネームで呼ばれました あ～名字は読み方間違えても仕方がないと思いますが名前間違えないでください 自分はありふれた名前だと思うんだけどなあ まあ読みがかいてあっても間違えるし仕方がないか 今日で滞納していたレポート全て提出完了しました 帰ったら明後日必要なレポート完成させたいと思います 2年になってレポートの数が異様に増えましたがなかなか暇つぶしになるので楽しいです 今日は学校のことを書きました ネタがなかったとかじゃないですよ さて携帯から日記を書いくのは大変なので次回予告「最近自分が存在しない感覚になりました」です お楽しみに（たまにそんな風に感じたりする自分は頭がおかしいのでしょうか？
2006/05/23
コメント(0)
-
なんというか今月は日記だいぶ書いてるなぁ
更新したり日記を書く習慣があまりなかったので今月はだいぶ書いたり更新したりしていると思いますそれにしてもレポート書いたりしてこの公式はどこで役に立つのだろうとかイオンのこと知ってて役に立つのだろうかとか思います誰もが思うことですまあ暇はつぶれるし楽しいので別にいいけどねさて今日もやっぱり書くことないですあえて言うならZODIAC３製作中だそうです楽しみです冷蔵庫の野菜入れるところに入れていた胡瓜が腐ってましたそれによってほかの野菜にも被害がいって殆どの野菜がなくなりました胡瓜は下のほうにあってあることに気がつかなかったのがだめだった見たいです今日はこれくらいにしておこうかなさて次回予告「こう見えても一度こうと決めたら曲げません」ですお楽しみに(ただ単に頑固なだけです
2006/05/22
コメント(0)
-
追加日記
さっきのHDですが完璧に御臨終ですというか解決方法がわからないのでもうだめだと判断しました買ったときについていたサポートCDでもどうにもならないどころかそんなものありませんとかひどくないですか？このHDが壊れた事で暇をつぶす事ができなくなったのでちょっとイライラしますなくなったデータを復活させるためにまともな回線のネットがしたいなので家でまともなネットが出来る環境を作りますあえて言うならイラストレーターや今まで作ってきたVB６のデータそして昨日Cドライブから映した高校時代にサバゲーやってたときの写真データのためにあっちこっちの掲示板に悪戯しにいきます（八つ当たりですが気にしません
2006/05/20
コメント(0)
-
死んだ・・・・
いままじめにあせってます何せ160G外付けHDのデータが吹っ飛びました吹っ飛ぶだけならまだ修復できるのですが謎の動作不良(？)になってます現状はデバイスとして認識されるが使用は出来ないという状況で困ってますというかトラブルシューティング役にたたねえさて全然わからないんで御臨終とみなしたいですがデータが全消去は痛いです150Gくらい入ってたのにやばいですねいろいろと今では手に入らないフリーソフトとか入ってたんですけど・・・あ～なんか書いてたらイライラしてきたこれからもう少しがんばってなおしてみたいと思いますいやーマジで死ぬついでにいうとデータとんだ理由は不明今ではよく覚えていませんがつかっていたらいきなり巡回エラーみたいなのが出て安全な取り外しをしてつけるとデータぶっ飛んでたその後パソコンを再起動してネットにつなぎHDをUSBに接続したら使用不可とかなるし今日は運勢が非常に悪いんでしょうかあ～マジ泣きたいどうしようWinでとったデータは130Gくらい入ってたのにショックで寝込みそうですさて次回予告「あまりの悲しみにマジで切れた本格的にネットで暴れてやる」ですお楽しみに(HD(安売り1万7000円)まじで復活してくれ
2006/05/20
コメント(0)
-
もしかしたら5月病？
またやる気がおきなくなってきましたなんていうかダルイなこれがタイトルのとおりだとするなら初めてかかりましたね5月病のことはここに書いてあるので気合で見に行ってください7、8年くらい病気にかかっていないので少しうれしいかもしれませんねいつどこで聞いたか忘れましたが馬鹿は風邪にならないと言うのは風邪にかかっても気づかないからだそうですさて少し頭がボーっとして体がだるく目が陥没しそうなくらい痛いですががんばりたいと思いますたぶんあと2、3時間寝れば直りますなぜならレポートや友人から出た課題で昨日から寝てないからですパソコン使う講義じゃなかったら死んでる寝てますがんばって今日を乗り越えたいと思いますさて今日も短いですがここで終わりですどんなことがあっても次回に書くきがない次回予告「こっち(福岡)に来て向こう(宮崎)より都会だと思った？」ですお楽しみに(答：いいえしかし無駄に人が多い場所が多いとは思いました
2006/05/19
コメント(0)
-
追加日記ｗ
今日自分の家には人が来るはずないのにチャイムがなったので見てみると外に女の人いるんでびっくりした新聞かな？とか思ったので粗品もらおうかと思い開けると(粗品無かったら嫌そうな顔しますｗSSCだったかなそんなのがTOEICの勉強しているん貴方も会員になりませんかみたいなこと言ってましたそして暇でしたら30分ほどお話させてくれませんかと言われ暇だったし見た目簡単に追い払えそうだったのでいいですよと答えました30分くらい経ったとき次は就職のことを教えてくれる先輩の先生がいるんで待っててくださいといわれたまあ待ったそして5分位して来た絶対近くで待ってたよこいつそこまでは良かったこの助っ人の手ごわいこと新聞の切り抜きと話術を使い攻撃してきますしかし受ける気もないし月額1万500円は高いそして笑いをこらえるのが大変でしただって社長だったらとか言われても自分社長になったりする可能性ゼロですから公務員が首になるって知ってましたかとか言われ見た新聞はかなり古いこの見せられた新聞は日にちが見れなかったけど見た感じでは一番古いのが平成元年新しいのが平成12年何時の新聞ですかそれ？一応来て自分の暇な時間と英語の課題を終らせる貴重な時間を減らしてくれたお礼に宣伝しておくか たぶんここがSSCイングリッシュアカデミーのHPだ
2006/05/17
コメント(0)
-
レポート書くために・・・
今日はというか現在レポートのために学校のPCAとかいう部屋にいたしますなぜPCAかというとパソコンで作成しなおかつ印刷してきなさいとか言われているからですついでに言うと2回ほど滞納していますまずなんか実験レポート２つと課題レポート（？）が2つでいましているのは滞納している分ではなく今現在いるやつです帰ったら英語の課題もあるのに疲れるなあこんなこと書くのやめて印刷したいと思いますではいつものように次回予告「睡眠時間が減っている」ですお楽しみに（今はレポートのせいで3時間です
2006/05/17
コメント(0)
-
お元気ですか？
昨日日記を書いた後少しだけここの見た目を変えてみました また気が向いたら変えようと思います レオパレスにきてからまともにネットに繋ぐことがないからか情報が古いものしかありません 最近ではＷｉｎ系が使えないだけでレオネットは便利だなあとか思い始めました しかし壁から延びている線の長さが40センチもないのは痛いです 現在はテレビの上にパソコン乗せて立って使っています なので長時間の使用は無理です まあ使うと言ってもレポートの時だけなんで不自由ではないと思われます 最近友人に言われたことは家でなにしてる？です ……はっ！なにしているか記憶にないというか思い出したくない あえて言うなら学校のサーバーにどうやったら入れるかと考えたりＶＢ6でウイルス並にウザイもの作っていたりしているといったところです ウイルス並にウザイものは友人に試してもらったらウケました さてそろそろ書くことないと思うので次回予告「講義中になんで眠くなるか聞いていた教師に眠いからじゃないですかと答えた学生を見て講義がつまらないからと答えてほしかった自分はダメ人間？」です お楽しみに（この質問は15分続いた
2006/05/15
コメント(0)
-
・・・・・猫捕まえに行きます
昨日も今日も明日もレポート書きますもちろん期限ぎりぎりまで印刷しません学校で印刷するんですがなんかめんどくさくて講義中にして見ようかなとか考えましたがやめました自分目立つことあまりしたくないんで水面下で人の足を引っ張ろうと思います最近カレーをまた作ってみたんですがルーを入れた後弱火で約50分位ほっといたら焦げました火を消すのを忘れていただけですが鍋が・・・・誰かこげを落とすコツとか知りませんか？まあ少し調べれべ出るかもしれませんさてまた講義中なんでそろそろ講義に戻りますC言語の講義は聞いてないとわからなくなるんでがんばりますさあ今日も次回予告「明日という日はこない」ですお楽しみに(明日は今日からみて次の日であって次の日には今日になるので明日という日はこない
2006/05/15
コメント(0)
-
なんだかなあ
まあどうでもいいですがトラックバックできないようにしたいですｗ理由は携帯じゃ何書かれているか見れないからですまあ変なことかかれているんだけど消すのはめんどくさいしね今の気分はDim C1 As IntegerDim C2 As IntegerDim C3 As IntegerDim C4 As IntegerDim C5 As IntegerDim C6 As IntegerDim C7 As IntegerDim C8 As IntegerDim C9 As IntegerDim CC As IntegerDim Time As IntegerDim CN As IntegerPrivate Sub Command1_Click() EndEnd SubPrivate Sub Command2_Click() CN = CN + 1 If CN Mod 2 = 0 Then Timer1.Interval = 0 Command2.Caption = "開始" Else Command2.Caption = "初期化" Timer1.Interval = 1000 C1 = 0 C2 = 0 C3 = 0 C4 = 0 C5 = 0 C6 = 0 C7 = 0 C8 = 0 C9 = 0 CC = 0 Time = 0 Label1.BorderStyle = 1 Label2.BorderStyle = 1 Label3.BorderStyle = 1 Label4.BorderStyle = 1 Label5.BorderStyle = 1 Label6.BorderStyle = 1 Label7.BorderStyle = 1 Label8.BorderStyle = 1 Label9.BorderStyle = 1 Label10.Caption = 0 Label12.Caption = 0 End IfEnd SubPrivate Sub Label1_Click() C1 = C1 + 1 C2 = C2 + 1 C4 = C4 + 1 CC = CC + 1 Label10.Caption = CC If C1 Mod 2 = 0 Then Label1.BorderStyle = 1 Else Label1.BorderStyle = 0 End If If C2 Mod 2 = 0 Then Label2.BorderStyle = 1 Else Label2.BorderStyle = 0 End If If C4 Mod 2 = 0 Then Label4.BorderStyle = 1 Else Label4.BorderStyle = 0 End IfEnd SubPrivate Sub Label2_Click() C1 = C1 + 1 C2 = C2 + 1 C3 = C3 + 1 C5 = C5 + 1 CC = CC + 1 Label10.Caption = CC If C1 Mod 2 = 0 Then Label1.BorderStyle = 1 Else Label1.BorderStyle = 0 End If If C2 Mod 2 = 0 Then Label2.BorderStyle = 1 Else Label2.BorderStyle = 0 End If If C3 Mod 2 = 0 Then Label3.BorderStyle = 1 Else Label3.BorderStyle = 0 End If If C5 Mod 2 = 0 Then Label5.BorderStyle = 1 Else Label5.BorderStyle = 0 End IfEnd SubPrivate Sub Label3_Click() C3 = C3 + 1 C2 = C2 + 1 C6 = C6 + 1 CC = CC + 1 Label10.Caption = CC If C3 Mod 2 = 0 Then Label3.BorderStyle = 1 Else Label3.BorderStyle = 0 End If If C2 Mod 2 = 0 Then Label2.BorderStyle = 1 Else Label2.BorderStyle = 0 End If If C6 Mod 2 = 0 Then Label6.BorderStyle = 1 Else Label6.BorderStyle = 0 End IfEnd SubPrivate Sub Label4_Click() C1 = C1 + 1 C4 = C4 + 1 C7 = C7 + 1 C5 = C5 + 1 CC = CC + 1 Label10.Caption = CC If C1 Mod 2 = 0 Then Label1.BorderStyle = 1 Else Label1.BorderStyle = 0 End If If C4 Mod 2 = 0 Then Label4.BorderStyle = 1 Else Label4.BorderStyle = 0 End If If C7 Mod 2 = 0 Then Label7.BorderStyle = 1 Else Label7.BorderStyle = 0 End If If C5 Mod 2 = 0 Then Label5.BorderStyle = 1 Else Label5.BorderStyle = 0 End IfEnd SubPrivate Sub Label5_Click() C4 = C4 + 1 C2 = C2 + 1 C6 = C6 + 1 C5 = C5 + 1 C8 = C8 + 1 CC = CC + 1 Label10.Caption = CC If C4 Mod 2 = 0 Then Label4.BorderStyle = 1 Else Label4.BorderStyle = 0 End If If C2 Mod 2 = 0 Then Label2.BorderStyle = 1 Else Label2.BorderStyle = 0 End If If C6 Mod 2 = 0 Then Label6.BorderStyle = 1 Else Label6.BorderStyle = 0 End If If C5 Mod 2 = 0 Then Label5.BorderStyle = 1 Else Label5.BorderStyle = 0 End If If C8 Mod 2 = 0 Then Label8.BorderStyle = 1 Else Label8.BorderStyle = 0 End IfEnd SubPrivate Sub Label6_Click() C6 = C6 + 1 C9 = C9 + 1 C3 = C3 + 1 C5 = C5 + 1 CC = CC + 1 Label10.Caption = CC If C6 Mod 2 = 0 Then Label6.BorderStyle = 1 Else Label6.BorderStyle = 0 End If If C9 Mod 2 = 0 Then Label9.BorderStyle = 1 Else Label9.BorderStyle = 0 End If If C3 Mod 2 = 0 Then Label3.BorderStyle = 1 Else Label3.BorderStyle = 0 End If If C5 Mod 2 = 0 Then Label5.BorderStyle = 1 Else Label5.BorderStyle = 0 End IfEnd SubPrivate Sub Label7_Click() C7 = C7 + 1 C8 = C8 + 1 C4 = C4 + 1 CC = CC + 1 Label10.Caption = CC If C7 Mod 2 = 0 Then Label7.BorderStyle = 1 Else Label7.BorderStyle = 0 End If If C8 Mod 2 = 0 Then Label8.BorderStyle = 1 Else Label8.BorderStyle = 0 End If If C4 Mod 2 = 0 Then Label4.BorderStyle = 1 Else Label4.BorderStyle = 0 End IfEnd SubPrivate Sub Label8_Click() C8 = C8 + 1 C7 = C7 + 1 C9 = C9 + 1 C5 = C5 + 1 CC = CC + 1 Label10.Caption = CC If C8 Mod 2 = 0 Then Label8.BorderStyle = 1 Else Label8.BorderStyle = 0 End If If C9 Mod 2 = 0 Then Label9.BorderStyle = 1 Else Label9.BorderStyle = 0 End If If C7 Mod 2 = 0 Then Label7.BorderStyle = 1 Else Label7.BorderStyle = 0 End If If C5 Mod 2 = 0 Then Label5.BorderStyle = 1 Else Label5.BorderStyle = 0 End IfEnd SubPrivate Sub Label9_Click() C9 = C9 + 1 C8 = C8 + 1 C6 = C6 + 1 CC = CC + 1 Label10.Caption = CC If C9 Mod 2 = 0 Then Label9.BorderStyle = 1 Else Label9.BorderStyle = 0 End If If C8 Mod 2 = 0 Then Label8.BorderStyle = 1 Else Label8.BorderStyle = 0 End If If C6 Mod 2 = 0 Then Label6.BorderStyle = 1 Else Label6.BorderStyle = 0 End IfEnd SubPrivate Sub Timer1_Timer() Time = Time + 1 Label12.Caption = TimeEnd Subと言う気分です書く事がないからMicrosoft Visual Basic 6.0で作ったのはいいが失敗作で何がしたいかわからないものを載せたとか気のせいですこれをコピーして使うのは時間の無駄なのでやめてくださいさて今日は無駄なこと書いたから長い日記になったなあ今から講義ですが気にせずに書いていきます昨日は帰りにK斐に会いました非常に元気そうでしたあとレポート書いてないことに気づきがんばりましたが間に合わなかったことが痛かったですねしかし来週までだからいいんじゃない？とか先生言ってたんで大丈夫でしょう明日は買い物に行こうと思っていたんですが雨が降るみたいですなので明日はやってないレポート(4つくらい)をやろうと思います今やっている講義は統計解析でExcelで学ぶ統計解析入門(菅民郎 著:オーム社：定価2800円[税別])とパソコン(Excel)を使った講義です前回はsumとかaverageとか習いました・・・・いやそれ去年もやったからとか心の中でつっこみを入れましたが気持ちよく寝れましたｗ今回はまじめに受けようと思います(今講義始まって15分経過)今中央値(median)を一所懸命説明していますがこれをまじめに聞いているのは何人いるでしょうかここでいきなりですが【自分は知らなかったパソコンのショートカット】スタートキー＋Eマイコンピュータが開ける【終了】いや特に役に立つというわけじゃないんですが自分は知らなかったんで書いてみましたこれ見た人は知ってましたか？知らなかった人は一回は使ってみてくださいさて講義をまじめに受けるので次回予告「月とか猫とか好きだから」ですお楽しみに(携帯やデスクトップの壁紙を見た友人の質問の答え[講義30分経過]
2006/05/12
コメント(0)
-
アヒャヒャヒャ
今日から学校始まるのでがんばりますしかしＧＷは暑かったですね～福岡へのバスで長袖着ていてよかったこと～宮崎は晴れていて暑かったが福岡は曇っていて少し寒かったことですまあどうでも良いですね妹1号がサムライチャンプル（名前あっているか不明）とか言うのをなぜか親パソコンで見ていて帰るときあと２話みてないからHD置いていってとか言われましたが気のせいにしておきましたそのせいで呪いがかかったらしく小説8冊を置いてきてしまいましたまだ4冊しか読んでません今度の長期休暇の時に回収したいですさて今日の話に戻りますが非常に眠いです眼球が痛くしかも頭痛までします誰かちゃんと睡眠のとれる方法しりませんか？次回予告「存在する罪の象徴」お楽しみに（自分がゲームで使用する名前:存罪
2006/05/08
コメント(0)
-
ア～う～アァウア～
うぅもうだめだねむいもういいか・・・・・・・・・・いいや駄目だなやっぱり書くことないからといって意味不明なこと書いて終わるのは駄目な気がするいつも意味不明なこと書いているけどやっぱり短いのはいかんなしかし書くことないのでここまで次回予告「城を守る者」ですお楽しみに(自分がゲームで使用する名前:御城要
2006/05/07
コメント(0)
-
なんだか気分がよくなってきたｗ
やっぱりあの時墓場に行ったのが悪かったのか頭痛がする・・・耳もおかしくなったのか夜話し声がするような気がする次回予告「春に咲く美しき八重桜」ですお楽しみに(自分がゲームで使用する名前:桜花
2006/05/06
コメント(0)
-
誰だ！・・・・・気のせいか
昨日疲れた性かなんだか体がだるいですそんなことを気にせずに猫は4時半に起こしてくれました今日も書くことないんでこれにて終了次回予告「天より降り積もる雪」ですお楽しみに(自分がゲームで使用する名前:天雪
2006/05/05
コメント(0)
-
楽しい時間はすぐに過ぎてゆく
友人と一緒に球遊館に行きました楽しかったのはよかったんですが行くまでに道に迷いお墓に行ったのがきつかったですねｗなんか呪われた気がしますが気のせいでしょう日記の内容なんかぜんぜん予告していないう次回予告「何者にも縛られぬ風の翼」ですお楽しみに（自分がゲームで使用する名前:追燕
2006/05/04
コメント(0)
-
nemui
朝犬に餌あげていたら呼吸が止まりましたそれから2分位して心臓停止体の不自由な犬が1匹死んでしまいました自分が帰ってくる少し前から体調が悪く餌をあまり食べていなかったそうですさて今日は眠いし犬死んじゃったんでここでおしまいさて次回予告「自分は負けません」ですお楽しみに（特にラスボスより強い中ボスにｗ
2006/05/01
コメント(0)
全22件 (22件中 1-22件目)
1
-
-
- 美術館・展覧会・ギャラリー
- さよなら江戸、さよなら廣重。
- (2026-10-15 18:40:23)
-
-
-
- ポケモンGO
- ポケモンGO シャドウランドロス（け…
- (2026-10-10 20:52:48)
-
-
-
- 競馬予想
- 名牝の仔たちを応援しよう（2026秋華…
- (2026-10-17 13:32:19)
-
