اینم بازی
کد نویسی حرفه ای بدون دیزاینر
☺️☺️

جهت دریافت سورس
@momtaziyankhass

https://t.me/Basic4Android_SourceCode

براحتی میتونید ادموب برای این بازی فعال کنید

و نکته دوم
این بازی قرار هر ماه اپدیت بشه
یعنی انگار جعبه ابزار و مجموعه ای از بازی ها در یک بازی قراره کد نویسی بشه.
با ما باشید تا برای بازی بعدی

تخفیف برای محصولات کانال تا سه روز فقط

تلاش کن برای هدفی که دوسش داری☺️
لیب sadegh_lib بزودی بصورت رایگان😄😄

https://t.me/Basic4Android_SourceCode

سورس شطرنج چ تخته نرد
تخفیف خورد😊😊

پروفایل

#B4a
مربی انلاین💕

دوستان سال نو شما مبارک

هیچ دعایی نمیکنم بجز
امید وارم تو این ۱۴۰۱ موجودات بی نام و نشان به اسم مسئول کشور،هدایت بشن و در غیر این صورت به عذابی دردناک گرفتار بشن.

برای همه آرزوی سلامتی میکنم
امیدوارم تو این سال جدید برکتتون زیاد،مهرتون زیاد،دعوا تبدیل به دوستی و آشتی بشه❤️

اینم عیدی شما 😀

رمز:آدرس کانال

release v11.50

فقط سرعت اجرارو ببینید.

https://t.me/Basic4Android_SourceCode

یه تکه کدی زدم برای مخفی کردن پنل:

به این صورت که شما ممکنه در یه اکتیویتی 100 تا پنل داشته باشید
و ممکنه با کلید بک بخواهید چک کنید کدوم پنل اول بسته بشه
برای این کار اکثرا از این روش استفاده میکنن

If panel.IsInitialized=True Then
If panel.Visible=True Then
panel.Visible=False
Return True
End If
End If



خب این کد برای 2 تا پنل جواب میده ولی اگه 50 یا بیشتر در یک کتییویتی پنل داشته باشید چی؟؟


خب اومدیم یه متغیر لیست تعریف کردیم در
Sub Globals
به این صورت
Dim keyback As List

و کد زیرو در اکتیویتی مورد نظر بزارید

Sub key_back(panel As Panel)
If keyback.IsInitialized=False Then
keyback.Initialize
End If
If keyback.Size>0 Then
Dim view As Panel=keyback.Get(keyback.Size-1)
panel.Elevation=appcompat.GetElevation(view)+1
End If
keyback.Add(panel)
End Sub

حالا فرض مثال شما یه باتن دارید و با کلیک بر روی باتن میخواهید یه پنل p1 باز بشه
به این صورت
b_click
p1.visible=true
key_back(p1)
end sub


و حالا

Sub activity_KeyUp (KeyCode As Int) As Boolean
If KeyCode=KeyCodes.KEYCODE_BACK Then



If keyback.IsInitialized=True Then
For i=0 To keyback.Size-1
Dim view As Panel=keyback.Get((keyback.Size-1)-i)
view.Visible=False
keyback.RemoveAt(keyback.IndexOf(view))
Return True
Next
End If

Return false
end if
end sub

خب شما با این روش هزار تا پنل هم در یک اکتیویتی داشته باشید دیگه با این کد براحتی میتونید پنلو ببندید



منتظر تکه کدهای دیگه باشید

https://t.me/Basic4Android_SourceCode