Print Befehl bei VB Verfasst am: 07.02.2011, 21:14
Ich Hab ne Frage
ich hab einen einfachen Euro Dollar Umrechner Geschrieben und weiß nicht wie ich den Print Befehl Formulieren soll
Sry bin anfänger bitte erklären
der code ist:
Dim BetragEuro As Long
Dim BetragDollar As Long
Sub Rechnen()
Private Sub CommandButton1_Click()
Rechnen
End Sub
Private Sub CommandButton2_Click()
Unload
End Sub
Private Sub Label5()
End Sub
PS: is mein Erstes Programm
christopher.g Überflieger
Anmeldedatum: 03.05.2008 Beiträge: 565
Verfasst am: 08.02.2011, 15:51
hi
da hast du als anfänger schon sehr schnell verstanden dass man eigene subs verwenden kann...
ich würde dir aber empfehlen dafür eine funktion zu schreiben...
die ist einfacher zu verstehen und kann acuh einfacher angewendet werden
beispiel:
Code:
Private Function Eur2US(ByVal Euro As Double, Optional Wechselkurs As Double = 1.35) As Double
'in der ersten zeile hast du alle variablen definiert die du brauchst
'Euro, Wechselkurs und Eur2US
'Optional Wechselkurs = 1.35 hat den grund ...
'wennn du beim aufruf der funktion keinen wechselkurs angibst wird 1,35 angenommen
'kannst ja auch weglöschen :) macht aber eine funktion umfangreicher und angenehmer wenn sich der wechselkurs ändert
If IsNumeric(Euro) Then
Eur2US = Euro * Wechselkurs
End If
End Function
fuktions aufruf:
Code:
msgbox Eur2US (4)
'oder
msgbox Eur2US (4, 1.37) 'du siehst hier hast du einen wechselkurs angegeben
'du kannst das ergebnis aber auch in ein label ausgeben lassen
Label5.Caption = Eur2US (3)
'oder von der Prinfunktion von der du geredet hast
Registrieren
Login
