[VB] Leichtes Prog

[Kevinski92]

Könnte mir jemand ein Programm in VB 2008 Coden damit ich mir die Source angucken könnte und dadurch was dazu lerne. Das Programm ist ansich nicht schwer und iwie klemmt es bei mir mach irgendwo einen Fehler.
Zum Programm
Es ist so eine Art Kassier Programm.

Ausgabedaten: Preis, Gesamtpreis, freie Plätze
Eingabedaten: Personenanzahl
Rechenschritte: Wenn Personenzahl < 10 dann Preis = Personenzahl * 10 Sonst Preis Personenzahl * 8
Gesamtbetrag = 0
Freie Plätze = 250
Gesamtbetrag = Gesamtbetrag + Preis
Freie Plätze = Freie Plätze - Personenzahl

Buttons= Rechnen, Neu, Ende
Ok wäre Dankbar wenn einer lust hat sowas eben zu schreiben.
Pls simpel halten damit ich das noch verstehe.
Fragen pls hier im Thread stellen.

mfg Kevinski92 btw 100ter post

[no swear_^]

Du kannst uns auch deinen Source hier posten wenn du sagst, dass es bei dir klemmt. Das macht uns viel weniger Arbeit

[Kevinski92]

Naja hab jetzt nur versucht die Rechnung hinzubekommen klappt aber net.
Bin ziemlich noob da drin. Hier die Source das mit DIM und so kapier ich net.

Public Class Form1

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMDEnde.Click
        End
    End Sub
    Dim Personen As Integer
    Dim Preis As Integer
    Dim Gesamt As Integer
    Dim Plaetze As Integer
    Private Sub CMDRechnen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CMDRechnen.Click
        Personen = Val(BSFLPersonen.Text)
        Preis = Val(TFPreis.Text)
        Gesamt = Val(TFGesamt.Text)
        Plaetze = Val(TFPlaetze.Text)

        If Personen < 10 Then
            Preis = Personen * 10
        Else : Preis = Personen * 8

        End If
        Gesamt = Gesamt - Preis
        Plaetze = Plaetze - Personen
    End Sub
End Class

Wär cool wenn mir das einer schreiben könnte damit ich selber gucken kann wo die Fehler liegen.
MFG Kevinski92

[Charles Montgomery Burns]

so habs mal für dich gemacht, hier der Quellcode:

Public Class Form1

Private Sub bnRechnen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnRechnen.Click

If PersonenZahl.Text < 10 Then
lbAusgeben.Text = PersonenZahl.Text * 10
Else
lbAusgeben.Text = PersonenZahl.Text * 8
End If
FreiePlaetze.Text = 250 - PersonenZahl.Text

If PersonenZahl.Text < 10 Then
EinzelPreis.Text = 10
Else
EinzelPreis.Text = 8
End If


End Sub
End Class


Und hier das dazugehörige Programm, ich hoffe ich konnte dir helfen.

http://rapidshare.com/files/147410489/Rechner.exe.html

btw: 1. Post^^