Sub Globals
Quelle = ""
Gewicht = ""
Karat = ""
Ankauf = ""
GewichtWert = ""
KaratWert = ""
AnkaufWert = ""
Ergebnis = ""
End Sub
'------------------------------------------------------
Sub Goldankauf_Show
Karat.SelectedIndex = 0
Gewicht_GotFocus
For i=0 To 9
AddEvent ("ButtonPanel0" & i, Click, "Tastatur")
Next
AddEvent ("ButtonPanelKomma", Click, "Tastatur")
AddEvent ("ButtonPanelBackspace", Click, "Tastatur")
End Sub
'------------------------------------------------------
' Die Tausenderpunkte und Kommas in ein deutsches Format konvertieren
'------------------------------------------------------
Sub Konvertieren(Zahl,Dezimalstellen)
Zahl = Format(Zahl,"N"&Dezimalstellen)
x = StrReplace(Zahl,".","!") ' ändert vorläufig die Punkte
x = StrReplace(x,",",".") ' tauscht Kommas in Punkte aus
x = StrReplace(x,"!",",") ' tauscht Punkte in Kommas aus
Return x
End Sub
'------------------------------------------------------
Sub ButtonErgebnisBerechnen_Click
Sound ("SoundKasse.wav")
If IsNumber(Gewicht.Text) = False Then
Msgbox ("Bitte im Betrag nur ZAHLEN eingeben.")
Ankauf.Text = "???"
Gewicht.Text = "???"
Else
Ergebnis = (GewichtWert * AnkaufWert) '* KaratWert) '(Karatwert/1000))
LabelErgebnis.Text = Konvertieren(Ergebnis,2)&" "& "EUR"
End If
End Sub
'------------------------------------------------------
' Feld leeren, wenn auf in das Feld "Gewicht" geklickt wird
'------------------------------------------------------
Sub Gewicht_GotFocus
Gewicht.Text = ""
GewichtWert = ""
Quelle = "Gewicht"
End Sub
'------------------------------------------------------
' Feld leeren, wenn auf in das Feld "Ankauf" geklickt wird
'------------------------------------------------------
Sub Ankauf_GotFocus
Ankauf.Text = ""
AnkaufWert = ""
Quelle = "Ankauf"
End Sub
'------------------------------------------------------
' Wenn auf in das Feld "Internet" geklickt wird
'------------------------------------------------------
Sub ButtonInternet_Click
i = Msgbox ("Soll ich den aktuellen Goldkurs aus dem Internet holen?", " Hinweis", cMsgboxYesNo, cMsgboxQuestion)
If i = cYes Then
Msgbox ("Diese Funktion steht momentan nicht zur Verfügung.", " Hinweis", cMsgboxOK, cMsgboxExclamation)
Else
End If
End Sub
'------------------------------------------------------
Sub Tastatur
Select Sender
Case "buttonpanelkomma"
Select Quelle
Case "Gewicht"
Gewicht.Text=Gewicht.Text&","
GewichtWert=GewichtWert&"."
' Case "Karat"
' Karat=Karat&","
' Karat=Karat&"."
Case "Ankauf"
Ankauf.Text=Ankauf.Text&","
AnkaufWert=AnkaufWert&"."
End Select
Case "buttonpanelbackspace"
Select Quelle
Case "Gewicht"
Gewicht.Text=SubString(Gewicht.Text,0,StrLength(Gewicht.Text)-1)
GewichtWert=SubString(GewichtWert,0,StrLength(GewichtWert)-1)
' Case "Karat"
' Karat=SubString(Karat,0,StrLength(Karat)-1)
' Karat=SubString(Karat,0,StrLength(Karat)-1)
Case "Ankauf"
Ankauf.Text=SubString(Ankauf.Text,0,StrLength(Ankauf.Text)-1)
AnkaufWert=SubString(AnkaufWert,0,StrLength(AnkaufWert)-1)
End Select
Case Else
Select Quelle
Case "Gewicht"
Gewicht.Text=Gewicht.Text&StrAt(Sender,12)
GewichtWert=GewichtWert&StrAt(Sender,12)
Case "Karat"
Karat.SelectedIndex=Karat.SelectedIndex&StrAt(Sender,12)
KaratWert=KaratWert&StrAt(Sender,12)
Case "Ankauf"
Ankauf.Text=Ankauf.Text&StrAt(Sender,12)
AnkaufWert=AnkaufWert&StrAt(Sender,12)
End Select
End Select
End Sub
'------------------------------------------------------