なぜVBは扱いが低いのか

**名前は開発中のものです。** · 2010/09/14(火) 02:49:56

よく考えてみよう

**名前は開発中のものです。** · 2010/09/14(火) 05:21:31

VBランタイムをわざわざインストールしないと動作しない時代があったから

**名前は開発中のものです。** · 2010/09/14(火) 18:40:13

VBだから

**名前は開発中のものです。** · 2010/09/14(火) 22:48:07

VBはよほど上手く作らないと遅いからな……
うちの会社の人が機械連動でVB動かして、速度上げると動かないとか言ってた
アナログの高速反応に対応するには厳しいだろって(ry

**名前は開発中のものです。** · 2010/09/18(土) 05:48:18

ツクールと同じで「手軽に誰でも簡単に」が売りの言語だからね。
元々敷居が低い事を狙って使い始めた連中が多いので、「動けば良いや」というレベルに留まりがち。

その上、凝った事をやろうとするとそこらの言語よりも数倍苦労しなくちゃならない。
フォームにコントロールを配置して記述していくという武器を取り上げられる事になる。

もちろんフォームを使ってゲームを作る事もできるものの、そもそも Windows GUI はゲーム向きじゃない。
結果的にそれらのゲームは見た目もしょぼく、操作性も悪いという烙印を押される事になってしまう。

**名前は開発中のものです。** · 2010/09/18(土) 08:57:02

クイズゲームやノベルゲーム、選択肢式アドベンチャーなどは作れるかな。
DirectXでアクションやシューティングとなると、VBでやるのはマゾ行為でしかないな。

**名前は開発中のものです。** · 2010/09/18(土) 09:59:14

VB というと今でも VB.NET じゃなくて VB6 以前になるんかな

**名前は開発中のものです。** · 2010/09/18(土) 10:00:27

ゴメン表現がおかしいな
VB と記述した場合、今でも VB.NET じゃなくて VB6 以前を指すのかなぁ

**名前は開発中のものです。** · 2010/09/18(土) 13:22:59

VBは、ランタイムが別で配布されることが多くて、わざわざ自分でこんな無駄にサイズが大きいものを追加で入れなきゃ動かんのか！みたいな受け取られ方しただけでしょ。
VCだって、C++のランタイムとMFCのDLLを合わせただけでも、結構なサイズなんだけど、静的リンクしてたりアーカイブ同梱で勝手にインスコするから、素人は気づかないだけ。

あと、ゲーム云々に関して言えば、VB5までは、DXが標準で使えなかったけど、VB6以降は普通に使える。
パフォーマンス的にも、2000年代に入って、ポリゴンの頂点計算とかハードにやらせるようになってからは、よほど限界ギリギリの領域でもない限り、C++で書くのと大差なんてなかったよ。
使う奴が少ないのは、単に参考資料が殆どないから誰も使わない、というだけ。

**名前は開発中のものです。** · 2010/09/18(土) 14:08:42

さてっとおいらがVBでゲーム作りますよってゲ製なんでゲーム作る話題にしようぜ

とりあえず課題スレにある１５パズルから作ろうとおもたけどいきなりは大変なので９パズルに挑戦な

んで、下記はピースの動きのコード下にしか動かんけど、いい感じだフォームとピクチャーボックスでいける
Sub picDown()
Dim nowX As Integer = PictureBox1.Left
Dim nowHeight As Integer = PictureBox1.Height
Dim newY As Integer = PictureBox1.Top + nowHeight
Dim idouY As Integer = nowHeight / 6
For i As Integer = 1 To 6
PictureBox1.Top += idouY
Threading.Thread.Sleep(10)
Me.Refresh()
Next
PictureBox1.Top = newY
Me.Refresh()
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If (e.KeyData = Windows.Forms.Keys.Down) Then
'MsgBox("↓", MsgBoxStyle.Information, "Form1_KeyDown")
picDown()
End If
End Sub

Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
MsgBox(e.KeyChar, MsgBoxStyle.Information, "Form1_KeyPress")
End Sub

**名前は開発中のものです。** · 2010/09/18(土) 19:25:55

SFC・メガドラ・PCエンジンのSTGを語るスレ
http://yuzuru.2ch.net/test/read.cgi/gamestg/1206538342/779
> 779 名前：名無しさん＠弾いっぱい[] 投稿日：2010/09/15(水) 13:08:43 ID:9cI7/JLI0
> ＰＣＥでもＭＤでもＳＦＣでもないが、それっぽい（昭和っぽい）画面の
> ゲームがある。
> はっぴぃしゅーたーＶＢ６
> ttp://homepage1.nifty.com/shifu2/main.html
> なんとなくＰＣＥ版究極タイガーやガンヘッドあたりを参考に作ったようだ。
> ＰＣ用だが、試しにやってみるといいかも？

これ、ソースが公開されていればもっと良かったのにとか身勝手な事を言ってみる。
Visual Basic でシューティングとはなかなか頑張ってるね。

**名前は開発中のものです。** · 2010/09/18(土) 20:00:19

おっす、おいら10
ちょっと進歩したぜ！あぁ>>11さんオイラシューティング苦手だから無理な
ちょっとソース長くなったからここに貼らないほうがいいかな
どこかUPローダーない？

10 · 2010/09/18(土) 20:12:18

あぁみっけた

http://gmdev.xrea.jp/st/up/125.txt
とりあえず、上下移動ができるようになった
キモはピクチャーボックスオブジェクトを配列にいれて処理してるとこだな

こりゃ楽勝だぜ

**名前は開発中のものです。** · 2010/09/19(日) 00:16:04

VBだからフォームに操作ボタンはりつけるのかと思ったら、
そこまで原始的じゃなかったかｗ

10 · 2010/09/19(日) 01:04:51

おっす！>>14見てくれてうれしいぜ
終了判定いれてみた
Sub EndOfGame()
For i As Integer = 1 To 9
If Not (obPicsWin(i).Name = obPics(i).Name) Then
Label1.Text += ":No"
Exit Sub
End If
Next

Label1.Text += ":End"
End Sub

キモは配列に正解を入れておくとこだぜLOAD処理でやってる
これで最初のならびに達したかどうかがわかるぜ！
ReDim obPics(10), obPicsWin(10)
obPics(1) = PictureBox1
obPics(2) = PictureBox2
obPics(3) = PictureBox3
obPics(4) = PictureBox4
obPics(5) = PictureBox5
obPics(6) = PictureBox6
obPics(7) = PictureBox7
obPics(8) = PictureBox8
obPics(9) = PictureBox9

For i As Integer = 1 To 9
obPicsWin(i) = obPics(i)
Next
既にゲームぽいけどもっと進化させるぜ

10 · 2010/09/19(日) 15:06:33

おはよう！オイラ10
ちょっと工夫して画像を自分で設定できるようにしてる
んで画像読み込んでコピーするまで出来た！フォームとピクチャボックス２つとダイアログ１つで簡単にできる
これ組み込んだら完成だな

次のがコピーのコードだ、結構厄介だったぞ
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim img = New Bitmap(PictureBox1.Image)
'PictureBox1のGraphicsオブジェクトの作成
Dim g As Graphics = PictureBox2.CreateGraphics()

'元の画像の(10,10)-(100,100)の部分を切り取って表示する
'座標(0,0)に表示し、単位をピクセルとする
Dim rect As New Rectangle(PictureBox2.Top, PictureBox2.Left, PictureBox2.Width, PictureBox2.Height)
g.DrawImage(img, 0, 0, rect, GraphicsUnit.Pixel)

Dim newBMP As Bitmap = img.Clone(rect, img.PixelFormat)

PictureBox2.Image = newBMP.Clone

'Graphicsオブジェクトを破棄
g.Dispose()

End Sub

10 · 2010/09/20(月) 01:23:14

深夜にオッス！おら10
ちょっといい感じになったのでソースアップ

画像）http://gmdev.xrea.jp/st/up/126.bmp
ソース）http://gmdev.xrea.jp/st/up/127.zip
TOOLはVS2008のVB2008

起動してそのままでも動くけど、背景を選択してBMP画像選んでくだちい
ピース部分だけカラーであとは白黒になります
で動かして、元の場所になると全部カラー表示します
（背景が小さいとｴﾗｰ起こすのは愛嬌

無駄ゲ処理とかミスとか修正したから結構遊べるお！
キモはほとんどWebから見つけたソースってとこだなｗ

楽勝

**名前は開発中のものです。** · 2010/09/20(月) 21:49:16

>11
はっぴぃしゅーたーＶＢ６を作ったモノです。
自分のゲーム名でぐぐったらここに出てしまいました。

ソースの公開は不可能ではありませんが、コード量が膨大で、
まず初見でいやになります。
クラスモジュールだけで８７個です。いやになったでしょ。

ＶＢ６とＶＢ.netではポインタの扱いが違うので
.net開発者がみてもあまり参考になりませんし、私も.netは素人です。

ゲームの基本的な事は相談に乗れるとおもうので、>11のホームページにある
メールアドレスから相談してもらってかまいませんよ。

**名前は開発中のものです。** · 2010/09/21(火) 14:10:35

ども　はっぴぃしゅーたーの作者です。

はっぴぃしゅーたーの代わりに、昔作った簡単なシューティングの
ソースをあげました。参考にしてください。
ttp://homepage1.nifty.com/shifu2/DL/SH.zip

古いプログラムなのでウエイト３万くらいかけないと速すぎて遊べませんよ。
ウエイトに234567と入力すると無敵モードになります。

これはその昔、私がマイコンベーシックマガジンに投稿したものに、
多少手を加えたものです。