FC2ブログ

スポンサーサイト

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

5/31(日)

腹筋
腕立て伏せ
バランスボール体幹筋トレ

ノルディックウォーク11km 約1時間50分

---
歩くだけならふくらはぎも痛くないんですけどね~。

↓道中、木イチゴがたくさん。結構甘くて美味しいです。
きいちご
スポンサーサイト

5/30(土)

ふくらはぎ休養週間?継続中。
運動お休みです。

---
お部屋の前の庭がネコの通り道になっていて、
フン害対策が必要なことから、草むしりした後に、
ネコよけマットやら薬剤やらを設置しました。

↓こういうのも準備
D1000302.jpg

…と、セットし終わった直後に、常連のクロネコが
ヒトの苦労をあざ笑うかのように堂々と庭を闊歩してました(^^ゞ。

5/29(金)

ジョグは相変わらずお休みですが、
腹筋
腕立て伏せ
バランスボール筋トレ(体幹周りの筋肉刺激)
をやってみました。

---
↓ちょっと思うところあってWebサーバープログラミングに挑戦です。
D1000301.jpg

VistaHome環境に、Apache、PHPMySQLを入れてみたんですが、
ブルースクリーンで落ちたり、ちと不安…。
でも、この本でひととおり勉強してみます。

tag : PHP MySQL

5/28(木)

 運動は一切お休みしました。
 
---
 比較的早く帰れたな…。

5/27(水)

今日もちと遅い帰り。
でも、私が職場を後にしても、
社屋にはまだまだ人がいっぱい
残って仕事してましたが。

---
今日もバランスボールを利用した
トレをやりました。

できるかぎり、
腹周りに、集中です。

5/26(火)

残業が続きそうです。

ジョグはお休みですが、
いつもの腹筋・腕立て伏せに加え、
バランスボールを利用して腹周りの筋肉を
刺激しています。

5/25(月)

腹筋
腕立て伏せ
脇腹筋?

---
左脚のふくらはぎ下部の痛みが引かないので、
とりあえず一週間ジョグは休むことにします。
走りたいけど、ガマンするのもトレだと思って。

5/24(日)

腹筋
腕立て伏せ
ジョグ12km
ランジウォーク

---
今日は朝から自治会の清掃(草むしり)。
終わってすぐ、3日ぶりのジョグに出たら、
激しい雨に遭ってしまいました。

5/23(土)

昨日の飲みの後、実家に泊まって
久々に以前住んでいたまちをドライブ。
運動なし。

---
妻にリクエストされていたケーキを買って帰りました。
↓別々のお店でシュークリームとバナナチョコケーキ
cake1.jpg
cake2.jpg
めちゃうまでした。

5/22(金)

前の職場のお仲間と飲み会。
久しぶりに話が出来て楽しかった~。

---
というわけで、運動休養日です。

5/21(木)

 午後から大荒れの天気で、今日は運動休養日です。

---
 明日は、前の職場のお仲間と久々に飲みです。
 ということは、明日も運動お預けです。

5/20(水)

ジョグ7km
ランジウォーク
腕立て伏せ
腹筋

---
最近、左脚のふくらはぎに肉離れをしたような違和感があります。
ヤバいのかな?

5/19(火)

夕方から仕事で捕まってしまい、残~業~。
運動できませんでした。

---
せめて、バランスボールで腹筋、側筋をやっておこう。

5/18(月)

腹筋
腕立て伏せ
ジョグ7km
ランジウォーク

---
また、1週間が始まりました。
↑「ええ加減、今の環境に慣れろや!」と自ら突っ込んでみる。

冒険手帳~火のおこし方から、イカダの組み方まで~

 私には、7つ上の兄がいます。
 で、私が10歳くらいの春休みに、急に兄が「一晩サバイバルするぞ」と言い出し、兄がどこからか手に入れた米軍だか自衛隊かの非常食とナイフだけを持って、裏山に連れて行かれたことがあります。
 山中に分け入って半日くらい歩き、適当な広場を見つけると、「ここで野営する」と言って、木の枝と葉っぱだけで簡易テントを組み、一晩そこで野宿したんですが、寝袋もなくて葉っぱだけの布団では、さすがに寒かった記憶があります。でも、兄が持って来ていた非常食(缶詰とクッキーみたいなもの)は、びっくりするくらい美味かったな~。

 そんな兄が持っていた本が、これです。
↓21世紀ブックス 冒険手帳
冒険手帳1
 1972年に出た本。兄から譲り受けて、かれこれ40年近く経ってますが、何度も引っ越しをしているにもかかわらず、私の手元に残っています。

↓元々はこういうカバーがついていました。
冒険手帳2

 ニワトリやウサギのさばき方、虫の食べ方、ワナの仕掛け方、ハチの巣の捕り方…等々、子供心にちょっと刺激的な内容が盛りだくさんで、たちまち虜になりました。今まで、アウトドア関係の本は何冊か読みましたがが、これほど洗練されて、キャッチーで、イカれたものはありません。
 イイ年になった現在でも、私を惹きつけてやみません(何度でも没頭して読んでしまいます)。石川球太さんの画がまた、イイんでしょうね~。

 いまでも売っているみたいですね。
冒険手帳

tag : 冒険手帳

5/17(日)

腹筋
腕立て伏せ
ジョグ9km
ランジウォーク

---
今日も雨模様で、
買い物以外とくに活動せず昼寝…。

夕方には上がっていたので、晩飯前に
ひとっ走りしてきました。

5/16(土)

 目が覚めたら12時前、しかも空模様悪し…。

---
というわけで、今日は完全休養日。
ちょこっと仕事の呼び出しがかかったりもして、
なんとなく調子の出ない一日でした。

5/15(金)

ジョグ7km
ランジウォーク

---
今日は、夕方に職場でバレーボールの練習を少し。
たまには違う動きの運動も、良い刺激になります。

VICTORINOX PLIトラベラーPD

結婚した年に買ったから、もう12年目のビクトリノックス・マルチツールナイフ

↓VICTORINOX PLIトラベラーPD
pli_1.jpg
※決して贋物ではありません。ある日、カバンから落っことした際、
なんとも不運なことに車に轢かれてプレートが割れ、
エンブレムが無くなってしまったのです。

↓元々はこういうヤツでした。
PLIトラベラー

 轢かれたときは、それはもう大ショックでしたが、
機能そのものには全く影響なかったので、
プレートを瞬間接着剤で復元して、今でもバリバリ現役で使っています。

↓通勤カバンに常備してます。書類を束ねている太めのステープラーを
 はずす時なんかに、プライヤーが重宝していますね。
 ハサミも丁度よい大きさで使いやすいです。
pli_2.jpg
 とにかく、デスクワークにはこれ一本!という感じです。

ちなみに(VICTORINOX)の本家サイトには、もうこのモデルはないみたいです。

tag : アウトドアグッズ ビクトリノックス

5/14(木)

今日は運動休養日です。

5/13(水)

腹筋
腕立て伏せ
ジョグ7km
ランジウォーク

---
日が大分長くなったので、
今日も走っちゃいました。

5/12(火)

腹筋
腕立て伏せ
ジョグ7km
ランジウォーク

---
いつ降り出してもおかしくない空模様でしたが、
なんとかジョグできました。

バランスボールを利用した脇腹(外腹斜筋)トレーニングを、
昨日から始めました。

↓脇腹の筋肉が硬くなるよう意識しながら、上体を上げ下げします。
wakibara.jpg
しばらく続けて、見た目に出るほどの効果が出るか、試してみます。

5/11(月)

慣れない仕事に要領を得ず、残業…。

ジョグはできませんでしたが、バランスボールで
腹筋トレのバリエーションを模索してみました。

いろいろ出来ますね~。

5/10(日)

月曜日)に開拓したコースをノルディックウォーキング
約11kmの峠道(一部未舗装あり)を、2時間かけて歩く。

