GuildWars Partypunke & Preisrechner
Funktion:
+ Zusammenrechnung gewünschter Partypunkte
+ Preisausrechnung bei Punktepreis nach Wahl
Beschreibung:
[Only registered and activated users can see links. Click Here To Register...]
Hey,
wollte euch meinen kleinen Partypunkerechner vorstellen ;)
Naja viel beschreiben kann man ja nicht...
Probiert ihn einfach mal aus mir hat er schon gut geholfen.
Das Programm wurde mit Visual Basic erstellt.
Download im Anhang !
LG und Viel Spaß Riggo95
Funktion:
+ Zusammenrechnung gewünschter Partypunkte
+ Preisausrechnung bei Punktepreis nach Wahl
Beschreibung:
[Only registered and activated users can see links. Click Here To Register...]
Hey,
wollte euch meinen kleinen Partypunkerechner vorstellen ;)
Naja viel beschreiben kann man ja nicht...
Probiert ihn einfach mal aus mir hat er schon gut geholfen.
Das Programm wurde mit Visual Basic erstellt.
Download im Anhang !
LG und Viel Spaß Riggo95
Code:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or TextBox7.Text = "" Or TextBox8.Text = "" Or TextBox9.Text = "" Or TextBox10.Text = "" Or TextBox11.Text = "" Or TextBox12.Text = "" Or TextBox13.Text = "" Or TextBox14.Text = "" Or TextBox15.Text = "" Or TextBox16.Text = "" Or TextBox17.Text = "" Or TextBox18.Text = "" Or TextBox19.Text = "" Or TextBox20.Text = "" Or TextBox21.Text = "" Or TextBox22.Text = "" Or TextBox23.Text = "" Or TextBox24.Text = "" Or TextBox25.Text = "" Or TextBox26.Text = "" Or TextBox29.Text = "" Or TextBox30.Text = "" Then
MsgBox("Bitte Fülle alle Felder aus! Bei keinem Item bitte 0 Einsetzen.")
Else
TextBox27.Text = ((TextBox1.Text * 1) + (TextBox2.Text * 1) + (TextBox3.Text * 1) + (TextBox4.Text * 1) + (TextBox5.Text * 1) + (TextBox6.Text * 1) + (TextBox7.Text * 2) + (TextBox8.Text * 2) + (TextBox9.Text * 2) + (TextBox10.Text * 2) + (TextBox11.Text * 2) + (TextBox12.Text * 2) + (TextBox13.Text * 2) + (TextBox14.Text * 2) + (TextBox15.Text * 2) + (TextBox16.Text * 2) + (TextBox17.Text * 2) + (TextBox18.Text * 2) + (TextBox19.Text * 2) + (TextBox20.Text * 2) + (TextBox21.Text * 2) + (TextBox22.Text * 2) + (TextBox23.Text * 3) + (TextBox24.Text * 3) + (TextBox25.Text * 5) + (TextBox26.Text * 7) + (TextBox30.Text * 50))
TextBox28.Text = TextBox29.Text * (TextBox27.Text)
End If
End Sub
End Class
[Only registered and activated users can see links. Click Here To Register...]
[Only registered and activated users can see links. Click Here To Register...]
ThX ;)
