なぜVBは扱いが低いのか (200ﾚｽ)
上下前次1-新
1: 名前は開発中のものです。 [] 2010/09/14(火) 02:49:56 ID:czSliofv(1) AAS
よく考えてみよう
2: 名前は開発中のものです。 [sage] 2010/09/14(火) 05:21:31 ID:WlEbFNOI(1) AAS
VBランタイムをわざわざインストールしないと動作しない時代があったから
3: 名前は開発中のものです。 [sage] 2010/09/14(火) 18:40:13 ID:ipnOU/rx(1) AAS
VBだから
4: 名前は開発中のものです。 [sage] 2010/09/14(火) 22:48:07 ID:B4IG625b(1) AAS
VBはよほど上手く作らないと遅いからな……
うちの会社の人が機械連動でVB動かして、速度上げると動かないとか言ってた
アナログの高速反応に対応するには厳しいだろって(ry
5: 名前は開発中のものです。 [sage] 2010/09/18(土) 05:48:18 ID:wagE6s3t(1) AAS
ツクールと同じで「手軽に誰でも簡単に」が売りの言語だからね。
元々敷居が低い事を狙って使い始めた連中が多いので、「動けば良いや」というレベルに留まりがち。
その上、凝った事をやろうとするとそこらの言語よりも数倍苦労しなくちゃならない。
フォームにコントロールを配置して記述していくという武器を取り上げられる事になる。
もちろんフォームを使ってゲームを作る事もできるものの、そもそも Windows GUI はゲーム向きじゃない。
結果的にそれらのゲームは見た目もしょぼく、操作性も悪いという烙印を押される事になってしまう。
6: 名前は開発中のものです。 [sage] 2010/09/18(土) 08:57:02 ID:dUyYjQsJ(1) AAS
クイズゲームやノベルゲーム、選択肢式アドベンチャーなどは作れるかな。
DirectXでアクションやシューティングとなると、VBでやるのはマゾ行為でしかないな。
7: 名前は開発中のものです。 [sage] 2010/09/18(土) 09:59:14 ID:zX/pNeib(1/2) AAS
VB というと今でも VB.NET じゃなくて VB6 以前になるんかな
8: 名前は開発中のものです。 [sage] 2010/09/18(土) 10:00:27 ID:zX/pNeib(2/2) AAS
ゴメン表現がおかしいな
VB と記述した場合、今でも VB.NET じゃなくて VB6 以前を指すのかなぁ
9: 名前は開発中のものです。 [sage] 2010/09/18(土) 13:22:59 ID:5vuWqU8U(1) AAS
VBは、ランタイムが別で配布されることが多くて、わざわざ自分でこんな無駄にサイズが大きいものを追加で入れなきゃ動かんのか！みたいな受け取られ方しただけでしょ。
VCだって、C++のランタイムとMFCのDLLを合わせただけでも、結構なサイズなんだけど、静的リンクしてたりアーカイブ同梱で勝手にインスコするから、素人は気づかないだけ。
あと、ゲーム云々に関して言えば、VB5までは、DXが標準で使えなかったけど、VB6以降は普通に使える。
パフォーマンス的にも、2000年代に入って、ポリゴンの頂点計算とかハードにやらせるようになってからは、よほど限界ギリギリの領域でもない限り、C++で書くのと大差なんてなかったよ。
使う奴が少ないのは、単に参考資料が殆どないから誰も使わない、というだけ。
10(7): 名前は開発中のものです。 [sage] 2010/09/18(土) 14:08:42 ID:A4GUH+kV(1/3) AAS
さてっとおいらが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
11(2): 名前は開発中のものです。 [sage] 2010/09/18(土) 19:25:55 ID:eXol6kqo(1) AAS
SFC・メガドラ・PCエンジンのSTGを語るスレ
2chｽﾚ:gamestg
> 779 名前：名無しさん＠弾いっぱい[] 投稿日：2010/09/15(水) 13:08:43 ID:9cI7/JLI0
> ＰＣＥでもＭＤでもＳＦＣでもないが、それっぽい（昭和っぽい）画面の
> ゲームがある。
> はっぴぃしゅーたーＶＢ６
> 外部ﾘﾝｸ[html]:homepage1.nifty.com
> なんとなくＰＣＥ版究極タイガーやガンヘッドあたりを参考に作ったようだ。
> ＰＣ用だが、試しにやってみるといいかも？
これ、ソースが公開されていればもっと良かったのにとか身勝手な事を言ってみる。
Visual Basic でシューティングとはなかなか頑張ってるね。
12: 名前は開発中のものです。 [sage] 2010/09/18(土) 20:00:19 ID:A4GUH+kV(2/3) AAS
おっす、おいら10
ちょっと進歩したぜ！あぁ>>11さんオイラシューティング苦手だから無理な
ちょっとソース長くなったからここに貼らないほうがいいかな
どこかUPローダーない？
13: 10 [sage] 2010/09/18(土) 20:12:18 ID:A4GUH+kV(3/3) AAS
あぁみっけた
外部ﾘﾝｸ[txt]:gmdev.xrea.jp
とりあえず、上下移動ができるようになった
キモはピクチャーボックスオブジェクトを配列にいれて処理してるとこだな
こりゃ楽勝だぜ
14(1): 名前は開発中のものです。 [sage] 2010/09/19(日) 00:16:04 ID:DdCJ+ie2(1) AAS
VBだからフォームに操作ボタンはりつけるのかと思ったら、
そこまで原始的じゃなかったかｗ
15: 10 [sage] 2010/09/19(日) 01:04:51 ID:9fB8MUem(1/2) AAS
おっす！>>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
既にゲームぽいけどもっと進化させるぜ
16: 10 [sage] 2010/09/19(日) 15:06:33 ID:9fB8MUem(2/2) AAS
おはよう！オイラ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
17: 10 [sage] 2010/09/20(月) 01:23:14 ID:tt0g1Jsk(1) AAS
深夜にオッス！おら10
ちょっといい感じになったのでソースアップ
画像）画像ﾘﾝｸ
ソース）外部ﾘﾝｸ[zip]:gmdev.xrea.jp
TOOLはVS2008のVB2008
起動してそのままでも動くけど、背景を選択してBMP画像選んでくだちい
ピース部分だけカラーであとは白黒になります
で動かして、元の場所になると全部カラー表示します
（背景が小さいとｴﾗｰ起こすのは愛嬌
無駄ゲ処理とかミスとか修正したから結構遊べるお！
キモはほとんどWebから見つけたソースってとこだなｗ
楽勝
上下前次1-新書関写板覧索設栞歴
あと 183 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.010s