ATNEL tech-forum

Re: własna LATARKA - na androida w B4A - start

2015-08-30T16:22:54+01:00

mirekk36 napisał(a):

Maciek_L napisał(a):

Natomiast jeśli Panel1.visible = False i chcę zapalić samą diodę (funkcja samej latarki) to niestety ona się nie zapala. Nie do końca wiem co z tym zrobić. Poniżej mój kod:

Nie było mnie parę dni ... ale wrzucę może jeszcze dzisiaj wieczorkiem ten kod z tym moim "mykiem" żeby to działało i żeby nie trzeba było robić Panel.Visible bo to niestety nie zawsze działa albo nie działa poprawnie wtedy

edit - zauważyłem właśnie, że nawet na mojej klawiaturze nie działa wprowadzanie głosowe. Mimo naciskania symbolu mikrofonu nic się nie dzieje. Jaki program do rozpoznawania mowy najlepiej zainstalować? Bo z tym moim chyba coś jest nie w porządku.
A teraz znalazłem w internecie, że musi być zainstalowana wyszukiwarka googla aby działało rozpoznawanie głosu a ja kiedyś ja chyba odinstalowałem Będę próbował i przepraszam za zaśmiecanie.

Rewelacja - cała lekcja nr 10 działa jak należy. Tak jeszcze tylko napiszę, bo może komuś będzie to pomocne. Do poprawnego działania rozpoznawania mowy i zamiany jej na tekst musi być włączona wyszukiwarka googla. Automatycznie powoduje to uaktywnienie obsługi głosowej i wyszukiwania głosowego umożliwiając nam wprowadzanie głosowe:)

Statystyki: Napisane przez Maciek_L — 30 sie 2015, o 16:22

Re: własna LATARKA - na androida w B4A - start

2015-08-30T14:28:47+01:00

Maciek_L napisał(a):

Natomiast jeśli Panel1.visible = False i chcę zapalić samą diodę (funkcja samej latarki) to niestety ona się nie zapala. Nie do końca wiem co z tym zrobić. Poniżej mój kod:

Statystyki: Napisane przez mirekk36 — 30 sie 2015, o 14:28

Re: własna LATARKA - na androida w B4A - start

2015-08-30T13:55:20+01:00

Ja jeśli mogę to jeszcze powrócę do odcinka 9 Jak najbardziej udało mi się za pomocą checkboxa i właściwości visible ukrywać i odkrywać kamerkę ale mam mały problem odnośnie świecenia diody. Kiedy "odkryję" kamerkę to za pomocą imgOnOff włączam diodę oraz obraz z kamery lub wyłączam obraz z kamery i diodę. Natomiast jeśli Panel1.visible = False i chcę zapalić samą diodę (funkcja samej latarki) to niestety ona się nie zapala. Nie do końca wiem co z tym zrobić. Poniżej mój kod:

[syntax=vb]#Region Project Attributes
#ApplicationLabel: Latarka
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region

#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region

Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim bniegraj As Boolean
Dim bCamera_active As Boolean

End Sub

Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.

Private imgOnOff As ImageView
Private Panel1 As Panel
Private camEx As CameraExClass
Private notif As Notification
Private bLatarkaON As Boolean
Private imgFoto As ImageView
Private mp As MediaPlayer
Private imgClose As ImageView
Private bCameraOn As Boolean
Private CheckBox1 As CheckBox

End Sub

Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("LatarkaLayout")
Activity.Title = "Latarka"
mp.Initialize2("mp_event")

notif.Initialize
notif.Icon= "icon"
notif.SetInfo("Latarka", "praca w tle ...", Me)
notif.Sound = False
notif.Vibrate = False
notif.Light = False

bLatarkaON = False
bCameraOn = False
bCamera_active = False

If FirstTime = True Then

mplay("gwizdanie.mp3")
bniegraj = True

End If

End Sub

Sub Activity_Resume

notif.Cancel(1)

If bniegraj = False Then

mplay("drzwi_otwieranie.mp3")

End If

bniegraj = False

End Sub

Sub Activity_Pause (UserClosed As Boolean)

If UserClosed = False Then

CameraOff
mplay("dzwonek_do_drzwi.mp3")
notif.Notify(1)

End If

End Sub

Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event

If KeyCode = KeyCodes.KEYCODE_BACK Then

