Extremely N00b VB query

[DJT]

Ok, I haven't done VB in ages and it shows.
I am making a prog that will generate numbers and then depending on what that number is, show a word. I'm not going to say what the prog is just yet, but I need help

Don't flame me for stupidity, I aint a programmer

Code: Select all

Private Sub Command1_Click()
lblC1.Caption = Int(Rnd * 54)
lblC2.Caption = Int(Rnd * 54)
lblC3.Caption = Int(Rnd * 5)

If lblC1.Caption = 0 Then
lbl1.Caption = "Temporary"

End Sub

I get a compile error. Block if without End if

Someone care to show me what a noob I am being and fix it please?

[DJT]

Ah FFS!

Found it, I tried adding End If to the end, but didn't like it, so i stuck it underneath and it works.

Thanks anyways

[Hex_Rated]

Code: Select all

Private Sub Command1_Click()
lblC1.Caption = Int(Rnd * 54)
lblC2.Caption = Int(Rnd * 54)
lblC3.Caption = Int(Rnd * 5)

If lblC1.Caption = 0 Then _ 
lbl1.Caption = "Temporary"

End Sub

[PaperCut]

Code: Select all

Private Sub Command1_Click()
lblC1.Caption = Int(Rnd * 54)
lblC2.Caption = Int(Rnd * 54)
lblC3.Caption = Int(Rnd * 5)

If lblC1.Caption = 0 Then _ 
lbl1.Caption = "Temporary"

End Sub

FAIL!
You need an 'End If' for every 'If'... otherwise...

I get a compile error. Block if without End if

[DJT]

Code: Select all

Private Sub Command1_Click()
lblC1.Caption = Int(Rnd * 54)
lblC2.Caption = Int(Rnd * 54)
lblC3.Caption = Int(Rnd * 5)

If lblC1.Caption = 0 Then _ 
lbl1.Caption = "Temporary"

End Sub

FAIL!
You need an 'End If' for every 'If'... otherwise...

I get a compile error. Block if without End if

Lol, thanks for trying tho. I figured it out and all 150 numbers have been programmed in. Now to beautify it, and then if you lucky, I will show you all tomorrow

[GrimStoner]

I'm guessing you're not only gonna replace the 0's with "Temporary", but all the numbers with different words. So (if your words aren't coming from a data source), make an array, populate it, and use the random number to select one of the array elements, i.e.

Code: Select all

Private Sub Button1_Click()

        'Declare array
        Dim Words(9) As String

        'TODO: Populate Array here
        Words(0) = "Temporary"
        Words(1) = "Test"
        '...

        'Generate 3 random no's
        Dim RandomInt1, RandomInt2, RandomInt3 As Integer

        RandomInt1 = CInt(Rnd() * 10)
        RandomInt2 = CInt(Rnd() * 10)
        RandomInt3 = CInt(Rnd() * 10)

        'Set the label captions
        lblC1.caption = Words(RandomInt1)
        lblC2.caption = Words(RandomInt1)
        lblC3.caption = Words(RandomInt1)

        'etc.

    End Sub

Seems... mendokse though. Explain better what you wanna do.

[GrimStoner]

Code: Select all

Private Sub Command1_Click()
lblC1.Caption = Int(Rnd * 54)
lblC2.Caption = Int(Rnd * 54)
lblC3.Caption = Int(Rnd * 5)

If lblC1.Caption = 0 Then _ 
lbl1.Caption = "Temporary"

End Sub

FAIL!
You need an 'End If' for every 'If'... otherwise...

I get a compile error. Block if without End if

Um... the _ at the end of the If line is a line continuation character. Don't need an Endif if it isn't in a block.

So, FAIL.

[Hex_Rated]

LOL

Failing at failing.

[Zana]

btw , where did VB script originate from?
p.s just passing through and observing... me not a VB gal...lol though i did do some of it in 2002 but lil rusty...