Visual Basic

DJHJr wrote:

table, relational

answer = Console.ReadLine() 

Module Module1

Dim distance As Decimal = 0
Dim answer As String = nothing
 

Sub Main()
   Console.WriteLine("Do you want to convert miles or kilometers? (M or K)")
   answer = Console.ReadLine()

   Console.WriteLine("What is the distance?")
   distance = Console.ReadLine()

   If answer = "M" Then
      Console.WriteLine("The converted value is: " convertToKM(distance))
   Else
      Console.WriteLine("The converted value is: " & converToML(distance))
   End If
 
   Console.ReadLine()
End Sub
 
Function convertToKM(distance) As Decimal
   Dim km as Decimal = 0

   km = distance / 0.62137
   Return km
End Function
 
Function convertToML(distance) As Decimal
   Dim ml as Decimal = 0

   ml = distance * 0.62137
   Return ml
End Function

End Module

Member 10568908 wrote:

If you could explain to me what happens exactly I would be very grateful.

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Eddy Vluggen wrote:

VB6 is not built for multithreading

Member 10568908 wrote:

But it's an event-driven language as I know.

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
   Debug.Print "Begin Command1"
   Sleep 5000
   'DoEvents 'Comment out to see what DoEvents does
   Debug.Print "End Command1"
End Sub

Private Sub Command2_Click()
   Debug.Print "Command2"
End Sub

Example: A VB6 application with 2 Command Buttons.

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
   Debug.Print "Begin Command1"
   Do
      c = c + 1
      Sleep 500
      DoEvents
   Loop Until c = 10
   Debug.Print "End Command1"
End Sub

Private Sub Command2_Click()
   Debug.Print "Begin Command2"
   Do
      c = c + 1
      Sleep 500
      DoEvents
   Loop Until c = 10
   Debug.Print "End Command2"   
End Sub