Visual Basic Forum

White Window_ · Newbie Anmeldedatum: 16.10.2007 Beiträge: 10

Hey Leutz!

Also, ich wusste jetz nich ob das unter Fragen - und Antworten oder unter Sources sollte.
Sorry Wenn es falsch ist, dann bitte moven.

Also ich kenne mich noch nicht richtig mit den unterschiedlichen Datentypen aus.
Ich habe ein Programm gemacht, dass den Benzinverbrauch auf 100 Kilometer ausrechnet.
Es müssen die gefahrenen KM und das verbrauchte Benzin eingegeben werden.

Das Prog funzt ja auch, aber nur wenn die Daten eingetragen sind. Wenn ich nichts eintrage und dann auf Berechnen klicke, kommt ein Laufzeitfehler, Datentypen unverträglich.

Vielleicht könnte mir bitte jemand den Source optimieren, damit ich das besser verstehe.
Und auch nochmal ne kurze Erklärung dazu wäre auch nicht schlecht.

Hier ich hab mal die Projektdaten und die kompilierte Datei hochgeladen.
http://rapidshare.com/files/63089846/My_Project.rar

Wäre wirklich verdammt nett, wenn mir jemand helfen könnte.

Bis dahin verbleibe ich wie immer mit den besten Grüßen.
White
pay with your Live and you will get free

King of Chaos_ · Coder Anmeldedatum: 26.09.2007 Beiträge: 235

'Add mich mal im icq 255-539-405
'dann helf ich dir ^^ hast sachen drinnen die unötig sind aber auch sachen nicht drinn die
'auch deine error verursachen
'kann man so leicht rausmachen Wink

'P.S hab den Source auch schon Optimiert && mit Kommtaren hinterlegt .
'wenn es recht ist kann ich später dann auch nach unserem gespräch den veränderten
' source hochladen

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Laut deiner Beschreibung überprüfst du nicht, ob etwas eingetippt wurde oder nicht.
Wenn nichts eingetippt wird, sollte natürlich der code nicht ausgeführt werden.
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

King of Chaos_ · Coder Anmeldedatum: 26.09.2007 Beiträge: 235

jop hab ich auch rein getan bei der verbesserung .....

White Window_ · Newbie Anmeldedatum: 16.10.2007 Beiträge: 10

Vielen Dank King of Chaos.
Durch deine Hilfe, hab ichs jetzt verstanden.

Hier poste ich dann nochmal den von King of Chaos verbesserten Source, für alle anderen.

[vb:1:561b28b0d9]Private Sub cmdCalc_Click()
On Error Resume Next 'damit sich deine Errors Verpissen
' wenn ein Error kommt soll er einfach weiter machen
'unten kommt dann die vorderung das man erst nen Wert
'Eintragen muss

Dim cur_Verbrauch As Currency
Dim int_Answer As Integer ' Variable für die MsgBox

'so ich habe das jetzt über ne if Abfrage gemacht
If txtKM = "" Then ' wenn in dem Feld nix drinn steht
'wäre ja da dein error gekommen da du es ja als Integer
'gemacht hast.
MsgBox " Erst einen Wert eingeben", vbCritical
'so diese meldung kommt dann ^^
Else 'joa und wenn alles fit ist dann
'soll er weiter machen

cur_Verbrauch = Verbrauch(txtBenzin.Text, txtKM.Text)

int_Answer = MsgBox("Der Benzinverbrauch beträgt " & cur_Verbrauch & " Liter pro 100 Kilometer", _
vbOKOnly, "Benzinverbrauch")
End If

End Sub
'warum machst du ne Funktion ?! bei einer rechnung ?!
'ich bitte dich das ist unötiger code ^^
'aber jedem das seine

Private Function Verbrauch(benzin As Currency, km As Currency)
Verbrauch = benzin * 100 / km
End Function

