PureBasic Forums - English

Posted: **Wed Aug 17, 2005 8:15 pm**

fweil wrote:Funny !

The editor does not accept mistakes

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?

Posted: **Wed Aug 17, 2005 8:18 pm**

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).

Posted: **Wed Aug 17, 2005 8:48 pm**

i caught this kinda randomly.

now all of us will have to get a SmartUpdate... sorry guys!

Posted: **Wed Aug 17, 2005 9:39 pm**

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

I checked this which does the same error.

Code: Select all

Procedure foo(fooo())
EndProcedure

Posted: **Wed Aug 17, 2005 9:48 pm**

I update and get this when trying to run editor

And dont do nithing else, cant run it.

Posted: **Wed Aug 17, 2005 9:49 pm**

uninstall noah's lib ProcessIt. And remove the resident file..!

Posted: **Wed Aug 17, 2005 10:02 pm**

Thanks!! That works!!

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

[add] Now i found it, sorry, my mistake[/add]

Posted: **Wed Aug 17, 2005 11:43 pm**

Love it..

Thanks Fred & Team.

Posted: **Thu Aug 18, 2005 2:53 am**

fweil wrote:Funny !

The editor does not accept mistakes

lol.

Very clever!

Posted: **Thu Aug 18, 2005 8:09 pm**

Thanks guys! As always - great work and support!! You rules!!

Posted: **Thu Aug 18, 2005 10:02 pm**

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

.

Thanks Fred and team members!

Kind Regards,

Marcel Kollenaar

Posted: **Fri Aug 19, 2005 3:21 pm**

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

Posted: **Fri Aug 19, 2005 3:56 pm**

This code works here.

I try it with 216.239.57.99 (google.com)

Posted: **Fri Aug 19, 2005 4:29 pm**

@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

Posted: **Fri Aug 19, 2005 4:31 pm**

I have it also tried without success

PureBasic Forums - English

PureBasic 3.94 for Windows released

sweet..

PING