[kschmidt]

I need to make a code that just simple loops and prints on the input.you will put the speed your going and than the time .
Vehicle speed 40 MPH
Time Traveled 3 hours
prints the total hours
Hours Distance traveled.but nothing is workingd. does anybody have an idea?

        Dim TravelTime As Integer
        Dim VehicleSpeed As Integer
        Dim Miles As Integer

        VehicleSpeed = InputBox("Enter Speed:", "Enter Speed", "55")
        TravelTime = InputBox("Enter Time Traveled:")
        Miles = VehicleSpeed * TravelTime


        Print("Vehicle Speed: " & VehicleSpeed & " MPH")
        Print("Time Traveled: " & TravelTime & " hours")
        Print("Hour  Distance Traveled")
        Print("-------------------------------------")

        For i = 1 To TravelTime

            Print(" " & i & " " & i * VehicleSpeed)

        Next i

        Print("Total Distance: " & Miles)

Mod Edit: Please use code tags when posting your code. Code tags are used like so =>

Thanks,
PsychoCoder

[brds]

If you want to output to a list box try listboxname.additem("Some TXT") instead of Print("Some TXT");

[kschmidt]

brds, on 4 Nov, 2008 - 01:40 PM, said:

If you want to output to a list box try listboxname.additem("Some TXT") instead of Print("Some TXT");

I changed code but still not printing??

[thava]

in which language vb or vb.net if vb then brds is right

[kschmidt]

thava, on 5 Nov, 2008 - 09:42 PM, said:

in which language vb or vb.net if vb then brds is right

Hi,
Like I said I am new to Visual Basic I dont know what brds is
please lat me know thanks

[thava]

what is the name of the listbox ?,use that

ok
let us consider the listbox name is samplelist

then add the coding like this instead of print use samplelist.additem

   
samplelist.additem ("Vehicle Speed: " & VehicleSpeed & " MPH")  
samplelist.additem ("Time Traveled: " & TravelTime & " hours")  
samplelist.additem ("Hour  Distance Traveled")  
samplelist.additem ("-------------------------------------")  
   
 For i = 1 To TravelTime  
   
     samplelist.additem (" " & i & " " & i * VehicleSpeed)  
   
 Next i  
   
samplelist.additem ("Total Distance: " & Miles)  

This post has been edited by thava: 06 November 2008 - 07:22 AM

[kschmidt]

I changed my code but it is still not working . List ist not declared?

 Dim TravelTime As Integer
        Dim VehicleSpeed As Integer
        Dim Hours As Integer
        Dim miles As Integer


        VehicleSpeed = InputBox("Enter Speed:")
        TravelTime = InputBox("Enter Time Traveled:")
        Hours = VehicleSpeed * TravelTime
        

        
        List.additem("Vehicle Speed: " & VehicleSpeed & " MPH")
        List.additem("Time Traveled: " & TravelTime & " hours")
        List.additem("Hour  Distance Traveled")
        List.additem("-------------------------------------")

        For i = 1 To TravelTime

            List.additem(" " & i & " " & i * VehicleSpeed)

        Next i

        List.additem("Total Distance: " & miles)

[PsychoCoder]

What is the name of your ListBox, this is saying that the name you provided isn't declared, meaning you have the name incorrect

[kschmidt]

PsychoCoder, on 6 Nov, 2008 - 08:04 AM, said:

What is the name of your ListBox, this is saying that the name you provided isn't declared, meaning you have the name incorrect

Thanks everybody I got it

[PsychoCoder]

Glad we could walk you down the path to your solution (though thava was more helpful)