iSAMrx72's思いつきBlog

twitterが使いこなせない管理人のメモです。思いついたとき書きます。
トップ2007年12月

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
--/--/ (--) --:--| スポンサー広告 | コメント(-) | トラックバック(-) | 編集

長男の結婚式が終了しました

 12月23日、無事長男の結婚式、披露宴が終了しました。
集合写真へ入る人は、午前11時家を出ました。それ以外
の親類、親戚、近隣の方は午後一時に家を出ました。
 午後出る方は、親類の方へお願いして、仕出しの弁当
のおかずを食べていただいて、赤飯は親類の方へ作って
頂いた。
 自分は、会場について借りたモーニングへ着替えをすぐ
した。長男夫婦は前日からホテルへ一泊。嫁さんは、仕度
を始めていました。長男は自分と同時に着替えを開始。
 集合写真は午後1時45分から、開始。午後2時から
人前結婚式を開始。その後、受付を開始。
 時間通り、進行した。祝宴が終わったのが6時少し前だっ
たように思う。我が家に着いたのが、午後7時を回っていた。
それから、家で留守番をしてくれた親類の人たちを入れて、
二次会が始まった。終わったのが10時頃。疲れた。
 心配していた、お礼の言葉も、スポットライトを浴びて、
汗をかき過ぎ、涙は出なかったけれども、汗が出た。


続きを読む
スポンサーサイト
12/25/ (火) 11:20| 家族コメント(5) | トラックバック(-) | 編集

FedoraCore6インストールしました

 主にWindowsを使ってますが、PHPとかを見ていくと、
なぜかLinuxに触れてしまいます。分からないのですが、
FedoraCore6をダウンロードして、これだけで二時間
掛かりました。DVDに焼いて、インストールDVDを作成。
インストールも素直に行かず、一度断念。二度目で成功。
FodoraCore1のときは、OSの選択がDOSになるように
していたので、電源Onのままなら、Windowsになった。
 今回は、そのつもりでいたが、最初にEscを押さないと
FedoraCore6になってしまった。それも画面からメッセージ
がはみ出していて、最初Windowsを消したかと心配した。
EscをおしてOSが選択できるようになっていた。
 どちらからもインターネットが出来るので一安心。

続きを読む
12/21/ (金) 10:33| パソコンコメント(0) | トラックバック(-) | 編集

VB2005サンプルプログラム



    Private Sub 割付_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 割付.Click



        Dim a2Tatami As NiTatami



        Dim str As String

        Dim suti(,) As Integer

        Dim Sv2(13) As Integer



        Sv2(0) = Val(UY1.Text)

        Sv2(1) = Val(UY2.Text)

        Sv2(2) = Val(UY3.Text)

        Sv2(3) = Val(SY1.Text)

        Sv2(4) = Val(SY2.Text)

        Sv2(5) = Val(SY3.Text)

        Sv2(6) = Val(HT1.Text)

        Sv2(7) = Val(HT2.Text)

        Sv2(8) = Val(HT3.Text)

        Sv2(9) = Val(HT4.Text)

        Sv2(10) = Val(MT1.Text)

        Sv2(11) = Val(MT2.Text)

        Sv2(12) = Val(MT3.Text)

        Sv2(13) = Val(MT4.Text)



        a2Tatami = New NiTatami

        a2Tatami.AtaiSet(Sv2)

        str = a2Tatami.AtaiGets

        ReDim suti(1, 6)

        Call MojiTointegerHairetu(suti, str)



        二幅1.Text = suti(0, 0)

        二幅2.Text = suti(0, 1)

        二幅3.Text = suti(0, 2)

        二縦1.Text = suti(0, 3)

        二縦2.Text = suti(0, 4)

        二縦3.Text = suti(0, 5)

        二縦4.Text = suti(0, 6)



        一幅1.Text = suti(1, 0)

        一幅2.Text = suti(1, 1)

        一幅3.Text = suti(1, 2)

        一縦1.Text = suti(1, 3)

        一縦2.Text = suti(1, 4)

        一縦3.Text = suti(1, 5)

        一縦4.Text = suti(1, 6)



    End Sub



    Public Sub MojiTointegerHairetu(ByRef suti(,) As Integer, ByVal str As String)



        Dim k As Integer

        Dim j As Integer

        Dim maisuu As Integer



        Dim strArray() As String

        Dim strArray2() As String





        strArray = str.Split("/")

        maisuu = strArray.Length - 1



        For k = 0 To maisuu - 1

            strArray2 = strArray(k).Split(";")

            For j = 0 To 6

                suti(k, j) = Val(strArray2(j))

            Next

        Next



    End Sub



続きを読む
12/19/ (水) 15:03| パソコンコメント(0) | トラックバック(-) | 編集

ADSLモデムの交換

 12/19日モデムの交換作業をした。
NTTのモデムをレンタルしていたもの(NVⅢ)を、
返却するため、申し込みをしていた。友人からMNⅣ
という、機種を貰ったので使ってみた。
 これはIP電話を使えない機種だった。ルーター機能もなし。
前に一度接続してみて、インターネットはOK。但し、
IP電話はRT57iというものが在ったので、
YAMAHAにメールで問い合わせしたら、ぷらら
フォンは対応してないとのこと、IP電話を諦めました。
プラチナラインも入っているし、毎月、スプリッタとモデム料金を
得したほうがベターの判断をしました。IP電話は基本料金が
ないとのことで、そのまま番号を持ってます。解約はしません。

12/19/ (水) 14:42| パソコンコメント(0) | トラックバック(-) | 編集

長男の結婚式のことで

 スナップ写真を撮るのを、弟へ頼んでのですが、
デジカメの調子がいまいちです。メモリスティックエラー
になります。本当かな?本当は本体の調子が悪いように感じてます。
先週の後半、もしかしたら壊れたかと思ったのですが、
今現在は正常です。何とか当日も動いて欲しい。
今からデジカメを買うのは、つらい。練習する暇もないです。
12/17/ (月) 09:42| 家族コメント(0) | トラックバック(-) | 編集

長男の結婚式まで、一週間を切りました。

 長男の結婚式まで、あと少しです。
新郎の父として、お礼の言葉を考えないといけません。
大体は考えてますが、あとはこれに近い線で
言えるかどうか、心配です。
練習をやることが一番の落ち着く方法でしょう。
 昨日仲間の集まりがあって、その人の話では
書いておいて、それを持っていると落ち着くそうです。
試す価値はありそうです。
12/17/ (月) 09:35| 家族コメント(0) | トラックバック(-) | 編集

VB2005サンプルプログラム、Class、文字列で値を返す

Public Class Form1

    '部屋の大きさから、作る畳一枚一枚部屋の大きさ分作るとき畳の大きさを計算します。<br />

    '適当なモデルを知らないのでクラスを使えばどうなるのか、見よう見まねです。<br />



    Dim a1Tatami As Tatami

    Dim a2Tatami As NiTatami

    Dim a3Tatami As SanTatami

    Dim a4Tatami As YonTatami



    Dim str As String



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '畳は7つの数字で製作されます<br />

        'VB2005Expressは無料で使えますので、使ってみてください。<br />

        'あまりに巧妙な動きに感動します。<br />



        '以下は2畳から四畳までの部屋の大きさを図ったものを入力したことを、変わりに数字をセットしてます<br />

        Dim Kekka As Integer() = New Integer() {0, 0, 0, 0, 0, 0, 0}

        Dim Sv1 As Integer() = New Integer() {0, 10, 20, 30, 40, 50, 60}

        Dim Sv2 As Integer() = New Integer() {100, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 210, 220, 230}

        Dim Sv3 As Integer() = New Integer() {0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160}

        Dim Sv4 As Integer() = New Integer() {0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 160, 170, 180, 190}

        a1Tatami = New Tatami

        a1Tatami.AtaiSet(Sv1)

        str = a1Tatami.AtaiGets



        a2Tatami = New NiTatami

        a2Tatami.AtaiSet(Sv2)

        str = a2Tatami.AtaiGets



        a3Tatami = New SanTatami

        a3Tatami.AtaiSet(Sv3)

        str = a3Tatami.AtaiGets



        '一畳から三畳まではチェックがすんでます<br />



        a4Tatami = New YonTatami

        a4Tatami.AtaiSet(Sv4)

        str = a4Tatami.AtaiGets()



    End Sub

End Class



Class Tatami



    Dim Atai As Integer()



    Public Sub AtaiSet(ByVal Sv() As Integer)



        Atai = New Integer() {0, 0, 0, 0, 0, 0, 0}

        Dim w As Integer





        For w = 0 To 6

            Atai(w) = Sv(w)

        Next



    End Sub



    Public Function AtaiGets() As String



        AtaiGets = Atai(0).ToString & ";" & Atai(1).ToString & ";" & _

                    Atai(2).ToString & ";" & Atai(3).ToString & ";" & _

                    Atai(4).ToString & ";" & Atai(5).ToString & ";" & Atai(6).ToString & ";" & "vbCR" & ";"



    End Function



