BlitzBasic Portal

BlitzMax / Codearchiv / Recher f�r Komplexe Zahlen

blackgecko — Thu, 17 May 2012 18:54:52 +0200

Autor: blackgecko

Ganz nett, aber die Verwaltung �ber Strings, das st�ndige Extrahieren und wieder zusammensetzen, muss doch ein ganz sch�ner Performance-Killer sein. Wir sind hier in BlitzMax, mach das Ganze doch objektorientiert

Sonstiges / Projekte / Bismuth pre-Alpha

aMul — Thu, 17 May 2012 18:02:05 +0200

Autor: aMul

Interessantes Projekt!
Werde ich definitiv im Auge behalten.
(Fragen sowie Zeit damit rum zu spielen habe ich (leider) momentan nicht.)

BlitzMax / Allgemein / Blitzmax unter Linux - Ich kann nichts kompilieren

BtbN — Thu, 17 May 2012 17:56:57 +0200

Autor: BtbN

Die viel spannendere Frage ist doch, wieso bnet unter Linux versucht, gegen WinSock Funktionen zu linken.

BlitzBasic / BlitzPlus / Anzahl Ziffern begrenzt?

Sereyanne — Thu, 17 May 2012 17:16:57 +0200

Autor: Sereyanne

Ich hab mich jetzt in Rallimens Stringrechner eingearbeitet.

Also erst mal herzlichen Dank f�r diesen sch�nen Code!
Der Einstieg war doch leichter, als ich dachte.
Aber es k�nnte sein, dass ich einen Fehler gefunden habe. Oder ich mach irgendwas falsch.
Mein Code: (Code ge�ndert, ich nehm jetzt den Original Code mit den Zahlen, wo er Fehler macht, dann ist es hoffentlich leichter zu sehen was ich meine)
Code: [AUSKLAPPEN]

Function Subtrahieren$ (Wert1$,Wert2$)
If Left (Wert1$ ,1) = "-" Then wert1$ = Mid (wert1$,2) : w1% = 1
If Left (Wert2$ ,1) = "-" Then wert2$ = Mid (wert2$,2) : w2% = 1

If (w1% + w2%) Then

If W1% Then

If W2% Then

Select Dividieren_Vergleichen (wert1$,wert2$)

Case 0 Return "0"

Case 1 Return "-" + Subtrahieren$ (Wert1$,Wert2$)

Case 2 Return Subtrahieren$ (Wert2$,Wert1$)
End Select

Else
Return "-" + Addieren$ (Wert1$,Wert2$)
End If

Else

If w2 Then Addieren$ (Wert1$,Wert2$)

End If

End If

Select Dividieren_Vergleichen (wert1$,wert2$)

Case 0 Return 0

Case 2 Return "-" + Subtrahieren$ (Wert2$,Wert1$)
End Select

If Len (wert1$) > Len (wert2$) Then
wert2$ = RSet (wert2$,Len (wert1$) )
Else
wert1$ = RSet (wert1$,Len (wert2$) )
End If

While Len (wert1$) > 8
zw = (Int (Right (wert1$,8) ) - Int (Right (wert2$,8) ) - c%)
wert1$ = Left (wert1$ , Len (wert1$) - 8)
wert2$ = Left (wert2$ , Len (wert2$) - 8)

If zw < 0 Then
zw = 100000000 + zw
c% = 1
Else
c% = 0
End If

If Len (Str (zw) ) < 8 Then
zwS$ = Replace (RSet (zw,8) ," ","0")
returnWert$ = Right (zwS$,8) + returnWert$
Else
returnWert$ = zw + returnWert$
End If

Wend

zw = (Int (Right (wert1$,8) ) - Int (Right (wert2$,8) ) - c%)
returnWert$ = zw + returnWert$

While Left (returnWert$,1) = "0"
returnWert$ = Mid (returnWert$,2)
Wend

Return returnWert$
End Function

Function Addieren$ (Wert1$,Wert2$)
If Left (Wert1$ ,1) = "-" Then wert1$ = Mid (wert1$,2) : w1% = 1
If Left (Wert2$ ,1) = "-" Then wert2$ = Mid (wert2$,2) : w2% = 1

If (w1% + w2%) Then

If w1% Then

If w2% Then
Return "-" + Addieren$ (Wert1$,Wert2$)
Else

Select Dividieren_Vergleichen (wert1$,wert2$)

Case 0 Return "0"

Case 1 Return "-" + Subtrahieren$ (Wert1$,Wert2$)

Case 2 Return Subtrahieren$ (Wert2$,Wert1$)
End Select

End If

Else

Select Dividieren_Vergleichen (wert1$,wert2$)

Case 0 Return "0"

Case 1 Return Subtrahieren$ (Wert1$,Wert2$)

Case 2 Return "-" + Subtrahieren$ (Wert2$,Wert1$)
End Select

End If

End If

If Len (wert1$) > Len (wert2$) Then
wert2$ = RSet (wert2$,Len (wert1$) )
Else
wert1$ = RSet (wert1$,Len (wert2$) )
End If

While Len (wert1$) > 8
zw$ = (Int (Right (wert1$,8) ) + Int (Right (wert2$,8) ) + c%)
If Len (zw) < 9 Then zw = Replace (RSet (zw,8) ," ","0")

If Len (zw$) > 8 Then
c% = 1
zw$ = Mid (zw$,2)
Else
c% = 0
End If

returnWert$ = Right (zw$,8) + returnWert$
wert1$ = Left (wert1$ , Len (wert1$) - 8)
wert2$ = Left (wert2$ , Len (wert2$) - 8)
Wend

Return (Int (wert1$) + Int (wert2$) + c) + returnWert$
End Function

Function Addieren_Komma$ (Wert1$,Wert2$)

