ادیت تکست برای تنظیمات

[pardazeshmovazi 21]

درود . دوستان من میخوام یه ادیت تکتست بذارم برای تنظیمات برنامه ای که دارم میسازم و میخوام هر مقداری که بهش داده شد در یه فایل تکست سیو بشه و هر کجا که خواستم استفاده کنم . و یه قسمتی که میخوام استفاده کنم در یه سرویسه . اما نمیدونم چجوری در سرویس استفادش کنم لطفا کمک کنید .

Sub Process_Globals

	MagnitudeThreshold = 0.5
	
	
End Sub

و میخوام اینجا که همون سرویسه استفاده کنم که و عدد درون ادیت تکست بیاد جای 0.5 کمک کنید خیلی لازم دارم . ممنون

[pardazeshmovazi 21]

درود . دوستان من میخوام یه ادیت تکتست بذارم برای تنظیمات برنامه ای که دارم میسازم و میخوام هر مقداری که بهش داده شد در یه فایل تکست سیو بشه و هر کجا که خواستم استفاده کنم . و یه قسمتی که میخوام استفاده کنم در یه سرویسه . اما نمیدونم چجوری در سرویس استفادش کنم لطفا کمک کنید .

Sub Process_Globals

	MagnitudeThreshold = 0.5
	
	
End Sub

و میخوام اینجا که همون سرویسه استفاده کنم که و عدد درون ادیت تکست بیاد جای 0.5 کمک کنید خیلی لازم دارم . ممنون

کسی نیسن جواب بده ؟؟؟؟؟؟؟

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

سلام.

اگه اشتباه نکنم شما اینو برای ماژول shake میخواین؟؟

 

یه متغیر از نوع float توی procces_Gloubal اکتیویتی main تعریف کنید.

Sub Process_Globals
Dim meghdar As Float
End Sub

توی رویداد تکست چنج ، یا جایی که میخواین به این صورت ذخیره کنید:

	meghdar=edittext1.text
	File.WriteString(File.DirInternal,"meghdar.txt",meghdar)

عدد ادیت تکست داده شد به meghdar

مقدار هم ذخیره شد.

برای ماژول shake هم به این صورت مقدار رو بهش میدیم.

جای این کد توی ماژول:

If Abs(difference) > MagnitudeThreshold Then

اینو بنویسید:

If Abs(difference) > Main.meghdar Then

یا میتونید به جای main.meghdar ، همون فایل تکستی که ذخیره کرده بودین فراخوانی کنید و اینجا بهش بدین.

 

(این شرط توی رویداد CalcAxis هست.)