Dopey's Visual Basic 6.0 Tutorial Beginners Level 1

Quote:

---

Originally Posted by UTGrim

Hmm... I dunno. lol. Probably not. This computer is pretty old. How can I find out?

---

download directx8 from www.gunbound.net

=] Try it

And if you want to learn how to use DirectX in VB, the SDK's are located here at 18. in the first post:

http://www.vbforums.com/showthread.php?t=280609

It doesn't work. It asks me if I want to go fullscreen... but it opens a blank form and nothing else.

forget about the game. Lets get back to the tutorial and comments, so how well or poor i did.

Quote:

---

Originally Posted by Mc Brain

It doesn't work. It asks me if I want to go fullscreen... but it opens a blank form and nothing else.

---

It works if I select no, but what do I suppose to do?

Quote:

---

Originally Posted by Mc Brain

It works if I select no, but what do I suppose to do?

---

just forget about it man...your posting off-topic stuff. We were talking about a tutorial, now, we're talking about games. If you want the answer to your question, pm Jacob Roman.

I knew this thread would get moved. See, didn't I tell you :bigyello:

Quote:

---

Originally Posted by Jacob Roman

I knew this thread would get moved. See, didn't I tell you :bigyello:

---

yea because i pmed martin. Now i know this tut is the right place to be.

I think I know what the problem is with the Fullscreen mode. Your card doesn't support that screen resolution. In IDE mode, change the Fullscreen_Width, Fullscreen_Height, and the Color_Bit to whichever resolution your card supports. They will be located in the Game_Engine module in the Main_Loop sub ;)

Right now it's currently this:

VB Code:

Fullscreen_Width = 1024
    Fullscreen_Height = 768
    Color_Bit = 32

Ok now we can get back on the topic of beginner stuff. :bigyello:

My screen is configured in 1024x768 - True Color (32 bit)... so it supports this resolution.

In my code, try changing the resolution to 640x480x32 and it should work fine. ;)

Quote:

---

Originally Posted by Jacob Roman

In my code, try changing the resolution to 640x480x32 and it should work fine. ;)

---

It works in that resolution (is the same as if I answered "No").

Why in the world is this rambling thread with errors and inconsistencies in the Code Bank?

Never, ever do this:

Code:

---

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a = Text1.Text
b = Text2.Text
Label4.Caption = Text1.Text - Text2.Text

---

Coercion is when you let the language move values from one data type to another - that do not match.

The code should be written as:

Code:

---

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
a = CInt(Text1.Text)
b = CInt(Text2.Text)
Label4.Caption = CStr(a - b)

---

I'm guessing the moral of the story is to never ever let a noobie programmer write a tutorial for noobies. ;)

Otherwise those noobies will never learn from their mistakes unless told by an even better programmer. Leave the tutorial writing to the pros (people who actually have lots of experience and know what they are doing.)

Just thought I would clear this up for any n00bs that may read this thread.
The MsgBox funtion has other arguments also. You can specify the buttons and message icon. As well as provide a title caption.

As for the parenthesis, you can not use them if your not returning a response.

The correct ways:

VB Code:

Private Sub Command1_Click()
    MsgBox "Hello World", vbOKOnly + vbInformation, "Beginner Tutorial"
End Sub
 
'And if returning a value:
Private Sub Command1_Click()
    Dim iResp As Integer
    iResp = MsgBox("Do you like this tutorial?", vbYesNo + vbQuestion, "Beginner Tutorial")
    If iResp = vbYes Then
        MsgBox "You liked it", vbOKOnly + vbInformation, "Beginner Tutorial"
    Else
        MsgBox "Sorry it was not up to your standards!", vbOKOnly + vbExclamation, "Beginner Tutorial"
    End If
End Sub

I hope this clears things up for you.