با سلام و درود خدمت دوستان عزیز

 

امروز آموزش ارتباط با ما تحت وب رو برای شما مهیا کرده ایم .

امیدوارم مورد قبول شما عزیزان واقع گردد.

مشکلی بود در نظرات بیان کنید تا رسیدگی شود .

 

ابتدا شما باید ی جدول داخل دیتابیس خودتون ایجاد کنید و اطلاعات دیتابیس رو داخل فایل php زیر وارد کنید:

خط اول که چیز خاصی نداره و فقط واسه اتصاله

DBName:اسم دیتابیس ،USERNAME ,PAssword اینها هم که کاملا مشخصه

داخل ۲ و ۳ و ۴ هم اومدیم متغییر تعریف کردیم(یکی واسه عنوان،بکی هم واسه ایمیل،یکی هم واسه توضیحات)

خط ۵ هم اومدیم داخل دیتابیس گذاشتیم (بجای tbl_Name اسم جدول دیتابیس خودتونو بنویسید)

-بریم سراغ بیسیک

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

ی متغییر از نوع httpjob تعریف می کنیم

Dim ht_add As HttpJob

اکتیویتی لود لیوت می کنیم و کد های زیر را داخل sub click می نویسیم

Sub button1_Click
	If EditText1.Text = "" Or EditText2.Text = "" Or EditText3.Text = "" Then
		ToastMessageShow("همه موارد را پر کنید",False)
	
		Return
	End If
	If EditText1.Text.Length < 4 Then
		ToastMessageShow("نام خانوادگی نمیتواند کمتر از ۴ حرف باشد",False)
		
		Return
	End If
	If EditText3.Text.Length < 10 Then
		ToastMessageShow("توضیحات نمیتواند کمتر از ۱۰ حرف باشد",False)
		
		Return
	End If
	ht_add.PostString("http://*****/add.php","user="&EditText1.Text&"&email="&EditText2.Text&"&desc="&EditText3.Text)
End Sub

چند تا خط اول که واسه کنترله خودتون بهش شاخه برگ بدین

و اما خط اخر

اومدیم postString کردیم مطالبی که داخل ادیت تکست ها هستن

به جای http://*****/add.php هم آدرس فایل php خودتون رو بدین

مدرس : آقا سجاد