OpenOffice.info

[quote="Karolus"]Hallo
[quote]Ende der If-Schleife[/quote]

[url=http://www.if-schleife.de/]if Schleife[/url]

Karolus[/quote]

Danke für die Korrektur.

(ist ja lustig das es dafür eine eigene Webseite gibt)


Gruß
Stephan

Hallo
[quote]Ende der If-Schleife[/quote]

[url=http://www.if-schleife.de/]if Schleife[/url]

Karolus

Function MinD (array as Double, anzahl as Integer)

Dim MinD as Integer

Const N=5

Dim a(N) as Double

a(0)=1.1 : a(1)=1 : a(2)=1 : a(3)=2 : a(4)=0.5

Msgbox "Kleinste Zahl = " & MinD(a,N)

Dim i as Integer
Dim MinX as Double

MinX = ar(0)

For i=0 to anzahl-1

if ar(i)< MinX then

MinX=ar(i)

end if

Next i

MinD = MinX

Dim bla As String
bla = ""
For i = 0 To 4
  bla = bla & a(i) & CHR(13)
Next i
Msgbox bla

[quote]Ich habe meinen Code schrittweise ausgeführt, und da ist mir aufgefallen, dass die Sub überhaupt nicht aufgerufen wurde. Wie kann das sein?[/quote]

Ich habe keine Ahnung da bei dem von mir geposteten Code natürlich die Sub aufgerufen wird und dann ihrerseits die Function aufruft.

Als Fehler bzw. problematische Dinge in DEinem Code erachte ich im Übrigen (ergänzend zu den Aussagen von Jürgen):

[code]Function MinD (array as Double, anzahl as Integer)[/code]

array ist ein Schlüsselwort in Basic und darf/sollte nicht als Variablennamen verwendet werden

[code]Dim MinD as Integer[/code]

funktioniert nur für Ganzzahlen und sollte auch nicht in einer Funktion gleichen Namens verwendet werden

[quote]Was genau geschieht dort?[/quote]

[code]Const N=5[/code]

definiert die Konstante N mit Wert 5

[code]Dim a(N) as Double[/code]

Deklariert das Array a

[code]a(0)=1.1 : a(1)=1 : a(2)=1 : a(3)=2 : a(4)=0.5[/code]

weist dem Array Werte zu

[code]Msgbox "Kleinste Zahl = " & MinD(a,N)[/code]

Gibt das Ergebnis der Funktion in Verknüpfung mit einerm String aus

[code]Dim i as Integer
Dim MinX as Double[/code]

deklariert Variablen

[code]MinX = ar(0)[/code]

weist der Variable MinX den Wert des Feldes mit Index 0 der Array-Variable ar zu

[code]For i=0 to anzahl-1[/code]

Schleife zählt von 0 bis 4 (bei anzahl = 5)

[code]if ar(i)< MinX then[/code]

prüft Wert

[code]MinX=ar(i)[/code]

weist der Variable MinX den Wert des Feldes mit Index i der Array-Variable ar zu

[code]end if[/code]

Ende der If-Schleife

[code]Next i[/code]

Ende der For-Next-Schleife

[code]MinD = MinX[/code]

weist der Funktion MinD den Wert der Variable MinX als Rückgabewert zu


[quote]Ich glaube daher kam auch mein Fehler "Argument ist nicht optional".[/quote]

Der kommt wohl eher von der Verwendiung von "array" als Variablen-Namen, ich habs aber nicht getestet

[quote]wird ja ein Array erzeugt[/quote]

Nein, es werden nur einem bereits existierenden Array Werte zugfewiesen

[quote]wieso kann ich mir dieses Array nicht per "MsgBox"ausgeben?[/quote]

weil es kein 'zusammenhängender Ausdruck' ist, Du must also beispielsweise einen String erzeugen

[code]Dim bla As String
bla = ""
For i = 0 To 4
bla = bla & a(i) & CHR(13)
Next i
Msgbox bla[/code]

[quote]Was meinst du mit "Sub manuell starten"?[/quote]

Ist jetzt wirklich nicht Dein Ernst? Die Antwort ist in der Basic-IDE auf die SChaltfläche "Basicprogramm ausführen" klicken oder in der normalen Programmumgebung das Makro über den 'Makros verwalten'-Dialog aufrufen.

[quote]Wenn ich mein Basic-Programm ausführe müssen doch alle "Sub" und "Func" ausgegeben werden, oder etwa nicht?[/quote]

Nein, und im Übrigen nicht "ausgegeben" sondern ausgeführt.



Gruß
Stephan

[quote="Student25"]Okay :) Ich versteh den Quellcode aber noch nicht hundertprozentig. Könnte jemand die einzelnen Vorgänge erklären? Was geschieht? :)[/quote]
Wenn du den Code "noch nicht hundertprozentig" verstehst, bedeutet das doch, dass du "fast alles" verstehst. Dann ist es besser andersherum: Was verstehst du noch nicht? Außerdem handelt es sich um viele kleine Schritte, die eigentlich "selbsterklärend" sind, zumal dein eigener Code nur in kleinen, wenn auch wirkungsvollen Stücken von Stephans Code abweicht. Jürgen

