Pascal Hofmann
Mitglied
Jedes Produkt hat jetzt einen Preis der oben rechts angezeigt wird,aber wie mache ich das jetzt dass unten in der textbox wo gesamt steht alles zusammengerechnet wird ?
Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Public Class Form1
Public Produkte As New ArrayList()
Public preis As Double
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Produkte.Add("Saft x;1,2")
Produkte.Add("Saft y;2,4")
Button1.Text = Split(Produkte(0).ToString, ";")(0)
Button2.Text = Split(Produkte(1).ToString, ";")(0)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
RichTextBox1.Text = RichTextBox1.Text & Button1.Text & vbCrLf
preis = preis + Split(Produkte(0), ";")(1)
' ich weiß jetzt nicht soo genau wie man ins EUR Format wechselt^^ gefaked geht's so denke ich
If preis < 10 Then
TextBox1.Text = preis.ToString("0.00") & ",- €"
Else
TextBox1.Text = preis.ToString("00.00") & ",- €"
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
RichTextBox1.Text = RichTextBox1.Text & Button2.Text & vbCrLf
preis = preis + Split(Produkte(1), ";")(1)
If preis < 10 Then
TextBox1.Text = preis.ToString("0.00") & ",- €"
Else
TextBox1.Text = preis.ToString("00.00") & ",- €"
End If
End Sub
End Class
class Getraenk
{
public string Name {get; set;}
public double Preis {get; set;}
}