PureBasic Forums - English

Posted: **Tue Mar 28, 2006 10:33 pm**

This message is for El_Choni, it's about Tailbite

I receive these error messages

Error at line 21 : "Qword" is not a valid argument type

Error at line 22 : "Qword" is not a valid result

When I try to built a Lib with this following code :

Code: Select all

ProcedureDLL.b LoopByte(Nombre.b, Minimum.b, Maximum.b, Increment.b)
   
   Nombre + Increment
   
   If Nombre > Maximum
      
      Nombre = Minimum
      
   ElseIf Nombre < Minimum
      
      Nombre = Maximum
      
   EndIf
   
   ProcedureReturn Nombre
   
EndProcedure

ProcedureDLL.w LoopWord(Nombre.w, Minimum.w, Maximum.w, Increment.w)
   
   Nombre + Increment
   
   If Nombre > Maximum
      
      Nombre = Minimum
      
   ElseIf Nombre < Minimum
      
      Nombre = Maximum
      
   EndIf
   
   ProcedureReturn Nombre
   
EndProcedure

ProcedureDLL.l LoopLong(Nombre.l, Minimum.l, Maximum.l, Increment.l)
   
   Nombre + Increment
   
   If Nombre > Maximum
      
      Nombre = Minimum
      
   ElseIf Nombre < Minimum
      
      Nombre = Maximum
      
   EndIf
   
   ProcedureReturn Nombre
   
EndProcedure

ProcedureDLL.q LoopQuad(Nombre.q, Minimum.q, Maximum.q, Increment.q)
   
   Nombre + Increment
   
   If Nombre > Maximum
      
      Nombre = Minimum
      
   ElseIf Nombre < Minimum
      
      Nombre = Maximum
      
   EndIf
   
   ProcedureReturn Nombre
   
EndProcedure

ProcedureDLL.f LoopFloat(Nombre.f, Minimum.f, Maximum.f, Increment.f)
   
   Nombre + Increment
   
   If Nombre > Maximum
      
      Nombre = Minimum
      
   ElseIf Nombre < Minimum
      
      Nombre = Maximum
      
   EndIf
   
   ProcedureReturn Nombre
   
EndProcedure

ProcedureDLL.d LoopDouble(Nombre.d, Minimum.d, Maximum.d, Increment.d)
   
   Nombre + Increment
   
   If Nombre > Maximum
      
      Nombre = Minimum
      
   ElseIf Nombre < Minimum
      
      Nombre = Maximum
      
   EndIf
   
   ProcedureReturn Nombre
   
EndProcedure

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

ProcedureDLL.b ScrollByte(Nombre.b, Minimum.b, Maximum.b, Increment.b)
   
   Nombre + Increment
   
   If Nombre > Maximum
      
      Nombre = Maximum
      
   ElseIf Nombre < Minimum
      
      Nombre = Minimum
      
   EndIf
   
   ProcedureReturn Nombre
   
EndProcedure 

ProcedureDLL.w ScrollWord(Nombre.w, Minimum.w, Maximum.w, Increment.w)
   
   Nombre + Increment
   
   If Nombre > Maximum
      
      Nombre = Maximum
      
   ElseIf Nombre < Minimum
      
      Nombre = Minimum
      
   EndIf
   
   ProcedureReturn Nombre
   
EndProcedure 

ProcedureDLL.l ScrollLong(Nombre.l, Minimum.l, Maximum.l, Increment.l)
   
   Nombre + Increment
   
   If Nombre > Maximum
      
      Nombre = Maximum
      
   ElseIf Nombre < Minimum
      
      Nombre = Minimum
      
   EndIf
   
   ProcedureReturn Nombre
   
EndProcedure 

ProcedureDLL.q ScrollQuad(Nombre.q, Minimum.q, Maximum.q, Increment.q)
   
   Nombre + Increment
   
   If Nombre > Maximum
      
      Nombre = Maximum
      
   ElseIf Nombre < Minimum
      
      Nombre = Minimum
      
   EndIf
   
   ProcedureReturn Nombre
   
EndProcedure 

ProcedureDLL.f ScrollFloat(Nombre.f, Minimum.f, Maximum.f, Increment.f)
   
   Nombre + Increment
   
   If Nombre > Maximum
      
      Nombre = Maximum
      
   ElseIf Nombre < Minimum
      
      Nombre = Minimum
      
   EndIf
   
   ProcedureReturn Nombre
   
EndProcedure 

ProcedureDLL.d ScrollDouble(Nombre.d, Minimum.d, Maximum.d, Increment.d)
   
   Nombre + Increment
   
   If Nombre > Maximum
      
      Nombre = Maximum
      
   ElseIf Nombre < Minimum
      
      Nombre = Minimum
      
   EndIf
   
   ProcedureReturn Nombre
   
EndProcedure

Regards
Guimauve

Posted: **Tue Mar 28, 2006 11:58 pm**

Fixed, thanks.

Posted: **Wed Mar 29, 2006 12:41 am**

where can i find and download the beta? thx

Posted: **Wed Mar 29, 2006 12:50 am**

The beta I'm using is from Feb 9. Is there a more recent one available, El_Choni?

Posted: **Wed Mar 29, 2006 12:52 am**

va!n wrote:where can i find and download the beta? thx

Here : http://www.purearea.net/pb/english/index.htm

In Tool download section

Regards
Guimauve

Posted: **Wed Mar 29, 2006 12:56 am**

Not a new one yet, sorry. I'll upload it as soon as it is enough bug-free...

Posted: **Wed Mar 29, 2006 2:06 am**

nice to hear El_Choni! thanks in advance!

PureBasic Forums - English

TailBite BETA for PB V4 - Qword Bug

TailBite BETA for PB V4 - Qword Bug