mostafa.kasiri 115 ارسال شده در 1 دی، ۱۳۹۵ اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۵ با سلام من ورژن جدید b4a رو که نصب کردم دیگه نمیتونم ران بگیرم این پیغام رو میده چی کار کنم خیلی رو مخمه لطفا جواب بدید B4A version: 6.50 Parsing code. (0.03s) Compiling code. (0.08s) Compiling layouts code. (0.01s) Organizing libraries. (0.00s) Generating R file. (0.06s) Compiling debugger engine code. Error javac 1.7.0_80 shell\src\com\userman\main.java:11: error: package anywheresoftware.b4a.pc.B4XTypes does not exist import anywheresoftware.b4a.pc.B4XTypes.B4XClass; ^ 1 error لطفا سریع جواب بدید "thanks" لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
مهدی ایزدی 9,203 ارسال شده در 1 دی، ۱۳۹۵ اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۵ سلام مهندس این خطا هیچ ربطی به نسخه جدید B4A که شما تاپیک زدید نداره. برنامتون رو توی حالت Debug اجرا کنید تا مشخص بشه مشکل از کدام خط از کدهاتون هستش همون رو بررسی کنید لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
mostafa.kasiri 115 ارسال شده در 1 دی، ۱۳۹۵ سازنده اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۵ اقا لطفا جواب بدین مشکل از کد ها نیست تو پروژه جدید هم همینطوره اگر نمیشه ورژن قبلی رو نصب کنم؟ لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
mostafa.kasiri 115 ارسال شده در 1 دی، ۱۳۹۵ سازنده اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۵ ممنون تایپیک جدید میزنم لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
mostafa.kasiri 115 ارسال شده در 1 دی، ۱۳۹۵ سازنده اشتراک گذاری ارسال شده در 1 دی، ۱۳۹۵ اقایون اسم پکیج رو عوض کردم نشد اما بعد 5 دقیقه درست شد نمیدونم چرا اما الان یک مشکل دارم که برنامم خطا میده این کد های صفحه ای که خطا میگیره تک تک کامنت کردم اما خطا بر طرف نشد #Region Activity Attributes #FullScreen: False #IncludeTitle: false #End Region Sub Process_Globals Dim timer1 As Timer Dim tm As Timer End Sub Sub Globals Private EditText1 As EditText Private EditText2 As EditText Private webview1 As WebView Dim web As WebViewExtras Private Label1 As Label Dim aria As AriaLib Private button1 As Button Dim Nav As AHNavigationDrawer Dim parentpanel As Panel Private ListView1 As ListView Private ImageView1 As ImageView Private Button2 As Button End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("L2222") EditText1.TextColor= Colors.Black EditText2.TextColor= Colors.Black EditText1.Gravity=Gravity.RIGHT EditText2.Gravity=Gravity.RIGHT Label1.Gravity=Gravity.RIGHT Label1.TextColor= Colors.Black webview1.LoadUrl("http://portal.userman.net") web.AddJavascriptInterface(webview1,"learnnet") web.addWebChromeClient(webview1,"") ProgressDialogShow2("loadding",False) webview1.Visible=False If aria.TestInterntConnection = False Then ToastMessageShow("اینترنت شما قطع است",False) StartActivity("support") Activity.Finish End If webview1.ZoomEnabled=False tm.Initialize("tm",5) tm.Enabled = True If webview1.Url.Contains("https://portal.userman.net/welcome") Then Else End If parentpanel.Initialize("") Activity.Title="یوزرمن فارسی" Activity.AddView(parentpanel,0,0,100%x,100%Y) Nav.Initialize("nav",parentpanel,60%x) Nav.Initialize2("nav",Activity,60%x,Nav.GRAVITY_RIGHT) Nav.ContentPanel.LoadLayout("l2222") Nav.NavigationPanel.LoadLayout("navigationpanel") Nav.SetEdgeSize(Nav.GRAVITY_END,100dip) ImageView1.Bitmap=LoadBitmap(File.DirAssets,"photo_2016-12-18_01-07-26.jpg") ListView1.AddTwoLines("basic4android",1) ListView1.AddTwoLines("basic4android",2) ListView1.AddTwoLines("basic4android",3) ListView1.AddTwoLines("basic4android",4) ListView1.TwoLinesLayout.Label.textColor=Colors.Black End Sub Sub List1_ItemClick (Position As Int, Value As Object) If Position=0 Then End If If Position=1 Then End If If Position=2 Then End If If Position=3 Then End If If Position=4 Then End If If Position=5 Then End If If Position=6 Then End If End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub webview1_pageFinished (Url As String) ProgressDialogHide web.executeJavascript(webview1,"learnnet.cullsub('getHtml',true,document.documentElment.outerHTML)") If webview1.Url.Contains("https://portal.userman.net/welcome")=True Then Label1.text = "وارد شدید" webview1.Visible=True EditText1.Visible=False EditText2.Visible=False Label1.Visible=False button1.Visible=False EditText1.Enabled=False EditText2.Enabled=False Label1.Enabled=False button1.Enabled=False Else End If End Sub Sub getHTML(amir As String) amir= amir.Replace("""","'") End Sub Sub EditText1_TextChanged (Old As String, New As String) web.executeJavascript(webview1,"document.getElementsByClassName('mtik-username tooltips')[0].value = '"&New&"'") End Sub Sub EditText2_TextChanged (Old As String, New As String) web.executeJavascript(webview1,"document.getElementsByClassName('mtik-password tooltips')[0].value = '"&New&"'") End Sub Sub Button1_Click web.executeJavascript(webview1,"document.getElementsByClassName('btn btn-block login-btn')[0].click();") timer1.Initialize("Timer1",1000) timer1.Enabled = True End Sub Sub timer1_Tick timer1.Enabled = True If webview1.Url.Contains("https://portal.userman.net/welcome")= True Then Label1.text = "وارد شدید" webview1.Visible=True EditText1.Visible=False EditText2.Visible=False Label1.Visible=False button1.Visible=False EditText1.Enabled=False EditText2.Enabled=False Label1.Enabled=False button1.Enabled=False Else Label1.text = "مشخصات اشتباه است" End If End Sub' Sub Activity_KeyPress (KeyCode As Int) As Boolean If KeyCode = KeyCodes.KEYCODE_BACK Then Dim i As Int i = Msgbox2 ("میخواهید از برنامه خارج شوید "," خارج شدن","بله ","خیر","",Null) If i = DialogResponse.POSITIVE Then ExitApplication Else If i = DialogResponse.CANCEL Then Return True Else If i = DialogResponse.NEGATIVE Then End If Else If KeyCode = KeyCodes.KEYCODE_MENU Then Nav.OpenDrawer2(Nav.GRAVITY_RIGHT) End If End Sub Sub tm_Tick If webview1.Url.Contains("https://portal.userman.net/login")= True Then webview1.Visible=False EditText1.Visible=True EditText2.Visible=True Label1.Visible=True button1.Visible=True EditText1.Enabled=True EditText2.Enabled=True Label1.Enabled=True button1.Enabled=True End If End Sub Sub Button2_Click Nav.OpenDrawer2(Nav.GRAVITY_RIGHT) End Sub این عکس از خطا لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
سوال
mostafa.kasiri 115
با سلام
من ورژن جدید b4a رو که نصب کردم دیگه نمیتونم ران بگیرم این پیغام رو میده چی کار کنم خیلی رو مخمه
لطفا جواب بدید
B4A version: 6.50 Parsing code. (0.03s) Compiling code. (0.08s) Compiling layouts code. (0.01s) Organizing libraries. (0.00s) Generating R file. (0.06s) Compiling debugger engine code. Error javac 1.7.0_80 shell\src\com\userman\main.java:11: error: package anywheresoftware.b4a.pc.B4XTypes does not exist import anywheresoftware.b4a.pc.B4XTypes.B4XClass; ^ 1 error
لطفا سریع جواب بدید "thanks"
لینک ارسال
به اشتراک گذاری در سایت های دیگر
4 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.