Welcome to Dream.In.Code
Getting VB.NET Help is Easy!

Join 136,249 VB.NET Programmers for FREE! Get instant access to thousands of VB.NET experts, tutorials, code snippets, and more! There are 2,190 people online right now. Registration is fast and FREE... Join Now!




Its Vb.net

 
Reply to this topicStart new topic

Its Vb.net, a program that displays the lyrics of the song "99 bottles of bee

jetjet
13 Oct, 2008 - 01:42 AM
Post #1

New D.I.C Head
*

Joined: 11 Oct, 2008
Posts: 9

CODE
Public Class Form1

  Private Sub btnshow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnshow.Click
  Dim lyrics As Integer
  'Dim count As Integer

  For lyrics = 99 To 90 Step -1
  MsgBox("bottles of beerl".ToString)
  Next
  MsgBox("finish")
  End Sub
End Class


This post has been edited by jayman9: 13 Oct, 2008 - 07:15 AM
User is offlineProfile CardPM
+Quote Post

Bort
RE: Its Vb.net
13 Oct, 2008 - 02:58 AM
Post #2

D.I.C Regular
Group Icon

Joined: 18 Sep, 2006
Posts: 418



Thanked: 4 times
Dream Kudos: 350
My Contributions
And what are you trying to do with this?

Although, I do notice your Msgbox will not count down. Try this:

CODE

MsgBox(lyrics.ToString & " bottles of beer on the wall")


Also, when you post code, could you please put the in [ code ] tags?

HTH,
Bort

This post has been edited by Bort: 13 Oct, 2008 - 03:00 AM
User is online!Profile CardPM
+Quote Post

jetjet
RE: Its Vb.net
13 Oct, 2008 - 03:58 AM
Post #3

New D.I.C Head
*

Joined: 11 Oct, 2008
Posts: 9

QUOTE(Bort @ 13 Oct, 2008 - 03:58 AM) *

And what are you trying to do with this?

Although, I do notice your Msgbox will not count down. Try this:

CODE

MsgBox(lyrics.ToString & " bottles of beer on the wall")


Also, when you post code, could you please put the in [ code ] tags?

HTH,
Bort



Hi bort,

Still the same output it never change. Anyway thanks for your reply.

jetjet


User is offlineProfile CardPM
+Quote Post

Bort
RE: Its Vb.net
13 Oct, 2008 - 04:05 AM
Post #4

D.I.C Regular
Group Icon

Joined: 18 Sep, 2006
Posts: 418



Thanked: 4 times
Dream Kudos: 350
My Contributions
Also, just noticed after taking a second look, you didn't have it in a For each...statement. This should work.

CODE

Public Class Form1

Private Sub btnshow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnshow.Click
Dim lyrics As Integer

For each lyrics = 99 To 90 Step -1
MsgBox(lyrics.ToString & " bottles of beer on the wall")
Next lyrics
MsgBox("finish")
End Sub
End Class


This post has been edited by Bort: 13 Oct, 2008 - 06:28 AM
User is online!Profile CardPM
+Quote Post

jetjet
RE: Its Vb.net
21 Oct, 2008 - 01:41 AM
Post #5

New D.I.C Head
*

Joined: 11 Oct, 2008
Posts: 9

QUOTE(Bort @ 13 Oct, 2008 - 05:05 AM) *

Also, just noticed after taking a second look, you didn't have it in a For each...statement. This should work.

CODE

Public Class Form1

Private Sub btnshow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnshow.Click
Dim lyrics As Integer

For each lyrics = 99 To 90 Step -1
MsgBox(lyrics.ToString & " bottles of beer on the wall")
Next lyrics
MsgBox("finish")
End Sub
End Class



User is offlineProfile CardPM
+Quote Post

Bort
RE: Its Vb.net
22 Oct, 2008 - 02:25 AM
Post #6

D.I.C Regular
Group Icon

Joined: 18 Sep, 2006
Posts: 418



Thanked: 4 times
Dream Kudos: 350
My Contributions
Yes. Well quoted.

Is it working yet?
User is online!Profile CardPM
+Quote Post

jetjet
RE: Its Vb.net
22 Oct, 2008 - 04:01 AM
Post #7

New D.I.C Head
*

Joined: 11 Oct, 2008
Posts: 9

QUOTE(Bort @ 22 Oct, 2008 - 03:25 AM) *

Yes. Well quoted.

Is it working yet?



Hi Bort,

Thanks its working but the last two is "2 bottles of beer......until "0 bottles......how to do it?

jetjet
User is offlineProfile CardPM
+Quote Post

Fast ReplyReply to this topicStart new topic
Time is now: 12/2/08 04:05AM

Live VB.NET Help!

VB.NET Tutorials

Reference Sheets

VB.NET Snippets

DIC Chatroom

Bye Bye Ads

Monthly Drawing

Thumb Drive

Top Contributors

Top 10 Kudos This Month