Problem mit Entfernungsrechnung

AintLarry · 16. August 2011, 21:01

Hey, wenn ich mit Google eine entfernung errechnen will:

VB.NET-Quellcode

Dim entfernung As Integer
bisPLZ = TextBox5.Text
vonPLZ = "21629"
If Not (bisPLZ Like "#####" = True) Then
MsgBox("Keine gültige Postleitzahl!")
End If
IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = False
objRe = CreateObject("vbscript.regexp")
objRe.Pattern = "^(\d+(?:[\D]\d+)? km . .*Minuten)$"
objRe.MultiLine = True
Dim IEDocument As Object
Dim objMc As Object
IEApp.Navigate("http://maps.google.de/maps?f=d&hl=de&geocode=&saddr=" & vonPLZ & "&daddr=" & bisPLZ & "&output=html")
Do : Loop Until IEApp.Busy = False
Do : Loop Until IEApp.Busy = False
IEDocument = IEApp.Document
objMc = objRe.Execute(IEDocument.Body.innerText)
If objMc.Count Then entfernung = objMc(0)
objMc = Nothing
IEDocument = Nothing
IEApp.Quit()
Label57.Text = entfernung

ist label57 leider gleich "0"

wenn ich anstatt
If objMc.Count Then entfernung = objMc(0)
einfach
entfernung = objMc(0)

kommen drei error:

Eine Ausnahme (erste Chance) des Typs "System.NullReferenceException" ist in Microsoft.VisualBasic.dll aufgetreten.
Eine Ausnahme (erste Chance) des Typs "System.ArgumentException" ist in Microsoft.VisualBasic.dll aufgetreten.
Eine Ausnahme (erste Chance) des Typs "System.ArgumentException" ist in Microsoft.VisualBasic.dll aufgetreten.

RodFromGermany · 17. August 2011, 09:50

Wenn Du noch genau schreibst, in welcher Zeile welche Exception auftritt, wäre das sehr hilfreich.

AintLarry · 17. August 2011, 10:11

Ja, Zeile 27...

RodFromGermany · 17. August 2011, 10:14

AintLarry schrieb:

kommen drei error:

Eine Ausnahme (erste Chance) des Typs "System.NullReferenceException" ist in Microsoft.VisualBasic.dll aufgetreten.
Eine Ausnahme (erste Chance) des Typs "System.ArgumentException" ist in Microsoft.VisualBasic.dll aufgetreten.
Eine Ausnahme (erste Chance) des Typs "System.ArgumentException" ist in Microsoft.VisualBasic.dll aufgetreten.

Ja. Welcher denn nun?
Junge, Du hast ein Problem. Da musst Du schon ein wenig kooperativ sein, wenn Dir geholfen werden soll.

AintLarry · 17. August 2011, 10:20

Also, unten werden diese 3 angezeigt...
Aber nur die Zeile 27 wird mir angestrichen....
Ich persöhnlich denke das die ersten 2 fehler wo anders auftreten aber ignoriert werden, und der dritte der relevante ist...

RodFromGermany · 17. August 2011, 10:40

Dann probier mal,

VB.NET-Quellcode

If objMc.Count Then entfernung = objMc(0)

zu ersetzen durch

VB.NET-Quellcode

If objMc IsNot Norhing AndAlso objMc.Count > 0 Then
entfernung = objMc(0)
End If

AintLarry · 17. August 2011, 10:49

Vielen dank für deine Antwort,
Nun zeigt er mir allerdings an das die etfernung = 0 ist..
wenn ich entfernung als String dekleriere zeigt er mit GARNICHTS an
Liegt es vielleicht daran das "entfernung" einen anderen variablentyp haben muss?

RodFromGermany · 17. August 2011, 12:15

Du solltest wissen, in welcher Einheit Deine Entfernung berechnet wird.
Setz einen Haltepunkt drauf und sieh Dir objMc(0) an. Da steht drin, was es für ein Datentyp ist.

AintLarry · 17. August 2011, 12:25

ok, das ist eine Object variable allerdings: wenn ich entfernung als objekt dekleriere zeigt nichts an also nichtmal eine 0

schoeler.k · 17. August 2011, 12:35

Wieso denn eine Zahl (Entfernung) als Object speichern?
Macht doch mehr Sinn direkt ins Integer reinzugehen.

RodFromGermany · 17. August 2011, 12:37

VB.NET-Quellcode

If objMc IsNot Norhing AndAlso objMc.Count > 0 Then
entfernung = objMc(0) ' setze hier einen Haltepunkt hin und sieh Dir objMc(0) an!
End If

AintLarry · 17. August 2011, 13:00

Tschuldigung wenn ich frage aber was meinst du mit haltepunkt?

schoeler.k · 17. August 2011, 13:02

Zum Debuggen.

AintLarry · 17. August 2011, 13:12

ich verstehe das grade nicht, woe mache ich das?

schoeler.k · 17. August 2011, 13:24

Du gehst in die angegebene Zeile.
Dann oben auf Debuggen.
Dann auf Haltepunkt umschalten.

Voila, sie haben einen Haltepunkt.

Dann lässt du das Programm durchlaufen.
An dem Haltepunkt wird das Programm angehalten und du kannst dir die Variable anschauen.

AintLarry · 17. August 2011, 13:26

ok, haltepunkt gesetzt, aber es ist nichts anders beim debuggen...

schoeler.k · 17. August 2011, 13:27

Na welcher Wert ist denn in dem objMc(0) ?!

AintLarry · 17. August 2011, 13:36

dass kann ich ni9cht sehen
also wo soll mir das denn angezeigt werden?

Ich glaube einfach das das Objekt = nothing ist, da wenn ich die if anweisung wegnehme der fehlerkommt das irgendetwas mit dem Objekt nicht stimmt

schoeler.k · 17. August 2011, 13:42

Du kannst mit der maus einfach über die Variable dann müsste der das anzeigen.
Ansonsten musst du einfach im Direktfenster ?objMc(0)
eingeben dann gibt der dir was aus.

AintLarry · 17. August 2011, 13:44

wenn ich das im direktfenster eingebe kommt:

Der Ausdruck kann nicht ausgewertet werden, während Sie sich im Ausführmodus befinden.

Problem mit Entfernungsrechnung

Problem mit Entfernungsrechnung

VB.NET-Quellcode

AintLarry schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

2 Benutzer haben hier geschrieben