If Left (Wert1$ ,1) = "-" Then wert1$ = Mid (wert1$,2) : w1% = 1
If Left (Wert2$ ,1) = "-" Then wert2$ = Mid (wert2$,2) : w2% = 1

If (w1% + w2%) Then

If w1% Then

If w2% Then
Return "-" + Addieren_Komma$ (Wert1$,Wert2$)
Else

Select WertVergleichenKomma% (Wert1$,Wert2$)

Case 0 Return "0"

Case 1 Return "-" + Subtrahieren_Komma$ (Wert1$,Wert2$)

Case 2 Return Subtrahieren_Komma$ (Wert2$,Wert1$)
End Select

End If

Else

Select WertVergleichenKomma% (Wert1$,Wert2$)

Case 0 Return "0"

Case 1 Return Subtrahieren_Komma$ (Wert1$,Wert2$)

Case 2 Return "-" + Subtrahieren_Komma$ (Wert2$,Wert1$)
End Select

End If

End If

If Instr (Wert1$,".") Or Instr (Wert2$,".") Then
KommaZahl = 1

If Instr (Wert1$,".") Then
w1_VorKomma$ = Left (Wert1$,Instr (Wert1$,".") - 1)
W1_Rest$ = Mid (Wert1$,Instr (Wert1$,".") + 1)
Else
w1_VorKomma$ = Wert1$
End If

If Instr (Wert2$,".") Then
w2_VorKomma$ = Left (Wert2$,Instr (Wert2$,".") - 1)
W2_Rest$ = Mid (Wert2$,Instr (Wert2$,".") + 1)
Else
w2_VorKomma$ = Wert2$
End If

If Len (W1_Rest$) < Len (W2_Rest$) Then
W1_Rest$ = LSet (W1_Rest$,Len (W2_Rest$) )
W1_Rest$ = Replace (W1_Rest$," ","0")
Else
W2_Rest$ = LSet (W2_Rest$,Len (W1_Rest$) )
W2_Rest$ = Replace (W2_Rest$," ","0")
End If

KommaStelle = Len (W2_Rest$)
Wert1$ = w1_VorKomma$ + W1_Rest$
Wert2$ = w2_VorKomma$ + W2_Rest$
End If

If Len (wert1$) > Len (wert2$) Then
wert2$ = RSet (wert2$,Len (wert1$) )
Else
wert1$ = RSet (wert1$,Len (wert2$) )
End If

While Len (wert1$) > 8
zw$ = (Int (Right (wert1$,8) ) + Int (Right (wert2$,8) ) + c%)
If Len (zw) < 9 Then zw = Replace (RSet (zw,8) ," ","0")

If Len (zw$) > 8 Then
c% = 1
zw$ = Mid (zw$,2)
Else
c% = 0
End If

returnWert$ = Right (zw$,8) + returnWert$
wert1$ = Left (wert1$ , Len (wert1$) - 8)
wert2$ = Left (wert2$ , Len (wert2$) - 8)
Wend

If KommaZahl = 1 Then
ZWSumme$ = (Int (wert1$) + Int (wert2$) + c) + returnWert$

If Len (ZWSumme$) < KommaStelle Then
ZWSumme$ = "0." + Replace (RSet (ZWSumme$,kommastelle) ," ","0")
Else
ZWSumme$ = Left (ZWSumme$, Len (ZWSumme$) - KommaStelle) + "." + Right (ZWSumme$, KommaStelle)
End If

While Right (ZWSumme$,1) = 0
ZWSumme$ = Left (ZWSumme$,Len (ZWSumme$) - 1)
Wend

If Right (ZWSumme$,1) = "." Then ZWSumme$ = Left (ZWSumme$,Len (ZWSumme$) - 1)
Return ZWSumme$
Else
Return (Int (wert1$) + Int (wert2$) + c) + returnWert$
End If

End Function

Function Subtrahieren_Komma$ (Wert1$,Wert2$)

If Left (Wert1$ ,1) = "-" Then wert1$ = Mid (wert1$,2) : w1% = 1
If Left (Wert2$ ,1) = "-" Then wert2$ = Mid (wert2$,2) : w2% = 1

If (w1% + w2%) Then

If W1% Then

If W2% Then

Select WertVergleichenKomma% (Wert1$,Wert2$)

Case 0 Return "0"

Case 1 Return "-" + Subtrahieren_Komma$ (Wert1$,Wert2$)

Case 2 Return Subtrahieren_Komma$ (Wert2$,Wert1$)
End Select

Else
Return "-" + Addieren_Komma$ (Wert1$,Wert2$)
End If

Else

If w2 Then Return Addieren_Komma$ (Wert1$,Wert2$)

End If

End If

Select WertVergleichenKomma% (Wert1$,Wert2$)

Case 0 Return 0

Case 2 Return "-" + Subtrahieren_Komma$ (Wert2$,Wert1$)
End Select

If Instr (Wert1$,".") Or Instr (Wert2$,".") Then
KommaZahl = 1

If Instr (Wert1$,".") Then
w1_VorKomma$ = Left (Wert1$,Instr (Wert1$,".") - 1)
W1_Rest$ = Mid (Wert1$,Instr (Wert1$,".") + 1)
Else
w1_VorKomma$ = Wert1$
End If

If Instr (Wert2$,".") Then
w2_VorKomma$ = Left (Wert2$,Instr (Wert2$,".") - 1)
W2_Rest$ = Mid (Wert2$,Instr (Wert2$,".") + 1)
Else
w2_VorKomma$ = Wert2$
End If

If Len (W1_Rest$) < Len (W2_Rest$) Then
W1_Rest$ = LSet (W1_Rest$,Len (W2_Rest$) )
W1_Rest$ = Replace (W1_Rest$," ","0")
Else
W2_Rest$ = LSet (W2_Rest$,Len (W1_Rest$) )
W2_Rest$ = Replace (W2_Rest$," ","0")
End If