[quote="Student25"]Nun nochmal zurück zu Jürgens sauberen Quellcode:
-Was genau geschieht dort? Und was hat er wie anders gelöst als ich?[/quote]
Ich will mich nicht mit fremden Federn schmücken. Der saubere Quellcode stammt nicht von mir, sondern von Stephan. Die Erklärungen dafür, was Stephan anders gemacht hat als du, solltest du aus dem Vergleich der einzelnen Code-Zeilen zusammen mit meinen Fehlerhinweisen entnehmen.

[quote]Und zu meinem Quellcode:
-Ich habe meinen Code schrittweise ausgeführt, und da ist mir aufgefallen, dass die Sub überhaupt nicht aufgerufen wurde. Wie kann das sein?[/quote]
Die "Sub" wird nicht aufgerufen? Die musst du doch sowieso manuell starten. Oder meinst du, dass die Funktion MinD nicht aufgerufen wird? Das wird sie bei mir; aber weil die for-Schleife falsch definiert ist, wird der ganze Rest übersprungen, und MinD erhält niemals einen Rückgabewert.

Jürgen

Hallo, du machst mehrere Fehler:
[list][*]Du erschwerst uns die Hilfe, weil du die Aufgabenstellung nicht erwähnst. Erst aus der vorletzten Code-Zeile kann ich ableiten, dass du aus einem double-Array die kleinste Zahl bestimmen willst.
[*]Du erschwerst uns die Hilfe, weil du Code nicht als solchen anzeigst: Code-Abschnitte markieren und mit der Taste "Code" hervorheben.
[*]Ein Array wird in StarBasic etwas seltsam definiert: a(5) bereitet einen Speicher von 6 Elementen vor mit den Indizes 0 bis 5. (Bei Stephans Lösung wird dieses Problem durch die Schleifengrenzen "umgangen".
[*]MinD erhält keinen Anfangswert. Ich würde mich nicht darauf verlassen, dass es mit 0 initialisiert wird (was angesichts der Aufgabenstellung auch falsch wäre, siehe Stephans Lösung).
[*]for wird nicht ganz korrekt benutzt, siehe den folgenden Link.
[*]"will einfach nicht laufen" ist als Fehlerbeschreibung etwas wenig. An welcher Stelle im Programmablauf passiert was, oder was fehlt? Dazu kann man Makros schrittweise ausführen und Variable beobachten.[/list]
Zum Einlesen und Nachschlagen gibt es im "obersten" Eintrag viele [url=http://de.openoffice.info/viewtopic.php?f=18&t=1553]Informationen zur StarBasic-Programmierung[/url]. Vor allem der erste Link zu Andrew Pitonyak ist sehr hilfreich. Jürgen

Sub TestMin
  Const N=5
  Dim a(N) as Double
  a(0)=1.1 : a(1)=1 : a(2)=1 : a(3)=2 : a(4)=0.5
  Msgbox "Kleinste Zahl = " & MinD(a,N)
End Sub

Function MinD (ar as Double, anzahl as Integer)
  Dim i as Integer
  Dim MinX as Double
  MinX = ar(0)
  For i=0 to anzahl-1
    if ar(i)< MinX then
      MinX=ar(i)
    end if
  Next i
  MinD = MinX
End Function

z.B.:

[code]Sub TestMin
Const N=5
Dim a(N) as Double
a(0)=1.1 : a(1)=1 : a(2)=1 : a(3)=2 : a(4)=0.5
Msgbox "Kleinste Zahl = " & MinD(a,N)
End Sub

Function MinD (ar as Double, anzahl as Integer)
Dim i as Integer
Dim MinX as Double
MinX = ar(0)
For i=0 to anzahl-1
if ar(i)< MinX then
MinX=ar(i)
end if
Next i
MinD = MinX
End Function[/code]


Gruß
Stephan