End Class



Class NiTatami



    Dim aT1 As Tatami

    Dim aT2 As Tatami





    Public Sub AtaiSet(ByVal Sv2() As Integer)

        Dim RSv1(6) As Integer

        Dim RSv2(6) As Integer



        Dim w1 As Integer

        Dim w2 As Integer



        w1 = (Sv2(1) + Sv2(4)) / 2

        w2 = (Sv2(1) + Sv2(4)) - w1

        RSv1(1) = w1

        RSv1(0) = w1 + Sv2(3) - Sv2(4)

        RSv1(2) = w1 + Sv2(5) - Sv2(4)

        RSv1(3) = Sv2(8)

        RSv1(4) = Sv2(9)

        RSv1(5) = Sv2(12)

        RSv1(6) = Sv2(13)



        RSv2(1) = w2

        RSv2(0) = w2 + Sv2(2) - Sv2(1)

        RSv2(2) = w2 + Sv2(0) - Sv2(1)

        RSv2(3) = Sv2(11)

        RSv2(4) = Sv2(10)

        RSv2(5) = Sv2(7)

        RSv2(6) = Sv2(6)



        aT2 = New Tatami

        aT2.AtaiSet(RSv2)

        aT1 = New Tatami

        aT1.AtaiSet(RSv1)





    End Sub



    Public Function AtaiGets() As String



        AtaiGets = aT2.AtaiGets() & aT1.AtaiGets()



    End Function



End Class



続きを読む
12/16/ (日) 12:26| パソコンコメント(0) | トラックバック(-) | 編集

VB2005プログラム例、Inheritsの例

Module Module1



    Sub Main()

        Dim apos = New Class1()

        Dim bpos = New class2()



        Dim w As Integer



        apos.posx = 100

        w = apos.posY



        bpos.posZ = 300

        w = bpos.posZ



        bpos.posY = 111

        bpos.posX = 222



    End Sub



End Module



Public Class Class1



    Private x As Integer

    Private y As Integer



    Property posX() As Integer

        Get

            Return x

        End Get

        Set(ByVal v1 As Integer)

            x = v1

        End Set

    End Property



    Property posY() As Integer

        Get

            Return y

        End Get

        Set(ByVal v2 As Integer)

            y = v2

        End Set

    End Property

End Class



Class class2

    Inherits Class1

    Private z As Integer



    Property posZ() As Integer

        Get

            Return z

        End Get

        Set(ByVal value As Integer)

            z = value

        End Set

    End Property





End Class



続きを読む
12/15/ (土) 23:17| パソコンコメント(0) | トラックバック(-) | 編集

最近のU君の様子

本当に子供は日一日で変わります。
最近のU君の得意技は、摑まり立ちです。

椅子やらその辺にあるもの何でも掴んで、立とうとします。
動かないものならいいのですが、歩行器とかで立とうとします。

立つだけならいいのですが、それでよそ見をしたりしますので、
こちらもちょっと油断したりすると、ひっくり返って頭を打つことになります。
しかし、懲りないですね。何度でも挑戦して、前から見ると、かなり旨くなりました。


次のことを言うのは急ぎすぎですが、何かを押してあるくのでしょうか?



続きを読む
12/10/ (月) 14:12| 家族コメント(0) | トラックバック(-) | 編集

長男の結婚式、披露宴まで二週間です。

 披露宴まで、二週間になりました。その間にしなければいけないことは山のようです。
自分のこと
披露宴のこと
地域のこと
 自分のことはパートの仕事、家のこと、例えば掃除
 披露宴のことは、当日の紅白の幕張
 市役所への提出書類の整理作成、地元の会議と資料の作成
当分はプログラムのことは考える暇がなさそう。これでまた、記憶がリセットされそう。




続きを読む
12/10/ (月) 11:25| 家族コメント(0) | トラックバック(-) | 編集
プロフィール

isamrx73

Author:isamrx73
FC2ブログへようこそ!

最新記事
最新コメント
最新トラックバック

月別アーカイブ
カテゴリ
検索フォーム

RSSリンクの表示
リンク
ブロとも申請フォーム
QRコード

QR

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