kompasnaald, Visual Basic

kompasnaald

'Rextester.Program.Main is the entry point for your code. Don't change it.
'Compiler version 11.0.50709.17929 for Microsoft (R) .NET Framework 4.5

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text.RegularExpressions

Namespace Rextester
    Public Module Program
        Public Sub Main(args() As string)  
               
        'declaraties
        
        Dim HeadingActueel, HeadingNieuw, HeadingVerschil as integer
        Dim DraaiRichting as String 
                
        'processing
        
        HeadingActueel = Console.ReadLine() 'Hier wordt de huidige heading opgevraagd
        HeadingNieuw = Console.Readline()   'Hier wordt de nieuwe heading opgevraagd
       
        HeadingVerschil = HeadingNieuw - HeadingActueel
        
        If HeadingVerschil > 180 Then
           
           HeadingVerschil = HeadingVerschil - 360        
        
           Else 
                 If HeadingVerschil < -180 Then
                
                    HeadingVerschil = HeadingVerschil + 360
             
                 End If
        
        End If
        
        If HeadingVerschil < 0 Then
        
                DraaiRichting = "Linksom"
       
           Else DraaiRichting = "Rechtsom"
        
        End If    
        
        'Output
        
        Console.WriteLine("Actuele Heading: " & HeadingActueel)
        Console.WriteLine("Nieuwe Heading : " & HeadingNieuw)
        Console.Writeline("Verschil       : " & Math.Abs(HeadingVerschil))
        Console.WriteLine("DraaiRichting  : " & DraaiRichting)
                    
        End Sub
        
    End Module
    
End Namespace


run \| edit \| history \| help	0

λ

                                      .NET NoSQL database for rapid development