KommaStelle = Len (W2_Rest$)
Wert1$ = w1_VorKomma$ + W1_Rest$
Wert2$ = w2_VorKomma$ + W2_Rest$
End If

If Len (wert1$) > Len (wert2$) Then
wert2$ = RSet (wert2$,Len (wert1$) )
Else
wert1$ = RSet (wert1$,Len (wert2$) )
End If

While Len (wert1$) > 8
zw = (Int (Right (wert1$,8) ) - Int (Right (wert2$,8) ) - c%)
wert1$ = Left (wert1$ , Len (wert1$) - 8)
wert2$ = Left (wert2$ , Len (wert2$) - 8)

If zw < 0 Then
zw = 100000000 + zw
c% = 1
Else
c% = 0
End If

If Len (Str (zw) ) < 8 Then
zwS$ = Replace (RSet (zw,8) ," ","0")
returnWert$ = Right (zwS$,8) + returnWert$
Else
returnWert$ = zw + returnWert$
End If

Wend

zw = (Int (Right (wert1$,8) ) - Int (Right (wert2$,8) ) - c%)
returnWert$ = Replace (RSet (zw,8) ," ","0") + returnWert$

If KommaZahl = 1 Then
returnWert$ = Left (returnWert$, Len (returnWert$) - KommaStelle) + "." + Right (returnWert$, KommaStelle)

While Right (returnWert$,1) = 0
returnWert$ = Left (returnWert$,Len (returnWert$) - 1)
Wend

If Right (returnWert$,1) = "." Then returnWert$ = Left (returnWert$,Len (returnWert$) - 1)

While Left (returnWert$,1) = "0"
returnWert$ = Mid (returnWert$,2)
Wend

If Left (returnWert$,1) = "." Then returnWert$ = "0" + returnWert$
Else

While Left (returnWert$,1) = "0"
returnWert$ = Mid (returnWert$,2)
Wend

End If

Return returnWert$
End Function

Function Dividieren_Komma$ (Wert1$,Wert2$,Nachkomma% = 50)
If Left (Wert1$ ,1) = "-" Then wert1$ = Mid (wert1$,2) : w1% = 1
If Left (Wert2$ ,1) = "-" Then wert2$ = Mid (wert2$,2) : w2% = 1
If w1 + w2 = 1 Then Vorzeichen$ = "-"

If Instr (Wert1$,".") Or Instr (Wert2$,".") Then

If Instr (Wert1$,".") Then
w1_VorKomma$ = Left (Wert1$,Instr (Wert1$,".") - 1)
W1_Rest$ = Mid (Wert1$,Instr (Wert1$,".") + 1)
Else
w1_VorKomma$ = Wert1$
End If

If Instr (Wert2$,".") Then
w2_VorKomma$ = Left (Wert2$,Instr (Wert2$,".") - 1)
W2_Rest$ = Mid (Wert2$,Instr (Wert2$,".") + 1)
Else
w2_VorKomma$ = Wert2$
End If

If Len (W1_Rest$) < Len (W2_Rest$) Then
W1_Rest$ = LSet (W1_Rest$,Len (W2_Rest$) )
W1_Rest$ = Replace (W1_Rest$," ","0")
Else
W2_Rest$ = LSet (W2_Rest$,Len (W1_Rest$) )
W2_Rest$ = Replace (W2_Rest$," ","0")
End If

Wert1$ = w1_VorKomma$ + W1_Rest$
Wert2$ = w2_VorKomma$ + W2_Rest$
End If

While Nachkomma%

If Len (Wert1) = 0 Then

If Kommagesetzt Then
ReWert$ = ReWert + "0"
Nachkomma% = Nachkomma% - 1
Else
Kommagesetzt = 1
ergebnis$ = ergebnis$ + "."
ReWert$ = ReWert + "0"
If Len (Replace (ReWert$,"0","") ) = 0 Then Exit
End If

Else
ReWert$ = ReWert + Mid (wert1,1,1)
wert1 = Mid (wert1,2)
End If

For i = 0 To 10

If Dividieren_Vergleichen (ReWert$,wert2$) = 2 Then
ergebnis$ = ergebnis$ + i
Exit
Else
ZwWert$ = Subtrahieren$ (ReWert$,wert2)
ReWert$ = ZwWert$
End If

Next

Wend

While Left (ergebnis$,1) = "0"
ergebnis$ = Mid (ergebnis$,2)
Wend

If Left (ergebnis$,1) = "." Then ergebnis$ = "0" + ergebnis$
If Right (ergebnis$,1) = "." Then ergebnis$ = Left (ergebnis$,Len (ergebnis$) - 1)
If Len (ergebnis$) = 0 Then ergebnis$ = "0"
Return Vorzeichen$ + ergebnis$
End Function

Function Dividieren$ (Wert1$,Wert2$)
If Left (Wert1$ ,1) = "-" Then wert1$ = Mid (wert1$,2) : w1% = 1
If Left (Wert2$ ,1) = "-" Then wert2$ = Mid (wert2$,2) : w2% = 1
If w1 + w2 = 1 Then Vorzeichen$ = "-"

While Len (wert1)
ReWert$ = ReWert + Mid (wert1,1,1)
wert1 = Mid (wert1,2)

For i = 0 To 10

If Dividieren_Vergleichen (ReWert$,wert2$) = 2 Then
ergebnis$ = ergebnis$ + i
Exit
Else
ZwWert$ = Subtrahieren$ (ReWert$,wert2)
ReWert$ = ZwWert$
End If

Next

Wend

While Left (ergebnis$,1) = "0"
ergebnis$ = Mid (ergebnis$,2)
Wend