ToastMessageShow("Użyj klawisza ZAMKNIJ", False)
mplay("klakson.mp3")
Return True

Else

Return False

End If

End Sub

'*****************************************************

'------------------ obsługa kamery ------------------
Sub CameraInit

camEx.Initialize( Panel1, False, Me, "Camera1" )

End Sub

Sub CameraOff

bCamera_active = False

If bCameraOn = True Then

camEx.SetFlashMode("off")
camEx.CommitParameters
camEx.StopPreview
camEx.Release

End If

End Sub

Sub Camera1_Ready (Success As Boolean)

bCamera_active = True

If Success Then

camEx.GetPreviewSize
camEx.SetJpegQuality(90)
camEx.SetFlashMode("torch")
camEx.CommitParameters
camEx.StartPreview
bCameraOn = True

Else

ToastMessageShow( "Kamera zajęta!", True )

End If

End Sub

Sub Camera1_PictureTaken ( Data() As Byte)

mplay("camera_action.mp3")
camEx.SavePictureToFile( Data, File.DirRootExternal, "1.jpg" )
camEx.StartPreview

End Sub

'------------------ obsługa klawiszy ------------------
Sub imgOnOff_Click

If bLatarkaON = False Then

bLatarkaON = True
'imgOnOff.Text = "WYŁĄCZ"
imgOnOff.Bitmap = LoadBitmap(File.DirAssets, "ON.png")
CameraInit

Else

bLatarkaON = False
'imgOnOff.Text = "WŁĄCZ"
imgOnOff.Bitmap = LoadBitmap(File.DirAssets, "OFF.png")
CameraOff

End If

End Sub

Sub imgFoto_Click

If bCamera_active = True Then

camEx.FocusAndTakePicture
camEx.CommitParameters

Else

ToastMessageShow( "Najpierw włącz kamerę!", True )
mplay("klakson.mp3")

End If

End Sub

Sub Panel1_Click

camEx.FocusAndTakePicture
camEx.CommitParameters

End Sub

Sub imgClose_Click

notif.Notify(1)
mplay("dzwonek_do_drzwi.mp3")
CameraOff
Activity.Finish

End Sub

Sub imgClose_LongClick

notif.Cancel(1)
CameraOff
ExitApplication

End Sub

Sub CheckBox1_CheckedChange(Checked As Boolean)

If Checked = True Then

Panel1.Visible = True

Else

Panel1.Visible = False

End If

End Sub

'------------------ obsługa media playera ------------------
Sub mplay(fname As String)

mp.Load(File.DirAssets, fname)
mp.Play

End Sub[/syntax]

Statystyki: Napisane przez Maciek_L — 30 sie 2015, o 13:55

Re: własna LATARKA - na androida w B4A - start

2015-08-30T09:31:34+01:00

majster napisał(a):

lutekT napisał(a):

Śmiga prawie doskonale, prawie bo np. zamiast Mirek czyta Mrek, ale z innymi tekstami sobie radzi.

Bo to SVOX a nie google txt to sp

Nie rozumiem. Proszę jaśniej.

Statystyki: Napisane przez lutekT — 30 sie 2015, o 09:31

Re: własna LATARKA - na androida w B4A - start

2015-08-28T20:34:40+01:00

lutekT napisał(a):

Śmiga prawie doskonale, prawie bo np. zamiast Mirek czyta Mrek, ale z innymi tekstami sobie radzi.

Bo to SVOX a nie google txt to sp

Statystyki: Napisane przez majster — 28 sie 2015, o 20:34

Re: własna LATARKA - na androida w B4A - start

2015-08-28T16:16:15+01:00

Melduję, że w końcu Text to Speech mi zadziałało.

Po zainstalowaniu SVOX Polish Eva musiałem w moim smartfonie zrobić coś takiego:

Ustawienia -> funkcje głosowe -> ustawienia zamiany tekstu na mowę -> i coś tam jeszcze.

Śmiga prawie doskonale, prawie bo np. zamiast Mirek czyta Mrek, ale z innymi tekstami sobie radzi.

Statystyki: Napisane przez lutekT — 28 sie 2015, o 16:16

Re: własna LATARKA - na androida w B4A - start

2015-08-27T22:52:32+01:00

