Witam Rodaków

kisoft

kisoft

Well-Known Member
Licensed User
Longtime User
A tak przetłumaczył... napisałem, że coraz mniej nas.. A tak na marginesie to sztuczna inteligencja AI nas wykosi. Sam ostatnio w ARDUINO zrobiłem dla zabawy proste projekty z użyciem AI i nawet działają... Robiłem też w B4A ale dostaję błędy.... (ale gdyby tak przysiąść to może by coś z tego wyszło)...
 
MichalK73

MichalK73

Well-Known Member
Licensed User
Longtime User
Masz racje. Jak wspomniales AI trzeba raczej wykorzystywac by nam pomogla pisac rzeczy np z ktorymi mamy problem rozwiazac w naszych projektach. Z drugiej strony trzeba tez chyba przechodzic na inne jezyki. B4X fajny uniwersalny do wszystkiego, ale jedne rzeczy lepiej i szybciej sie tworzy w jednym jezyku a inne w innym.
 
kisoft

kisoft

Well-Known Member
Licensed User
Longtime User
AI jeszcze jest w fazie raczkowania ale to tylko kwestia czasu. Bardzo skomplikowany program napisze Ci w kilka sekund, dorobisz tylko grafikę i dzieło gotowe. Jeszcze przekonwertuje na inne języki... Ja już nie uczę śię niczego nowego- wiedza, którą posiadam chyba wystarczy, żeby podjąć współpracę z AI...

P.S.
Odpuściłem sobie na razie programowanie , kiedy zacząłem odbijać się od ściany( tego nie ma i tego brakuje, to nie rozwiązane). Jestem tu tylko, żeby utrzymać programy, które są na sklepach... (a pieniądze z tego żadne)
 
Last edited:
P

Picon

Member
Licensed User
Cześć
Panowie, nie narzekajmy. Jest jak jest.
Fakt - nic specjalnego jakoś się tu nie dzieje.
Sam zaglądam tu rzadko, rzadko też się udzielam w czymkolwiek. Nie prowadzimy dyskusji, wymiany informacji, nie dzielimy się doświadczeniami.
Prawie się nie znamy...
Może by to zmienić jakoś? Co Panowie o tym sądzicie?

Mam od razu konkretne pytanie:
Czy ktoś z Was wie od czego zacząć wdrażanie aplikacji na App Store? ( Koszty? Kryteria? Procedura? czas wdrożenia?)
Ktoś to przerabiał może?
 
MichalK73

MichalK73

Well-Known Member
Licensed User
Longtime User
Picon said:
Czy ktoś z Was wie od czego zacząć wdrażanie aplikacji na App Store? ( Koszty? Kryteria? Procedura? czas wdrożenia?)
Click to expand...
to chyba @kisoft

Ja pisalem dla siebie apki i dla klientow ale nie wstawialem do sklepu, ale z ciekawosci tez sie dowiem.
 
kisoft

kisoft

Well-Known Member
Licensed User
Longtime User
Witam. Ja wstawiłem kiedyś aplikację na apstore. Musisz mieć konto w APLE koszt to 100$ rocznie no i masz pełny opis co i jak w B4i. Musisz wygenerować odpowiednie certyfikaty itp. Bez konta w APPLE nie sprzedaż aplikacji i nie zainstalujesz aplikacji poza sklepem. Ale wszystko to jest ładnie opisane w samouczkach.
 
S

sjedrzej

