Visual Basic Forum

Visual Basic Forum
für VB6 und VB.NET Programmierer
  		Jappy Chat startenChat   RegistrierenRegistrieren  LoginLogin

Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Projekte
Autor
Nachricht
Smallr.
Newbie
Newbie


Anmeldedatum: 06.02.2010
Beiträge: 6
Zensurrechner
Verfasst am: 08.02.2010, 16:39
Hab auch so einen Rechner bloß, dass der Zensuren berechnet und nicht funktioniert könnte mir bitte einer helfen.
Code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Integer
        Dim b As Integer
        Dim c As String
        Dim d As String
        d = (a / b) * 100
        If (d > 95 = True) Then
            c = "1"
        End If
        If (d > 80 = True) Then
            c = "2"
        End If
        If (d > 65 = True) Then
            c = "3"
        End If
        If (d > 45 = True) Then
            c = "4"
        End If
        If (d > 25 = True) Then
            c = "5"
        End If
        If (d < 25 = True) Then
            c = "6"
        End If
    End Sub
End Class

_________________
 
Smallr.
Newbie
Newbie

Anmeldedatum: 06.02.2010
Beiträge: 6
Hilfe
Verfasst am: 09.02.2010, 07:32
habs jetzt etwas gekürzt aber funkt immer noch nich! hilfe!!!!
Code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Double = CInt(TextBox1.Text)
        Dim b As Double = CInt(TextBox2.Text)
        Dim Label2 As String
        Dim Label3 As String

        Label3 = (a / b) * 100

        If (Label3 > 95 = True) Then
            Label2 = "1"
        ElseIf (Label3 > 80 = True) Then
            Label2 = "2"
        ElseIf (Label3 > 65 = True) Then
            Label2 = "3"
        ElseIf (Label3 > 45 = True) Then
            Label2 = "4"
        ElseIf (Label3 > 25 = True) Then
            Label2 = "5"
        ElseIf (Label3 < 25 = True) Then
            Label2 = "6"
        End If
    End Sub
End Class

Confused Confused Confused Confused Confused Confused Confused Confused Confused Confused Confused Confused Confused Confused
 
christopher.g
Poster
Poster

Anmeldedatum: 03.05.2008
Beiträge: 174

Verfasst am: 09.02.2010, 08:39
hi
na du musst schon dazu sagen was denn nicht funktioniert

oder passiert ganz einfach nix?!
das wird dann wohl daran liegen dass du das ergebnis nirgendwo ausgibst Wink

hänge mal unten dran
MessageBox.Show(label2)

lg
 
Smallr.
Newbie
Newbie

Anmeldedatum: 06.02.2010
Beiträge: 6
Hmmm
Verfasst am: 09.02.2010, 17:13
Danke erstmal, es funkt, aber ich möchte auch das der User seine zensur im label und seine zensur im label sehen kann. Sad
 
Smallr.
Newbie
Newbie


Anmeldedatum: 06.02.2010
Beiträge: 6

Verfasst am: 09.02.2010, 17:14
wie kann ich außerdem die darstellung in der msgbox ändern
_________________
 
Smallr.
Newbie
Newbie

Anmeldedatum: 06.02.2010
Beiträge: 6

Verfasst am: 15.02.2010, 19:52

Hab hinbekommen auch ohne deine hilfe und ohne msgBox
Code:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Double = CInt(TextBox1.Text)
        Dim b As Double = CInt(TextBox2.Text)
        Label3.Text = (a / b) * 100

        If (Label3.Text > 95 = True) Then
            Label2.Text = "1"
        ElseIf (Label3.Text > 80 = True) Then
            Label2.Text = "2"
        ElseIf (Label3.Text > 65 = True) Then
            Label2.Text = "3"
        ElseIf (Label3.Text > 45 = True) Then
            Label2.Text = "4"
        ElseIf (Label3.Text > 25 = True) Then
            Label2.Text = "5"
        ElseIf (Label3.Text < 25 = True) Then
            Label2.Text = "6"
        End If
    End Sub
End Class
Very Happy Very Happy Very Happy Very Happy
 
Neues Thema eröffnen   Neue Antwort erstellen    Visual Basic Forum Foren-Übersicht -> [VB6] Projekte
 


 Verwandte Themen   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge [Frage] Ich bekomme einen Fehler das "End if" fehlt obwohl e 392 14.09.2008, 15:33
Keine neuen Beiträge Komponenten registrieren mit Sub Main 679 21.05.2008, 09:28
Keine neuen Beiträge 753 09.03.2010, 20:41
Keine neuen Beiträge sub bedingt aufrufen 305 13.05.2008, 07:12
Keine neuen Beiträge [Text] Komponenten registrieren mit Sub Main 1055 26.04.2008, 12:45
Keine neuen Beiträge Melt sub / anti sandboxie usw 709 14.04.2008, 17:39
 




[ Time: 0.6252s ][ Queries: 102 (0.1826s) ][ GZIP on - Debug on ]