If Len (ergebnis$) = 0 Then ergebnis$ = "0"
Return Vorzeichen$ + ergebnis$
End Function

Function Dividieren_Vergleichen (wert1$,wert2$)

If Left (wert1$,1) = "0" Then
While Left (wert1$,1) = "0" : wert1$ = Mid (wert1$,2) : Wend
If Len (wert1$) = 0 Then wert1$ = "0"
End If

If Left (wert2$,1) = "0" Then
While Left (wert2,1) = "0" : wert2 = Mid (wert2,2) : Wend
If Len (wert2) = 0 Then wert2 = "0"
End If

a1 = Len (wert1$)
a2 = Len (wert2$)
If a1 > a2 Then Return 1
If a1 < a2 Then Return 2
If wert1$ > wert2$ Then Return 1
If wert1$ < wert2$ Then Return 2
Return 0
End Function

Function Multiplizieren$ (Wert1$,Wert2$)
If Left (Wert1$ ,1) = "-" Then wert1$ = Mid (wert1$,2) : w1% = 1
If Left (Wert2$ ,1) = "-" Then wert2$ = Mid (wert2$,2) : w2% = 1
If w1 + w2 = 1 Then Vorzeichen$ = "-"

For i = 1 To Len (wert1$)
Multipli% = Mid (wert1$,i ,1)
dummy2$ = Wert2$

While Len (dummy2$) > 7
Akwert = Right (dummy2$,7)
dummy2$ = Left (wert2$,Len (dummy2$) - 7)
erg = Multipli% * Akwert + rest%

If erg > 9999999 Then
rest% = Left (erg ,1)
erg = Right (erg ,7)
Else
rest = 0
End If

If Len (Str (erg) ) < 7 Then
ZwWert$ = Replace (RSet (erg,7) ," ","0") + ZwWert$
Else
ZwWert$ = Replace (RSet (erg,7) ," ","0") + ZwWert$
End If

Wend

rest% = Multipli% * Int (dummy2$) + rest%
ZwWert$ = rest% + ZwWert$
rest = 0

If Len (dummy$) Then
dummy$ = Addieren$ (ZwWert$ ,Dummy$ + "0")
Else
dummy$ = ZwWert$
End If

ZwWert$ = ""
Next

Return Vorzeichen$ + dummy$
End Function

Function Multiplizieren_Komma$ (Wert1$,Wert2$)
If Left (Wert1$ ,1) = "-" Then wert1$ = Mid (wert1$,2) : w1% = 1
If Left (Wert2$ ,1) = "-" Then wert2$ = Mid (wert2$,2) : w2% = 1
If w1 + w2 = 1 Then Vorzeichen$ = "-"

If Instr (Wert1$,".") Or Instr (Wert2$,".") Then
KommaZahl = 1

If Instr (Wert1$,".") Then
w1_VorKomma$ = Left (Wert1$,Instr (Wert1$,".") - 1)
W1_Rest$ = Mid (Wert1$,Instr (Wert1$,".") + 1)
Else
w1_VorKomma$ = Wert1$
End If

If Instr (Wert2$,".") Then
w2_VorKomma$ = Left (Wert2$,Instr (Wert2$,".") - 1)
W2_Rest$ = Mid (Wert2$,Instr (Wert2$,".") + 1)
Else
w2_VorKomma$ = Wert2$
End If

If Len (W1_Rest$) < Len (W2_Rest$) Then
W1_Rest$ = LSet (W1_Rest$,Len (W2_Rest$) )
W1_Rest$ = Replace (W1_Rest$," ","0")
Else
W2_Rest$ = LSet (W2_Rest$,Len (W1_Rest$) )
W2_Rest$ = Replace (W2_Rest$," ","0")
End If

KommaStelle = Len (W2_Rest$)
Wert1$ = w1_VorKomma$ + W1_Rest$
Wert2$ = w2_VorKomma$ + W2_Rest$
End If

For i = 1 To Len (wert1$)
Multipli% = Mid (wert1$,i ,1)
dummy2$ = Wert2$

While Len (dummy2$) > 7
Akwert = Right (dummy2$,7)
dummy2$ = Left (wert2$,Len (dummy2$) - 7)
erg = Multipli% * Akwert + rest%

If erg > 9999999 Then
rest% = Left (erg ,1)
erg = Right (erg ,7)
Else
rest = 0
End If

ZwWert$ = Replace (RSet (erg,7) ," ","0") + ZwWert$
Wend

rest% = Multipli% * Int (dummy2$) + rest%
ZwWert$ = rest% + ZwWert$
rest = 0

If Len (dummy$) Then
dummy$ = Addieren$ (ZwWert$ ,Dummy$ + "0")
Else
dummy$ = ZwWert$
End If

ZwWert$ = ""
Next

If KommaZahl = 1 Then

If Len (dummy$) < KommaStelle * 2 Then
dummy = "0." + Replace (RSet (dummy,KommaStelle * 2) ," ","0")
Else
dummy$ = Left (dummy$, Len (dummy$) - KommaStelle * 2) + "." + Right (dummy$, KommaStelle * 2)
End If

While Right (dummy$,1) = 0
dummy$ = Left (dummy$,Len (dummy$) - 1)
Wend

If Right (dummy$,1) = "." Then dummy$ = Left (dummy$,Len (dummy$) - 1)
End If

Return Vorzeichen$ + dummy$
End Function

Function Square_Root$ (Wert1$)
If Left (Wert1$ ,1) = "-" Then wert1$ = Mid (wert1$,2)
If Len (Wert1$) Mod 2 Then Wert1$ = " " + Wert1$

While Len (wert1)
VonOb$ = Left (wert1,2)
wert1 = Mid (wert1,3)