New Member
Cześć Wszystkim jak to zwykle powiada Erel w samouczkach.
Jestem z Rzeszowa, właśnie zaczynam swoją przygodę z obiektówką w B4X.
Szkoda, że tu się nic nie dzieje ;( . Choć co niektórzy mają już spore doświadczenie.
Pozdrawiam.
 
P

Picon

Member
Licensed User
sjedrzej said:
Cześć Wszystkim jak to zwykle powiada Erel w samouczkach.
Jestem z Rzeszowa, właśnie zaczynam swoją przygodę z obiektówką w B4X.
Szkoda, że tu się nic nie dzieje ;( . Choć co niektórzy mają już spore doświadczenie.
Pozdrawiam.
Click to expand...
Hej
Ja pochodze z okolic Rzeszowa ale od 8 lat jestem w USA.
Na razie to tylko mała apke sterującą 3 przekaźnikami napisałem. Zatem doświadczenie mizerne ale małymi kroczkami ziarnko do ziarnka... :)
 
MichalK73

MichalK73

Well-Known Member
Licensed User
Longtime User
sjedrzej said:
Cześć Wszystkim jak to zwykle powiada Erel w samouczkach.
Jestem z Rzeszowa, właśnie zaczynam swoją przygodę z obiektówką w B4X.
Szkoda, że tu się nic nie dzieje ;( . Choć co niektórzy mają już spore doświadczenie.
Pozdrawiam.
Click to expand...
Witamy cie.
Co masz na mysli ze nic sie nie dzieje?
 
S

sjedrzej

New Member
MichalK73 said:
Witamy cie.
Co masz na mysli ze nic sie nie dzieje?
Click to expand...
Jakoś tu nie widać za wielu użytkowników. A i sama liczba postów coś mówi. Rozumiem , że "starzy wyjadacze" siedzę na anglojęzycznych forach, bo u nas z wiedzą bieda bo mało kto chce się podzielić w ojczystym języku. To tak ogólnie, proszę nie traktować tego personalnie Panie Michale.
 
MichalK73

MichalK73

Well-Known Member
Licensed User
Longtime User
sjedrzej said:
Jakoś tu nie widać za wielu użytkowników. A i sama liczba postów coś mówi. Rozumiem , że "starzy wyjadacze" siedzę na anglojęzycznych forach, bo u nas z wiedzą bieda bo mało kto chce się podzielić w ojczystym języku. To tak ogólnie, proszę nie traktować tego personalnie Panie Michale.
Click to expand...
-Rozumiem ze mało postów wg ciebie w dziale dla Polski??
-Że "starzy wyjadacze" siedzą w działach gdzie piszą po Angielsku??
Więc wstępem to cud, że jest dział dla nas Polaków. Cud bo jest nas tu kilku. Tych kilku widząc, że nic się nie dzieje na dziale Polskim uczęszczają na forach angielskich, gdzie prawdę mówiąc ten język jest tu i w większości zagranicznych forach podstawowym do rozmów.

-Mało ktoś się chce dzielić.
Hmmm z chęcią by ktoś podzielił jak by ktoś zapytał?
Czy dzielić się to wg innych to tłumaczenie na nasz język ?? Nie prościej włączyć translatora całej strony i masz po Polsku.

Chcesz pytaj tutaj, załóż wątek, problem, propozycję.
Jak ktoś będzie wiedział/miał czas/wolę/chęci odpisze ci.

Nie mówię tego złośliwie i na odczepkę, ale tak szczerze.
 
T

taok

New Member
Licensed User
Programik na zgadywanie liczby:


Sub Process_Globals
Dim zazn1, zazn2, zazn4, zazn8, zazn16, zazn32, zazn64 As Boolean
End Sub

Sub Globals
Private lblInfo As Label

Private cbLiczba1 As CheckBox
Private cbLiczba2 As CheckBox
Private cbLiczba4 As CheckBox
Private cbLiczba8 As CheckBox
Private cbLiczba16 As CheckBox
Private cbLiczba32 As CheckBox
Private btnZgadne As Button
Dim liczba As Int
Private cbLiczba64 As CheckBox
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("ZgadneRozmiesc")
If FirstTime Then
cbLiczba1.Text = "1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 101 103 105 107 109 111 113 115 117 119 121 123 125 127"
cbLiczba2.Text = "2 3 6 7 10 11 14 15 18 19 22 23 26 27 30 31 34 35 38 39 42 43 46 47 50 51 54 55 58 59 62 63 66 67 70 71 74 75 78 79 82 83 86 87 90 91 94 95 98 99 102 103 106 107 110 111 114 115 118 119 122 123 126 127"
cbLiczba4.Text = "4 5 6 7 12 13 14 15 20 21 22 23 28 29 30 31 36 37 38 39 44 45 46 47 52 53 54 55 60 61 62 63 68 69 70 71 76 77 78 79 84 85 86 87 92 93 94 95 100 101 102 103 108 109 110 111 116 117 118 119 124 125 126 127"
' cbLiczba8.Text = "8 9 10 11 12 13 14 15 24 25 26 27 28 29 30 31 40 41 42 43 44 45 46 47 56 57 58 59 60 61 62 63 72 73 74 75 76 77 78 79 88 89 90 91 92 93 94 95 104 105 106 107 108 109 110 111 120 121 122 123 124 125 126 127"
cbLiczba8.Text = "8-15 , 24-31 , 40-47 , 56-63 , 72-79 , 88-95 , 104-111 , 120-127"
cbLiczba16.Text= "16-31 , 48-63 , 80-95 , 112-127"
cbLiczba32.Text= "32-63 , 96-127"
cbLiczba64.Text= "64-127"
End If
End Sub

Sub Activity_Resume
cbLiczba1.Checked = zazn1
cbLiczba2.Checked = zazn2
cbLiczba4.Checked = zazn4
cbLiczba8.Checked = zazn8
cbLiczba16.Checked = zazn16
cbLiczba32.Checked = zazn32
cbLiczba64.Checked = zazn64
End Sub

Sub Activity_Pause (UserClosed As Boolean)
zazn1 = cbLiczba1.Checked
zazn2 = cbLiczba2.Checked
zazn4 = cbLiczba4.Checked
zazn8 = cbLiczba8.Checked
zazn16 = cbLiczba16.Checked
zazn32 = cbLiczba32.Checked
zazn64 = cbLiczba64.Checked
End Sub


'Sub Activity_Touch (Action As Int, X As Float, Y As Float)
'
'End Sub


Sub btnZgadne_Click
liczba = 0
If cbLiczba1.Checked Then liczba = liczba + 1
If cbLiczba2.Checked Then liczba = liczba + 2
If cbLiczba4.Checked Then liczba = liczba + 4
If cbLiczba8.Checked Then liczba = liczba + 8
If cbLiczba16.Checked Then liczba = liczba + 16
If cbLiczba32.Checked Then liczba = liczba + 32
If cbLiczba64.Checked Then liczba = liczba + 64
btnZgadne.Text = "Pomyślałeś liczbę " &liczba
End Sub

Sub btnZgadne_LongClick
cbLiczba1.Checked = False
cbLiczba2.Checked = False
cbLiczba4.Checked = False
cbLiczba8.Checked = False
cbLiczba16.Checked = False
cbLiczba32.Checked = False
cbLiczba64.Checked = False
btnZgadne.Text = "Pomyśl inną liczbę "
End Sub
 
MichalK73

MichalK73

Well-Known Member
Licensed User
Longtime User
taok said:
Programik na zgadywanie liczby:


Sub Process_Globals
Dim zazn1, zazn2, zazn4, zazn8, zazn16, zazn32, zazn64 As Boolean
End Sub

Sub Globals
Private lblInfo As Label

Private cbLiczba1 As CheckBox
Private cbLiczba2 As CheckBox
Private cbLiczba4 As CheckBox
Private cbLiczba8 As CheckBox
Private cbLiczba16 As CheckBox
Private cbLiczba32 As CheckBox
Private btnZgadne As Button
Dim liczba As Int
Private cbLiczba64 As CheckBox
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("ZgadneRozmiesc")
If FirstTime Then
cbLiczba1.Text = "1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99 101 103 105 107 109 111 113 115 117 119 121 123 125 127"
cbLiczba2.Text = "2 3 6 7 10 11 14 15 18 19 22 23 26 27 30 31 34 35 38 39 42 43 46 47 50 51 54 55 58 59 62 63 66 67 70 71 74 75 78 79 82 83 86 87 90 91 94 95 98 99 102 103 106 107 110 111 114 115 118 119 122 123 126 127"
cbLiczba4.Text = "4 5 6 7 12 13 14 15 20 21 22 23 28 29 30 31 36 37 38 39 44 45 46 47 52 53 54 55 60 61 62 63 68 69 70 71 76 77 78 79 84 85 86 87 92 93 94 95 100 101 102 103 108 109 110 111 116 117 118 119 124 125 126 127"
' cbLiczba8.Text = "8 9 10 11 12 13 14 15 24 25 26 27 28 29 30 31 40 41 42 43 44 45 46 47 56 57 58 59 60 61 62 63 72 73 74 75 76 77 78 79 88 89 90 91 92 93 94 95 104 105 106 107 108 109 110 111 120 121 122 123 124 125 126 127"
cbLiczba8.Text = "8-15 , 24-31 , 40-47 , 56-63 , 72-79 , 88-95 , 104-111 , 120-127"
cbLiczba16.Text= "16-31 , 48-63 , 80-95 , 112-127"
cbLiczba32.Text= "32-63 , 96-127"
cbLiczba64.Text= "64-127"
End If
End Sub

Sub Activity_Resume
cbLiczba1.Checked = zazn1
cbLiczba2.Checked = zazn2
cbLiczba4.Checked = zazn4
cbLiczba8.Checked = zazn8
cbLiczba16.Checked = zazn16
cbLiczba32.Checked = zazn32
cbLiczba64.Checked = zazn64
End Sub

Sub Activity_Pause (UserClosed As Boolean)
zazn1 = cbLiczba1.Checked
zazn2 = cbLiczba2.Checked
zazn4 = cbLiczba4.Checked
zazn8 = cbLiczba8.Checked
zazn16 = cbLiczba16.Checked
zazn32 = cbLiczba32.Checked
zazn64 = cbLiczba64.Checked
End Sub


'Sub Activity_Touch (Action As Int, X As Float, Y As Float)
'
'End Sub


Sub btnZgadne_Click
liczba = 0
If cbLiczba1.Checked Then liczba = liczba + 1
If cbLiczba2.Checked Then liczba = liczba + 2
If cbLiczba4.Checked Then liczba = liczba + 4
If cbLiczba8.Checked Then liczba = liczba + 8
If cbLiczba16.Checked Then liczba = liczba + 16
If cbLiczba32.Checked Then liczba = liczba + 32
If cbLiczba64.Checked Then liczba = liczba + 64
btnZgadne.Text = "Pomyślałeś liczbę " &liczba
End Sub

Sub btnZgadne_LongClick
cbLiczba1.Checked = False
cbLiczba2.Checked = False
cbLiczba4.Checked = False
cbLiczba8.Checked = False
cbLiczba16.Checked = False
cbLiczba32.Checked = False
cbLiczba64.Checked = False
btnZgadne.Text = "Pomyśl inną liczbę "
End Sub
Click to expand...
Umiesc kod w znaczniku code masz ikone od tego w edytorze postu bedzie porzadnie wygladalo
 
You must log in or register to reply here.
Top