---
↓コース終盤には、観光スポット「五重塔」。
D1000293.jpg
今日も暑い一日でした。

 さて、今日は結婚記念日。結婚してからひと回りの12回目です。

↓妻が見つけた近所のケーキ屋さん。こちらで今回の記念ケーキを注文。
 カエルのモニュメント?がたくさんあります。
D1000294.jpg

↓甘すぎず、結構好みの味でした。
12thケーキ

妻よ、これからもヨロシク。一緒に遊んでね~。

tag : ノルディックウォーキング 結婚記念日

ExcelVBA-「y年m月の第n番目のw曜日」の日を求めるユーザ定義関数

久々にVBAネタです。
祝日が次々とハッピーマンデー構想に呑まれていた時期に、
「y年m月の第n番目のw曜日」を求める汎用的な関数できないかな~、
と、興味本位で作ってみたものです。

決してスマートなアルゴリズムではないですが、
純粋に、算出ロジックを考えるのが楽しかったものです。


'===========================================================

'●引数【myYear】年【myMonth】月
' の第【myNum】番目の【myWeek】曜日の日をを求める関数
Function fncGetDayOfTheWeekDay(myYear As Integer, _
myMonth As Integer, _
myNum As Integer, _
Optional myWeek As String = "2" _
) As Integer
'///////////////////////////////////////////////////
' ※第1引数【myYear】は西暦年で指定すること
' ※第4引数【myWeek】について補記
' ・省略可(省略時や無効な引数が与えられた場合は、月曜日(2)指定したと見なす
' ・引数には「{日~土}曜日」「{日~土}曜」「日~土」
'  「{sun~sat}day」「sun~sat」「1~7」の6種の曜日表現に対応
'  (参考)
'  1 > 日曜日(vbSunday)
'  2 > 月曜日(vbMonday)
'  3 > 火曜日(vbTuesday)
'  4 > 水曜日(vbWednesday)
'  5 > 木曜日(vbThursday)
'  6 > 金曜日(vbFriday)
'  7 > 土曜日(vbSaturday)
'///////////////////////////////////////////////////