If Abzieh$ = "" Then
Abzieh$ = "1"
Else
Abzieh$ = Addieren$ (erg$,erg$) + "1"
End If

ReWert$ = ReWert$ + VonOb
While Left (ReWert$,1) = "0" : Rewert = Mid (ReWert$,2) : Wend
If Len (Rewert) = 0 Then Rewert = "0"

For t = 0 To 10

If Dividieren_Vergleichen (ReWert$,Abzieh$) <> 2 Then
ReWert$ = Subtrahieren$ (ReWert$,Abzieh$)
Abzieh = Addieren$ (Abzieh,2)
Else
erg = erg + T
Exit
End If

Next

Wend

Return erg
End Function

Function Square_Root_KOMMA$ (Wert1$,Nachkomma% = 50)
If Left (Wert1$ ,1) = "-" Then wert1$ = Mid (wert1$,2)
Nachkomma% = Nachkomma% - 1
If Left (Wert1$,1) = "."Then Wert1$ = "0" + wert1
If Instr (Wert1$,".") = 0 Then Wert1$ = Wert1$ + "."
;Vorm Komma und nach Komma Stellen durch 2 teilbar
Dummy1$ = Left (Wert1$,Instr (Wert1$,".") - 1)
If Len (Dummy1$) Mod 2 Then Dummy1$ = "0" + Dummy1$
Dummy2$ = Mid (Wert1$,Instr (Wert1$,".") + 1)
If Len (Dummy2$) Mod 2 Then Dummy2$ = Dummy2$ + "0"
Wert1$ = Dummy1$ + "." + Dummy2$

Repeat

.Start

If Len (Wert1) Then
VonOb$ = Left (wert1,2)
Else
VonOb$ = "00"
End If

If Instr (VonOb$,".") Then
Komma = Len (erg$)
wert1 = Mid (wert1,2)
Goto Start
End If

wert1 = Mid (wert1,3)

If Abzieh$ = "" Then
Abzieh$ = "1"
Else
Abzieh$ = Addieren$ (erg$,erg$) + "1"
End If

ReWert$ = ReWert$ + VonOb
While Left (ReWert$,1) = "0" : Rewert = Mid (ReWert$,2) : Wend
If Len (Rewert) = 0 Then Rewert = "0"

For t = 0 To 10

If Dividieren_Vergleichen (ReWert$,Abzieh$) <> 2 Then
ReWert$ = Subtrahieren$ (ReWert$,Abzieh$)
Abzieh = Addieren$ (Abzieh,2)
Else
erg = erg + T
Exit
End If

Next

If Len (erg) - Komma > Nachkomma% Then Exit
Forever

If komma Then
returnwert$ = Left (Erg$,Komma) + "." + Mid (Erg$,Komma + 1)
Return returnwert$
Else
Return erg
End If

End Function

Function WertVergleichenKomma% (Wert1$,Wert2$)

While Left (wert1$,1) = "0"
Wert1 = Mid (wert1,2)
Wend

While Left (wert2$,1) = "0"
Wert2 = Mid (wert2,2)
Wend

w1% = Instr (wert1$,".")
w2% = Instr (wert2$,".")

If w1 > w2 Then Return 1
If w1 < w2 Then Return 2

If Wert1$ > Wert2$ Then Return 1
If Wert1$ < Wert2$ Then Return 2
Return 0
End Function

;Integer Versionen
;-Addieren$ (Wert1$,Wert2$)
;-Subtrahieren$ (Wert1$,Wert2$)
;-Multiplizieren$ (Wert1$,Wert2$)
;-Dividieren$ (Wert1$,Wert2$)
;-Square_Root$ (Wert1$)

;Float Versionen
;-Addieren_Komma$ (Wert1$,Wert2$)
;-Subtrahieren_Komma$ (Wert1$,Wert2$)
;-Multiplizieren_Komma$ (Wert1$,Wert2$)
;-Square_Root_Komma$ (Wert1$,Nachkomma% = 50)
;-Dividieren_Komma$ (Wert1$,Wert2$,Nachkomma% = 50)

;wird von einigen der Functionen ben�tigt
;-Dividieren_Vergleichen(wert1$,wert2$)
;-WertVergleichenKomma%(Wert1$,Wert2$) ;nur f�r Floats
;
;;TEST ;TEST ;TEST ;TEST ;TEST ;TEST ;TEST ;TEST ;TEST ;TEST

a$ = "150"

Graphics 1200 ,200,16,2

Print "Startwert"
Print a

b$ = Addieren_Komma$ (A$ ,"2")
Print b
c$ = Multiplizieren_Komma$ (a$ , 3)
Print c

d$ = Dividieren_Komma$ (a$ , 3,5)
Print d
e$ = Subtrahieren_Komma$ (A$ ,"1.5")

Print e

WaitKey

In dem Beispiel mit 150 und davon 1 subrahieren - warum bekomme ich ein Minusergebnis?? Mache ich aus der 1 eine 10, passt es.
Woran liegts?

Sonstiges / Projekte / Bismuth pre-Alpha

Noobody — Thu, 17 May 2012 16:25:52 +0200

Autor: Noobody

Ja, das ist so. Das ist aber in BMax und den meisten anderen Programmiersprachen auch so. Probier z.B. mal den folgenden Code in BMax: BlitzMax: [AUSKLAPPEN]

Type Fish
End Type

Local Fish:Fish = New Fish

Das sollte dir "Compile Error: Duplicate identifier 'Fish'" werfen.

@Propellator: Wie im Worklog erw�hnt, gibt es noch keinen Support f�r MacOS oder Linux.

Sonstiges / Projekte / Bismuth pre-Alpha

ZaP — Thu, 17 May 2012 16:21:07 +0200

Autor: ZaP

