سوال در مورد گت المنت

[arf 30]

سلام دوستان من اموزش زیر را دیدم.

http://answercenter.ir/topic/363-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%AA%D8%B5%D9%88%DB%8C%D8%B1%DB%8C-getelement-%DA%A9%D8%B1%D8%AF%D9%86-%D9%88-%DA%A9%D8%A7%D8%B1-%D8%A8%D8%A7-%DA%A9%D8%AA%D8%A7%D8%A8%D8%AE%D8%A7%D9%86%D9%87-webviewextras/

می خواستم از سایت زیر «دو عدد زیر را با هم جمع کنید» دو عددی را که داده است وارد برنامه کنم. کمک کنید:

http://www.imamhussain.org/persian/enaba

[پژمان نیکروان 6,055]

فقط جمعه

مشکلم اینه که نمیتونم از این کلاس دریافت کنم

تعریف متغیرها:

Sub Globals
	Dim webview1 As WebView
	Dim web As WebViewExtras
End Sub

اینیشیالایز و لود سایت:

webview1.Initialize("webview1")
web.addJavascriptInterface(webview1,"B4A")
web.addWebChromeClient(webview1,"")
webview1.LoadUrl("http://www.imamhussain.org/persian/enaba")
ProgressDialogShow2("درحال لود سایت...",False)

گت المنت کردن دو عدد از کلاس 4u:

Sub webview1_PageFinished (Url As String)
	ProgressDialogHide
	web.executeJavascript(webview1,"B4A.CallSub('get',true,document.getElementsByClassName('4u')[4].innerHTML)")
End Sub

دریافت و جمع کردن نهایی:

Sub get(a As String)
	ToastMessageShow(a,True)
	a=a.Replace("+","#")
	Dim res() As String
	res=Regex.Split("#",a)
	
	res(0)=res(0).Trim
	res(1)=res(1).Trim
	
	Dim x1,x2,result As Int
	x1=res(0)
	x2=res(1)
	result=x1+x2
	
	Msgbox(result,"جواب جمع ")
End Sub

اگه جاییش واستون واضح نبود بگید توضیح بدم.

اینم سورس همین

 

 

یه سوال دیگه هم دارم

چگونه این کلید <<ارسال کن>> رو استفاده کنم نه ایدی داره نه نام و نه ....

http://www.imamhussa...g/persian/enaba

<td colspan="2" align="center"><input type="submit" value="ارسال كن"/></td>

شما باید با استفاده از اسم تگ روی دکمه کلیک کنید که سرچ کنید هست.

http://answercenter.ir/topic/1893-%D8%B3%D9%88%D8%A7%D9%84-%D8%AF%D8%B1-%D9%85%D9%88%D8%B1%D8%AF-%DA%AF%D8%AA-%D8%A7%D9%84%D9%85%D9%86%D8%AA-%D9%85%D9%86%D8%AA%D8%B8%D8%B1-%D8%AC%D9%88%D8%A7%D8%A8%D9%85/

[arf 30]

خیلی ممنون

فقط در دو چجاش سوال دارم 1:

در خط زیر [4] چیست؟

	web.executeJavascript(webview1,"B4A.CallSub('get',true,document.getElementsByClassName('4u')[4].innerHTML)")

2:

این کدها چی کار می کنند؟

a=a.Replace("+","#")
	Dim res() As String
	res=Regex.Split("#",a)
	
	res(0)=res(0).Trim
	res(1)=res(1).Trim

[arf 30]

 

شما باید با استفاده از اسم تگ روی دکمه کلیک کنید که سرچ کنید هست.

http://answercenter.ir/topic/1893-%D8%B3%D9%88%D8%A7%D9%84-%D8%AF%D8%B1-%D9%85%D9%88%D8%B1%D8%AF-%DA%AF%D8%AA-%D8%A7%D9%84%D9%85%D9%86%D8%AA-%D9%85%D9%86%D8%AA%D8%B8%D8%B1-%D8%AC%D9%88%D8%A7%D8%A8%D9%85/

این هم خیلی خوب بود ممنون

[پژمان نیکروان 6,055]

در خط زیر [4] چیست؟

توی سورس کد سایت چند تا کلاس به نام 4u وجود داره ، اگه از بالا از 0 بشمریم اون کلاسی که ما میخوایم میشه چهارمی.

 

 

 

a=a.Replace("+","#")

برای اینکه جای + بذاره #

چون من میخواستم به + جداسازی کنم اصلا قبول نمیکرد خیلی عجیب بود.

 

 

 

Dim res() As String

یه آرایه برای اینکه دو عدد رو باهم با # جدا کنیم بریزیم توش.

 

 

 

