مشکل در کامپایل در نسخه جدید b4a (حل شده)

[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"

[مهدی ایزدی 9,203]

سلام مهندس

این خطا هیچ ربطی به نسخه جدید B4A که شما تاپیک زدید نداره.

 

برنامتون رو توی حالت Debug اجرا کنید تا مشخص بشه مشکل از کدام خط از کدهاتون هستش

همون رو بررسی کنید

[mostafa.kasiri 115]

اقا لطفا جواب بدین 

مشکل از کد ها نیست تو پروژه جدید هم همینطوره اگر نمیشه ورژن قبلی رو نصب کنم؟

[mostafa.kasiri 115]

ممنون تایپیک جدید میزنم

[mostafa.kasiri 115]

اقایون اسم پکیج رو عوض کردم نشد اما بعد 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

این عکس از خطا