#桑名# はじめてのプログラミング教室

三重県桑名市在住のITエンジニア、たかあきです。はじめてのプログラミング教室を始めましたー。小学生と中学生の子どもがメインですが大人初心者も大歓迎。教室でのワークの様子やプログラミングに関する記事を掲載します。体験と講座のお申込みは、JEUGIAカルチャーセンター桑名(Tel:0594-27-7211)までお願いします。教室についてのご質問は、ブログにコメントいただければ返信します!

Windows PCで手軽にVBSプログラミングをはじめよー

こんばんわ、たかあきです。
今日は、VBScriptによるプログラミングをご紹介します。
先週プログラミング教室の生徒が自己流で、VBScriptを作って先生に見せてくれました。

まだスクラッチしか教えていなかったので、彼の意欲にスゴイと驚きました。
先生、VBScriptの経験がなかったので、生徒にインスパイアされ現在勉強中。

みなさん、VBScriptは、聞いたことありますか?
VBScriptマイクロソフトによるVisual Basic 風のスクリプト言語です。
Microsoft Windows 上で動作させることができ、VBA(Visual Basic for Applications)ととても構文が似ています。

そのため、VBScriptを覚えることで、Excel VBAでマクロを組むことができるようになりますよ!
Excelでマクロ使いこなせたら、仕事が効率的になって、かっこいいーですよね!

 

今日は、その生徒が作った偽ウィルスに対抗して、秘密のパスワードを入力するまでパスワードを聞いてくるプログラムを作ってみましたー。
実際には…、無限ループも困るので10回パスワードを入力したら抜けるように作っています。ご安心を!
(秘密のパスワードはstrSecretpwにセットしている"password"の文字列です)

VBScriptによるプログラミングは、簡単です。
メモ帳でプログラムを作成して、ファイル名を".txt" ではなく、".vbs"に変更します。
できたらダブルクリックすれば実行できます。コンパイラも特別な開発環境も必要ありません。

 

Option Explicit

Dim intCount
Dim strSecretpw, strYourpw

strSecretpw = "password"
intCount = 0

Do
intCount = intCount + 1
strYourpw = InputBox("パスワードを入力してください",intCount)
If intCount = 10 Then
strYourpw = strSecretpw
End If
Loop While strYourpw <> strSecretpw

 

 

 

また、VBScriptの書き方は以下のサイトが大変参考になります。

qiita.com

VBScriptは開発環境やツールのインストールも不要ではじめられます。

コンピュータが好きな人、VBScriptで手軽にプログラミングはじめませんか??