Weiteres Problem

Visual basic Problem (27 Beiträge, 153 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

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)

lg
mIstA

Re(2): Visual basic Problem (wissender am 11.01.2005, 19:05:32)

Re(3): Visual basic Problem (mIstA am 11.01.2005, 19:09:19)

Re(4): Visual basic Problem (wissender am 11.01.2005, 19:11:16)

Re(4): Visual basic Problem (wissender am 11.01.2005, 19:13:46)

Re(5): Visual basic Problem (mIstA am 11.01.2005, 19:18:35)

Re(5): Visual basic Problem (Glockman am 11.01.2005, 19:24:58)

Re(6): Visual basic Problem (wissender am 11.01.2005, 19:26:54)

Visual basic Problem (wissender am 11.01.2005, 18:59:24)

Re: Visual basic Problem (Rennegade am 11.01.2005, 19:01:29)

Re(2): Visual basic Problem (wissender am 11.01.2005, 19:02:13)

Re: Visual basic Problem (mIstA am 11.01.2005, 19:08:22)

Re(2): Visual basic Problem (wissender am 11.01.2005, 19:10:43)

Re(3): Visual basic Problem (mIstA am 11.01.2005, 19:16:29)

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 = ....

_______________________________________________________________________________
Visit me!!!
http://www.bulme.at !

Kauft dieses Produkt, ihr werdet es nicht bereuen!
Kino 2005
http://phj.at/DVD/
Vermittler = Wissender looool

http://forum.geizhals.at/userinfo.jsp?id=63130

Re: Weiteres Problem (Glockman am 11.01.2005, 19:30:33)

Re(2): Weiteres Problem (wissender am 11.01.2005, 19:31:28)

Re(3): Weiteres Problem (Glockman am 11.01.2005, 19:33:41)

Re(4): Weiteres Problem (wissender am 11.01.2005, 19:35:05)

Re(5): Weiteres Problem (Glockman am 11.01.2005, 19:40:49)

Re(6): Weiteres Problem (wissender am 11.01.2005, 19:43:55)

Re(7): Weiteres Problem (hariw am 11.01.2005, 19:56:27)

Re(8): Weiteres Problem (wissender am 11.01.2005, 20:01:53)

Re: Weiteres Problem (steiger am 11.01.2005, 19:51:25)

Re(2): Weiteres Problem (wissender am 11.01.2005, 20:02:34)

Re(3): Visual basic Problem (Glockman am 11.01.2005, 19:22:28)

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung