Hallo, kann mir jemand erklären wie man ein Struktogramm macht ? hier mein Quellcode
Danke schonmal
~blaze~: Thema verschoben
Visual Basic-Quellcode
- Class MainWindow
- Dim Punkte, bestanden As Integer
- Private Sub button_Click(sender As Object, e As RoutedEventArgs) Handles button.Click
- Punkte = CInt(textBox.Text)
- Select Case Punkte
- Case 0 To 9
- label.Content = "ungenügend (6)"
- Case 10 To 29
- label.Content = "mangelhaft (5)"
- Case 30 To 49
- label.Content = "ausreichend (4)"
- Case 50 To 69
- label.Content = "befriedigend (3)"
- Case 70 To 89
- label.Content = "gut (2)"
- Case 90 To 100
- label.Content = "sehr gut (1)"
- End Select
- bestanden = CInt(textBox.Text)
- Select Case bestanden
- Case 50 To 100
- label1.Content = "bestanden"
- Case 0 To 49
- label1.Content = "durchgefallen"
- End Select
- End Sub
- Private Sub button1_Click(sender As Object, e As RoutedEventArgs) Handles button1.Click
- textBox.Text = "Geben Sie die Punktzahl ein."
- label.Content = ""
- label1.Content = ""
- End Sub
- End Class
Danke schonmal
~blaze~: Thema verschoben
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „~blaze~“ ()