So lets see what you have done then...

Everything else that doesn't fall into one of the other PB categories.
Post Reply
airmedia
New User
New User
Posts: 4
Joined: Sun Feb 25, 2007 12:41 pm
Location: Halifax

So lets see what you have done then...

Post by airmedia »

I am wanting to have a look at some examples what people have
done by just using this program, PURE BASIC : Nothing Else

Post ya links,

Alistair www.air-media.co.uk
Top
rsts
Addict
Addict
Posts: 2736
Joined: Wed Aug 24, 2005 8:39 am
Location: Southwest OH - USA

Post by rsts »

There are plenty of examples of PB capabilities in the forum.

Just wondering based on your web site, for what purpose do you wish that information? To help you in coding or ??

cheers
Top
airmedia
New User
New User
Posts: 4
Joined: Sun Feb 25, 2007 12:41 pm
Location: Halifax

Post by airmedia »

Well, My interest is to make some kind of radio player, for streaming websites.. And i thought this program might be able to get me started.

So i thought i would have a look at what others have done to give me some kind of an idea on where to start

Alistair
Top
rsts
Addict
Addict
Posts: 2736
Joined: Wed Aug 24, 2005 8:39 am
Location: Southwest OH - USA

Post by rsts »

One of our members, Joakim Christiansen, has put together a program for playing streaming video.

A picture of it can be found here
http://jlc-software.com/images/internet_tv.jpg

He would be able to provide specifics. At one time he had posted the code, however, it seems someone 'borrowed' it and began selling a player based on his code, but he could probably answer some questions.

cheers
Top
zikitrake
Addict
Addict
Posts: 878
Joined: Thu Mar 25, 2004 2:15 pm
Location: Spain

Post by zikitrake »

zikitrake.com :lol:
PB 6.21 beta, PureVision User
Top
airmedia
New User
New User
Posts: 4
Joined: Sun Feb 25, 2007 12:41 pm
Location: Halifax

Post by airmedia »

Thats rather funny that is, Cos i went to his page and he made that using PB and he had a link on his site, So thats how i found out about it today.
Top
srod
PureBasic Expert
PureBasic Expert
Posts: 10589
Joined: Wed Oct 29, 2003 4:35 pm
Location: Beyond the pale...

Re: So lets see what you have done then...

Post by srod »

airmedia wrote:I am wanting to have a look at some examples what people have done by just using this program, PURE BASIC : Nothing Else

Post ya links,

Alistair www.air-media.co.uk
Sounds like you're sitting in judgement.

You think we need to justify Purebasic or promote our own projects in this way?

Get off your backside and take a look through the forums; the announcement section in particular. You'll discover everything you need to know that way.
I may look like a mule, but I'm not a complete ass.
Top
User avatar
GedB
Addict
Addict
Posts: 1313
Joined: Fri May 16, 2003 3:47 pm
Location: England
Contact:
Contact GedB

Post by GedB »

Why is everybody so defensive? PB can more than hold its own, so chill.
Top
User avatar
netmaestro
PureBasic Bullfrog
PureBasic Bullfrog
Posts: 8452
Joined: Wed Jul 06, 2005 5:42 am
Location: Fort Nelson, BC, Canada

Post by netmaestro »

I just released version 3 of one of my larger projects done entirely in PB, find it here:

http://www.microsoft.com/downloads/deta ... laylang=en

It was a lot of work...
BERESHEIT
Top
srod
PureBasic Expert
PureBasic Expert
Posts: 10589
Joined: Wed Oct 29, 2003 4:35 pm
Location: Beyond the pale...

Post by srod »

PB can more than hold its own...
I agree, which is why I made the above post.

It's not our job to sell PB to some guy too lazy to scour these boards himself. It's not a question of being polite etc. but more one of making an effort.

@netmaestro: lmao!!! :lol: Surely it didn't take you that long to knock that thing up! A couple of days at most!
I may look like a mule, but I'm not a complete ass.
Top
User avatar
netmaestro
PureBasic Bullfrog
PureBasic Bullfrog
Posts: 8452
Joined: Wed Jul 06, 2005 5:42 am
Location: Fort Nelson, BC, Canada

Post by netmaestro »

Well now that I add it up it wasn't really that long. I took a long lunch one day, had to spend a whole afternoon hiding under the bed at my girlfriend's house until her husband left, then there was the night in the drunk tank and I didn't get started 'til noon the next day, so yes, it seems you're pretty close to the mark.
BERESHEIT
Top
LuCiFeR[SD]
666
666
Posts: 1033
Joined: Mon Sep 01, 2003 2:33 pm

Post by LuCiFeR[SD] »