'▼変数宣言部
Dim target_a As VbDayOfWeek '受け取った第4引数に対応する曜日定数
Dim first_a As VbDayOfWeek '月の初日の曜日定数
Dim gap_a As Integer 'ワーク:第4引数の曜日定数と月初日の曜日との差
Dim base_day As Integer 'ワーク:基底日(求める日:target_day)がある週の、
'月初日と同じ曜日の日
Dim target_day As Integer 'ワーク:求める日

'▼第4引数に対応する曜日定数を【target_a】にセットする
Select Case StrConv(myWeek, vbLowerCase + vbNarrow)
Case "日曜日", "日曜", "日", "sunday", "sun", "1"
target_a = vbSunday
Case "月曜日", "月曜", "月", "monday", "mon", "2"
target_a = vbMonday
Case "火曜日", "火曜", "火", "tuesday", "tue", "3"
target_a = vbTuesday
Case "水曜日", "水曜", "水", "wednesday", "wed", "4"
target_a = vbWednesday
Case "木曜日", "木曜", "木", "thursday", "thu", "5"
target_a = vbThursday
Case "金曜日", "金曜", "金", "friday", "fri", "6"
target_a = vbFriday
Case "土曜日", "土曜", "土", "saturday", "sat", "7"
target_a = vbSaturday
Case Else
target_a = 2
End Select

'▼【myYear】年【myMonth】月初日が、日付として評価されるなら、
If IsDate(myYear & "/" & myMonth & "/1") = True Then

'▼月初日の曜日定数を【first_a】にセット
first_a = Weekday(DateSerial(myYear, myMonth, 1))
'▼求める曜日定数【target_a】と、月の初日の曜日定数【first_a】
'との差を【gap_a】にセット
gap_a = target_a - first_a

'▼【gap_a】が0以上(第1週に【target_a】の曜日が存在している)かチェック
'▼曜日定数【target_a】が月初日の曜日定数【first_a】以上、すなわち、
' 【target_a】の曜日が第1週に存在すれば、
If gap_a >= 0 Then
'▼基底日【base_day】は{【myNum - 1】週×7日} + 1日
base_day = (myNum - 1) * 7 + 1
'▼【target_a】の曜日が第1週に存在しなければ、
Else
'基底日【base_day】は{【myNum】週×7日} + 1日
base_day = (myNum) * 7 + 1
End If

'▼求めるべき日は【target_day】は、基底日【base_day】に
' 引数曜日と月初日曜日の定数差【gap_a】を加えた日
target_day = base_day + gap_a

'▼【myYear】年【myMonth】月【target_day】日が、日付として評価されなければ、
If IsDate(myYear & "/" & myMonth & "/" & target_day) = False Then
'▼求めるべき日【target_day】に0をセット
target_day = 0
End If

