Round Analog Gauge

[l1marik]

Round Analog Gauge


Please check on OSX + feedback welcomed

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

Lukas

[davido]

@ l1marik,
Very nice, thank you.

Looks good and appears to work fine on my MacBook.

[leonhardt]

thanks for the job!

[BarryG]

Nice code!

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

[l1marik]

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

Lukas

[VB6_to_PBx]

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 :

[Kwai chang caine]

Works well here, very nice
Thanks for sharing

[Saki]

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

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

[Naghual]

Round Analog Gauge

Hello.

Nice work!

How to use it as a component on a Form Designer?

[blueb]

Create a CanvasGadget in your favorite FormDesigner and use an IncludeFile that contains the "Gauge_Analog_Round() procedure?

[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