昨日の夜
スズキプラザ松原は決算セールで
ナビも車もお買い得になってます
是非一度ご相談下さい。
話は変わりますが
昨日の夜は月が綺麗でした
でも今日は朝から雨ですね
早く晴れたらいいんですけど
『安心・安全・納得』とにかく現車を見に来てね
お電話での問い合わせだけでもOKですよ
新車/中古車/車検/保険/修理
★茗ヶ原(みょうがはら)がお待ちしてます!
お客様お手製のv(。・ω・。)ィェィ♪
お客様から頂きました。
大根もご自分の畑で、お漬物もご自分で・・・
【菊】家には、
ちょっと塩が強かったので
水につけて塩抜き
なんだか、
オレンジみたいですね
歯ごたえしっかりで、
とても美味しく頂きました
たくあん好きの家の娘さんもパクパクです
季節ごとにお野菜なども
たぁくさん届けてもらってます!
感謝感謝
『安心・安全・納得』とにかく現車を見に来てね
お電話での問い合わせだけでもOKですよ
新車/中古車/車検/保険/修理
★スタッフ一同、ご来店を心よりお待ちしてます
体が返事をする
師匠 笑福亭松鶴について語っておられたコラムより
師匠が怒るときは、必ず周りに人がいました。
1対1で怒られると
「頭が返事をする。頭で返事をすると、また繰り返す」
けれど、人前で恥をかくと、
「体が返事をするから忘れない」
というんです。
そして、一度怒ったあとは、二度とそのことには触れません。
朝怒られても、昼になったらメシに連れて行ってくれたり・・・。
だからどれだけ怒られても、嫌な思い出にはなっていないんですよ。
ほめるときは人前で、怒るときは二人っきりで・・・・
なんて事もよく聞きますが・・・・
体で返事をするって事って大事だなぁって思いました
頭で返事をしたり、理解できても、それを頭で考えずに
身に染みて実行できるって難しいですね
でも、今の子たちはどうなんだろう?
反対に、人前で怒らなくても・・・・って逆切れしそう
『安心・安全・納得』とにかく現車を見に来てね
お電話での問い合わせだけでもOKですよ
新車/中古車/車検/保険/修理
★スタッフ一同、ご来店を心よりお待ちしてます
五択問題 4
End Class
この
Public Class Form1
End Class
の間に、コードを書いていきます
変数の宣言をします
Public **** Asは、全体に効いている宣言
Dim ****As は、その Private Sub の中だけで
効いている宣言です
Public Mondai(50, 5) As String '問題と答えの変数
Public Syutudai1(4) As Single '答えの順番の変数
Public Syutudai2(4) As Single '答えの順番を変える変数
Public MondaiZyun1(50) As String '出題順の変数
Public MondaiZyun2(50) As String '出題順を変える変数
Public Bangou As Integer '出題数のカウント
Public Tokuten As Integer '現在の得点
Public SouTokuten As Integer '総得点
Public MondaiMax As Integer '問題数
Public Seikairitu As Integer '正解率
Public SouAns As Integer '総得点
Public Kotae As Integer '正答の番号
このフォームが開いたとき、まずしなくてはいけない動作を
書きます
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim i As Integer
Label2.Text = ""
Label3.Text = ""
Label4.Text = ""
Label5.Text = ""
Label6.Text = ""
Try
Dim Fr As System.IO.TextReader '問題ファイルの読み込み
Dim Tx As String
Fr = New IO.StreamReader("data.txt", System.Text.Encoding.Default)
Tx = Fr.ReadLine
Label1.Text = Tx
Tx = Fr.ReadLine
MondaiMax = Val(Tx)
Bangou = 1
Do
Mondai(Bangou, 0) = Fr.ReadLine
Mondai(Bangou, 1) = Fr.ReadLine
Mondai(Bangou, 2) = Fr.ReadLine
Mondai(Bangou, 3) = Fr.ReadLine
Mondai(Bangou, 4) = Fr.ReadLine
Mondai(Bangou, 5) = Fr.ReadLine
Bangou = Bangou + 1
Loop While (Bangou <= MondaiMax)
Catch
End Try
ReDim MondaiZyun1(MondaiMax - 1)
ReDim MondaiZyun2(MondaiMax - 1)
Randomize()
For i = 0 To (MondaiMax - 1)
MondaiZyun1(i) = Rnd()
Next
Array.Copy(MondaiZyun1, MondaiZyun2, MondaiMax)
Array.Sort(MondaiZyun2)
Bangou = 1
SyutudaiSub()
Timer1.Interval = 1000
Timer2.Interval = 2000
End Sub
細かい説明は次回
VBAを書かれていらっしゃる方は
なんとなく、わかるかと思います
『安心・安全・納得』とにかく現車を見に来てね
お電話での問い合わせだけでもOKですよ
新車/中古車/車検/保険/修理
★スタッフ一同、ご来店を心よりお待ちしてます
五択問題 3
問題と答えと選択肢を
テキスト文書で
用意します
1行目が単元の題です
2行目が総問題数です
以下、
問題を作っていきます
3行目 問題
4行目 正しい答え
5行目 間違い答え
6行目 間違い答え
7行目 間違い答え
8行目 間違い答え
9行目 問題2
10行目 正しい答え
11行目 間違い答え
・
・
と繰り返して6問作ります
data.txtとして保存してください
『安心・安全・納得』とにかく現車を見に来てね
お電話での問い合わせだけでもOKですよ
新車/中古車/車検/保険/修理
★スタッフ一同、ご来店を心よりお待ちしてます
変数と型
・変数を使うと、一時的に値を保存しておこうことができる。
・変数を使うには Dim などを使って宣言する。
例) Dim MyValue As String
・変数には変数の表す値に応じて「数値型」や「文字列型」などの種類がある。
Public **** As ×××× 全体に効いている宣言
Private **** As ×××× 自分からしか参照できない
Dim ****As ×××× Private Sub の中だけで効いている
Boolean ブール 論理型 True, False
Byte バイト バイト型 0 ~ 255
Char キャラ (符号なし整数型) 0 ~ 65535
Date デイト 日付型 1年1月1日~9999年12月31日
Decimal デシマル 十進型(固定小数点型) ±79,228,162,514,264,337,593,543,950,335
同じ桁数内で小数点使用可能。分解能0.0000000000000000000000000001
Double ダブル 倍精度浮動小数点型 Long程度の桁数の小数
Integer インテジャー 整数型 -2,147,483,648 ~ 2,147,483,647
Long ロング 長整数型 -9,223,372,036,854,775,808 ~ 9,223,372,036,854,775,807
Object オブジェクト オブジェクト型
Short ショート 整数型 -32,768 ~ 32,767
Single シングル 単精度浮動小数点型 Integer程度の桁数の小数
String ストリング 文字列型 文字列
数値ならInteger を
文字ならStringを使うことが多いようです
今、自分が使う物しか探せてませんので
追記あるかもしれません。
情報ありましたら、お知らせくださいね!
『安心・安全・納得』とにかく現車を見に来てね
お電話での問い合わせだけでもOKですよ
新車/中古車/車検/保険/修理
★スタッフ一同、ご来店を心よりお待ちしてます
最小化、最大化、閉じるボタンを無効に
最小化、最大化、閉じるボタンを無効に
と、いうより
ボタン自体を隠してしまいます
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ControlBox = False
End Sub
デバッグをしたときに、
そのフォームから抜け出せなくなるので
閉じるなどのボタンを作っておく
『安心・安全・納得』とにかく現車を見に来てね
お電話での問い合わせだけでもOKですよ
新車/中古車/車検/保険/修理
★スタッフ一同、ご来店を心よりお待ちしてます
■アリだって忙しい。
アリだって忙しい。
問題は、何をして忙しいかいうことだ」
(ヘンリー・デビットソロー 米国作家)
誰もがそれぞれの立場で
忙しいと思っている ・・・・
本当に?
自己肯定にならないように
しなくっちゃ
『安心・安全・納得』とにかく現車を見に来てね
お電話での問い合わせだけでもOKですよ
新車/中古車/車検/保険/修理
★スタッフ一同、ご来店を心よりお待ちしてます
花の変更☆
み☆
です
前に植えてた花が寒さで枯れてしまったので
違うお花に変えました
問題です☆
なにかわかりますか??
コメントお待ちしております
ちなみに最近ハマってます
五択問題 2
まず、準備編
ファイル→
新しいプロジェクトで
名前を付けて作成
ツールボックスから
ボタンを5個
ラベルを6個
ProgressBarを1個
大体、大まかに配置します
Label1 題名を表示
Label2 Getした点数を表示
Labe3 総得点を表示
Label4 正解(○)か間違い(×)表示
Label5 問題を表示
Label6 最終の成績を表示
Button1 答え選択肢
Button2 答え選択肢
Button3 答え選択肢
Button4 答え選択肢
Button5 答え選択肢
Button6 もう一度Tryボタン
Button7 終了ボタン
とします。
表示される文字の大きさやフォント
フォームやボタンなどの大きさは
ご自由に!
時間制限を設けるために
ツールボックスから
タイマー(Timer)を
2つ追加します
分かりやすいように
各々のプロパティのTextを
変えました
『安心・安全・納得』とにかく現車を見に来てね
お電話での問い合わせだけでもOKですよ
新車/中古車/車検/保険/修理
★スタッフ一同、ご来店を心よりお待ちしてます
お年玉年賀はがき
1等は
●32型デジタルハイビジョン液晶テレビか
●選べる海外旅行・国内旅行か
●ノートパソコン+デジタルカメラ+インクジェットプリンタセット
2等は
●Wiiか
●デジタルカメラか
●ポータブルDVDプレーヤー
3等
お菓子の詰め合わせセット
2等のWiiを密かに切望しています
ほんの雑学
最初(昭和24年)の年賀はがきのお年玉の特等はミシンだったそうです。
1等は洋服生地、
2等は、子供用のグローブ、
3等は子ども用こうもり傘・・・・・
あれ、そんなに高額じゃないなぁって思いました?
そのころのはがきは2円で送れて、当時のミシンは、1万8000円ぐらい
今に換算すると、ミシン一台45万円ぐらいになります。
ちなみに昭和24年の大卒初任給は4,220円
ほぼ年収がミシン1台だったんですから、
今で言うと、特等2,500,000相当の商品ということになります。
やっぱり高価なものだったんですよね。
でも、特等、1等、2等とも、女性や子供用ですね
『安心・安全・納得』とにかく現車を見に来てね
お電話での問い合わせだけでもOKですよ
新車/中古車/車検/保険/修理
★スタッフ一同、ご来店を心よりお待ちしてます
VB2005・2008覚書
勉強中なので、間違っていたり、
足りなかったりすることもあると思います。
ぜひ、お知らせくださいね
[VB 2005・2008]
入手方法
DataGridViewのプロパティ
[VB 2005]
五択問題 1
五択問題 2
五択問題 3
五択問題 4
変数と型
データベースの更新が反映されない場合には?
最小化、最大化、閉じるボタンを無効に
Enterで移動
コンボボックスに重複しない値をセット
コンボボックスを入力不可に
『安心・安全・納得』とにかく現車を見に来てね
お電話での問い合わせだけでもOKですよ
新車/中古車/車検/保険/修理
★スタッフ一同、ご来店を心よりお待ちしてます
5拓問題 1
【菊】は、エクセルでも、VBAでも
参考書を読んで習得するというより
作りたいものが先にあって、
それに対する壁をひとつひとつ取り去って
作りこんでいくというパターンなので
VB2005も、アプリケーションを作りながら
習得しようと思います。
まずは、うちの愚娘さんのための勉強用に
5拓クイズを作ろうと思います。
仕様は
★問題がランダムに出される
★答えはボタンを押して答える
★ボタンに表示される答えもランダムに変わる
★回答時間は10秒
★早く答えれば答えるほど点数が上がる
★間違えると、持ち点からマイナスされる
これぐらいを実装したいと思います。
データーは、今回はテキスト文書で用意して
読み込ませます
ザクッとこんな感じ
体裁はちょっと味気ないですが
コードがちゃんと走るようになったら
もう少し可愛くしてみようと思います。
次回は、フォームの作成とツールの配置をアップします。
・・・・・が、夜中仕事なので、気長にお待ちくださいね
『安心・安全・納得』とにかく現車を見に来てね
お電話での問い合わせだけでもOKですよ
新車/中古車/車検/保険/修理
★スタッフ一同、ご来店を心よりお待ちしてます
今は、10になっていないだけ
植物状態になった人が19年後に意識を取り戻し
不自由ながらも、会話をしたり笑ったり出来るようになった奇跡
を流していました
19年後に急に出来るようになったんではなくて
脳の代替え機能がダメージを受けた場所の働きを、
ひとつ、ひとつと他の場所で修復していく。
5修復でもダメ、8修復でもダメ、
19年かけて10の修復が出来て、
まるで、急に回復したかのように現われてくる
本当は奇跡でも何でもなくて、
おかぁさんの19年間の関わりの
努力の表れ
一生懸命努力しているのに、出来ない
いくら努力しても、報われない
でも、実は7や8までできていて
10に成る準備をしている
10になったとたん出来るようになるんだけど
一気に10になったんじゃなくて
ひとつ、ひとつ
見えはしないけど 過程を積み上げていって
10になって、出来るようになる。
それは、明日かもしれないし
10年後かもしれない。
でも、1の努力を始めたころを思い出して
なんで、1歩を踏み出した?
なんで、5歩まで歩んできた?
歩んでいく過程も
積み重ねていく労力さえも、楽しんで・・・・
10になる日を心密かに、待ってみよう
『安心・安全・納得』とにかく現車を見に来てね
お電話での問い合わせだけでもOKですよ
新車/中古車/車検/保険/修理
★スタッフ一同、ご来店を心よりお待ちしてます
Outlook Express のメール データのバックアップをとる方法
ほとんどのデーターは、移行、LANの設定、VNCの設定等
つつがなく終わりそうです。
【菊】の日記は、マニアックと言われていますが
今回も・・・・・・
メールのアカウントも、以前○○.iafファイルをバックアップしていたので
(ツール→アカウント→メール→エクスポートで作成できます)
それを、インポートして無事送受信OKです。
あとは、以前の受信トレイに
フォルダを作って振り分けて保存していたメールを
こちらに移行しなくてはいけません。
確認メールだとか、意外と大事なメール群です
注意!office系のOutlookとはバックアップ方法が違います。
失敗しても(しないと思いますが)自己責任でお願いします
まず、で
ハードを普通の外部メディアみたいに開けるような機械を
出入りの業者さんからかりてファイル群を救出します
Outlook Express のメッセージが保存されているフォルダを開きます。
ファイルは隠しファイルになっていますので
スタート→設定→コントロールパネル→フォルダオプション
のチェックボタンを
『すべてのファイルとフォルダを表示する』にチェック入れ替えます
環境によって変わりますが
95/98/ME
C:\WINDOWS\Application Data\Identities\{E23Cxxxx-F1xx-11xx-8Dxx-DC9F216Exxxx}\Microsoft\Outlook Express
2000/XP
C:\Documents and Settings\Administrator(ユーザー名)\Local Settings\Application Data\Identities\{E23Cxxxx-F1xx-11xx-8Dxx-DC9F216Exxxx}\Microsoft\Outlook Express
Outlook Express のフォルダにある○○.dbxが各々のフォルダです
○○は、自分でつけたフォルダ名です
このOutlook Express を、新しいPCの同じ場所にコピーして
終わり
以前と同じ環境になっていると思います
ただし、すでに、新しいPCでメールの受信送信など、してしまっていると
上書き保存されてしまいますので、気を付けてください
『すべてのファイルとフォルダを表示する』から、
『隠しファイルおよび隠しフォルダを表示しない』に
変えることを忘れないでくださいね
今回は、ハードでなくマザーボードが逝ってしまったので
救出できましたが、
ハードが逝ってしまうと救出もできなくなってしまうので
このフォルダも、バックアップ対象としておいたほうが良いですね
『安心・安全・納得』とにかく現車を見に来てね
お電話での問い合わせだけでもOKですよ
新車/中古車/車検/保険/修理
★スタッフ一同、ご来店を心よりお待ちしてます
色番号見本
TI-DAは ↓ のようにカーソルを色に乗せると色番号を教えてくれます。
色数も豊富ですよね
『えぇ~!うちのブログはちょっと色数が少ない』
という方に使っていただけたらと思います
■色の指定方法は次のようになっています。
Red Green Blue の順に、それぞれ2桁の英数字を記入していきます。
使える英数字は0 ~ F までの16字(16進)です。
Red #ff0000 Green #00ff00 Blue #00ff00
明るくしたいときは Fに近づけ、暗くしたいときは 0 に近づけます。
この要領で3つの色をそれぞれ組み合わせて色を作っていきます。
Red #ff0000
#ff0033 #ff0099
000000
333333
666666
696969
808080
999999
9a9a9a
c0c0c0
d3d3d3
dcdcdc
f5f5f5
ffffff
前回はグラデーションを出すために色を細かく変えましたが
色数を下の表のの8ビットの216色に抑えると、
ディスプレカラーが
256色に設定されているシステム(標準のコンピュータ)で
ページを思ったような色で表示できます。
--------------------------------------------------------------------------------
■番号で指定出来るWeb色の見本(216色)
--------------------------------------------------------------------------------
000000*black 333333 666666 808080
999999 cccccc
000033 000066 000099 0000cc
0000ff
003300 003333 003366 003399 0033cc
0033ff
006600 006633 006666 006699 0066cc
0066ff
009900 009933 009966 009999 0099cc
0099ff
00cc00 00cc33 00cc66 00cc99
00cccc 00ccff
00ff00 00ff33 00ff66 00ff99
00ffcc 00ffff
330000 330033 330066 330099 3300cc
3300ff
333300 333333 333366 333399 3333cc
3333ff
336600 336633 336666 336699 3366cc
3366ff
339900 339933 339966 339999 3399cc
3399ff
33cc00 33cc33 33cc66 33cc99
33cccc 33ccff
33ff00 33ff33 33ff66 33ff99 33ffcc
33ffff
6600ff
663300 663333 663366 663399 6633cc
6633ff
666600 666633 666666 666699 6666cc
6666ff
669900 669933 669966 669999 6699cc
6699ff
66cc00 66cc33 66cc66 66cc99
66cccc
66ccff
66ff00 66ff33 66ff66 66ff99
66ffcc
66ffff
990000 990033 990066 990099 9900cc
9900ff
993300 993333 993366 993399 9933cc
9933ff
996600 996633 996666 996699 9966cc
9966ff
999900 999933 999966 999999
9999cc
9999ff
99cc00 99cc33 99cc66 99cc99
99cccc
99ccff
99ff00 9ff33 99ff66 99ff99
99ffcc
99ffff
cc00cc cc00ff
cc3300 cc3333 cc3366 cc3399
cc33cc cc33ff
cc6600 cc6633 cc6666 cc6699
cc66cc cc66ff
cc9900 cc9933 cc9966 cc9999
cc99cc cc99ff
cccc00 cccc33 cccc66 cccc99 cccccc ccccff
ccff00 ccff33 ccff66 ccff99
ccffcc ccffff
ff0000 ff0033 ff0066 ff0099
ff00cc ff00ff
ff3300 ff3333 ff3366 ff3399
ff33cc ff33ff
ff6600 ff6633 ff6666 ff6699
ff66cc ff66ff
ff9900 ff9933 ff9966 ff9999
ff99cc ff99ff
ffcc00 ffcc33 ffcc66 ffcc99
ffcccc ffccff
ffff00 ffff33 ffff66 ffff99
ffffcc ffffff*white
『安心・安全・納得』とにかく現車を見に来てね
お電話での問い合わせだけでもOKですよ
新車/中古車/車検/保険/修理
★スタッフ一同、ご来店を心よりお待ちしてます
お久しぶりです☆
み です
最近初体験をしました
とても緊張しましたがスーっとしました
なにを体験したかと言います
酸素カプセルなんです
10分だけなんですけど
気圧かなんかわからないんですが
入ってるカプセルがパンパンになるんです
一度体験して頂くとわかると思います
み
『安心・安全・納得』とにかく現車を見に来てね
お電話での問い合わせだけでもOKですよ
新車/中古車/車検/保険/修理
★茗ヶ原(みょうがはら)がお待ちしてます!
流れる文字2
流れる文字で、もちょっと遊んでみましょうねぇ~
<P align="center"><MARQUEE width="500" scrollamount="6" bgcolor="#f0f0f7"><FONT size="3" color="#9966ff">背景色を付ける</FONT></MARQUEE></P>
←背景画像を用意します
<TABLE background="//img04.ti-da.net/usr/plazaclub/SD-wps-ti13-05.gif"><TBODY><TR><TD><MARQUEE width="400" scrollamount="6"><FONT size="3" color="#333399">背景画像を付ける</FONT></MARQUEE></TD>
</TR></TBODY></TABLE>
<TABLE background="○○.gif" bordercolor="#cbe0b1" cellspacing="5" cellpadding="3" border="1"><TBODY><TR><TD bgcolor="#f3f9f2"><MARQUEE width="300" scrollamount="6"><FONT size="3" color="#996666">額縁風にしてみました♪</MARQUEE></TD></TR></TBODY></TABLE>
『安心・安全・納得』とにかく現車を見に来てね
お電話での問い合わせだけでもOKですよ
新車/中古車/車検/保険/修理
★スタッフ一同、ご来店を心よりお待ちしてます
ブログカスタマイズ
誰かしらUPすることを目標に頑張っています
文才のない【菊】は、
ビジュアルで楽しんでもらおうと、色々試行錯誤・・・・・・・
ということで
このカテゴリーでは、楽しいブログを目指すために、
ちょっとしたtipをアップしていきたいと思います。
この記事は、目次も兼ねてます
流れる文字1
流れる文字2
色番号見本
もし、お役に立つようでしたら、お持ち帰りください
スタッフの方々も、色々遊んでみてくださいね
『安心・安全・納得』とにかく現車を見に来てね
お電話での問い合わせだけでもOKですよ
新車/中古車/車検/保険/修理
★スタッフ一同、ご来店を心よりお待ちしてます
毛糸猫
あずみの編みぐるみに挑戦
家族の誰に聞いても
『犬みたい』と不評でした
頭の部分だけ、編みなおし
ちょっと、小さく、横にペチャンとした感じと
お口の部分を変えて
釣り糸で、おひげを足してみました
猫に見えますか?
『安心・安全・納得』とにかく現車を見に来てね
お電話での問い合わせだけでもOKですよ
新車/中古車/車検/保険/修理
★スタッフ一同、ご来店を心よりお待ちしてます