..

Developed or developing a new product in PureBasic? Tell the world about it.
Rolands
User
User
Posts: 39
Joined: Thu Jun 12, 2003 6:29 pm

..

Post by Rolands »

removed
Last edited by Rolands on Sat Dec 17, 2005 8:31 pm, edited 5 times in total.
DominiqueB
Enthusiast
Enthusiast
Posts: 103
Joined: Fri Apr 25, 2003 4:00 pm
Location: France

Great idea !

Post by DominiqueB »

Hello, great idea !
But it could be even better to deliver the code to allow one to explore and learn from it !
Anyway, thank's a lot.

Dominique
Dominique

Windows 10 64bits. Pure basic 32bits
User avatar
blueznl
PureBasic Expert
PureBasic Expert
Posts: 6166
Joined: Sat May 17, 2003 11:31 am
Contact:

Post by blueznl »

nice!

... hey nederlander, welkom :-)
( PB6.00 LTS Win11 x64 Asrock AB350 Pro4 Ryzen 5 3600 32GB GTX1060 6GB)
( The path to enlightenment and the PureBasic Survival Guide right here... )
Rolands
User
User
Posts: 39
Joined: Thu Jun 12, 2003 6:29 pm

Re: Great idea !

Post by Rolands »

removed
Last edited by Rolands on Fri Sep 02, 2005 9:05 pm, edited 1 time in total.
thefool
Always Here
Always Here
Posts: 5875
Joined: Sat Aug 30, 2003 5:58 pm
Location: Denmark

Post by thefool »

very nice :D

it would be cool if you could make it load the worms from a file, instead of
directly from an array.. [for internet auto update]

oh btw a little notice of your programming style :D

Code: Select all

Select OSVersion() 
  Case #PB_OS_Windows_95 
    MessageRequester("Windows version conflict", "Scanner is designed for Windows XP only.",#MB_ICONWARNING) 
    End
  Case #PB_OS_Windows_98 
    MessageRequester("Windows version conflict", "Scanner is designed for Windows XP only.",#MB_ICONWARNING)
    End 
  Case #PB_OS_Windows_ME 
    MessageRequester("Windows version conflict", "Scanner is designed for Windows XP only.",#MB_ICONWARNING) 
    End
  Case #PB_OS_Windows_NT3_51
    MessageRequester("Windows version conflict", "Scanner is designed for Windows XP only.",#MB_ICONWARNING) 
    End
  Case #PB_OS_Windows_NT_4
    MessageRequester("Windows version conflict", "Scanner is designed for Windows XP only.",#MB_ICONWARNING) 
    End
  Case #PB_OS_Windows_2000
    MessageRequester("Windows version conflict", "Scanner is designed for Windows XP only.",#MB_ICONWARNING) 
    End
  Case #PB_OS_Windows_Future 
    MessageRequester("Windows version conflict", "Scanner is designed for Windows XP only.",#MB_ICONWARNING) 
    End                                                   
EndSelect 
does exactly the same as this:

Code: Select all

If OSVersion()=#PB_OS_Windows_XP
  ;do nothing
Else
  MessageRequester("Windows version conflict", "Scanner is designed for Windows XP only.",#MB_ICONWARNING)
  End
EndIf
but last one is smaller :D
well just a little friendly note!

again: great work.

edit: notice that the messagerequester code is wordwrapped!
Polo
Addict
Addict
Posts: 2422
Joined: Tue May 06, 2003 5:07 pm
Location: UK

Post by Polo »

Code: Select all

If OSVersion()<>#PB_OS_Windows_XP
  MessageRequester("Windows version conflict", "Scanner is designed for Windows XP only.",#MB_ICONWARNING) 
  End
Endif
Even smaller ;)
thefool
Always Here
Always Here
Posts: 5875
Joined: Sat Aug 30, 2003 5:58 pm
Location: Denmark

Post by thefool »

damn :D
Rolands
User
User
Posts: 39
Joined: Thu Jun 12, 2003 6:29 pm

Post by Rolands »

removed
Post Reply