mirekk36 napisał(a):

W każdym smartfonie z androidem jest domyślnie zainstalowany jakiś głos chyba kobiecy googlowy, i nawet nie trzeba nic instalować żeby gadało

Popieram SVOX itp to zamiana tekstu na mowę i zamieni ci nawet napisy z ustawień a tak jak pisze Mirek
to jest to czego potrzebujesz po co instalujesz zamianę tekstu na mowę skoro można wykorzystać to co google nam dało.

Statystyki: Napisane przez majster — 27 sie 2015, o 22:52

Re: własna LATARKA - na androida w B4A - start

2015-08-27T21:53:52+01:00

lutekT napisał(a):

I co, pozostało kopać się z Internetem?

wiesz co ? ty masz zdolności do kreowania sam sobie kłopotów widzę

W każdym smartfonie z androidem jest domyślnie zainstalowany jakiś głos chyba kobiecy googlowy, i nawet nie trzeba nic instalować żeby gadało

a tyś widzę zaszalał - poinstalowałeś pewnie kupę jakichś dziwnych syntezatorów i głos zdechł

weź to wszystko w diabły odinstaluj, i dokop się do ustawień syntezatora mowy w ustawieniach smartfona bo na pewno masz - wybierz domyślny głos i zadziała .... panie nie kombinuj tyle

Statystyki: Napisane przez mirekk36 — 27 sie 2015, o 21:53

Re: własna LATARKA - na androida w B4A - start

2015-08-27T19:19:04+01:00

O kurcze, znowu Mirek miałeś rację z tym ściszeniem na maxa Media.

Zrobiłem na maxa Media, aczkolwiek nie miałem przedtem na min i otrzymałem dźwięk (latarka). To rozwiązało jeden problem.

Ale jest drugi nowy jakby problem (program voice).
Zainstalowałem zamiast Samsung TTS Polish Female High Quality (bo jakoś nie znalazłem) SynTalk 2.0
I niestety pudło milczy. Głosu nie daje.

Może ktoś podpowie,gdzie może być haczyk.

------------------------ [ Dodano po: 40 minutach ]

Teraz zainstalowałem sobie jakieś dziadostwo SVOX Polish Eva Trial, które mi wprawdzie ciągle dziękuje za zainstalowanie, ale nic ponadto.

Czyli problem nie jest w B4A, tylko z programem towarzyszącym. I co, pozostało kopać się z Internetem?

Statystyki: Napisane przez lutekT — 27 sie 2015, o 19:19

Re: własna LATARKA - na androida w B4A - start

2015-08-26T23:22:05+01:00

lutekT napisał(a):

Bo dźwięków też nie mam.

Ja też raz nie miałem dźwięków i się okazało - ze po prostu miałem ściszone na maxa Media sprawdź

Statystyki: Napisane przez mirekk36 — 26 sie 2015, o 23:22

Re: własna LATARKA - na androida w B4A - start

2015-08-26T23:12:16+01:00

Kod na zapalenie LED-a jest zgodny z poradnikiem, tj:
[syntax=c]Sub Camera1_Ready (Success As Boolean)
If Success Then
camEx.GetPreviewSize
camEx.SetJpegQuality(90)

camEx.SetFlashMode("torch")
camEx.CommitParameters[/syntax]

Bo nie muszę dodawać, że:
[syntax=c]ub btnOnOFF_Click
If bLatarkaOn = False Then
bLatarkaOn = True
btnOnOFF.Text = "WYŁĄCZ"
CameraInit
Else[/syntax]
Być może, że muszę coś w smartfonie ustawić, tylko na razie nie widzę co.
Bo dźwięków też nie mam.
Jutro skonsultuję się z biegasem od smartfonów.

Statystyki: Napisane przez lutekT — 26 sie 2015, o 23:12

Re: własna LATARKA - na androida w B4A - start

2015-08-25T01:39:13+01:00

Dziwne rzeczy opowiadasz .... masz opcje torch wiec wszystko wyglada ok ... cos zle wiec w kodzie robisz ... moze pokaz cos tam splodzil lepiej

Statystyki: Napisane przez mirekk36 — 25 sie 2015, o 01:39

Re: własna LATARKA - na androida w B4A - start

2015-08-24T22:24:22+01:00

Otrzymałem taki Toast:

