[Musjunk22]

I'm just starting to learn VB6 with no other coding expierience and I need some help. I know this simple calcualtor I'm trying to make has been made and can be found on 100,000 websites but I wanted to see if Ic an make it.

Basically I have 3 labels (Kilobytes, Megabytes, Gigabytes), 3 text boxes (Named KB, MB, and GB) , and a command button. this is what the code looks like:

Private Sub Command1_Click()
If KB.Text = Int(KB.Text) Then (GB.Text = Val(KB.Text / 1048576) and (MB.Text = Val(KB.Text / 1024)
End If
If MB.Text = Int(MB.Text)
Then (KB.Text = Val(MB.Text * 1024) and (GB.Text = Val(MB.Text / 1024)
End If
If GB.Text = Int(GB.Text)
Then (MB.Text = Val(GB.Text * 1024) and (KB.Text = Val(GB.Text * 1048576)
End If
End Sub

I've tried 30 tutorials and I'm loosing patience what am I doing wrong? It won't work. I'm guessing it's something really stupid. oh and BTW how do you use the Cbyte(expression) command?

[Nyper]

I hate to just post code without explaining what you did wrong in yours, but yours simply makes no sense. (don't take offense to that!).

What I did below is to check and see if the first box (kb) was blank. If it wasn't blank, I did the calculations. If it was blank, then I checked the next box to see if it was blank. I used integer.parse out of habbit, and realize now integers aren't the correct thing to use. Sorry, but I'm in a hurry. Post again if you would like more explanation & help and I'll catch you again.

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If kb.Text <> "" Then      'If kb is not blank
            mb.Text = Integer.Parse(kb.Text) / 1024
            gb.Text = Integer.Parse(kb.Text) / 1048576

        ElseIf mb.Text <> "" Then  'if kb is blank and mb isn't
            kb.Text = Integer.Parse(mb.Text) * 1024
            gb.Text = Integer.Parse(mb.Text) * 1024

        ElseIf gb.Text <> "" Then  'if kb and mb are blank, but gb isn't
            kb.Text = Integer.Parse(gb.Text) / 1048576
            mb.Text = Integer.Parse(gb.Text) / 1024
        End If

    End Sub