ATNEL tech-forum

Re: B4A voltomierz analogowy

2017-07-20T16:04:08+01:00

Ha ha. No nie przyszło mi to do głowy. Jak autor tematu wole wskaźniki analogowe. B4a pozwala na realizacje tego dużo lepiej niż Bascom i tanie wyświetlacze. Teraz wychodzi taniej kupić tani tablet niż wyświetlacz kolorowy . Gdyby nie poradniki Mirka nie słyszał bym pewnie o takim środowisku jak B4a. Pozdrawiam!

Statystyki: Napisane przez grzeniu 73 — 20 lip 2017, o 16:04

Re: B4A voltomierz analogowy

2017-07-20T09:05:18+01:00

Masz zegarek jak z teleexpresu

Statystyki: Napisane przez Wojtek Apel — 20 lip 2017, o 09:05

Re: B4A voltomierz analogowy

2017-07-19T14:35:05+01:00

Ostatnio zegarek analogowy popelnilem

Statystyki: Napisane przez grzeniu 73 — 19 lip 2017, o 14:35

Re: B4A voltomierz analogowy

2017-07-18T19:24:06+01:00

Mam zaznaczone tylko Core, Serial i RandomAccessFile

Tapeta bardzo smaczna

Statystyki: Napisane przez Wojtek Apel — 18 lip 2017, o 19:24

Re: B4A voltomierz analogowy

2017-07-18T18:52:24+01:00

Wojtek Apel napisał(a):

Wszystko co potrzebne zaczerpnąłem z tutoriala forum B4A

Jakaś biblioteka jest potrzebna do tego?

Statystyki: Napisane przez Jaglarz — 18 lip 2017, o 18:52

Re: B4A voltomierz analogowy

2017-07-18T18:50:52+01:00

Rewelacja !! Aż zazdroszczę pomysłów.
A tapeta to też smaczna

Statystyki: Napisane przez karolen — 18 lip 2017, o 18:50

Re: B4A voltomierz analogowy

2017-07-18T18:41:51+01:00

Wielki projekt programistyczny to chyba nie jest Wszystko co potrzebne zaczerpnąłem z tutoriala forum B4A
Przy okazji jak wkleić na forum drewniany telewizor?

[syntax=basic4gl]Sub Process_Globals
Dim timer1 As Timer
Dim cv As Canvas
Dim Rect1 As Rect
Dim DestRect As Rect
Dim droid_rect As Rect
Dim Bitmap1 As Bitmap
Dim droid_bmp As Bitmap
Dim wsk_r As Bitmap
Dim wsk_b As Bitmap

timer1.Initialize("timer1",2)

End Sub

Sub Globals
Private Panel6 As Panel
End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("Layout1")

End Sub

Sub Label6_Click

timer1.Enabled= True

End Sub

Sub timer1_tick

cv.Initialize(Panel6)
wsk_b.Initialize(File.DirAssets,"wska_blue.bmp")
wsk_r.Initialize(File.DirAssets, "wska_red.bmp")
droid_bmp.Initialize(File.DirAssets,"tarcza_mbDroid.bmp")
Bitmap1.Initialize(File.DirAssets, "wska_pop.bmp")
DestRect.Initialize(40dip, 60dip, 320dip, 340dip)
droid_rect.Initialize(6dip ,10dip, 380dip, 380dip)
Rect1.Initialize(10dip, 10dip, 350dip, 400dip)
cv.DrawRect(Rect1, Colors.ARGB(255,235,236,244), True, 5dip)

cv.DrawBitmap(droid_bmp, Null,droid_rect)
cv.DrawBitmapRotated(wsk_b, Null, DestRect, v_min)
cv.DrawBitmapRotated(wsk_r, Null, DestRect, v_max)
cv.DrawBitmapRotated(Bitmap1, Null, DestRect, gx)

Activity.Invalidate
End Sub[/syntax]

Statystyki: Napisane przez Wojtek Apel — 18 lip 2017, o 18:14

Re: B4A voltomierz analogowy

2017-07-18T18:06:01+01:00

ale to się nadaje do działu DIY projekty programistyczne

Statystyki: Napisane przez mirekk36 — 18 lip 2017, o 18:06

Re: B4A voltomierz analogowy

2017-07-18T17:34:26+01:00

A jakbyś się jeszcze kodem pochwalił to już byłby cud, miód i orzeszki

Statystyki: Napisane przez Jaglarz — 18 lip 2017, o 17:34

B4A voltomierz analogowy

2017-07-18T18:29:40+01:00

Czołem!
Pozwolicie, że się tutaj pochwalę moim "analogowym" wskaźnikiem napięcia baterii z dodatkowymi wskazówkami v_max i v_min. Jest to obracająca się bitmapa narysowana w Gimpie.

Link do YouTuba

iframe

Statystyki: Napisane przez Wojtek Apel — 18 lip 2017, o 17:06