(ArrayList)[ off, auto, on, torch ]

------------------------ [ Dodano po: 19 minutach ]

Nie bardzo to rozumiem, ale coś mi się wydaje, że trzy pierwsze opcje to flash, a torch nie ma opcji, więc z zapalania latarki Q-niec.

Statystyki: Napisane przez lutekT — 24 sie 2015, o 22:24

Re: własna LATARKA - na androida w B4A - start

2015-08-24T21:27:39+01:00

lutekT napisał(a):

Męczy mnie, że nie wychodzi mi z tą latarką jak w poradniku.

Największe różnice: 1. żaden dźwięk się mi jeszcze nie dobył, 2. LED zaświeca się tylko przy robieniu zdjęcia.

A tak poza tym nie mam żadnych błędów w kompilacji i po instalacji na smarfona.

Wieczorem będę dalej się bawił, może coś wymyślę.

w funkcji

Camera1_Ready()

gdy succes = true zrób sobie:

[syntax=basic4gl]Dim info As List
info = camEx.GetSupportedFlashModes
ToastMessageShow( info, True )[/syntax]

to zobaczysz czy możesz w swoim telefonie miziać latarkę ? ... bo może się okazać - że nie możesz i Quniec

Statystyki: Napisane przez mirekk36 — 24 sie 2015, o 21:27

Re: własna LATARKA - na androida w B4A - start

2015-08-24T18:52:23+01:00

Statystyki: Napisane przez lutekT — 24 sie 2015, o 18:52

Re: własna LATARKA - na androida w B4A - start

2015-08-24T10:54:58+01:00

matekogon napisał(a):

Mam pytanko co do licencji na B4A Czy po jej zakończeniu program przestaje działać? Czy tylko nie ma możliwości aktualizacji do nowszych wersji

Licencja jest dozywotnia.
Jedynie aktualuzacje nie beda mozliwe po tym czasie.

Statystyki: Napisane przez bogdanc — 24 sie 2015, o 10:54

Re: własna LATARKA - na androida w B4A - start

2015-08-24T10:41:43+01:00

Mam pytanko co do licencji na B4A Czy po jej zakończeniu program przestaje działać? Czy tylko nie ma możliwości aktualizacji do nowszych wersji

Statystyki: Napisane przez matekogon — 24 sie 2015, o 10:41

Re: własna LATARKA - na androida w B4A - start

2015-08-23T14:13:31+01:00

a i jeszcze jedno na blogu niema jeszcze filmiku 9 ale odnośnie końcówki filmu to według mnie checkbox po kliknięciu

[syntax=vb]Sub CheckBox1_CheckedChange(Checked As Boolean)
If Checked =True Then
Panel1.Visible=True
Else
Panel1.Visible=False
End If
End Sub[/syntax]

myśle że tak to Zrobiłeś

Statystyki: Napisane przez hawranek80 — 23 sie 2015, o 14:13

Re: własna LATARKA - na androida w B4A - start

2015-08-23T14:09:26+01:00

lutekT napisał(a):

Słyszę również dźwięk migawki, ale go jeszcze NIE załączyłem do projektu.

Bo niektóre smarfony same dają odgłos zdjęcia gdy się wywołuje tę funkcję - ... to przecież nie jest standard kompoterów PC, tu każdy telefon może się nieco różnić .... Jak pisałem ci wcześniej - często sięga się najpierw po funkcje, które zwracają jakie są możliwości danego modułu ... Więc nie ma się czym przejmować - wspomnę później o tym w poradnikach

------------------------ [ Dodano po: kilkunastu sekundach ]

hawranek80 napisał(a):

Panie Mirku co pan o tym mmyśli??

No bardzo ładnie, od razu wykorzystujesz coraz bardziej zaawansowane komponenty, listy itp ... o to chodzi

Statystyki: Napisane przez mirekk36 — 23 sie 2015, o 14:09

Re: własna LATARKA - na androida w B4A - start

2015-08-23T13:36:12+01:00

ello odnośnie odcinka nr 9 o wstawianiu obrazków ,zrobiłem mały programik o podmianie obrazka w ToogleButton i nawet nieźle mi to wyszło.Panie Mirku co pan o tym mmyśli??