Ist das so vorgesehen, dass Variablenbezeichner und Klassenbezeichner sich nicht �berlappen d�rfen?
Beispiel:
BlitzMax: [AUSKLAPPEN]

class Fish

    Private
    Field size:Int

    Public

    Method Fish(size:Int)
        Print("constructor: Fish")
        Self.size = size
    End Method
    
    Method printSize()
        Print("This is one big fish: " + Self.size)
    End Method

End class

class BlowFish Extends Fish

    Private
    Field sizeWhenBlown:Int
    
    Public
    
    Method BlowFish(blowSize:Int, defaultSize:Int = 10)
        Super(defaultSize)
        Self.sizeWhenBlown = blowSize
    End Method
    
    Method printSize()
        Super.printSize()
        Print("It can blow itself to a volume of " + Self.sizeWhenBlown)
    End Method

End class


Local fish:Fish = New Fish(10)
Local blowFish:BlowFish = New BlowFish(20)
Local blowFish2:Fish = New BlowFish(12, 5)

fish.printSize()
blowFish.printSize()
blowFish2.printSize()

Print("That's all, folks!")

Dieses Skript erzeugt den Fehler 'Semantic error: Redefinition of 'fish''
�ndere ich den Bezeichner fish (und die anderen beiden entsprechend) in z.B. myfish, dann geht's.

BlitzMax / Allgemein / Blitzmax unter Linux - Ich kann nichts kompilieren

M0rgenstern — Thu, 17 May 2012 16:00:10 +0200

Autor: M0rgenstern

Also, wie gesagt.
Das Problem habe ich mit Framwork behoben. Aber trotzdem sind noch so viele Fehler aufgetaucht (zum Beispiel haben manche selbstgeschriebene Module, die unter Windows schon wochenlang benutzt werden, nicht funktioniert (er hat da zum Beispiel Bilder nicht geladen)), dass ich einfach weiterhin auf Windows mit Blitzmax arbeite.

Vielen Dank f�r die Hilfe^^

Lg, M0rgenstern

Sonstiges / Projekte / Bismuth pre-Alpha

Propellator — Thu, 17 May 2012 15:54:30 +0200

Autor: Propellator

Linux: eine header-datei f�r Linux f�r das GLEW Modul fehlt (glxew.h), nach nachtr�glichem einf�gen kompiliert das Modul trotzdem nicht, es wird einfach nicht erkannt, irgendwie.

Sonstiges / Projekte / Bismuth pre-Alpha

BladeRunner — Thu, 17 May 2012 15:49:59 +0200

Autor: BladeRunner

Hier nur in aller K�rze der Hinweis auf Bismuth: *Klick*

Wie dort schon beschrieben ist Bismuth quasi unser Ansatz f�r ein neues, verbessertes Blitzmax.
Bitte spielt ausf�hrlich damit und gebt uns reichlich Feedback.

In diesem Thread k�nnt ihr uns gerne Hinweise, Anregungen, Bugreports etc. hinterlassen.

Also denne: Fragen?

BlitzMax / Allgemein / Blitzmax unter Linux - Ich kann nichts kompilieren

Xeres — Thu, 17 May 2012 15:14:21 +0200

Autor: Xeres

Alle Module aus Brl und Pub werden ohne Framework immer mit eingebunden. Module von dritten sollten da nicht drin stecken.

Ressourcen / Grafik & Design / Blender oder C4D?

PSY — Thu, 17 May 2012 15:12:17 +0200

Autor: PSY

Hi,

erstmal danke fuer die Antwort

Aber ich brauch auch ein Tool, um Highpoly Modelle zu erstellen und die Texturen zu backen, um spaeter auf Lowpoly Modelle zu kleben.

Hab mir mal ein paar Videos angesehen, da gibts wohl diverse Moeglichkeiten. Einige benutzen Blender fuer den ganzen Kram, wieder andere modellen in ZBrush und benutzen ZBrush auch fuer die Texturen, exportieren die Meshes aber in Blender um dort die Lowpoly Modelle zu erstellen.

Aber ich werd mir trotzdem erstmal Milkshape anschaun. Sieht von der Bedienbarkeit echt ok aus.

Falls noch jmd Tips zu dem Thema hat, einfach posten

PSY

BlitzMax / Allgemein / Blitzmax unter Linux - Ich kann nichts kompilieren

M0rgenstern — Thu, 17 May 2012 14:34:34 +0200

Autor: M0rgenstern

Hey Xeres.
Deine Frage kann ich dir leider nicht beantworten, da ich bewusst nichts mit bnet getan habe.
Framework zu nutzen hat abhilfe geschafft.

Vielen Dank daf�r an Dich und Lobby (der mirs im ICQ gesagt hat).

Lg, M0rgenstern

BlitzMax / Allgemein / Blitzmax unter Linux - Ich kann nichts kompilieren

Xeres — Thu, 17 May 2012 14:11:15 +0200

Autor: Xeres

Warum liegt bnet im pub Verzeichnis und nicht in einem eigenen? Um das Modul raus zu werfen, m�sstest du ein Framework benutzen.
Keine Ahnung was das eigentliche Problem mit bnet sein k�nnte...

Ressourcen / Grafik & Design / Scribbles & Paintings V

Tobchen — Thu, 17 May 2012 11:47:50 +0200

Autor: Tobchen

Elaine aus Tales of Monkey Island in meinem �blichen Stil:

BlitzMax / Allgemein / Blitzmax unter Linux - Ich kann nichts kompilieren

M0rgenstern — Wed, 16 May 2012 23:59:32 +0200

Autor: M0rgenstern

