ERLEDIGT
NEIN
NEIN
ANTWORTEN
6
6
ZUGRIFFE
1141
1141
EMPFEHLEN
-
hi,
ich möchte ein miniprog. machen, dass zahlen
aus zwei textfeldern addiert und das ergebniss
sofort in einem zweiten textfeld ausgibt.
aber schon beim deklarieren der variablen bekomm
ich die fehlermeldung, "fehler beim komilieren:
das mitglied ist bereits in einem objektmodul
vorhanden, von dem dieses objektmodul abgeleitet wird".
der "code"
sieht so aus,
Dim eingabe1 As String
Dim eingabe2 As String
Dim ausgabe As String
Private Sub ausgabe_Change()
ausgabe = CDbl(eingabe1) + CDbl(eingabe2)
End Sub
sieht jemand den fehler?
braucht euch,
sid
-
07.07.02 15:35 #2
- Registriert seit
- Nov 2001
- Ort
- Gießen
- Beiträge
- 4.091
deine textboxen heissen wahrscheinlich "eingabe1", "eingabe2" und "ausgabe", oder? du darfst in einem formular keine variablen genau so benennen, wie steuerelemente."fehler beim komilieren:
das mitglied ist bereits in einem objektmodul
vorhanden, von dem dieses objektmodul abgeleitet wird".
das versteh ich nicht so ganz. wenn der inhalt vom textfeld ausgabe geändert wird, berechnest du das ergebnis?Private Sub ausgabe_Change()
ausgabe = CDbl(eingabe1) + CDbl(eingabe2)
End Sub"You could say that I was too lazy to calculate and so I invented the computer." -- Konrad Zuse
-
Private Sub ausgabe_Change()
ausgabe = CDbl(eingabe1) + CDbl(eingabe2)
End Sub
ja, das darf wahrscheinlich nicht so aussehen.
naja, ich hab mich heute mal durchgerungen die ersten
VB-schritte zu machen. deswegen fehlt wohl jede art von
plan.
-
gibts vielleicht n irc-chan für VB-****s?
-
07.07.02 15:56 #5
- Registriert seit
- Nov 2001
- Ort
- Gießen
- Beiträge
- 4.091
starte mal ein neues projekt und leg 3 textfelder und einen
commandbutton auf das formular.
die name-eigenschaft der controls lässt du einfach mal gleich. mach
einen doppelklick auf den commandbutton, dann kommst du im
codefenster sofort in die ereignis-prozedur für das klicken von dem
button. da schreibst du folgenden code rein:
Code :1 2 3 4 5 6 7 8 9 10
Private Sub Command1_Click() Dim Ergebnis As Long If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) Then Ergebnis = CLng(Text1.Text) + CLng(Text2.Text) Text3.Text = CStr(Ergebnis) End If End Sub
"You could say that I was too lazy to calculate and so I invented the computer." -- Konrad Zuse
-
07.07.02 16:02 #6
- Registriert seit
- Nov 2001
- Ort
- Gießen
- Beiträge
- 4.091
einen irc-channel kenn ich jetzt gerade zwar nicht, aber wenn du hilfe brauchst, kannst du mich ja mal im icq anlabern. oder hier posten.
"You could say that I was too lazy to calculate and so I invented the computer." -- Konrad Zuse
-
danke,
der hinweis, dass variablen nicht
wie felder heissen dürfen hatt mir
geholfen, den rest hab ich hier,
http://www.vb-buddelkiste.de/einsteiger/kapitel2.htm
gefunden.
nochmal danke,
sid
Ähnliche Themen
-
**** Frage
Von DarkAngel im Forum Flash PlattformAntworten: 6Letzter Beitrag: 20.10.02, 15:52 -
Spline (****) Frage
Von Fat im Forum 3D Studio MaxAntworten: 3Letzter Beitrag: 27.08.02, 23:32 -
**** frage wg textwerkzeug
Von Script Kiddie im Forum PhotoshopAntworten: 5Letzter Beitrag: 16.08.02, 15:00 -
**** frage
Von Fox im Forum Cinema 4DAntworten: 3Letzter Beitrag: 12.07.02, 22:33 -
**** Frage
Von Amr0d im Forum 3D Studio MaxAntworten: 2Letzter Beitrag: 26.04.02, 19:30





Zitieren
Login