[syntax=vb]Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim tb As ToggleButton
Dim sld As StateListDrawable
Dim bmpTeam As BitmapDrawable
Dim Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("toogle")
tb.Initialize("tb")
bmpTeam.Initialize(LoadBitmap(File.DirAssets,"images1.png"))
sld.Initialize
sld.AddState(sld.State_Disabled, bmpTeam )
tb.Background = sld
Activity.AddView(tb,250,250, 70, 70)
Label1.Text="Toogle = OFF"
End Sub

Sub tb_CheckedChange(Checked As Boolean)
If Checked=True Then
tb.TextOn=" "
bmpTeam.Initialize(LoadBitmap(File.DirAssets,"images.png"))
sld.Initialize
sld.AddState(sld.State_Enabled, bmpTeam )
tb.Background = sld
Label1.Text="Toogle = ON"
End If

If Checked=False Then
tb.TextOff=" "
bmpTeam.Initialize(LoadBitmap(File.DirAssets,"images1.png"))
sld.Initialize
sld.AddState(sld.State_Disabled, bmpTeam )
tb.Background = sld
Label1.Text="Toogle = OFF"
End If

End Sub[/syntax]

------------------------ [ Dodano po: 28 minutach ]

a w button wstawienie obrazka zrobiłem tak:

[syntax=vb]Button.SetBackgroundImage(LoadBitmap(File.DirAssets,"images1.png"))[/syntax]

Statystyki: Napisane przez hawranek80 — 23 sie 2015, o 13:36

Re: własna LATARKA - na androida w B4A - start

2015-08-23T11:21:48+01:00

Jeszcze raz w temacie dwa wpisy wyżej:

LED nie włącza się mi się po uruchomieniu kamery, tylko w momencie zrobienia zdjęcia.

Po zrobieniu zdjęcia LED się wyłącza.

Słyszę również dźwięk migawki, ale go jeszcze NIE załączyłem do projektu.

Statystyki: Napisane przez lutekT — 23 sie 2015, o 11:21

Re: własna LATARKA - na androida w B4A - start

2015-08-22T21:57:22+01:00

mirekk36 napisał(a):

A widzisz - taki ze mnie mega koci linuxowiec .... jak ja w tym total comanderze spojrzałem sobie gdzie ta fotka leży to wydawało mi się, że na karcie pamięci ... ale co z tego jak teraz patrzę hahaha atam jakieś opisy że external card czy tam inny ... więc to jest rzeczywiście chyba w pamięci telefonu, ale że u mnie było widać jakiś tam SdCard to pomyślałem że chodzi o zewnętrzną. Przepraszam ...

Bardzo dziękuję za odpowiedź, będę zatem potem zgłębiał jak wrzucać na pamięć zewnętrzną, a teraz zasiadam do kolacji czyli smacznego odcinka nr.8

Statystyki: Napisane przez MikieMan — 22 sie 2015, o 21:57

Re: własna LATARKA - na androida w B4A - start

2015-08-22T13:36:49+01:00

a no to dobrze coś może przedtem źle ci poszło .. ważne że śmiga

Statystyki: Napisane przez mirekk36 — 22 sie 2015, o 13:36

Re: własna LATARKA - na androida w B4A - start

2015-08-22T11:57:05+01:00

Rzeczy niezbadane, ale latarka się obudziła o życia i działa zgodnie z projektem.

Generalnie nic nie zmieniałem w programie, tylko bawiłem się telefonem (mizianie ekranu).

Statystyki: Napisane przez lutekT — 22 sie 2015, o 11:57

Re: własna LATARKA - na androida w B4A - start

2015-08-22T11:01:57+01:00

Na razie nie ma mnie w domciu , ale przypomnij się w poniedziałek ... tam w tej procedurze camera_ready trzeba będzie zrobić sobie camex.getsupported..coś tam ... i sprawdzić czy twój telefonik daj w ogóle możliwość włączania latarki, bo u mnie zwraca takie wartości

"on"
"off"
"torch"

jeśli twój nie zwróci "torch" to nie uda ci się włączyć latarki .. tylko samą kamerką się pobawisz ... ale być może u ciebie zwróci np nie "torch" a np "LED" ... wtedy w kodzie będziesz musiał zmienić ten parametr

Statystyki: Napisane przez mirekk36 — 22 sie 2015, o 11:01