GLBasic forum

Codesnippets => Code Snippets => Topic started by: Lindwedler on 2009-Mar-27

Title: Gerade oder ungerade? - ODD- und EVEN-Funktion, Frage in Sachen ext.Bibliothek
Post by: Lindwedler on 2009-Mar-27
Ich bin gerade dabei ein Game zu basteln. Seit fast 30 Jahren das erste mal wieder in Basic programmiert - es macht einfach nur Spa?. Und komischerweise vergisst man auch nach der langen Zeit die Sachen nicht.

Anbei 2 ganz n?tzliche Funktionen, die ich zur Umsetzung des Spieles brauche. Die Funktionen geben jeweils 1 zur?ck, wenn die Pr?fung erfolgreich ist, und 0 im anderen Fall.

In dem Zusammenhang: Wie funktioniert das mit den externen Bibliotheken? Wenn ich Quellcode ?ber die IDE exportiere, kann man den irgendwie automatisch dazuladen, oder muss man immer ?ber die IDE den Import vornehmen?

Ulli

Anbei die zwei kleinen Funktionen:


EVEN(Var) // pr?ft ob eine Zahl gerade ist

ODD(Var)  // pr?ft ob eine Zahl ungerade ist

-------------------------
FUNCTION ODD: a
LOCAL a, b, ret

  b = a
  ret = ABS((INTEGER(a/2)*2)-b)

  RETURN ret
ENDFUNCTION // ODD


FUNCTION EVEN: a
LOCAL a, b, ret

  b = a
  ret = ABS((INTEGER(a/2)*2)-b)
  IF ret = 1
     ret = 0
     ELSE
     ret = 1
  ENDIF

  RETURN ret
ENDFUNCTION // EVEN
Title: Re: Gerade oder ungerade? - ODD- und EVEN-Funktion, Frage in Sachen ext.Bibliothek
Post by: amarliani on 2009-Mar-27
Erst mal nur ne Randanmerkung: Warum nimmst du nicht die MOD-Funktion?

MOD(a,2)  =0, wenn a gerade ist, =1, wenn a ungerade ist.

Vereinfacht den Code deiner Funktionen erheblich...

Zu deiner Frage mit den externen Bilbilotheken: Exportier die Datei ?ber das Men? "Werkzeuge/Datei als Bibliothek komprimieren". Dann erh?ltst dur eine Datei mit der Endung .gbal als Ergebnis. Die bindest du einfach in dein Projekt als ben?tigte Datei auf der Registerseite "Dateien" ein. Sie wird dann beim Kompilieren des Projektes automatisch mit eingebaut.
Title: Re: Gerade oder ungerade? - ODD- und EVEN-Funktion, Frage in Sachen ext.Bibliothek
Post by: Lindwedler on 2009-Mar-27
MOD, ahhhrrrggggggg. Danke!

Nach MOD habe ich nicht gesucht in der Funktionsliste. Na, einiges ist anscheinend doch noch versch?ttet worden in den 30 Jahren.

Besten Dank jedenfalls, auch f?r die Info in Sachen Bibliothek. Wenn das Game fertig ist, stelle ich es frei zum Download.

Ulli
Title: Re: Gerade oder ungerade? - ODD- und EVEN-Funktion, Frage in Sachen ext.Bibliothek
Post by: Quentin on 2009-Mar-27
hehe, dann sei erst mal herzlich willkommen in dieser illustren Runde.
Title: Re: Gerade oder ungerade? - ODD- und EVEN-Funktion, Frage in Sachen ext.Bibliothek
Post by: Schranz0r on 2009-Mar-27
Jow, willkommen!  :good:
Title: Re: Gerade oder ungerade? - ODD- und EVEN-Funktion, Frage in Sachen ext.Bibliothek
Post by: Kitty Hello on 2009-Mar-28
bAND(zahl%, 2)
ist 1 wenn ungerade, 0 wenn gerade. ;)

[edit]
bAND(zahl%,1) <-- korrekt. Siehe Ocean's Erklärung unten!
Title: Re: Gerade oder ungerade? - ODD- und EVEN-Funktion, Frage in Sachen ext.Bibliothek
Post by: amarliani on 2009-Mar-28
Hups, der war mir bisher dadurchgegangen  =D