'ich hoffe ich konnte dir mit der bearbeitung helfen
'und in zukunft niemals die on error goto oder on
'error resume next funktion vergessen!
[/vb:1:561b28b0d9]
pay with your Live and you will get free

King of Chaos_ · Coder Anmeldedatum: 26.09.2007 Beiträge: 235

Kein Problem ^^
Wie gesagt wenn mal wieder was ist sag bescheid ...
und wie auch gesagt:
msgbox "
nicht
msgbox ("
^^

White Window_ · Newbie Anmeldedatum: 16.10.2007 Beiträge: 10

So, hier poste ich jetz ma, den Source ohne Kommentare.
Also das was jetz daraus geworden ist. ^^

[vb:1:f472256128]Private Sub cmdCalc_Click()
On Error Resume Next

Dim Verbrauch As Long
Dim Answer As Integer ' Variable für die MsgBox

If txtKM And txtBenzin = "" Then
MsgBox "Bitte gib die geforderten Werte ein!", vbCritical, "Error"
Else
Verbrauch = txtBenzin * 100 / txtKM
Answer = MsgBox("Der Benzinverbrauch beträgt " & Verbrauch & " Liter pro 100 Kilometer", _
vbOKOnly, "Benzinverbrauch")
End If
End Sub

Private Sub txtBenzin_KeyPress(KeyAscii As Integer)
On Error Resume Next

If KeyAscii < 48 Or KeyAscii > 57 Then
If KeyAscii <> 8 Then
KeyAscii = 0
End If
End If
End Sub

Private Sub txtKM_KeyPress(KeyAscii As Integer)
On Error Resume Next

If KeyAscii < 48 Or KeyAscii > 57 Then
If KeyAscii <> 8 Then
KeyAscii = 0
End If
End If
End Sub
[/vb:1:f472256128]
pay with your Live and you will get free

King of Chaos_ · Coder Anmeldedatum: 26.09.2007 Beiträge: 235

Gut ohne Fuction ^^
Ist doch schon besser geworden....
ich poste in ca 3 tagen den Source von meinem RAT ...
bloss mit etwas wenniger funktionen Razz

White Window_ · Newbie Anmeldedatum: 16.10.2007 Beiträge: 10

Ich habe jetzt richtig Lust bekommen, etwas zu coden. xD
Allerdings fehlen mir die Ideen Sad

Habt ihr nicht ne Idee, was ich mit meinem jetzigen Wissenstand machen könnte?
Wer das Buch "Visual Basic 6 in 21 Tagen" hat,
ich bin in Kapitel 9.
Also ich hatte so Sachen zur String bearbeitung und so Berechnungen und sowas.
Habt ihr ne Idee, was ich machen könnte?

Ich überlege ob ich nen einfachen Taschenrechner mit den Grundrechenarten mache.
pay with your Live and you will get free

r4z3r_ · « Webmaster » Anmeldedatum: 06.02.2007 Beiträge: 252

Hallo,

mach ruhig mal eine Taschenrechner. Diesen kannst du dann ja immer wieder erweitern.

Ist auf jeden Fall besser als RAT's oder Sonstigen Schwachsinn zu coden Wink

Folgendes könntest du zusätzlich einbringen:

Wurzelziehen

[vb:1:2a66ecc5db]SQR(Zahl)[/vb:1:2a66ecc5db]

Potenzieren

[vb:1:2a66ecc5db]Zahl ^ Exponent[/vb:1:2a66ecc5db]

Ansonsten könntest du dich mit Dateien beschäftigen und eine Art Texteditor schreiben.
Es gibt hier sogar ein VideoTutorial dazu, wenn du das noch nicht kennst.

Wenn du das geschafft hast kannst du schon einiges und kannst dich langsam mal mit API's und anderen Objekten wie z.B. ListView o.Ä. beschäftigen

PS: Wie du beim Erstellen eines Beitrages siehst haben wir Code - und VB Tags
Bitte zukünftig für codes VB Tags verwenden, da diese Befehle hervorheben und so den Code übersichtlicher machen.