Basic4Android। BASIC पर देशी Android ऐप्स लिखना

मुझे नहीं पता कि इस उत्पाद के बारे में इंजीनियरिंग के विचारों ने अभी तक हैबे पर क्यों नहीं बताया। हो सकता है क्योंकि यह इज़राइल में लिखा गया था, या हो सकता है क्योंकि यह बहुत ही विचार है कि एंड्रॉइड के तहत बेसिक लिखा जा सकता है।
सामान्य तौर पर, यह तथ्य बना रहता है: एंड्रॉइड के लिए बेसिक पर लिखना अब संभव है और आपको इस उत्पाद के साथ पूर्वानुमानित नाम "Basic4Android" के तहत मदद मिलेगी।
कौन उत्पाद की सुविधाओं के बारे में पढ़ने के लिए आधिकारिक वेबसाइट पर आपका स्वागत है। मैं लड़ाई में इस जानवर को देखने और एक छोटा उदाहरण बनाने का प्रस्ताव करता हूं जो एक साधारण गैलरी को विकसित करने की प्रक्रिया को दिखाएगा।
B4a से मिलने पर सबसे पहली बात जो मुझे अच्छी लगी, वह यह कि इसका अपना छोटा और फुर्तीला संपादक है।



कुछ भी अलौकिक नहीं। केवल सबसे परिचित और आवश्यक: एक कोड संपादक और एक दृश्य रूप संपादक।
थोड़ी देर बाद, मैंने एक नियमित एंड्रॉइड एमुलेटर या वर्चुअल मशीन के अंदर रूपों को आकर्षित करने की क्षमता की खोज की और सराहना की।
अब उदाहरण पर चलते हैं। B4a का उपयोग करते हुए, हम एक साधारण छवि दर्शक बनाएंगे जो "sdcard / Images" फ़ोल्डर में सभी चित्रों को देखता है और उन्हें एक स्क्रॉल गैलरी के रूप में प्रदर्शित करता है।
ऐसा करने के लिए, दृश्य संपादक में "क्षैतिज क्षैतिज नियंत्रण" तत्व जोड़ें।



हमने उसे ये प्रारंभिक सेटिंग दी:



फिर, इस तत्व को खिड़की की चौड़ाई में फैलाएं। ऐसा करने के लिए, "डिज़ाइनर स्क्रिप्ट" टैब पर जाएं और निम्न कोड दर्ज करें:

HorizontalScrollView1.Width = 100%x 

उसके बाद, डिजाइनर बंद किया जा सकता है। बंद करने से पहले, आपको परत को बचाने के लिए संकेत दिया जाता है। सहेजें:



फिर हम कोड संपादक में जाते हैं और वैश्विक मॉड्यूल में हम उन वस्तुओं को परिभाषित करते हैं जिन्हें हम एक्सेस करेंगे:

 Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. Dim imagesFolder As String : imagesFolder = File.DirRootExternal & "/Images" Dim Bitmaps As List 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. Dim HorizontalScrollView1 As HorizontalScrollView End Sub 

और यह टिप्पणियों के साथ कार्यक्रम के मुख्य भाग की एक सूची है:

 Sub Activity_Create(FirstTime As Boolean) If FirstTime Then ' Activity    ProgressDialogShow(" ") '  - Bitmaps.Initialize '        Dim files As List '          If File.Exists(imagesFolder, "") = False Then '     ToastMessageShow("  : " & CRLF & imagesFolder, True) Return '    End If files = File.ListFiles(imagesFolder) '        Dim f As String For i = 0 To files.Size - 1 DoEvents '    ' i- .     .jpg      f = files.Get(i) If f.ToLowerCase.EndsWith(".jpg") Then '      '         '      50  Dim b As Bitmap b.InitializeSample(imagesFolder,f,350dip,350dip) Bitmaps.Add(b) If Bitmaps.Size > 50 Then Exit End If Next '       ToastMessageShow(" " & Bitmaps.Size & " ", True) ProgressDialogHide '  End If Activity.LoadLayout("main") '   Activity   '    HorizontalScrollView1     HorizontalScrollView1.Panel.Width = 350dip* files.Size ' ImageView        '    For i = 0 To Bitmaps.Size -1 Dim iv As ImageView : iv.Initialize("") Dim bd As BitmapDrawable bd.Initialize(Bitmaps.Get(i)) iv.Background = bd HorizontalScrollView1.Panel.AddView(iv, 5dip + i * 350dip, 5dip, 340dip, 340dip) Next End Sub 

डिबग चलाएं
हम पैकेज के नाम और कार्यक्रम के नाम के बारे में प्रश्नों का उत्तर देते हैं:





नतीजतन, हमें चिकनी स्क्रॉलिंग के साथ एक गैलरी मिलती है।



यह केवल यह जोड़ना है कि उत्पाद का भुगतान किया गया है। आज तक, एक सदस्यता की लागत $ 34 से $ 299 तक है। व्यक्तिगत रूप से, मैंने दो-वर्ष की सदस्यता के साथ खरीदा, जैसा कि उत्पाद अब अच्छी तरह से विकसित हो रहा है और मुझे इसे 2 महीने की सदस्यता के साथ लेने का कोई कारण नहीं दिखता है। वैसे, अगर कोई अचानक खरीदना चाहता है - एक व्यक्तिगत में लिखो, मेरे पास 50% छूट के साथ कई कूपन हैं।