Hallo Leute,
Ich habe gerade ein ziemliches Problem und hoffe, dass ihr mir helfen k�nnt.
Undzwar wollte ich unter Linux mit BlitzMax programmieren.
Also habe ich zuerstmal alle Module gebaut. Die Fehler die da aufgetreten sind habe ich soweit alle behoben (waren so ziemlich alles Fehler wegen X11).
Aber jetzt wollte ich ein ganz einfaches Programm kompilieren, das auch keinerlei Module nutzt, aber das ganze scheitert beim linken.

Undzwar erhalte ich folgende Ausgabe:
Code: [AUSKLAPPEN]

Building Test
Compiling:Test.bmx
flat assembler version 1.68 (32768 kilobytes memory)
4 passes, 27490 bytes.
Linking:Test.debug
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TNetwork_CloseNetwork':
(code+0x5d1): undefined reference to `WSACleanup@0'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TNetwork_CountHostIPs':
(code+0x71f): undefined reference to `gethostbyname@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TNetwork_CountHostIPs':
(code+0x878): undefined reference to `ntohl@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TNetwork_DottedIP':
(code+0xb84): undefined reference to `htonl@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TNetwork_IntIP':
(code+0xbdc): undefined reference to `htonl@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPStream_TCPStreamIP':
(code+0xf93): undefined reference to `ntohl@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPStream_TCPStreamPort':
(code+0x1092): undefined reference to `ntohs@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPStream_Size':
(code+0x1527): undefined reference to `ioctlsocket@12'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPStream_Close':
(code+0x15d2): undefined reference to `shutdown@8'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPStream_Close':
(code+0x15fb): undefined reference to `closesocket@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPStream_Read':
(code+0x19e8): undefined reference to `recv@16'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPStream_Read':
(code+0x1c8d): undefined reference to `recv@16'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPStream_Write':
(code+0x1ea7): undefined reference to `send@16'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPStream_Write':
(code+0x1fdb): undefined reference to `send@16'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPStream_Write':
(code+0x2045): undefined reference to `sendto@24'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPServer_CreateTCPServer':
(code+0x2368): undefined reference to `socket@12'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPServer_CreateTCPServer':
(code+0x246f): undefined reference to `htons@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPServer_CreateTCPServer':
(code+0x24f2): undefined reference to `bind@12'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPServer_CreateTCPServer':
(code+0x252f): undefined reference to `closesocket@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPServer_CreateTCPServer':
(code+0x2578): undefined reference to `listen@8'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPServer_CreateTCPServer':
(code+0x25b7): undefined reference to `shutdown@8'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPServer_CreateTCPServer':
(code+0x25e0): undefined reference to `closesocket@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPServer_AcceptTCPStream':
(code+0x281c): undefined reference to `accept@12'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPClient_OpenTCPStream':
(code+0x2c72): undefined reference to `socket@12'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPClient_OpenTCPStream':
(code+0x2da9): undefined reference to `htons@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPClient_OpenTCPStream':
(code+0x2ef4): undefined reference to `htons@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPClient_OpenTCPStream':
(code+0x300d): undefined reference to `htons@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPClient_OpenTCPStream':
(code+0x30e1): undefined reference to `shutdown@8'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPClient_OpenTCPStream':
(code+0x310a): undefined reference to `closesocket@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPClient_OpenTCPStream':
(code+0x3170): undefined reference to `connect@12'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPClient_OpenTCPStream':
(code+0x31b5): undefined reference to `shutdown@8'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TTCPClient_OpenTCPStream':
(code+0x31de): undefined reference to `closesocket@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TUDPStream_CreateUDPStream':
(code+0x3622): undefined reference to `socket@12'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TUDPStream_CreateUDPStream':
(code+0x372b): undefined reference to `htons@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TUDPStream_CreateUDPStream':
(code+0x37ae): undefined reference to `bind@12'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TUDPStream_CreateUDPStream':
(code+0x37ed): undefined reference to `closesocket@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TUDPStream_CreateUDPStream':
(code+0x386a): undefined reference to `getsockname@12'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TUDPStream_CreateUDPStream':
(code+0x38a9): undefined reference to `closesocket@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TUDPStream_RecvUDPMsg':
(code+0x3d8e): undefined reference to `recvfrom@24'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TUDPStream_RecvUDPMsg':
(code+0x3fd1): undefined reference to `ntohl@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TUDPStream_SendUDPMsg':
(code+0x421c): undefined reference to `htons@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TUDPStream_SendUDPMsg':
(code+0x4261): undefined reference to `htonl@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TUDPStream_SendUDPMsg':
(code+0x42cd): undefined reference to `sendto@24'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TUDPStream_UDPMsgIP':
(code+0x45f7): undefined reference to `ntohl@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TUDPStream_UDPMsgPort':
(code+0x46f6): undefined reference to `ntohs@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TUDPStream_UDPStreamIP':
(code+0x4789): undefined reference to `ntohl@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TUDPStream_UDPStreamPort':
(code+0x4888): undefined reference to `ntohs@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TUDPStream_Close':
(code+0x4a61): undefined reference to `shutdown@8'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `_pub_bnet_TUDPStream_Close':
(code+0x4a8a): undefined reference to `closesocket@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `pub_bnet_s_FD_ISSET':
(code+0x5b6a): undefined reference to `__WSAFDIsSet@8'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `pub_bnet_s_select':
(code+0x5f60): undefined reference to `select@20'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `pub_bnet_s_inet_addr':
(code+0x6198): undefined reference to `inet_addr@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `pub_bnet_s_inet_ntoa':
(code+0x61de): undefined reference to `inet_ntoa@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `pub_bnet_s_gethostbyname':
(code+0x627e): undefined reference to `gethostbyname@4'
/home/luzifer/Programme/BlitzMax/mod/pub.mod/bnet.mod/bnet.debug.linux.x86.a(bnet.bmx.debug.linux.x86.o): In function `pub_bnet_s_WSAStartup':
(code+0x645c): undefined reference to `WSAStartup@8'
collect2: ld gab 1 als Ende-Status zur�ck
Build Error: Failed to link /home/luzifer/Dokumente/Programmierung/BlitzMax/WIP/Translator/Test.debug
Process complete

Also, wie gesagt: Die Module wurden alle gebaut, jedenfalls ist er beim rebuild der Module komplett durchgelaufen.
Ich hab auch schon danach gegoogelt aber nichts hilfreiches gefunden.
W�re wirklich super, wenn jemand ahnen k�nnte, was da los ist.

Achja, zum System: Ich nutze Kubuntu 12.04

Lg, M0rgenstern

Sonstiges / Projekte / WiP - Work in Progress - Part XVIII

Amazorn — Wed, 16 May 2012 23:39:55 +0200

Autor: Amazorn

Sehr sch�ne Idee Boris.

Ressourcen / Grafik & Design / Blender oder C4D?

Amazorn — Wed, 16 May 2012 23:36:17 +0200

Autor: Amazorn

Keins der beiden, wenn Du dir die Frage stellst.
Beide sind �berladen mit Funktionen die man f�r 90% der Aufgaben in der Spielewelt nicht braucht.
Nimm Milkshape. Da ist alles enthalten was Du ben�tigst.

Sonstiges / Projekte / BCC #61 - Fr�chte

Addi — Wed, 16 May 2012 23:09:25 +0200

Autor: Addi

Mein Beitrag.
Hoffe er ist Regelkonform und rechtzeitig abgegeben.

http://dl.dropbox.com/u/480899...urvive.rar

Ps: Der Spieler ist eine Kartoffel!

BlitzMax / Codearchiv / Recher f�r Komplexe Zahlen

Joel — Wed, 16 May 2012 22:30:11 +0200

Autor: Joel

Da ich hin und wieder mit Komplexen Zahlen arbeite, habe ich einige Funktionen zum Rechnen mit ihnen zusammengeschraubt. Es sind die Operationen Addition,Subtraktion,Multiplikation,Division und Potenzieren vertreten.
Wurzeln kann man nur begrenzt mit der Potenz-Funktion ziehen, da sie immer nur eine Wurzel zur�ckgibt.
Potenzieren geht nur mit reellen Zahlen im Exponenten.

Die Zahl wird in einem String angegeben :"Realteil:Imagin�rteil"

Code: [AUSKLAPPEN]

SuperStrict

Global a:String = "3:7"
Global b:String = "4:2"

Print "Add: " + Add(a, b)
Print "Subtract: " + Subtract(a, b)
Print "Multiply: " + Multiply(a, b)
Print "Divide: " + Divide(a, b)
Print "Exponentiate:" + Exponentiate(a, 2)
Print "Root: " + Exponentiate(a, 1 / 2.0)
Print ""
Print "Argument: " + Argument(b)
Print "Absolute: " + CAbs(a)
Print "Complex Conjugate: " + CConjugate(a)

Function Re:Double(z:String)
Return Double(Left(z, Instr(z, ":")))
End Function

Function Im:Double(z:String)
Return Double(Right(z, Instr(z, ":") - 1))
End Function

Function Argument:Double(z:String)
Return ATan2(Im(z), Re(z))
End Function

Function CAbs:Double(z:String)
Local a:Double = re(z)
Local b:Double = im(z)
Return Sqr(a * a + b * b)
End Function

Function CConjugate:String(z:String)
Return Re(z) + ":" + (-Im(z))
End Function

Function Add:String(z1:String, z2:String)
Return (Re(z1) + Re(z2)) + ":" + (Im(z1) + Im(z2))
End Function

Function Subtract:String(z1:String, z2:String)
Return (Re(z1) - Re(z2)) + ":" + (Im(z1) - Im(z2))
End Function

Function Multiply:String(z1:String, z2:String)
Local a:Double = Re(z1)
Local b:Double = Im(z1)
Local c:Double = Re(z2)
Local d:Double = Im(z2)
Return (a * c - b * d) + ":" + (a * d + b * c)
End Function

Function Divide:String(z1:String, z2:String)
Local a:Double = Re(z1)
Local b:Double = Im(z1)
Local c:Double = Re(z2)
Local d:Double = Im(z2)
Return ((a * c + b * d) / (c * c + d * d)) + ":" + ((b * c - a * d) / (c * c + d * d))
End Function

Function Exponentiate:String(z1:String, Exponent:Double)
Local a:Double = Re(z1)
Local b:Double = Im(z1)
Local w:Double = ATan2(b, a) * exponent
Local l:Double = Sqr(a * a + b * b) ^ exponent
Return (Cos(w) * l) + ":" + (Sin(w) * l)
End Function

Ressourcen / Grafik & Design / Blender oder C4D?

PSY — Wed, 16 May 2012 20:28:16 +0200

Autor: PSY

Hi Leute,

fuer ein aktuelles Projekt brauch ich mehrere (mehr und weniger) komplexe 3D Modelle (mit und ohne Animation) fuer Blitz3D.

Blender 2_49b funzt ja mit Gandalfs Exporter. Ich hab noch irgendwo ne Uralt Heft-CD Version von Cinema, und kann mich erinnern dass BigBugs Exporter mit der lief.

Leider hab ich bis dato nur super simple Modelle erstellt (ohne Animation).

Bei den Modellen gehts eigentlich um Items wie Schwerter, Steine, Boxen, Pfeile, Helme usw (nicht animiert) und um Monstertypen (animiert).

Welches Tool (unabhaenig von der Bedienbarkeit) wuerdet ihr mir da eher empfehlen (es geht rein um die Funktionalitaet und Fehlerfreiheit des Exporters (*.B3D)?

L8er,
PSY