Round Analog Gauge

Share your advanced PureBasic knowledge/code with the community.
l1marik
User
User
Posts: 49
Joined: Tue Jun 30, 2020 6:22 am

Round Analog Gauge

Post by l1marik »

Round Analog Gauge
Image

Please check on OSX + feedback welcomed :-)

Source: http://www.ctvrtky.info/wp-content/uplo ... dGauge.zip

Lukas
davido
Addict
Addict
Posts: 1890
Joined: Fri Nov 09, 2012 11:04 pm
Location: Uttoxeter, UK

Re: Round Analog Gauge

Post by davido »

@ l1marik,
Very nice, thank you.

Looks good and appears to work fine on my MacBook.
DE AA EB
User avatar
leonhardt
Enthusiast
Enthusiast
Posts: 220
Joined: Wed Dec 23, 2009 3:26 pm

Re: Round Analog Gauge

Post by leonhardt »

thanks for the job!
poor English...

PureBasic & Delphi & VBA
BarryG
Addict
Addict
Posts: 3292
Joined: Thu Apr 18, 2019 8:17 am

Re: Round Analog Gauge

Post by BarryG »

Nice code!
User avatar
VB6_to_PBx
Enthusiast
Enthusiast
Posts: 617
Joined: Mon May 09, 2011 9:36 am

Re: Round Analog Gauge

Post by VB6_to_PBx »

Lukas ( l1marik ),
thanks a bunch for all the
Weather meters / gauges you've created !!!

if you are looking for more ideas
on creating Dials , Gauges , or Meters ??

what about these :
Speedometer
RPM
Oil pressure
Fuel pressure
Vacuum
Oil temperature
Water temperature
O2 Sensor ( Oxygen Sensor )
EGT ( Exhaust Gas Temperature )


Digital Numbers ( LED )
 
PureBasic .... making tiny electrons do what you want !

"With every mistake we must surely be learning" - George Harrison
l1marik
User
User
Posts: 49
Joined: Tue Jun 30, 2020 6:22 am

Re: Round Analog Gauge

Post by l1marik »

Dear VB6_to_PBx,
It is not problem, question is only a design of it. Can you propose any?
Picture will enough.

Lukas
User avatar
VB6_to_PBx
Enthusiast
Enthusiast
Posts: 617
Joined: Mon May 09, 2011 9:36 am

Re: Round Analog Gauge

Post by VB6_to_PBx »

l1marik wrote:Dear VB6_to_PBx,
It is not problem, question is only a design of it. Can you propose any?
Picture will enough.

Lukas
hi Lukas , sorry for this late Reply ,
here's a Picture :
Image
 
PureBasic .... making tiny electrons do what you want !

"With every mistake we must surely be learning" - George Harrison
User avatar
Kwai chang caine
Always Here
Always Here
Posts: 5342
Joined: Sun Nov 05, 2006 11:42 pm
Location: Lyon - France

Re: Round Analog Gauge

Post by Kwai chang caine »

Works well here, very nice
Thanks for sharing 8)
ImageThe happiness is a road...
Not a destination
User avatar
Saki
Addict
Addict
Posts: 830
Joined: Sun Apr 05, 2020 11:28 am
Location: Pandora

Re: Round Analog Gauge

Post by Saki »

There's so much
Try a 3D Pi Chart for example, many have failed to do so :shock:

Image
地球上の平和
User avatar
VB6_to_PBx
Enthusiast
Enthusiast
Posts: 617
Joined: Mon May 09, 2011 9:36 am

Re: Round Analog Gauge

Post by VB6_to_PBx »

thank Saki for your Pic ,
i was about to post a few similar pics ,
but your 1 pic captured most of what multiple pics i was going to post .

on my Engine Dyno , i can change custom GUI Gauges looks + sizes
much better than the crummy generic Pic i posted above ,
i just haven't had time to go and create new Gauges ,
will do later .
 
PureBasic .... making tiny electrons do what you want !

"With every mistake we must surely be learning" - George Harrison
Naghual
New User
New User
Posts: 2
Joined: Thu Dec 13, 2018 9:31 am

Re: Round Analog Gauge

Post by Naghual »

l1marik wrote: Sat Aug 15, 2020 3:41 pm Round Analog Gauge
Hello.

Nice work!

How to use it as a component on a Form Designer?
User avatar
blueb
Addict
Addict
Posts: 1041
Joined: Sat Apr 26, 2003 2:15 pm
Location: Cuernavaca, Mexico

Re: Round Analog Gauge

Post by blueb »

Create a CanvasGadget in your favorite FormDesigner and use an IncludeFile that contains the "Gauge_Analog_Round() procedure?
- It was too lonely at the top.

System : PB 6.10 Beta 9 (x64) and Win Pro 11 (x64)
Hardware: AMD Ryzen 9 5900X w/64 gigs Ram, AMD RX 6950 XT Graphics w/16gigs Mem
Naghual
New User
New User
Posts: 2
Joined: Thu Dec 13, 2018 9:31 am

Re: Round Analog Gauge

Post by Naghual »

I'm just a beginner.
Please, guide me through it.

Code: Select all

Global Window_0

Global Gaget1

Declare Gaget1_Events(EventType)

Procedure OpenWindow_0(x = 0, y = 0, width = 480, height = 320)
  Window_0 = OpenWindow(#PB_Any, x, y, width, height, "", #PB_Window_SystemMenu)
  Gaget1 = CanvasGadget(#PB_Any, 16, 16, 152, 152)
EndProcedure

Procedure Window_0_Events(event)
  Select event
    Case #PB_Event_CloseWindow
      ProcedureReturn #False

    Case #PB_Event_Menu
      Select EventMenu()
      EndSelect

    Case #PB_Event_Gadget
      Select EventGadget()
        Case Gaget1
          Gaget1_Events(EventType())          
      EndSelect
  EndSelect
  ProcedureReturn #True
EndProcedure
Post Reply