@gameoverblog
gameover.blog.ir
gameover.blog.ir
آموزش سوکت نویسی در بیسیک فور اندروید و php
با این آموزش یاد میگیرید که چطور به وسیله سوکت بین بیسیک فوراندروید و php اتصال برقرارکنیم
gameover.blog.ir
gameover.blog.ir
بیاید تو کانال ما هست:
@gameoverblog
gameover.blog.ir
برای اینکار فایل مسیر زیر رو با نوت پد باز کنید:
<Drive>:\ProgramData\BlueStacks\Oem.cfg
سپس خط زیر رو
<IsBTVBuild>true</IsBTVBuild>
به
<IsBTVBuild>false</IsBTVBuild>
تغییر بدید
gameover.blog.ir
تریلر:
http://s7.picofile.com/file/8284945492/scratch_image_view_demo_gif.mp4.html
سورس:
gameover.blog.ir
باز کردن فایل آفلاین html با وب ویو در b4a/ لود فایل اچ تی ام ال در بیسیک فور اندروید/لود فایل html در b4a:
Dim url As String 'url="file:///" & File.DirDefaultExternal& "/help/mainmenu_e.htm" url="file:///android_asset/help/mainmenu_e.htm"
در مثال فوق در زیرشخه ی پوشه /help میاد و فایل mainmenu_e.htm رو سرچ می کنه اگه وجود داشت لود یا بارگذاری می کنه اگه نبود خطا داریم.
مثال بهتر و ساده تر با متد دیگه می زنم . هر سوالی بود بپرسید:
Dim url As String url=File.DirAsset & "ali.html" webview1.LoadUrl(url)
اسکرین رکوردر اندروید
لینک برنامه:
لینک پلاگین ویرایش:
gameover.blog.ir
آموزش b4a/آموزش برنامه نویسی اندروید در basic4android/آموزش برنامه نویسی اندروید در b4a
کپی آموزش و دادن آن به دیگران ممنوع است.فقط عضو کانال بشید و لطفا اعضای کانال ما رو زیاد کنید و هر چی می تونید ممبر بیارید. آموزش روان و با رویکرد کاربردی هست و هر مبتدی رو راه می اندازه برای اینکه استارد بزنه و همه چیزای لازم گفته شده.
گیم اور: سازنده بهترین آموزش های رایگان..
لطفا برای حمایت از ما در کانال تلگرام ما عضو بشید.
و لینک ها رو از وبلاگ ما شیر کنید و همچنین وبلاگ ما رو لینک کنید توی وبلاگ هاتون.
gameover.blog.ir
به بخش Settings(علامت چرخ دنده) و سپس languages and input و سپس language برید و از لیست مربوط معمولا در قسمت های آخر گزینه ی "فارسی" رو انتخاب کنید:
![[تصویر: farsi_blueStack.jpg]](http://s5.picofile.com/file/8159835534/farsi_blueStack.jpg)
gameover.blog.ir
کیفیت عالی
حجم کل نزدیک 300 مگ
پس از پرداخت یک فایل در اختیار شما قرار می گیره که لینک تمام پارت ها در آن هست و می تونید به صورت تک تک دانلود بفرمایید.
کپی آموزش و دادن آن به دیگران ممنون است.
قیمت بسیار عالی گذاشتیم تا همه بتونن تهیه کنید.
با این پک آموزشی شما برنامه نویسی اندروید رو یاد می گیرید و اگر مبتدی هستید در یک هفته حرفه ای می شید و راه خودتون رو پیدا می کنید.
همه چیز قدم قدم گفته شده و آموزش عالی هست و سعی شده بیشتر موارد مورد نیاز گفته بشه که واقعا پکیج آموزشی عالی و کاربردی ای هست.
لطفا برای حمایت از سازنده این پکیج رو از ما بخرید.
با تشکر از شما
لینک خرید آموزش:
gameover.blog.ir
C:\ProgramData\BlueStacks\UserData\SharedFolder
gameover.blog.ir
gameover.blog.ir
gameover.blog.ir
gameover.blog.ir
GAMEOVER.BLOG.IR
gameover.blog.ir
Sub Globals
Dim WakeState As PhoneWakeState
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
WakeState.KeepAlive(True)'no sleep device
// WakeState.KeepAlive(False)'sleep device
end sub
نکته مهم : یادتون باشه حتما باید کتابخانه ی Phone را فعال کنید.(در قسمت Libraries Manager)
خرید آموزش b4a فارسی با قیمت کم:
http://gameover.blog.ir/1395/04/03/%DA%A9%D8%AA%D8%A7%D8%A8-%D9%81%D8%A7%D8%B1%D8%B3%DB%8C-%D8%A7%D9%85%D9%88%D8%B2%D8%B4-b4a-%D8%B3%D8%A7%D8%AE%D8%AA-%DA%AF%DB%8C%D9%85-%D8%A2%D9%88%D8%B1
gameover.blog.ir
در سایت زیر خصوصیات گوشی های مختلف مثل هو آ وی و ... رو می تونید ببینید مثل رزولوشن و اینچ و screen size و غیره:
gameover.blog.ir
برای دانلود فایل apk به لینک زیر رته و چند ثانیه صبر کنید سپس رد تبلیغ رو بزنید.
فایل apk رو روی گوشی نصب کنید و سپس سوریس های مورد نظر وایرلس رو اجا کنید تا بهتون یک ip بده.
سپس وارد نرم افزار b4a در ویندوز بشید و از منوی tools -> b4a bridge -> connect -> new ip ای پی گوشیتون رو وارد کنید. و سپس اجرا بگیرید.
gameover.blog.ir
به این لینک برید و چند ثانیه صبر کنید و سپس رد تبلیغ بزنید:
gameover.blog.ir
نکته ی بسیار مهم:
بعضی اوقات در بعضی ورژن های b4a میایم یک پرروژه دیگه رو که مثلا با ورژن دیگه ساختیم اجرا می گیریم و خطای متغیر ناشناس یا غیره میده. در این حال باید ورژن دقیق اون نسخه رو بدست بیاریم تا بتونیم سورس رو اجرا کنیم.
مثلا اگه متغیری حتی public در اکتیویتی Main تعریف کردیم در ورژن 5.02 میشه با دستور Main.esmeMoteghayyer بهش دسترسی داشت اما تو ورژن های دیگه خطا میده.(esmeMoteghayyer اسم متغیری هست که در اکتیویتی Main از نوع public تعریف کردیم)
مثلا این سورس دزدگیر همراه رو در نظر بگیرید:
این سورس فقط روی basic4android version 5.02 اجرا میشه و روی ورژن های بالاتر یا پایین تر اجرا نمیشه.
پس ابتدا برنامه basic4android version 5.02 رو از این لینک دانلود کنید:
http://www.mediafire.com/download/cxao99um6iw1iss/B4A+5.02+Retail.zip
روش نصب b4a version 5.0.2:
داخل پوشه crack رمز هستReadMe.txt هست اونو بخونید روش نصب رو گفته:
فایل های داخل پوشه ی License & DLL رو کپی کنید در مسیر نصب b4a verion 5.0.2
سپس داخل پوشه ی License Generator رفته و روی فایل
License Generator_b4airanamozesh.ir راست کلیک کنید و run as admin رو
بزنید تا تحت ادمین در ویندوز 7 جرا بشه سپس Basic4Android رو انتخاب کرده و
یک ایمیل الکی مثلا ali@yahoo.com رو وارد کنید و Generate رو بزنید تا یک
فایل تولید بشه. سپس اون فایل رو کپی کنید در مسیر نصب basic4android
version 5.0.2
--
حالا می تونید سورس دزدگیر همراه رو داخلش باز کرده و اجرا بگیرید.
gameover.blog.ir
هر فایل apk یک امضای الکترونیکی داره که مختص توسعه دهنده اون هست این امضای الکترونیکی رو فقط توسعه دهنده در اختیار داره
بیسیک هنگام کامپایل به صورت پیش فرض apk رو با debug key امضا میکنه که این امضا یک امضای عمومی هست و همه اون رو در اختیار دارن و مختض برنامه شما فقط نیست
گوگل پلی از همون ابتدا این قانون رو داشت که برنامه رو نباید با debug key آپلود کنید به نظر میرسه بازار هم به تازگی این قانون رو پیاده کرده که به نفع خود توسعه دهنده هست
--------------------
برای basic4android:شما برای حل این مشکل باید به قسمت Tools < private sign key برید و اطلاعاتی رو که برای یک امضای جدید لازمه وارد کنید تا فایل امضای شما رو در محل مورد نظر ذخیره کنه بعد شما هر وقت که خواستین کامپایل نهایی خودتون رو از برنامه بگیرید به قسمت Tools < private sign key برید و فایل امضای خودتون رو لود کنین و از برنامه کامپایل بگیرین
منبع :
DPI (dots per inch)
تعداد نقطه در هر اینچ
منبع:gameover.blog.ir
عکس گرفتن از صفحه گوشی اندروید
برای اینکار کلید Volume down و Power رو با هم چند لحظه نگه دارید:
Sub Globals Dim p As PhoneIntents 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("Layout1") StartActivity(p.OpenBrowser("http://www.basic4ppc.com")) End Sub
دوستان لطفا این برنامه رو شیر کنید برای حمایت از ما روی تبلیغات در بازی کلیک کنید.
http://www.mediafire.com/download/gokmhkm5yqirp1a/StringUtils.zip
http://www.mediafire.com/download/ou59pwsa6ovl9fw/SQL.zip
http://www.mediafire.com/download/jwarbmnatamlz0k/GPS.zip
Dim c As Int = 0 For Each f As String In File.ListFiles(File.DirRootExternal) If f.EndsWith(".jpg") Then c = c + 1 Next Log(c)
![[تصویر: mysql_1.png]](http://www.b4x.com/basic4android/images/mysql_1.png)
<? $databasehost = "localhost"; $databasename = "xxxx"; $databaseusername ="xxxx"; $databasepassword = "xxxx"; $con = mysql_connect($databasehost,$databaseusername,$databasepassword) or die(mysql_error()); mysql_select_db($databasename) or die(mysql_error()); mysql_query("SET CHARACTER SET utf8"); $query = file_get_contents("php://input"); $sth = mysql_query($query); if (mysql_errno()) { header("HTTP/1.1 500 Internal Server Error"); echo $query.'\n'; echo mysql_error(); } else { $rows = array(); while($r = mysql_fetch_assoc($sth)) { $rows[] = $r; } print json_encode($rows); } ?>
$query = file_get_contents("php://input");
![[تصویر: SS-2013-01-29_16.42.32.png]](http://www.b4x.com/basic4android/images/SS-2013-01-29_16.42.32.png)
'Activity module Sub Process_Globals Private COUNTRIES_LIST = "countries_list", COUNTRY_POPULATION = "country_population" As String End Sub Sub Globals Type TwoLines (First As String, Second As String) Dim lblPopulation As Label Dim ListView1 As ListView Dim lblCountry As Label End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("1") FetchCountriesList End Sub Sub FetchCountriesList ProgressDialogShow("Fetching list of countries") 'Gets all the available countries ExecuteRemoteQuery("SELECT name, id FROM countries ORDER BY id", COUNTRIES_LIST) End Sub Sub ListView1_ItemClick (Position As Int, Value As Object) Dim tl As TwoLines tl = Value lblCountry.Text = tl.Second lblPopulation.Text = "Calling server..." ExecuteRemoteQuery("SELECT population FROM countries WHERE id='" & tl.First & "'", COUNTRY_POPULATION) End Sub Sub ExecuteRemoteQuery(Query As String, JobName As String) Dim job As HttpJob job.Initialize(JobName, Me) job.PostString("http://www.basic4ppc.com/android/countries.php", Query) End Sub Sub JobDone(Job As HttpJob) ProgressDialogHide If Job.Success Then Dim res As String res = Job.GetString Log("Response from server: " & res) Dim parser As JSONParser parser.Initialize(res) Select Job.JobName Case COUNTRIES_LIST Dim COUNTRIES As List COUNTRIES = parser.NextArray 'returns a list with maps For i = 0 To COUNTRIES.Size - 1 Dim m As Map m = COUNTRIES.Get(i) 'We are using a custom type named TwoLines (declared in Sub Globals). 'It allows us to later get the two values when the user presses on an item. Dim tl As TwoLines tl.First = m.Get("id") tl.Second = m.Get("name") ListView1.AddTwoLines2(tl.First, tl.Second, tl) Next Case COUNTRY_POPULATION Dim l As List l = parser.NextArray If l.Size = 0 Then lblPopulation.Text = "N/A" Else Dim m As Map m = l.Get(0) lblPopulation.Text = NumberFormat2(m.Get("population"),0, 0, 0, True) & " (K)" End If End Select Else ToastMessageShow("Error: " & Job.ErrorMessage, True) End If Job.Release End Sub Sub Activity_Resume End Sub
<?php // example of how to use basic selector to retrieve HTML contents include('../simple_html_dom.php'); // get DOM from URL or file $html = file_get_html('http://example.com/#1:7'); // find all link foreach($html->find('a') as $e) echo $e->href . '<br>'; // find all image foreach($html->find('img') as $e) echo $e->src . '<br>'; // find all image with full tag foreach($html->find('img') as $e) echo $e->outertext . '<br>'; // find all div tags with id=gbar foreach($html->find('div#content') as $e) echo $e->innertext . '<br>'; // find all span tags with class=gb1 foreach($html->find('span.gb1') as $e) echo $e->outertext . '<br>'; // find all td tags with attribite align=center foreach($html->find('td[align=center]') as $e) echo $e->innertext . '<br>'; // extract text from table echo $html->find('td[align="center"]', 1)->plaintext.'<br><hr>'; // extract text from HTML echo $html->plaintext; ?>
// Create DOM from URL or file $html = file_get_html('http://www.google.com/'); // Find all images foreach($html->find('img') as $element) echo $element->src . '<br>'; // Find all links foreach($html->find('a') as $element) echo $element->href . '<br>';
منبع:gameover.blog.ir
سازنده : سجاد
اینم سورس با b4a ورژن 5 ساخته شده برای شما:
http://s6.picofile.com/file/8218517118/open_google_using_webview_b4a.zip.html
ایم بدون web view:
منبع:gameover.blog.ir
برای اینکه دیتا بیس بسازید نیاز به نرم افزار navicat دارید که ورژن
premium رو از اینترنت دانلود کنید . اموزشم نمی خواد ور برید حله 
-
http://www.mediafire.com/download/5n31g677onxh2iu/HttpUtils2_db+downloader+online.zip
http://downloads.puresoftware.org/files/android/
http://kaopu.so/pan/WINDOWS_TOOLS
آموزش گام به گام نصب و راه اندازی Basic4Android
--
منبع :
http://basic4android.org/index.php?/topi...%AF%D8%B1/
--
Java Development Kit:
http://www.mediafire.com/download/ralelg...id.org.zip
--
Sun Java 64 Bit:
http://www.mediafire.com/download/boww8o...67.x64.zip
یا
SunJava 32 Bit :
http://www.mediafire.com/download/h8kq3j...67.x86.zip
--
Android.SDK.Release.23.0.2:
http://www.mediafire.com/download/0p8faa...23.0.2.zip
--
فایل های مورد نیاز برای قرار دادن در Android SDK :
Build-Tools_r19.0.3-Windows:
http://www.mediafire.com/download/o9r9k5...indows.zip
Platform-Tools_r19.0.1-Windows:
http://www.mediafire.com/download/f1jdxs...indows.zip
PlatForms:
http://www.mediafire.com/download/xzlbgx...rms%29.zip
Samples:
http://www.mediafire.com/download/4abmzq...les%29.rar
System-Images:
http://www.mediafire.com/download/zmz4fk...ges%29.zip
اضافه شد: فایل های adb.bat + adb.exe + AdbWinApi.dll + zipalign :
http://www.basic4android.org/attachments...winapi.rar
تمامی فایل ها تست شده و قابل نصب بر روی تمام ویندوزها می باشند
پسورد تمام لینک های بالا:
www.basic4android.org
آموزش کامل چگونگی نصب و راه اندازی Basic4Android بعد از دانلود تمام ابزارهای بالا:
ابتدا Java JDK بر حسب سیستم خودتون رو نصب کنید.
بعد از آن به سراغ نصب Android SDK میریم:
اندروید SDK را در محلی به جز درایو ویندوز نصب کنید به صورتی که دائمی
باشد و در صورت تعویض ویندوز اندروید SDK و اطلاعات آن از بین نرود.
مثلا من در این مسیر نصب خودم رو انجام میدم: ( توجه کنید توی پوشه نصب
Android SDK از فاصله استفاده نکنید... یعنی حروف به هم چسبیده باشند )
G:\android-sdk(32.0.2)
حالا چک کنید که تمام پوشه های زیر در Android SDK وجود داشته باشد. هر
پوشه ای که وجود نداشت را بسازید تا دقیقا مطابق تصویر زیر شود:
لیست متنی پوشه ها:
add-ons
build-tools
platforms
platform-tools
samples
system-images
tools
تک تک به سراغ پوشه ها میریم:
add-ons را خالی میگذاریم !
build-tools :
پوشه android-4.4.2 را همراه با فایل های موجود در آن که در پوشه دانلود
شده build-tools_r19.0.3-windows وجود دارد را در build-tools کپی کنید
platforms :
پوشه __MACOSX و پوشه android-14 که در پوشه android-14 ای که مربوط به platforms است را در platforms کپی کنید
platform-tools :
تمام فایل ها و پوشه های موجود در platform-tools_r19.0.1-windows\platform-tools که دانلود کرده اید را در platform-tools کپی کنید:
![[تصویر: 32_files_in_platform_tools.png]](http://s6.picofile.com/file/8203724276/32_files_in_platform_tools.png)
samples :
فایل android-14 موجود در android-14 دانلود شده مربوط به samples را در داخل پوشه samples کپی کنید.
system-images :
فایل android-14 موجود در android-14 دانلود شده مربوط به system-images را در داخل پوشه system-images کپی کنید.
tools :
این رو توجه کنین و یادتون نره چون در غیر این صورت با خطا مواجه میشید. باید حتما 1 بار این فایل رو اجرا کنید:
فایل adb پیوست شده را دانلود و چهار فایل adb.exe و adb.bat و AdbWinApi.dll و zipalign.exe را درون پوشه tools بریزید
( بعد از اتمام کار و راه اندازی کامل Basic4Android لازم است قبل از اجرای Run AVD Manager فایل adb.bat را یک بار اجرا کنید )
نصب Basic4Android و Patch کردن آن :
بعد از نصب خود برنامه ی Basic4Android که آخرین مرحله است سراغ به Keygun کردن آن میرسد.
فایل b4a-gen را در مسیر نصب Basic4Android کپی کنید مثلا در این مسیر:
D:\Program Files (x86)\Anywhere Software\Basic4android
b4a-gen.exe را اجرا کنید و یک email اختیاری مثلا
support@basic4android.org را وارد کنید و بعد بر روی گذینه Generate
Lisence File کلیک کنید
تا فایل Lisence ساخته شود.
حالا برنامه Basic4Android را باز کنید و ایمیل وارد کرده در b4a-gen.exe را که همان support@basic4android.org میشود را وارد کنید.
خب الان Basic4Android شما کاملا نصب شده و فقط مونده که 3 تا مسیر به برنامه بدیم:
از منو Tools گذینه Configure Paths را انتخاب کنید:
در قسمت اول که javac.exe است باید آدرس فایل javac.exe که بعد از نصب Java JDK به وجود آمده است را بدهید مثلا:
D:\Program Files\Java\jdk1.7.0_40\bin\javac.exe
در قسمت android.jar باید آدرس فایل android.jar موجود در مسیر نصب sdk و پوشه platforms و android-14 وجود دارد را بدهید مثلا:
G:\android-sdk(23.0.2)\platforms\android-14\android.jar
در قسمت Additional Libraries باید آدرس فایل Library موجود در مسیر نصب Basic4Android را بدهید مثلا:
D:\Program Files (x86)\Anywhere Software\Basic4android\Libraries
سپس OK کنید.
مرحله آخر:
از منو Tools گذینه Run AVD Manager را انتخاب کنید تا باز شود.
چون بار اول است باید یک AVD بسازیم . بر روی گذینه Create کلیک کنید.
AVD Name: Android-14
Device: 3.2" HVGA silder (ADP1) (320×480: ,dpi
Target: Android4.0- API Level 14
CPU/ABI: ARM (armeabi-v7a
Hardware Keyboard present را تیک بزنید تا فعال شود.
Skin: Skin with dynamic hardware controls
SD Card: Size 500 MiB
سایر تنظیمات را دست نزدید.
![[تصویر: armeAbi.jpg]](http://s6.picofile.com/file/8203724384/armeAbi.jpg)
OK را بزنید
نصب و تمامی تنظیمات به پایان رسید.
پسورد فایل پیوست شده : برنامه نویسان بیسیک4اندروید
http://www.basic4android.org
پسورد اشتب بود خودتون عقب جلو کنید
منبع :
http://basic4android.org/index.php?showtopic=4
--
برای دانلود آموزش تصویری نصب تمامی ابزارها به تاپیک زیر مراجعه کنید :
http://www.basic4android.org/showthread....8%B3%DB%8C
:![[تصویر: avd.jpg]](http://s3.picofile.com/file/8203724650/avd.jpg)
![[تصویر: arm_abi.jpg]](http://s6.picofile.com/file/8183832350/arm_abi.jpg)
اندروید 21 برای پوشه ی platforms:
http://www.mediafire.com/download/nf40umk4kcqpf5i/android-21.rarخب اول باید وارد سایت عدد بشید و در قسمت نمایش دهندگان وارد رسانه های من
بشید روی رسانه جدید کلیک کنید پکیج نیم برنامتون بنویسید و تایید رو
بزنید حالا کتاب خانه عدد رو از اینجا دانلود کنید و بریزید داخل قسمت لایبری b4a حالا b4a رو باز کنید
کتابخانه های adad و reflection رو فعال کنید
این کدو به مانفیست ادیتورتون اضافه کنید
نقل قول :AddApplicationText(
<activity
android:name="ir.adad.AdadActivity"
android:theme="@android:style/Theme.Dialog">
</activity>
<meta-data android:name="ir.adad.token" android:value="YOUR_TOKEN"></meta-data>
<meta-data android:name="ir.adad.test_mode" android:value="true"></meta-data>
)
نقل قول :Sub Activity_Create(FirstTime As Boolean)
Dim verticalPosition As String = "bottom" '"top" or "bottom"
Dim horizontalPosition As String = "center" '"left", "right" or "center"
Dim r As Reflector
Dim args(3) As Object = Array As Object(r.GetActivity, verticalPosition, horizontalPosition)
Dim types(3) As String = Array As String("android.app.Activity", "java.lang.String", "java.lang.String")
r.RunStaticMethod("ir.adad.AdadB4APlugin", "createAdView", args, types)
End Sub
نقل قول :AddPermission(android.permission.INTERNET)
نقل قول :<meta-data android:name="ir.adad.test_mode" android:value=" True "></meta-data>
#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region//gameover.blog.ir
Dim MP As MediaPlayer MP.Initialize() MP.Load(File.DirAssets, "fereydun_asarayi.mp3") MP.Looping = True MP.Play
منبع :gameover.blog.ir
اینجا :
C:\Users\userName\AppData\Local\Genymobile\Genymotion\ova
مسیر بالا رو بلد نیستید توی منوی run بنویسید AppData
منبع : sinusi.blog.ir
سلام،دوستان همانطور که می دونید GenyMotion یک شبیه ساز آندروید هست.که می تونید اون رو از اینجا دانلود کنید.
اما مشکل اصلی دانلود Virtual Device های اون هست که من در این پست لینکشون رو براتون میگذارم.
================================
================================
Android 4.1.1 API 16 Tablet
Custom Tablet 10\" - 4.1.1 - API 16 - 2560x1600
Google Nexus 7 - 4.1.1 - API 16 - 800x1280
Motorola Xoom - 4.1.1 - API 16 - 800x1280
Sony Xperia Tablet S - 4.1.1 - API 16 - 1280x800
Sony Xperia Tablet Z - 4.1.1 - API 16 - 1920x1200
================================
================================
================================
================================
================================
================================
Android 4.4.2 API 19 Tablet
Custom Tablet 10\" - 4.4.2 - API 19 - 2560x1600
Google Nexus 10 - 4.4.2 - API 19 - 2560x1600
Google Nexus 7 - 4.4.2 - API 19 - 800x1280
Sony Xperia Tablet Z - 4.4.2 - API 19 - 1920x1200
C:\Users\[Your Name]\AppData\Local\Genymobile\Genymotion\ovaقرار بدید، بعد برید و داخل Genymotion دستگاه مربوط به اون فایل رو ایجاد کنید،بدون معطلی دستگاه براتون ساخته میشه و نیازی به دانلود نیست.
منبع :gameover.blog.ir
نکته : این کد غلطه و رویداد radioButton_Check براش عمل نمی کنه :
RadioButton1.Initialize("")
RadioButton2.Initialize("")
RadioButton3.Initialize("")
RadioButton4.Initialize("")
حالا این کد درسته :
RadioButton1.Initialize("RadioButton1")
RadioButton2.Initialize("RadioButton2")
RadioButton3.Initialize("RadioButton3")
RadioButton4.Initialize("RadioButton4")منبع :gameover.blog.ir
خیلی ساده :
قبل از insert یک select رو اجرا کن با where column_name=onsor_voroodi
اگه وجود داشت و تعداد سطرهای Cursor بیش از صفر شد یعنی تکراری هست و نباید درج کنی.
sajjad3011
gameover.blog.ir
کد دارای خطا اینه :
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
Dim Label1 As Label
Label1.Initialize("")
'Activity.AddView(Label1,10dip,10dip,100dip,100dip)
Label1.Text="salam"
Label1.Left=50%x
Label1.Top=50%y
End SubSub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
Dim Label1 As Label
Label1.Initialize("")
Activity.AddView(Label1,10dip,10dip,100dip,100dip)
Label1.Text="salam"
Label1.Left=50%x
Label1.Top=50%y
End SubLabel1.Initialize("")
'ScrollView1.Panel.AddView(Label1, 0, 0, ScrollView1.Width, Label1.Height)'Error null pointer
ScrollView1.Panel.AddView(Label1, 0, 0, 100%x, 10%y)'Solvedمنبع :gameover.blog.ir
منبع :
http://www.b4x.com/android/forum/threads/trigonometric-circle.8547/#post48013
ابتدا یک روال(sub) به نام DrawArc برای رسم کمان می نویسیم :
Sub DrawArc(xc As Float, yc As Float, r As Float, a1 As Float, a2 As Float, col As Int, Strike As Float)
' The routine draws always in the trigonometric direction (counter clockwise) from angle a1 to a2
'a1=start angle
'a2=end angle
'col=color
'xc,yc=(x,y)
'r=radius
'strike=stroke width = border
Dim x1, y1, x2, y2 As Float
Dim da, a As Float
' da=260/r ' calculates the angle interval As a function of the radius
' da=250/r
da=1000/r
If a2<a1 Then
a2=a2+360
End If
x1=xc+r*CosD(a1)
y1=yc-r*SinD(a1)
cvsMain.DrawLine(x1,y1,xc,yc,col,Strike) ' draws the radius
For a = a1+da To a2 Step da
x2=xc+r*CosD(a)
y2=yc-r*SinD(a)
cvsMain.DrawLine(x1,y1,x2,y2,col,Strike)
x1=x2
y1=y2
Next
x2=xc+r*CosD(a2)
y2=yc-r*SinD(a2)
cvsMain.DrawLine(x1,y1,x2,y2,col,Strike) ' draws the last segment
cvsMain.DrawLine(x2,y2,xc,yc,col,Strike) ' draws the radius
End SubSub Activity_Create(FirstTime As Boolean)
cvsMain.Initialize(Activity)
DrawArc(x0,y0,100dip,80,350,Colors.Red,1dip)
' DrawArc(x0-30dip,y0,90dip,80,350,Colors.Red,1dip)
DrawArc(x0+40dip,y0+40dip,100dip,80,350,Colors.Red,2dip)
DrawArc(x0,y0+180dip,100dip,80,359,Colors.Green,1dip)
DrawArc(x0+40dip,y0+200dip,100dip,80,1,Colors.Green,1dip)
End Sub
مسیر C:\ProgramData\BlueStacks\UserData\SharedFolder\ J
تعریف آریه دو بعدی/تعریف آرایه چند بعدی:
مثال آرایه دو بعدی:
Dim arr(2,4) As Int
arr(1,1)=1
arr(1,2)=1
arr(2,1)=1
arr(2,2)=1
مثال آرایه ی سه بعدی :
Dim ArrayOf6Dimensions(3,3,3) As Int
خرید آموزش b4a فارسی با قیمت کم:
http://gameover.blog.ir/1395/04/03/%DA%A9%D8%AA%D8%A7%D8%A8-%D9%81%D8%A7%D8%B1%D8%B3%DB%8C-%D8%A7%D9%85%D9%88%D8%B2%D8%B4-b4a-%D8%B3%D8%A7%D8%AE%D8%AA-%DA%AF%DB%8C%D9%85-%D8%A2%D9%88%D8%B1
تا آخرش بخونید لطفا
منبع :
http://promakers.ir/showthread.php?tid=10091&pid=108607
در کدهای ارائه قبلی توسط سایر دوستان،تولید اعداد تصادفی محدود بود اما
اینجا من یاد میدیم تا تعداد تقریبا نامحدود عدد تصادفی تولید کنیم.
اینم الگوریتم و کد کاملا تست شده ای که بعد از چند روز فکر کردن بالاخره نوشتمش.
//game maker script //Generating random numbers without repeating //Author:sajjad3011....gameover.blog.ir.... // n=8 a[0]=irandom_range(0,n) for(i=1;i<=n;i++) { a[i]=irandom_range(0,n); for(j=0;j<=(i-1);j++) { if(a[i]==a[j]) { a[i]=irandom_range(0,n); j=0;i--; }//if }//for j }//for i-----------
یک listview و یک command button بذارید روی فرم حله
اینم کد دیگه چی میخواید :
'Author:sajjad3011
Private Sub Command1_Click()
List1.Clear
Const n = 9
Dim a(0 To n) As Integer
' Generate random value between 1 and n
a(1) = CInt(Int((n * Rnd()) + 1))
For i = 2 To n
a(i) = CInt(Int((n * Rnd()) + 1))
For j = 1 To i - 1
If (a(i) = a(j)) Then
a(i) = CInt(Int((6 * Rnd()) + 1))
j = 1
i = i - 1
End If 'if
Next j 'or j
Next i 'for i
For i = 1 To UBound(a)
List1.AddItem (a(i))
Next i
End Sub
for i from 0 to n − 2 do j ← random integer such that i ≤ j < n exchange a[j] and a[i]نکته:
Random.Range(min,max)
for(k=0;k<myarr.length-2;k++) { a = random.range(0,n); b = random.range(0,n); temp=myarr[a]; myarr[a]=myarr[b]; myarr[a]=temp; }
می دونید بعضی اوقات سازندگان اپلیکیشن دقت نمی کنن و خصوصیت Width و
Height پیش فرض imageView توی پنجره ی Designer پیشفرض روی 100 و 100 هست و
Gravity روی Fill. هست. این باعث میشه که عکس کش بیاد و به اندازه ی
width=100 و height=100 بشه.
برای رفع این مشکل شما باید در پنجره ی Designer خصوصیت Gravity رو روی
Center بذارید. تا پهنای image view دقیقا بعد از اجرا به اندازه ی عکس شما
در بیاد. این کار کیفیت رزولوشن رو بالا می بره و از بی کیفیت بودن کار
شما جلوگیری می کنه.موفق باشید
در قسمت بالای برنامه جلوی ApplicationLabel اسم دلخواهی رو بذارید که می خواید در بالای برنامه موقع اجرا نمایان بشه :
#Region Module Attributes
#FullScreen: False
#IncludeTitle: True
#ApplicationLabel:اسم دلخواه
#VersionCode: 1
#VersionName:اسم دلخواه
#SupportedOrientations: landscape
#End RegionSetApplicationAttribute(android:label, "برچسب اپلیکیشن")
SetActivityAttribute(Main, android:label, "برچسب اکتیویتی")Activity.Title=Application.LabelNameSub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
Activity.Title=Application.LabelName
End Sub
Topic jamee B4A Library
Basic4Androiad v3.20 Full Patch (Soft)
Amozesh ezafe kardan them be b4A
Amozesh Amade sazie B4A (Video)
Amozesh Hello World!!!(video)
Amozesh ListView va halghe(video)
Amozesh estefade az WebBrowser(video)
Amozesh ProgressBar and Timer(video)
Amozesh 2Activity (video)
Amozesh sakht AvatarGrabber (video)
Amozesh Add kardan Menu
Amozesh add kardan library
Amozesh Exit kardan soft and roydad KeyPress
Amozesh Random
Amuzeshe Add Kardane Font dar B4A
Amozesh Substring Dar B4A
Amoozeshe Tasvirie Avaz Shodane Khodkare Range Label Be Soorate Randomi(video)
Amozesh ijad tamas ba barnmae basic4android
Amozesh check Internet Connection And Get IP In B4A
Amozesh sakht Mashin hesab
Amozesh Split Text
Amozesh ersal payamak
Amozesh sakht keypad majazi(video)
Amozesh Ussd
Amozesh Load Website Dar B4A
Second Line(Raftan Be Khatte Dovom)In B4A
Amuzesh sakht Lib dar Basic4Android(video)
Amoozeshe Raftan Az Ye Form Ya Activity Be Ye Activity E Dg(video)
Amuzeshe hazfe item tekrari az listview
Amozesh Kar Ba RadioButton Dar B4A
Amozesh Try & Catch Dar B4A
Amozeshe dastrese be tamame noghat tanzimat goshi
Amuzeshe texte motaharek dar b4a
Amozesh crαcĸ Var rah andazi b4a
Amozesh tab host dar b4a
Amuzesh kar ba dialog dar basic for Android
Amozesh gereftan aks az barname dar chand goshi
Amozesh scroll(video)
Amoozesh b4a Service(video)
Baz kardan ye Image dar net b4a
Add Kardan file b4a
Amozesh Do While....Loop In B4A
Amozesh Mod (baghimande taghsim ) dar b4a
border dadane to b4a
listview jaleb b4a
Link dadan be moror gar
Moghayese Code Hamun Dar Sholooghie Code Ha !
Amoozeshe Tashkhise Lamse Karbar(Touch)
Gereftane ListeBarname Haye Dar Hale Ejra In B4A
Amuzeshe sakhte ketabe ghese + source basic4android
Use Html book b4a
text shadow dar b4a
Imge size to html b4a
Roshan Negah Dashtane Safheye Mobile Dar B4A
Tanzime Ringtone Mob Dar basic4android
Fix Shodane Andazeye Control Ha Ba Charkheshe Mobile Dar B4A
GridView In B4A
harkate mtn ba webview b4a
Style ziba be txt ba webview b4a
rangi kardan title b4a
Amoozesh Notification dar B4a
Gereftane Saat Va tarikh dar B4a
Amoozesh Ersale Sms Dar B4a
fix kardane abzar ha ro tamame goshi ha b4a
Move Image With Touch In B4A
Amuzeshe Reflection
Tanzim kardane noe zange goshi (B4A)
fix kardane abzar ha ro tamame goshi ha b4a
chang kardan emulator b4a
Scroll Dadan Be ListView
نوتیفیکیشن فرقش با toastMessage(شبیه tool tip) اینه که پیامی رو نشون می ده و باید یک آیکن (و متن info)حتما بهش بدیم. همچنین معمولا از نوتیفیکیشن ها در سرویس ها استفاده میشه.البته اجباری نیست.
شکل کلی:
Dim n As Notification n.Initialize n.Icon = "icon" n.SetInfo("This is the title", "and this is the body.", Main) 'Change Main to "" if this code is in the main module. n.Notify(1)
'random file name without Repeation
'Author:Sajjad3011
Sub CStr(o As Object) As String Return "" & o End Sub imgFormat="png" strFileName = "aks." & imgFormat ' Do While File.Exists(File.DirRootExternal,strFileName) strFileName = CStr(Rnd(1,1000)) & CStr(Rnd(1,1000)) & CStr(Rnd(1,1000)) & "." & imgFormat Loop
Sub CStr(o As Object) As String Return "" & o End Sub Sub CInt(o As Object) As Int Return Floor(o) End Sub Sub CLng(o As Object) As Long Return Floor(o) End Sub
Loop
یا
i=1
Do While i < 10 i= i + 1 Loop
Private i As Intent i.Initialize(i.ACTION_VIEW, "http://google.com") StartActivity(i)
Sub Globals Dim httpjob1 As HttpJob End Sub Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. Dim Timer1 As Timer End Sub Sub Activity_Create(FirstTime As Boolean) httpjob1.initialize("httpjob1",Me) Timer1.Initialize("Timer1", 5000) ' 5000 = 5 second Timer1.Enabled = True End Sub Sub JobDone(Job As HttpJob) If Job.success = True Then ToastMessageShow(Job.GetString, True) End Sub Sub Timer1_Tick httpjob1.download("http://example/tablighat.html") 'httpjob1.download("http://example/tablighat.php") End Sub
Sub Process_Globals Dim Timer1 as Timer End Sub Sub Activity_Create Timer1.Initialize("Timer1", 1000) ' 1000 = 1 second Timer1.Enabled = True End Sub Sub Timer1_Tick 'Handle tick events End Sub
خواندن از فایل XML و اضافه به listView در b4a
Sub Parser_StartElement (Uri As String, Name As String, Attributes As Attributes)
End Sub
Sub Parser_EndElement (Uri As String, Name As String, Text As StringBuilder)
If parser.Parents.IndexOf("item") > -1 Then
If Name = "title" Then
Title = Text.ToString
Else If Name = "link" Then
Link = Text.ToString
End If
End If
If Name = "item" Then
ListView1.AddSingleLine2(Title, Link) 'add the title as the text and the link as the value
End If
End SubDim in As InputStream
in = File.OpenInput(File.DirAssets, "rss.xml") 'This file was added with the file manager.
parser.Parse(in, "Parser") '"Parser" is the events subs prefix.
in.Closeمیخوام یاد بدم عکسی رو دانلود و نمایش
بدید(البته پس از دانلود توی گوشی ذخیره میشه و توی پوشه ی Files محل اجرا
برنامه دیگه چیزی نمی بینیم چون apk باید روی گوشی یا blueStack آنزیپ(یا
unPack) بشه و روی حافظه اونجا قرار می گیره و فایل دانلودی هم میره
همونجا.
ما انواع ماژول داریم:
ماژول اکتیویتی
ماژول سرویس
ماژول کلاس
ماژول کد
-
یک ماژول سرویس با نام DownloadService ایجاد کنید( منوی project->Add new module->Service Module)
-
کد زیر رو بریزید توش و ذخیره کنید:
#Region Module Attributes
#FullScreen: False
#IncludeTitle: True
#ApplicationLabel: Download Service
#VersionCode: 1
#VersionName:
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
'Activity module
Sub Process_Globals
Dim image As Bitmap
End Sub
Sub Globals
Dim btnDownload As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
'check if we already loaded the image previously.
If image.IsInitialized Then
Activity.SetBackgroundImage(image)
End If
End Sub
Sub Activity_Resume
'check if download has finished while the activity was paused
If btnDownload.Enabled = False AND DownloadService.JobStatus = DownloadService.STATUS_DONE Then
FinishDownload
End If
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub btnDownload_Click
Activity.Color = Colors.Black
DownloadService.URL = "http://www.basic4ppc.com/basic4android/images/designer1.png"
DownloadService.Target = File.OpenOutput(File.DirInternalCache, "image.png", False)
StartService(DownloadService)
btnDownload.Enabled = False
End Sub
Sub FinishDownload
'Load the saved image
If DownloadService.DoneSuccessfully = True Then
image = LoadBitmapSample(File.DirInternalCache, "image.png", _
100%x, 100%y)
Activity.SetBackgroundImage(image)
End If
btnDownload.Enabled = True
DownloadService.JobStatus = DownloadService.STATUS_NONE
End Sub#Region Module Attributes
#FullScreen: False
#IncludeTitle: True
#ApplicationLabel: Download Service
#VersionCode: 1
#VersionName:
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
'Activity module
Sub Process_Globals
Dim image As Bitmap
End Sub
Sub Globals
Dim btnDownload As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
'check if we already loaded the image previously.
If image.IsInitialized Then
Activity.SetBackgroundImage(image)
End If
End Sub
Sub Activity_Resume
'check if download has finished while the activity was paused
If btnDownload.Enabled = False AND DownloadService.JobStatus = DownloadService.STATUS_DONE Then
FinishDownload
End If
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub btnDownload_Click
Activity.Color = Colors.Black
DownloadService.URL = "http://www.basic4ppc.com/basic4android/images/designer1.png"
DownloadService.Target = File.OpenOutput(File.DirInternalCache, "image.png", False)
StartService(DownloadService)
btnDownload.Enabled = False
End Sub
Sub FinishDownload
'Load the saved image
If DownloadService.DoneSuccessfully = True Then
image = LoadBitmapSample(File.DirInternalCache, "image.png", _
100%x, 100%y)
Activity.SetBackgroundImage(image)
End If
btnDownload.Enabled = True
DownloadService.JobStatus = DownloadService.STATUS_NONE
End Sub
فقط کافیست CTRL+E بزنید یا از منوی Window->Module برید. بعدش تو کادر ماژول ها هرچی رو دوست داشتید انتخاب کنید.
http://basic4android.org/index.php?/topic/2152-%D8%A2%D9%BE%D8%AF%DB%8C%D8%AA-%D8%AF%DB%8C%D8%AA%D8%A7%D8%A8%DB%8C%D8%B3-%D8%A8%D8%B5%D9%88%D8%B1%D8%AA-%D8%A2%D9%86%D9%84%D8%A7%DB%8C%D9%86/
Dim Sck As ServerSocket Sck.Initialize(0,"") If Sck.GetMyIP <> "127.0.0.1" Then End If
Dim ServerSocket1 As ServerSocket Msgbox(ServerSocket1.GetMyWifiIP,"WiFi IP") Msgbox(ServerSocket1.GetMyIP,"my IP")
Dim phoneCall As PhoneCalls phoneCall.Call("09351234567")
اپلیکیشن اندروید همون برنامه ی کامپایل شده ی apk هست که روی گوشی اندروید یا ... نصب و اجرا می کنیم.
اکتیویتی به معنی یک صفحه از اپلیکیشن هست.
apk یعنی android package
برای دسترسی به اینترنت در اپلیکیشن خود،این کد رو به فایل مانیفست اضافه کنید :
AddPermission (android.permission.INTERNET)
برای محکم کاری عدم دسترسی به اینترنت :
RemovePermission(android.permission.INTERNET)
برای جستجو در اینترنت، سیستم عامل اندروید از موتور جستجوی Open Source یی تحت عنوان WebKit استفاده می کند.
به منظور پردازش عکس های دو بعدی و سه بعدی، سیستم عامل اندروید از OpenGL ES استفاده می کند
و برای ذخیره سازی اطلاعات از SQLite استفاده می کند.
تعریف متغیرها و مقدار دهی بلافاصله بعد از تعریف:
دلیلشم اینه که متغیرها رو توی Activity_Create تعریف می کنیم ولی قبلش هم اونا رو توی قسمت Sub Globals تعریف کردیم.
باید فقط اونا رو در Sub Globals تعریف کنیم.(Sub Globals رو با process_globals اشتباه نگیرید)
یکی از دلایل اصلیشم اینه که قبلش باید لی اوت رو لود کنید(Activity.LoadLayout("اسم لی اوت ") )
Dim background1 As BitmapDrawable background1.Initialize(LoadBitmap(File.DirAssets,"b1.gif")) ListView1.Initialize("") ListView1.SingleLineLayout.Background=background1برای رفع مشکل در کد بالا باید این حذف بشه:
ListView1.Initialize("")
dirinternal=data/data/your.app.name/fileshttp://promakers.ir/showthread.php?tid=10339