Visual basic Problem

Re(2): Weiteres Problem

wissender — Tue, 11 Jan 2005 19:02:34 GMT

danke

Re(8): Weiteres Problem

wissender — Tue, 11 Jan 2005 19:01:53 GMT

Du bist der König
Bin aber 2 min vorher drauf kommen, danke danke danke danke !!!

Re(7): Weiteres Problem

hariw — Tue, 11 Jan 2005 18:56:27 GMT

hi,

scheitert´s am zählen?

Option Explicit

Sub fritz()
Dim x1 As Single
Dim x2 As Single
Dim x3 As Single
Dim y1 As Single
Dim y2 As Single
Dim y3 As Single
Dim u As Single
Dim d As Single
Dim a As Single
Dim b As Single
Dim c As Single
x1 = 2
x2 = 3
x3 = 4
y1 = 5
y2 = 6
y3 = 7
a = AbstandvonPunkten(x3, x2, y3, x2)
b = AbstandvonPunkten(x3, x1, y3, y1)
c = AbstandvonPunkten(x1, x2, y1, y2)
u = a + b + c
MsgBox u
End Sub

Function AbstandvonPunkten(ByVal x1 As Single, ByVal x2 As Single, ByVal y1 As Single, ByVal y2 As Single)
d = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
AbstandvonPunkten = d
End Function

bau´da das wieder zu deinem form zusammen

lg,
hariw

Re: Weiteres Problem

steiger — Tue, 11 Jan 2005 18:51:25 GMT

1. Die Function hat 5 Argumente deklariert:

Function AbstandvonPunkten(
ByVal x1 As Single,
ByVal x2 As Single,
ByVal y1 As Single,
ByVal y2 As Single,
ByRef AbstandvonPunkten As Single) As Single

Das letzte ist unnötig, weil das ja der Returnwert ist.

Aufgerufen wird sie aber nur mit 4 Argumenten:
a = AbstandvonPunkten(x3, x2, y3, x2)
Daher der Fehler "argument not optional"

2. Die Function selbst

Dim AbstandvonPunkten As Single
d = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
AbstandvonPunkten = d

Die Variable ist genauso unnötig, weil ja die Function schon so heist.
Also warum nicht vereinfachen auf:

Function AbstandvonPunkten(ByVal x1 As Single, ByVal x2 As Single, ByVal y1 As Single, ByVal y2 As Single) As Single
AbstandvonPunkten = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
End Function

Das sollte dann wohl funktionieren

Re(6): Weiteres Problem

wissender — Tue, 11 Jan 2005 18:43:55 GMT

Danke dir

Re(5): Weiteres Problem

Glockman — Tue, 11 Jan 2005 18:40:49 GMT

Äh - da muss ich daheim nochmal nachschauen, ist schon relativ lang her, dass ich mit Functions gearbeitet hab - bei Procedures gehts soweit ich weiß auch ohne Klammern.

Kann das aber erst daheim nachstellen - dauert nur, bis ich daheim bin (sitz noch in der Firma). Meld mich dann so gegen 9-9:30 nochmal (ich werd jetzt nämlich gehen)... vielleicht kann aber auch jemand von Haus aus sagen, "eh klar, weil..." - ich mach das ja nur zum Hobby, und das auch nur alle Jubeljahre mal, wenn ich grad Lust hab oder so.

Re(4): Weiteres Problem

wissender — Tue, 11 Jan 2005 18:35:05 GMT

Naja es wird alles rot, wobei keine Meldung erscheint,
ist ja eigentlich auch klar, da ja eine Parameterliste immer mit Klammern geschrieben wird oder?

Re(3): Weiteres Problem

Glockman — Tue, 11 Jan 2005 18:33:41 GMT

Welche Meldung kommt dann?

Re(2): Weiteres Problem

wissender — Tue, 11 Jan 2005 18:31:28 GMT

das lasst er nicht

Re: Weiteres Problem

Glockman — Tue, 11 Jan 2005 18:30:33 GMT

a = AbstandvonPunkten(x3, x2, y3, x2)
b = AbstandvonPunkten(x3, x1, y3, y1)
c = AbstandvonPunkten(x1, x2, y1, y2)

Lass mal die Klammern nach dem Funktionsnamen weg, einfach Name und Parameter durch einen Abstand trennen:

a = AbstandvonPunkten x3, x2, y3, x2

Re(6): Visual basic Problem

wissender — Tue, 11 Jan 2005 18:26:54 GMT

http://forum.geizhals.at/t304632,2089168.html#2089168
Danke

Weiteres Problem

wissender — Tue, 11 Jan 2005 18:26:06 GMT

Function AbstandvonPunkten(ByVal x1 As Single, ByVal x2 As Single, ByVal y1 As Single, ByVal y2 As Single, ByRef AbstandvonPunkten As Single) As Single
Dim AbstandvonPunkten As Single
d = Sqr((x2 - x1) ^ 2 + (y2 - y1) ^ 2)
AbstandvonPunkten = d
End Function
das dürfte passen, aber dann

