Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Console.WriteLine("Voer een nummer in:")
Console.Write(">")
Dim Number As Integer = Console.ReadLine
Console.WriteLine(VbCrLf & VbCrLf & F_NUM(Number))
Function F_NUM(nr As Integer) As String
Dim deka2r As String
Select Case nr
Case Is >= 889: deka2r = "M" & deka2r(nr - 1000)
Case Is >= 389: deka2r = "D" & deka2r(nr - 500)
Case Is >= 89: deka2r = "C" & deka2r(nr - 100)
Case Is >= 39: deka2r = "L" & deka2r(nr - 50)
Case Is >= 9: deka2r = "X" & deka2r(nr - 10)
Case Is >= 4: deka2r = "V" & deka2r(nr - 5)
Case Is >= 1: deka2r = "I" & deka2r(nr - 1)
Case Is <= -889: deka2r = "M" & deka2r(nr + 1000)
Case Is <= -389: deka2r = "D" & deka2r(nr + 500)
Case Is <= -89: deka2r = "C" & deka2r(nr + 100)
Case Is <= -39: deka2r = "L" & deka2r(nr + 50)
Case Is <= -9: deka2r = "X" & deka2r(nr + 10)
Case Is <= -4: deka2r = "V" & deka2r(nr + 5)
Case Is <= -1: deka2r = "I" & deka2r(nr + 1)
End Select
Return deka2r
End Function
Dit had je er zelf ook wel uit kunnen halen, maargoed:
Code:Console.WriteLine("Voer een nummer in:") Console.Write(">") Dim Number As Integer = Console.ReadLine Console.WriteLine(VbCrLf & VbCrLf & F_NUM(Number)) Function F_NUM(nr As Integer) As String Dim deka2r As String Select Case nr Case Is >= 889: deka2r = "M" & deka2r(nr - 1000) Case Is >= 389: deka2r = "D" & deka2r(nr - 500) Case Is >= 89: deka2r = "C" & deka2r(nr - 100) Case Is >= 39: deka2r = "L" & deka2r(nr - 50) Case Is >= 9: deka2r = "X" & deka2r(nr - 10) Case Is >= 4: deka2r = "V" & deka2r(nr - 5) Case Is >= 1: deka2r = "I" & deka2r(nr - 1) Case Is <= -889: deka2r = "M" & deka2r(nr + 1000) Case Is <= -389: deka2r = "D" & deka2r(nr + 500) Case Is <= -89: deka2r = "C" & deka2r(nr + 100) Case Is <= -39: deka2r = "L" & deka2r(nr + 50) Case Is <= -9: deka2r = "X" & deka2r(nr + 10) Case Is <= -4: deka2r = "V" & deka2r(nr + 5) Case Is <= -1: deka2r = "I" & deka2r(nr + 1) End Select Return deka2r End Function
Zoiets, ik heb momenteel geen compiler bij de hand.
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.