hey,
ich habe ein Problem. Ich versuche ein Program zu programieren was sich bruttochenlohn nennt.
jetzt möchte ich dort eine konstante eingeben damit das ergebniss niemals negativ oder kleiner als 375 sein kann sondern eine fehlermeldung kommt.
vieleicht könnt ihr ja mal drüber schaun und findet auch den Fehler.
vielen dank schon mal.
Module Module1
Sub Main()
Dim username As String
Dim arbeitszeit, bruttowochenlohn, überstunden, überstundenlohn, grundlohn As Double
Console.Write("Geben Sie bitte Ihren Namen ein! ")
username = Console.ReadLine
Console.Write("Hallo " & username & ",")
Console.WriteLine("dieses Program berechnet Ihren Bruttowochenlohn!")
Console.Write("Arbeitszeit eingeben: ")
arbeitszeit = Console.ReadLine()
Const NORMALARBEITSZEIT As Double = 37.5
grundlohn = NORMALARBEITSZEIT \* 10
überstunden = arbeitszeit - NORMALARBEITSZEIT
überstundenlohn = 13 \* überstunden
bruttowochenlohn = grundlohn + überstundenlohn
Console.WriteLine("Der Bruttowochenlohn beträgt: " & bruttowochenlohn)
Console.Read()
End Sub
End Module
[MOD] - Pre-Tag eingefügt