Option Explicit

Private Sub Command1_Click()
Dim x1 As Single
Dim x2 As Single
Dim x3 As Single
Dim y1 As Single
Dim y2 As Single
Dim y3 As Single
Dim u As Single
Dim d As Single
Dim a As Single
Dim b As Single
Dim c As Single
x1 = Text1.Text
x2 = Text2.Text
x3 = Text3.Text
y1 = Text4.Text
y2 = Text5.Text
y3 = Text6.Text
a = AbstandvonPunkten(x3, x2, y3, x2)
b = AbstandvonPunkten(x3, x1, y3, y1)
c = AbstandvonPunkten(x1, x2, y1, y2)
u = a + b + c
Label4.Caption = u
End Sub

schreibt er "argument not optional" und markiert die Zeile mit a = ....

Re(5): Visual basic Problem

Glockman — Tue, 11 Jan 2005 18:24:58 GMT

der underscore nach Function war das Problem !

Ach, der war wirklich im Code auch vorhanden? Ich dachte, den hast Du unabsichtlich hier eingebaut...

Re(3): Visual basic Problem

Glockman — Tue, 11 Jan 2005 18:22:28 GMT

und das Wort as wird markiert

Ja - äh - WELCHES "As"?
Ich zähle insgesamt 6 Stück davon...

Lass mal die ganzen "ByVal", "As Single" usw. weg und schau, obs dann geht.
Einfach nur Function "Name" (Parameter) und gut is.

Außerdem, "d" existiert zwar, aber wird nicht wirklich verwendet, und warum eine Variable mehr, wenn "Name" = sqr(...) völlig reichen würde (oder wurde vor dem "d" vielleicht "Abstan" abgeschnitten)?

Re(5): Visual basic Problem

mIstA — Tue, 11 Jan 2005 18:18:35 GMT

Tja, der kam mir auch eigenartig vor, aber wie gesagt mit Syntaxfeinheiten kenn ich mich net so genau aus.

Das es jetzt aber (ohne Unterstrich) in dieser Form tatsächlich seine Funktion erfüllt, wage ich zu bezweifeln.

Re(3): Visual basic Problem

mIstA — Tue, 11 Jan 2005 18:16:29 GMT

das Wort as wird markiert

Welches von den 5 oder 6 'as' in der Zeile?

Was mir sonst noch spanisch vorkommt?

Was passiert mit 'd'? Was ist 'Abstand'? Soll 'AbstandonPunkten' ein Funktionsrückgabewert sein oder eine lokale Variable?

Re(4): Visual basic Problem

wissender — Tue, 11 Jan 2005 18:13:46 GMT

der underscore nach Function war das Problem !

Re(4): Visual basic Problem

wissender — Tue, 11 Jan 2005 18:11:16 GMT

In der ersten Zeile,was kommt dir spanisch vor?

Re(2): Visual basic Problem

wissender — Tue, 11 Jan 2005 18:10:43 GMT

die oberste Zeile(function.... ) wird rot,sprich in der Zeile und das Wort as wird markiert

Re(3): Visual basic Problem

mIstA — Tue, 11 Jan 2005 18:09:19 GMT

Bei welcher Zeile kommt die genau? - Mir kommt bei genauerer Betrachtung da so einiges spanisch vor.

Re: Visual basic Problem

mIstA — Tue, 11 Jan 2005 18:08:22 GMT

Wo kommt eigentlich die Fehlermeldung genau? - Was ist mit 'd'?

Re(2): Visual basic Problem

wissender — Tue, 11 Jan 2005 18:05:32 GMT

Das ist mir schon klar, nur was hat diese Warnung zu bedeuten?

Re: Visual basic Problem

mIstA — Tue, 11 Jan 2005 18:03:49 GMT

Hmm... bin zwar in der Syntax von VB nicht ganz firm, aber falls Sqr() die Quadratwurzel meint (ich kenn das aus diversen Basics als Sqrt()), dann müsste es auf jeden Fall mal lauten: d = Sqr( (x2 - x1) ^ 2 + (y2 - y1) ^ 2)

Re(2): Visual basic Problem

wissender — Tue, 11 Jan 2005 18:02:13 GMT

ich habs einfach rauskopiert und werd ihn jetzt sicher net schön Zeile für Zeile runterschreiben

Re: Visual basic Problem

Rennegade — Tue, 11 Jan 2005 18:01:29 GMT

das er zum speiben ausschaut

Visual basic Problem

wissender — Tue, 11 Jan 2005 17:59:24 GMT

Was ist an diesem Code falsch??

Function_AbstandvonPunkten (Byval x2 as Single,Byval x1 as Single,Byval y1 as Single,Byval y2 as Single,ByRef Abstand as single) As Single
Dim AbstandvonPunkten As Single
d = Sqr(x2 - x1) ^ 2 + (y2 - y1) ^ 2
AbstandvonPunkten = Abstand

Visual basic Problem

wissender — Tue, 11 Jan 2005 17:59:24 GMT