Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
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
Arraylist Order by string array or comma delitmited string in vb.NET
macro for msg box in outlook
number from base 10 to base 2
gf
CAI Visual Basic - Ej Elecciones
19 11 2019 exercicio 2 equaçao
CAI Visual Basic - Ej Recetas
valor maximo entre 3 numeros
VB.NET: Functions aren't required to return a value
Funksiya yaratish