VB 6

[jayrajtv]

I can help in VB 6 if anyone needs help

[turnmillforum]

hahaha good old visual basic, i remember the days when my teacher taught us this stuff in computer class, man that was highly boreing hahaha

[j4f]

Our teacher has been giving us so much work for VBasic!
i was asked to do loops and check em on VB can some1 check it for me plz

i need it by tomoz plz..

do while
========
-----------------------
Private Sub Command2_Click()
Dim i As Integer

Do While i < 100
i = i + 1
Loop


lbl1.Caption = i

End Sub
----------------------------

can i also write the code in the following manner?

------------------------
Private Sub Command3_Click()
Dim i As Integer



Do
i = i + 1
Loop While i < 100


lbl1.Caption = i

End Sub
--------------------------------


please let me know cuz i got even more

[j4f]

this is the Visual basics code
please let me know if its correct


==================


-------------------------------
Private Sub Command4_Click()
If txt1.Text = 1 Then
lbl1.Caption = "You Typed Choice 1"
Else
If txt1.Text = 2 Then
lbl1.Caption = "You Typed Choice 2"
Else
If txt1.Text = 3 Then
lbl1.Caption = "You Typed Choice 3"
Else
If txt1.Text > 3 Then
lbl1.Caption = "This choice is not available! Make ur choice from 1 to 3 ONLY!!"
End If
End If
End If
End If

End Sub
---------------------------------------

[j4f]

another part of my assessment was to do a do until loop, that was same as the do while i think, correct me if im wrong plz.

code:
--------------------------------
Private Sub Command1_Click()
Dim i As Integer


Do Until i = 10
i = i + 1
Loop


lbl1.Caption = i



End Sub
--------------------

[shamseers]

You Can write code as below you can use simply txt in place of txt.text
If u want to convert it as number you must use type conversion like val()

Private Sub Command4_Click()
If txt1 = "1" Then lbl1.Caption = "You Typed Choice 1"
If txt1= "2" Then lbl1.Caption = "You Typed Choice 2"
If txt1= "3" Then lbl1.Caption = "You Typed Choice 3"
If val(txt1) > 3 Then lbl1.Caption = "This choice is not available! Make ur choice from 1 to 3 ONLY!!"

[kunlanit]

Select Case txt1.Text
Case "1"
lbl1.caption="You Typed Choice 1"
Case "2"
lbl1.caption="You Typed Choice 2"
case "3"
lbl1.caption="You Typed Choice 3"
Else Case
lbl1.Caption = "This choice is not available! Make ur choice from 1 to 3 ONLY!!"
End Select

[ctinter]

i don't know

Private Sub Command1_Click()
List1.AddItem (Text1.Text)
End Sub

[ctinter]

Private Sub Command1_Click()
Do While i <= 10
List1.AddItem (i)
i = i + 1
Loop
End Sub

[ctinter]

Private Sub Text1_Change()
Label1.Caption = Text1.Text
End Sub