'▼【myYear】年【myMonth】月初日が、日付として評価されなければ、
Else
'▼求めるべき日【target_day】に0をセット
target_day = 0
End If

'▼関数の戻り値に求めるべき日【target_day】をセット
fncGetDayOfTheWeekDay = target_day

End Function

'===========================================================


テストした範囲では、一応、正しく動くと思うんですが…。(^^ゞ

テーマ : プログラミング
ジャンル : コンピュータ

5/9(土)

先週と同じく、新しい街での定番登山コースをトレラン。

(登山口~山頂ピストン)
高低差約500m
距離約3km
登り約48分
下り約25分
---

このコースは、駐車場から登山口までの約900mのアプローチでほど良いアップができます。

それにしても、今日は暑かった~。
D1000291.jpg

今度のコースは、以前の定番コースに比べて、登りでも走れる区間が多くてイイですね。
D1000290.jpg

tag : トレイルラン

FRONTIER FRNU302 ミニノートPC

連休序盤、タイムセールに釣られて思わず」買っちゃいました。

FRNU302 ミニノート スタンダードモデル

金曜日、仕事から帰ると届いていました。
D1000286.jpg
ちなみに、バックに見える常用ミニタワーPCもフロンティアです。

わくわくしながら開梱します。
D1000287.jpg

やっぱ小さいですね。
D1000289.jpg

---主要スペック---
CPU : インテル® Atom™ プロセッサー N270(1.60GHz / 512KB)
OS : Windows® XP Home Edition SP3 (OEM版) [正規版]
メモリ : 1GB(1GB×1) DDR2-SODIMM
ハードディスク : 120GB Serial-ATA/5400rpm
光学ドライブ : 非搭載
SD/MSカードリーダー搭載
USBインターフェース : 3箇所
液晶ディスプレイ : 10.2型ワイド非光沢液晶(1024x600)
ビデオコントローラ : インテル® 82945G(オンボード)
無線LAN : IEEE802.11 b/g
サイズ : (幅×高さ×奥行き)258mm × 28mm ×189mm
重量 : 約1.3kg(バッテリー込み)
----------

いわゆる「ネットブック」というヤツですかね。
でも、スペックは十分すぎです。
これで、妻とPCを利用したい時間がかぶっても大丈夫?

それにしても、このスペックが3万前後で買えるなんて…。

テーマ : コンピュータ
ジャンル : コンピュータ

tag : FRONTIER ネットブック

5/8(金)

腹筋
腕立て伏せ
ジョグ7km
ランジウォーク

---
明日からまた休みです。嬉しい~。

↓今の部屋は収納が多い分広い気がするので、
 3年ぶりにバランスボールを膨らませてみました。
D1000285.jpg
これで、走れないときのインドア運動のバリエーションを考えてみよう。

5/7(木)

久しぶりの仕事。完全にボケてます。

今日は、ちと残業もしたし、運動休養日でイイでしょう。

SILVA コンパス No.8

 初めて訪れるお山には、なるべく携行するようにしています。

↓SILVA コンパスNo.8
D1000408.jpg
 SILVAの一番安い初級モデルですね。もう20年以上前に買いました。
当時は、山行が決まればすぐに書店に地形図を買いに行って、磁北偏差のラインを引いてはそれっぽく折りたたんだりしながら、徐々にテンションを高めていたものです。懐かしい…。

 今は、ネットで地形図をキャプチャしてはMS-EXCELのシート上に貼り付け継ぎ接ぎして、プリントアウトした地図を持って行ってます。横着の極みですね。(^^ゞ

 磁北偏差…書いてて改めて何だっけ?と思いっ切り忘れてしまってます。そういえば、天気図の書き方も、すっかり忘却の彼方です…。

tag : アウトドアグッズ トレイルラン コンパス

カレンダー
04 | 2009/05 | 06
- - - - - 1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31 - - - - - -
カテゴリ
月別アーカイブ
天気予報

-天気予報コム- -FC2-
全記事表示リンク

全ての記事を表示する

QRコード
QRコード
プロフィール

瓜坊主

Author:瓜坊主
疾走感フェチ!テレマークスキー、ジョグ、トレイルラン・・・下手の横好きが記す、まとまりのない日記です。

FC2カウンター
リンク
最新記事
最新コメント
検索フォーム
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。