PureBasic 3.94 for Windows released

Developed or developing a new product in PureBasic? Tell the world about it.
Post Reply
dracflamloc
Addict
Addict
Posts: 1648
Joined: Mon Sep 20, 2004 3:52 pm
Contact:
Contact dracflamloc

Post by dracflamloc »

fweil wrote:Funny !

The editor does not accept mistakes :lol:

Well, when entering :

Code: Select all

Procedure oooops(ok.l, mistake)
EndProcedure
it does not crash. But with mistake() it does ...
Say what?

You mean you cant make a procedure called mistake?

like

procedure mistake()
endprocedure

doesn't work?
Top
Truth_Seeker
Enthusiast
Enthusiast
Posts: 145
Joined: Tue Mar 01, 2005 8:41 pm
Location: Near a Computer

Post by Truth_Seeker »

He means mistakes in what you should not do. Like you cant have a procedure as a agument when making a procedure like the example shows (the one that crashes the IDE).
Thanks
Truth Seeker
Top
akee
Enthusiast
Enthusiast
Posts: 496
Joined: Wed Aug 18, 2004 9:52 am
Location: Penang, Malaysia

Post by akee »

i caught this kinda randomly. :wink:

now all of us will have to get a SmartUpdate... sorry guys!
Top
fweil
Enthusiast
Enthusiast
Posts: 725
Joined: Thu Apr 22, 2004 5:56 pm
Location: France
Contact:
Contact fweil

Post by fweil »

The bugs occurs not only using mistake characters sequence!!!

I checked this which does the same error.

Code: Select all

Procedure foo(fooo())
EndProcedure
My avatar is a small copy of the 4x1.8m image I created and exposed at 'Le salon international du meuble à Paris' january 2004 in Matt Sindall's 'Shades' designers exhibition. The original laminated print was designed using a 150 dpi printout.
Top
ricardo
Addict
Addict
Posts: 2438
Joined: Fri Apr 25, 2003 7:06 pm
Location: Argentina

Post by ricardo »

I update and get this when trying to run editor

Image

And dont do nithing else, cant run it.
ARGENTINA WORLD CHAMPION
Top
thefool
Always Here
Always Here
Posts: 5875
Joined: Sat Aug 30, 2003 5:58 pm
Location: Denmark

Post by thefool »

uninstall noah's lib ProcessIt. And remove the resident file..!
Top
ricardo
Addict
Addict
Posts: 2438
Joined: Fri Apr 25, 2003 7:06 pm
Location: Argentina

Post by ricardo »

Thanks!! That works!!

One question: Dont have autocomplete or fold? Plans to add it?

[add] Now i found it, sorry, my mistake[/add]
ARGENTINA WORLD CHAMPION
Top
User avatar
NoahPhense
Addict
Addict
Posts: 1999
Joined: Thu Oct 16, 2003 8:30 pm
Location: North Florida

sweet..

Post by NoahPhense »

Love it..

Thanks Fred & Team.
Top
Dare2
Moderator
Moderator
Posts: 3321
Joined: Sat Dec 27, 2003 3:55 am
Location: Great Southern Land

Post by Dare2 »

fweil wrote:Funny !

The editor does not accept mistakes :lol:
lol. :D

Very clever!
@}--`--,-- A rose by any other name ..
Top
techjunkie
Addict
Addict
Posts: 1126
Joined: Wed Oct 15, 2003 12:40 am
Location: Sweden
Contact:
Contact techjunkie

Post by techjunkie »

Thanks guys! As always - great work and support!! You rules!! :D
Image
(\__/)
(='.'=) This is Bunny. Copy and paste Bunny into your
(")_(") signature to help him gain world domination.
Top
User avatar
SimpleMind
Enthusiast
Enthusiast
Posts: 112
Joined: Sun May 18, 2003 12:40 pm
Location: Netherlands

Post by SimpleMind »

I am impressed, amazed, puzzeled.... It is again a magnificent product update. I love it :D .

Thanks Fred and team members!

Kind Regards,

Marcel Kollenaar
Top
PWS32
User
User
Posts: 85
Joined: Sat May 10, 2003 1:02 pm
Location: Germany

PING

Post by PWS32 »

Sorry,
another program was not run under 3.94

Code: Select all

Procedure lngNewAddress(strAdd.s)
  sDummy.s=strAdd
  Position = FindString(sDummy, ".",1)
  If Position>0
    A1=Val(Left(sDummy,Position-1))
    sDummy=Right(sDummy,Len(sDummy)-Position)
    Position = FindString(sDummy, ".",1)
    If Position>0
      A2=Val(Left(sDummy,Position-1))
      sDummy=Right(sDummy,Len(sDummy)-Position)
      Position = FindString(sDummy, ".",1)
      If Position>0
        A3=Val(Left(sDummy,Position-1))
        sDummy=Right(sDummy,Len(sDummy)-Position)
        A4=Val(sDummy)
        Dummy.l=0
        PokeB(@Dummy,A1)
        PokeB(@Dummy+1,A2)
        PokeB(@Dummy+2,A3)
        PokeB(@Dummy+3,A4)
        ProcedureReturn Dummy
      EndIf
    EndIf
  EndIf
EndProcedure
Procedure Ping(IPAdresse.s)
  ECHO.ICMP_ECHO_REPLY
 
  lngDAddress = lngNewAddress(IPAdresse)
  lngHPort = IcmpCreateFile_()
  If IcmpSendEcho_(lngHPort, lngDAddress, "TestPing", Len("TestPing"), 0, ECHO, SizeOf(ICMP_ECHO_REPLY), 255)
    ;MessageRequester("","IP gibts!",0)
    ProcedureReturn -1
  Else
    ;MessageRequester("","IP nicht vorhanden",0)
    ProcedureReturn 0
  EndIf
EndProcedure
 

If Ping("192.168.0.1") : MessageRequester("","IP vorhanden im Netz",#MB_ICONINFORMATION) : Else : MessageRequester("","NO IP",#MB_iconerror) :EndIf
Top
zikitrake
Addict
Addict
Posts: 868
Joined: Thu Mar 25, 2004 2:15 pm
Location: Spain

Post by zikitrake »

This code works here.

I try it with 216.239.57.99 (google.com)
PB 6.21 beta, PureVision User
Top
fweil
Enthusiast
Enthusiast
Posts: 725
Joined: Thu Apr 22, 2004 5:56 pm
Location: France
Contact:
Contact fweil

Post by fweil »

@zikitrake & PWS32,

Seems that it does not work because PB structures are not aligned with API.

Code: Select all

Structure MyIP_OPTION_INFORMATION
  Ttl.b
  Tos.b
  Flags.b
  OptionsSize.l
  OptionsData.b[127]
EndStructure

Structure MyICMP_ECHO_REPLY
  Address.l
  Status.l
  RoundTripTime.l
  DataSize.w ; Integer
  Reserved.w ; Integer
  Data.l
  Options.MyIP_OPTION_INFORMATION
EndStructure
Using these structures works to me.

If you agree PWS32, maybe a post in the bug section applies.

Rgrds
My avatar is a small copy of the 4x1.8m image I created and exposed at 'Le salon international du meuble à Paris' january 2004 in Matt Sindall's 'Shades' designers exhibition. The original laminated print was designed using a 150 dpi printout.
Top
PWS32
User
User
Posts: 85
Joined: Sat May 10, 2003 1:02 pm
Location: Germany

Post by PWS32 »

I have it also tried without success
Top
Post Reply

Return to “Announcement”