/me cries laughing!
Top
Brice Manuel

Post by Brice Manuel »

You want to see what PB is capable of, look at the showcase at PureArea.
Top
User avatar
Kaeru Gaman
Addict
Addict
Posts: 4826
Joined: Sun Mar 19, 2006 1:57 pm
Location: Germany

Re: So lets see what you have done then...

Post by Kaeru Gaman »

airmedia wrote:I am wanting to have a look at some examples what people have
done by just using this program, PURE BASIC : Nothing Else

Post ya links,

Alistair www.air-media.co.uk
this is a funny approach....

I have a little code here, done completely in PureBasic,
not even used PAINT or anything for creating Resources....

Code: Select all

; ***
; *** Boone Buggy
; ***
; *** Mini-Game DDraw-based
; ***
; *** by Kaeru Gaman Jan/Feb 2007
; ***
; *** PB Ver. 4.02
; ***
; **************************************

#LandLength = 10500
#PosFact = 50
#NegMov = 1.4
#PosMov = 2.7

#COL_MediumTint         = $7E6F81

#COL_Background         = $FFC080
#COL_P1Back             = $0080C0
#COL_P1Border           = $000000

#COL_CarBody            = $404010
#COL_CarTires           = $603000
#COL_CarSpokes          = $FFC000

#COL_SpeedoFrame        = $000000
#COL_SpeedoBack         = $2040FF
#COL_SpeedoHand         = $000000
#COL_SpeedoMark         = $00FF00

#COL_Sign01Body         = $0040FF
#COL_Sign01Mark         = $40FFFF

#COL_Text01             = $000000
#COL_Text02             = $000000

#Speedo_X               = 440
#Speedo_Y               = 287
#WayText_X              =  20
#WayText_Y              = 278
#FinishText_X           = 198
#FinishText_Y           =  53


