お前ら、Windowsパソコン使ってるならちょっと来い。

お前ら、Windowsパソコン使ってるならちょっと来い。

80206fd1
遊び感覚でどうぞ
1: 名無しさん 2014/03/09(日)11:34:56 ID:O2Am4439l
メモ帳に
msgbox 8*4 って打って
名前を aaaa.vbs てしてみろw

2: 名無しさん 2014/03/09(日)11:37:17 ID:wo4WQhwfQ
だまされないぞう

5: 名無しさん 2014/03/09(日)11:40:51 ID:O2Am4439l
>>2
いや、パソコンが壊れるわけじゃないぞ?
簡単なプログラムだ。

3: 名無しさん 2014/03/09(日)11:38:31 ID:PqUu7NwCF
パソコンが物故割れた

4: 名無しさん 2014/03/09(日)11:38:46 ID:1Qy5lv1CU
俺Windowsじゃないんで….

5: 名無しさん 2014/03/09(日)11:40:51 ID:O2Am4439l
>>4
まあ、そう言う事でしたら…..

6: 名無しさん 2014/03/09(日)12:05:58 ID:icseUuukF
sub とか function とか無くても動くのか

11: 名無しさん 2014/03/09(日)12:14:28 ID:2t44BjDnC
エイトフォーが表示されるんだろ

13: 名無しさん 2014/03/09(日)12:15:47 ID:TAJuwb0X8
>>11
HAHA!!

7: 名無しさん 2014/03/09(日)12:10:52 ID:eYhXnpLr1
一体何が起こるんです?

10: 名無しさん 2014/03/09(日)12:14:28 ID:Rb4CqBfYk
>>7
8*4の計算結果をメッセージボックスで表示してくれる

no title

8: 名無しさん 2014/03/09(日)12:11:36 ID:O2Am4439l
まあ、簡単なプログラムだからな。

ちなみに、
Dim x, y, op
x = InputBox(“Xの値を入力してください”)
op = InputBox(“+.足し算 -.引き算 *.掛け算 /.割り算 どれにしますか?記号を入力してください”)
y = InputBox(“Yの値を入力してください”)
If op = “+” Then
MsgBox x+y
Else
If op = “-” Then
MsgBox x-y
Else
If op = “*” Then
MsgBox x*y
Else
If op = “/” Then
MsgBox x/y
Else
MsgBox “わかりません”
End If
End If
End If
End If

こうすると、計算機が出来るらしい。

19: 名無しさん 2014/03/09(日)12:27:13 ID:O2Am4439l
>>8
そう言えばこのままだとおかしな事になるんだった。

MsgBox x+y

この行を

MsgBox CDbl( x)+CDbl( y)

こう書きかえると使える様になる。

20: 名無しさん 2014/03/09(日)12:32:13 ID:Rb4CqBfYk
元のコードだと5+3が53になった
>>19でちゃんと計算した

9: 名無しさん 2014/03/09(日)12:13:14 ID:TAJuwb0X8
>>1
懐かC

12: 名無しさん 2014/03/09(日)12:14:55 ID:5QtVQ7jgq
そういうプログラミングってどこで覚えるの
独学?

14: 名無しさん 2014/03/09(日)12:17:04 ID:O2Am4439l
>>12
これは、ネットで拾った。
プログラムを覚えたいんだったら、とりあえず検索したら良いと思うよ。
俺は、本を買ったが。

23: 名無しさん 2014/03/09(日)12:49:58 ID:O2Am4439l
前に、いろいろ作ってみたが、これが一番上手くいった。

Dim ans
ans = MsgBox(“あなたは1933年より後に生まれましたか?”, vbYesNo)
If ans = vbYes Then
ans = MsgBox(“あなたは1953年より後に生まれましたか?”, vbYesNo)
If ans = vbNo Then
MsgBox “60才以上80才未満以上でしょう”
Else
ans = MsgBox(“あなたは1973年より後に生まれましたか?”, vbYesNo)
If ans = vbNo Then
MsgBox “40才以上60才未満でしょう”
Else
ans = MsgBox(“あなたは1993年より後に生まれましたか?”, vbYesNo)
If ans = vbNo Then
MsgBox “20才以上40才未満でしょう”
Else
ans = MsgBox(“あなたは2003年より後に生まれましたか?”, vbYesNo)
If ans = vbNo Then
MsgBox “あなたは10歳以上20歳未満でしょう”
Else
MsgBox “10歳未満でしょう”
End If
End If
End If
End If
Else
MsgBox “80才以上です”
End If

これは、質問形式にしたら面白そうだけどな。これ選ぶの面倒だし。

15: 名無しさん 2014/03/09(日)12:20:50 ID:Rb4CqBfYk
これがVB?

16: 名無しさん 2014/03/09(日)12:21:28 ID:O2Am4439l
>>15
多分。

17: 名無しさん 2014/03/09(日)12:23:33 ID:Rb4CqBfYk
なるほど
エクセルVBAは少し覚えたけど、VBは全く知らない
どんな場面で使うのかも分からない

21: 名無しさん 2014/03/09(日)12:37:49 ID:O2Am4439l
+はくっつかせる効果が有るらしいからな。

Dim a,b,c
a=Inputbox(“名前を入力して下さい”)
b=”さんこんにちは。”
c=a+b
msgbox c

これ面白いぞ。

22: 名無しさん 2014/03/09(日)12:45:13 ID:Rb4CqBfYk
やってみた
簡単なのはVBAの知識でもできそうな気が

no title

引用元: http://hayabusa.open2ch.net/test/read.cgi/news4vip/1394332496/


ウォッチドッグス【CEROレーティング「Z」】[18歳以上のみ対象]ウォッチドッグス【CEROレーティング「Z」】 [18歳以上のみ対象]
PlayStation 4

ユービーアイ ソフト 2014-06-26
売り上げランキング : 4

Amazonで詳しく見る


スポンサードリンク
関連コンテンツ
他サイト様人気記事
最新記事
こちらもオススメ
ソーシャルエリア

この記事が気に入ったら
いいね!しよう

最新情報をお届けします

コメント

  1. 機種名NA-07C :2014/03/09(日) 16:19:47

    江頭w

コメントする

メールアドレスが公開されることはありません。

名前は未入力でもコメントできます。