Need help practicing VB

[Cyberey66]

I just started learning VB, but I am so happy to find out it's the same coding as my calcualator! Well, I need to practice writing simple programs. Anyone have any idea of programs I can write? I want a simple program that would still have a challenge, and that you could possibly point me in the direction to start. I know this is very ambiguous, but I can't think of an idea. I just started like 3 days ago, so nothing super hard, but I do know most of BASIC from calculator programing.

If anyone has the projects from simple programs they wrote, it would be very appreciated if they could email it to me so I can examine it.

- Cyberey66

[Superman]

How about a simple chat program. That should keep you busy

And when you're done with that, go for Uno!

[Cyberey66]

Can you point me in a direction to start? Actually, I'll just talk to you on AIM when you are on.

[Super]

Originally posted by Cyberey66
Actually, I'll just talk to you on AIM when you are on.

hahaha, good luck!

LOL

This page might help you with some tutorials.

You might want to make something like a simple calculator. Get to know basic VB code, properties ,options and stuff. (i don't know how much you know already but...) I'd say learn program structures and stuff first, then its all going to be easy, even if stealing... err, borrowing code from other programs

Good Luck!

[Cyberey66]

I wrote a calculator last night. It was fairly easy except the damn KeyPress command doesn't work for me. How do I make it react to every keypress?

I attached the program, and heres the source. I started VB sunday so it's not bad progress. I had to censor the source, I forgot why I added the S*** variant, I think because I couldn't have a single = a string, so the variant was like the transition step.

Dim sin1 As Single
Dim ***** As Variant
Dim *****1 As Variant
Dim sin2 As Single
Dim sinAnswr As Single
Dim byt As Byte

Rem To make calc work with keypad
Private Sub KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 49: lbl1 = lbl1 + "1"
Case 50: lbl1 = lbl1 + "2"
Case 51: lbl1 = lbl1 + "3"
Case 52: lbl1 = lbl1 + "4"
Case 53: lbl1 = lbl1 + "5"
Case 54: lbl1 = lbl1 + "6"
Case 55: lbl1 = lbl1 + "7"
Case 56: lbl1 = lbl1 + "8"
Case 57: lbl1 = lbl1 + "9"
Case 48: lbl1 = lbl1 + "0"
Case 46: lbl1 = lbl1 + "."
Case 8: lbl1 = ""
Case 47:
byt = 4
sin1 = lbl1
lbl1 = ""
Case 42:
byt = 3
sin1 = lbl1
lbl1 = ""
Case 45:
byt = 2
sin1 = lbl1
lbl1 = ""
Case 43:
byt = 1
sin1 = lbl1
lbl1 = ""
Case 13: Select Case byt:
Case 1:
sin2 = lbl1
**** = sin1
**** = sin2
sinanswer = sin1 + sin2
lbl1 = sinanswer
Case 2:
sin2 = lbl1
**** = sin1
**** = sin2
sinanswer = sin1 - sin2
lbl1 = sinanswer
Case 3:
sin2 = lbl1
**** = sin1
**** = sin2
sinanswer = sin1 * sin2
lbl1 = sinanswer
Case 4:
sin2 = lbl1
**** = sin1
**** = sin2
sinanswer = sin1 / sin2
lbl1 = sinanswer
End Select
End Select
End Sub

Rem lbl1 is the "screen" on the calc.

Private Sub cmd1_Click(index As Integer)
lbl1 = lbl1 + "1"
lbl1 = lbl1 + "1"
End Sub

Private Sub cmd2_Click(index As Integer)
lbl1 = lbl1 + "2"
End Sub

Private Sub cmd3_Click(index As Integer)
lbl1 = lbl1 + "3"
End Sub

Private Sub cmd4_Click(index As Integer)
lbl1 = lbl1 + "4"
End Sub

Private Sub cmd5_Click(index As Integer)
lbl1 = lbl1 + "5"
End Sub

Private Sub cmd6_Click(index As Integer)
lbl1 = lbl1 + "6"
End Sub

Private Sub cmd7_Click(index As Integer)
lbl1 = lbl1 + "7"
End Sub

Private Sub cmd8_Click(index As Integer)
lbl1 = lbl1 + "8"
End Sub

Private Sub cmd9_Click(index As Integer)
lbl1 = lbl1 + "9"
End Sub

Private Sub cmdAdd_Click(index As Integer)
byt = 1
sin1 = lbl1
lbl1 = ""
End Sub

Private Sub cmdClear_Click()
lbl1 = ""
End Sub

Private Sub cmdDecimal_Click(index As Integer)
lbl1 = lbl1 + "."
End Sub

Private Sub cmdDiv_Click()
byt = 4
sin1 = lbl1
lbl1 = ""
End Sub

Private Sub cmdEqual_Click(index As Integer)
Select Case byt:
Case 1:
sin2 = lbl1
***** = sin1
***** = sin2
sinanswer = sin1 + sin2
lbl1 = sinanswer
Case 2:
sin2 = lbl1
***** = sin1
***** = sin2
sinanswer = sin1 - sin2
lbl1 = sinanswer
Case 3:
sin2 = lbl1
***** = sin1
***** = sin2
sinanswer = sin1 * sin2
lbl1 = sinanswer
Case 4:
sin2 = lbl1
***** = sin1
***** = sin2
sinanswer = sin1 / sin2
lbl1 = sinanswer
End Select
End Sub

Private Sub cmdMult_Click()
byt = 3
sin1 = lbl1
lbl1 = ""
End Sub

Private Sub cmdSub_Click()
byt = 2
sin1 = lbl1
lbl1 = ""
End Sub

[Super]

Let me say this: Congrads!!!

In like less than a week, you learned more VB than my teacher told us in like 3 mnth! All he told us are simple things like making the label magically display word "Hello World!" and a little bit of everyhting like If statements and properties of things...

[Cyberey66]

Originally posted by Super
In like less than a week, you learned more VB than my teacher told us in like 3 mnth!

Well, i already knew BASIC, so I just basically(no pun intended) used what I knew combined with the new stuff I learned about the visual aspects.

I'm using Sam's Teach yourself VB in 24 hours, if anyone is curious. It's a great book so far, and it comes with a CD with source and such.

Still I have a few questions;

How to make KeyPress() work with every keypress?

and why do I get errors from this?

Private Sub Command1_Click()
msgbox(Tesing,vbOKOnly,Testing)
End Sub

It says "expected ="

[Super]

MSG Box:

MsgBox "Put the text to display here",<you can just leave this blank>,"Title"

so you don't really have to use VBokOnly unless you want to. Wthout it it would look like this:

MsgBox "Hello there!",,"Hi"

.

Key Press:

here is an example:


Private Sub txtans_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

MsgBox "you pressed Enter",,"Key Press Detected!"

Else

End If

So, I apllied the code to the place when you're focused on the txtans text box, and if press enter that happens. But how to make any key activate the thig I dont' know... If you want something else to do soemthing when you press Enter, double click on that object, in the Procidure list (that drop down menu on the top right), select KeyPress, then type in the code.

[Super]

Here is the first major project that was assigned to my class... If you want the code, tell me.

[Cyberey66]

OK, i got it!!

I didn't get that in "X_Y()" the x was the object is focus.

Ok, but how can I make on object on the form always in focus? Can I remove the tab index from the buttons on the calc? I want it to always respond to keypresses.

[Super]

I guess so. Thats what I did with my other program. Just removed tab stop from the rest of the buttons. But I know there is a function, but can't remember the name. You enable it only on one button, and whenever user presses Enter, that button is always activated.

[Cyberey66]

Originally posted by Superman53142
How about a simple chat program.

I think i made the simplest and most getto chat program. I only support one user, but it has a bot to talk to. I could use it to practice my VB on. Maybe I'll add a game you can play with the bot, or later somehow make it so you can login as your own name. I also updated my calculator, now it only has one bug, and I don't think you will find it. VB is pretty fun. I attached the getto chat program if you are interested.

[Superman]

Originally posted by Cyberey66


I think i made the simplest and most getto chat program. I only support one user, but it has a bot to talk to. I could use it to practice my VB on. Maybe I'll add a game you can play with the bot, or later somehow make it so you can login as your own name. I also updated my calculator, now it only has one bug, and I don't think you will find it. VB is pretty fun. I attached the getto chat program if you are interested.

Doesn't count

You need to use a Network share and writing and reading files so that up to 10 people can talk. Use a timer or random # generator to prevent more than 1 person from accessing the file at once.

[Claudius]

I made a program this fall which basically takes your "ghetto chat" program to the next level.
It is basically an autoresponder for AIM. Instead of chatting to you, it chats to people on instant messenger. It takes input from the conversation text box, removes everything except for what was last said, generates a response, and then sends it. Its not a very complicated concept but its very neat!
Its always nice to stick this thing on people you don't really want to talk to.
I made a BAS file with functions to simplify communication with AIM. If anyone wants a copy, send me an email: apd2002@columbia.edu. I'll clean it up, explain the functions, and explain how the API works as well.

Claudius

[SiGmA_X]

Originally posted by Superman53142


Doesn't count

You need to use a Network share and writing and reading files so that up to 10 people can talk. Use a timer or random # generator to prevent more than 1 person from accessing the file at once.

At my school we learn basicly NOTHING in the VB class. So I sit around on AOA Forums (You know it!) and work on my chat client. The teacher doesn't like us using WinSock tho, so its a bit of a ***** with him... Ill post a multi-client program when its done..

[SiGmA_X]

Is there a way in VB to make the CD-ROM drive open on command? Please help!

[Super]

Here is a program I found on the net that might help you. Check the eject button code.

[ByteWipe]

Originally posted by Cyberey66

I also updated my calculator, now it only has one bug, and I don't think you will find it. .

You get a buffer overflow if you enter an integer which is too long to fit in your variable

I managed to find one, how sad is that?