InitSprite()
InitKeyboard()
OpenWindow(0,0,0,500,300,"Boone Buggy", #PB_Window_ScreenCentered | #PB_Window_SystemMenu )
OpenWindowedScreen(WindowID(0),0,0,500,300,0,0,0)

Global Dim Land.b(#LandLength)
Procedure CreateLevel()
  ; *** Create Level ***
  Hi    = 7500
  Dir   = 0
  Turn  = 0
  count = 0
  While count < #LandLength
    Land(count) = 20 + Hi / 100
    Turn = (Random(25000)-Hi-5000)/666
    Dir + Turn
    If Dir >  100 : Dir =  100 : EndIf
    If Dir < -100 : Dir = -100 : EndIf
    Hi + Dir 
    If Hi > 15000 : Hi = 15000 : EndIf
    If Hi <     0 : Hi =     0 : EndIf
    count + 1
  Wend
  Land(count) = 20 + Hi / 100
EndProcedure
CreateLevel()
RelPos = 100
Pos = RelPos  ; + 9900
FPos = Pos * #PosFact
Repeat
  event = WaitWindowEvent(10)
  ExamineKeyboard()
  ClearScreen(#COL_Background)

    X1 = RelPos
    Y1 = 295-(Land(Pos)&$FF)
    X2 = RelPos+12
    Y2 = 295-(Land(Pos+12)&$FF)
    DY = Y1 - Y2

  If KeyboardPushed(#PB_Key_Right) : Move +(20-DY)/3 : EndIf
  If KeyboardPushed(#PB_Key_Left)  : Move -(20-DY)/3 : EndIf
  If Move > -DY*4+1 : Move -1
  ElseIf Move < -DY*4-1 : Move +1
  EndIf
  If Move > #PosMov * #PosFact : Move = #PosMov * #PosFact : EndIf
  If Move < -#NegMov * #PosFact : Move = -#NegMov * #PosFact : EndIf
  FPos + Move
  If FPos >  #PosFact * (#LandLength - 500 + RelPos)
    FPos = #PosFact * (#LandLength - 500 + RelPos)
    Finish = 1
  EndIf
  If FPos < #PosFact * RelPos
    FPos = #PosFact * RelPos
  EndIf
  Pos = FPos / #PosFact

  StartDrawing(ScreenOutput())
  ; Draw Level
    For n=-RelPos To 499-RelPos
      Hi = Land(Pos+n) & $FF
      DrawPos = RelPos+n
      Line(DrawPos,299,0,-Hi,#COL_P1Back)
      Line(DrawPos,299-Hi,0,1,#COL_P1Border)
      If Pos+n = #LandLength - 500 + RelPos
        Line(DrawPos   ,267-Hi,  0, 32,#COL_Sign01Body)
        Line(DrawPos+23,267-Hi,  0, 52,#COL_Sign01Body)
        Box( DrawPos   ,267-Hi, 24, 11,#COL_Sign01Body)
        Line(DrawPos +2,268-Hi, 21,  8,#COL_Sign01Mark)
        Line(DrawPos +2,276-Hi, 21, -8,#COL_Sign01Mark)
      EndIf
    Next
  ; Draw Car
;     X3 = X1 - DY / 2
;     Y3 = Y1 - 6
;     X4 = X2 - DY / 2
;     Y4 = Y2 - 6
    For n=0 To 5
      LineXY(X1,Y1-n,X2,Y2-n/2,#COL_CarBody)
    Next
    Circle(X1,Y1,4,#COL_CarTires)
    Circle(X2,Y2,4,#COL_CarTires)
    Select (Pos % 12 /3)
     Case 0
       Line(X1    , Y1 - 3, 0, 6, #COL_CarSpokes)
       Line(X2    , Y2 - 3, 0, 6, #COL_CarSpokes)
     Case 1
       Line(X1 - 2, Y1 + 2, 4,-4, #COL_CarSpokes)
       Line(X2 - 2, Y2 + 2, 4,-4, #COL_CarSpokes)
     Case 2
       Line(X1 - 3, Y1    , 6, 0, #COL_CarSpokes)
       Line(X2 - 3, Y2    , 6, 0, #COL_CarSpokes)
     Case 3
       Line(X1 - 2, Y1 - 2, 4, 4, #COL_CarSpokes)
       Line(X2 - 2, Y2 - 2, 4, 4, #COL_CarSpokes)
    EndSelect
  ; Draw Speedo
    Mov.f = Move 
    angle.f = (#NegMov * #PosFact + Move ) * #PI / ((#NegMov + #PosMov) * #PosFact)
    angle0.f = (#NegMov * #PosFact ) * #PI / ((#NegMov + #PosMov) * #PosFact)
    Circle(#Speedo_X   ,#Speedo_Y   ,29,#COL_SpeedoFrame)
    Circle(#Speedo_X   ,#Speedo_Y   ,27,#COL_SpeedoBack)
    Box(   #Speedo_X-29,#Speedo_Y +2,58, 2,#COL_SpeedoFrame)
    Box(   #Speedo_X-30,#Speedo_Y +4,60,33,#COL_P1Back)
    SpeedoHand_X = 25*Cos(angle)
    SpeedoHand_Y = 25*Sin(angle)
    Line(  #Speedo_X   ,#Speedo_Y   ,  -25*Cos(angle0),-25*Sin(angle0),#COL_SpeedoMark)
    Line(  #Speedo_X -1,#Speedo_Y   , 1-SpeedoHand_X,-SpeedoHand_Y,#COL_SpeedoHand)
    Line(  #Speedo_X   ,#Speedo_Y   ,  -SpeedoHand_X,-SpeedoHand_Y,#COL_SpeedoHand)
    Line(  #Speedo_X +1,#Speedo_Y   ,-1-SpeedoHand_X,-SpeedoHand_Y,#COL_SpeedoHand)

    ;Line( 0, #Speedo_Y+5, 500, 0, #COL_SpeedoMark )
    ;LineXY( 0,   0, 499, 120, #COL_SpeedoMark )
    ;LineXY( 0, 120, 499,   0, #COL_SpeedoMark )

    DrawText(#WayText_X,#WayText_Y,"Way: " + Right("0000"+Str(Pos-RelPos),4) + " m",#COL_Text01,#COL_P1Back)

    If Finish
      DrawText(#FinishText_X,#FinishText_Y,"## F I N I S H ##",#COL_Text02,#COL_Background)
    EndIf
  StopDrawing()
  FlipBuffers()
  If event = #PB_Event_CloseWindow Or KeyboardPushed(#PB_Key_Escape)
    EXIT = 1
  EndIf
Until EXIT = 1
airmedia wrote:Well, My interest is to make some kind of radio player, for streaming websites.. And i thought this program might be able to get me started.

So i thought i would have a look at what others have done to give me some kind of an idea on where to start
...now I'm really keen to see how this helps you with what you are looking for
oh... and have a nice day.
Top
User avatar
Thorsten1867
Addict
Addict
Posts: 1372
Joined: Wed Aug 24, 2005 4:02 pm
Location: Germany

Post by Thorsten1867 »

EasySetup - Setup Maker
http://www.PB-EasySetup.de
Translated with http://www.DeepL.com/Translator

Download of PureBasic - Modules
Download of PureBasic - Programs

[Windows 11 x64] [PB V5.7x]
Top
Post Reply

Return to “General Discussion”