res=Regex.Split("#",a)

دو عدد از هم جدا شدن و ریخته شدن تو آرایه.

 

 

 

res(0)=res(0).Trim

res(1)=res(1).Trim

اگه دقت کرده باشین توی سایت یه فاصله این دو طرف + هست ، بااینکار فاصله هارو میگیریم از اعداد تا یه اینتجر خالص به ما بده.

[arf 30]

توی سورس کد سایت چند تا کلاس به نام 4u وجود داره ، اگه از بالا از 0 بشمریم اون کلاسی که ما میخوایم میشه چهارمی.

 

 

 

برای اینکه جای + بذاره #

چون من میخواستم به + جداسازی کنم اصلا قبول نمیکرد خیلی عجیب بود.

 

 

 

یه آرایه برای اینکه دو عدد رو باهم با # جدا کنیم بریزیم توش.

 

 

 

دو عدد از هم جدا شدن و ریخته شدن تو آرایه.

 

 

 

اگه دقت کرده باشین توی سایت یه فاصله این دو طرف + هست ، بااینکار فاصله هارو میگیریم از اعداد تا یه اینتجر خالص به ما بده.

خیلی ممنون.

ببخشید یه سوال دیگه

در این کد  ;' "&New&" '  چیست؟را چرا اینجوری نوشتیم؟

Sub cuntry1_TextChanged (Old As String, New As String)
	WebViewExtras1.executeJavascript(WebView2,"document.getElementsByName('country')[0].value='"&New&"';") 
End Sub

[پژمان نیکروان 6,055]

 

خیلی ممنون.

ببخشید یه سوال دیگه

در این کد  ;' "&New&" '  چیست؟را چرا اینجوری نوشتیم؟

Sub cuntry1_TextChanged (Old As String, New As String)
	WebViewExtras1.executeJavascript(WebView2,"document.getElementsByName('country')[0].value='"&New&"';") 
End Sub

توی رویداد TextChange ادیت تکست cuntry1 نوشته شده هرکلمه ای که وارد شد ، ریخته بشه تو تکست باکس سایت که اسمش country هست.

به جای New میشه cuntry1.text هم نوشت.

[arf 30]

ونیز می خواهم این پیام که به صورت msgbox و عربی وارد برنامه میشه رو فارسی و خودم نشان دهم.

الرجاء إدخال المعلومات بصورة صحيحة

لطفا اطلاعات را به صورت صحیح وارد نمایید

<div style="float:left;"><div style="width:280px;margin:35px 0 0 0"><form method="post" onSubmit="if (this.email.value.indexOf('@') == -1 || this.email.value.indexOf('.') == -1 || this.name.value.length<2 || this.country.value.length<2 || this.city.value.length<2){ window.alert('الرجاء إدخال المعلومات بصورة صحيحة'); return false; }else form1.submit();">

[پژمان نیکروان 6,055]

منظورتون اینه که هرمتنی اومد به عربی توی برنامه ترجمه بشه؟؟؟

این دیگه برمیگرده به یه مبحث جدا و دردسر داره و نیاز به دیتابیس داره.

درضمن امکان گرفتن متن مسیج باکس جاوا اسکریپت یا همون Alert وجود نداره.

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

[پژمان نیکروان 6,055]

سلام.

این دو عدد تو کلاس 4u هستن. باید دریافتشون بکنید و بعد جدا سازیش بکنید ، بعد Trim کنید فاصله هاش بره و باهم دیگه جمع کنید.

آیا همیشه دوعدد رو واسه جمع میده یا تفریق یا ضرب هم میذاره؟؟

چون واسه خودمم جالبه خیلی از همچین سایت هایی رو دیدم ، میشه برنامه ای ساخت که راحت بهش جواب بده.

[arf 30]

سلام.

این دو عدد تو کلاس 4u هستن. باید دریافتشون بکنید و بعد جدا سازیش بکنید ، بعد Trim کنید فاصله هاش بره و باهم دیگه جمع کنید.

آیا همیشه دوعدد رو واسه جمع میده یا تفریق یا ضرب هم میذاره؟؟

چون واسه خودمم جالبه خیلی از همچین سایت هایی رو دیدم ، میشه برنامه ای ساخت که راحت بهش جواب بده.

فقط جمعه

مشکلم اینه که نمیتونم از این کلاس دریافت کنم

[arf 30]

یه سوال دیگه هم دارم

چگونه این کلید <<ارسال کن>> رو استفاده کنم نه ایدی داره نه نام و نه ....

http://www.imamhussa...g/persian/enaba

<td colspan="2" align="center"><input type="submit" value="ارسال كن"/></td>