کمک در اجرای حلقه

[.:KeihanCPU:.]

سلام دوستان
کدی رو میخوام که :
وقتی یک دکمه رو میزنیم اطلاعاتی مثلا Text1.text رو با ...Savesetting در reg سیو کنه
اگه یه بار قبلا این دکمه فشار داده شده بود و اطلاعاتی سیو شده بود آنگاه اطلاعات جدید(text1.text)
رو با اسم(یه واحد از قبلی بیشتر)(یعنی اگه 1 بوده حالا 2 ) سیو کنه و اگر قبلا این کلید فشار داده نشده بود انگاه با همون اسم 1 سیو بشه
توجه:این کد باید طوری نوشته بشه که هر چن دت کلید رو سیو کنه.
دیگه بهتر از این نمیتونستم توضیح بدم
با سپاس...

[اوبالیت به بو]

حلقش رو فكر كنم اينتوري باشه

For Counter = 1 to N
Print Counter
Next Counter

[.:KeihanCPU:.]

دوست عزیز واضحتر بگو
برنامه باید از طریق Getsetting چک کنه

[اوبالیت به بو]

شما تاحالا با GetSetting كار كردين؟
اگه نكردين تويه يه تايپيك آقاي FxMahdi يه برنامه (فكركنم Login باشه(!)) نوشتن كه با GetSetting كار مي كنه. ميتونيد از اون استفاده كنيد.
Loginرو جستجو كنيد

[AmirAmiri]

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


Private Sub Form_Load()
dim x as long
x= getsetting("projetc" , "Settings" , "Number", 0)
Text1.text =Val(x)+1
SaveSetting("project" , "Settings" , "Number" ,Text1.text)
End Sub
باید یه چیزی تو این مایه ها باشه.

[.:KeihanCPU:.]

من با Getsetting کار کردم و بلدم
اما شرطی که بیاد وجود کلید رو چک کنه اگه بود با یه واحد بیشتر Save کنه و اگه نبود با همون اسم Save کنه بلد نیستم

[.:KeihanCPU:.]

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


Private Sub Form_Load()
dim x as long
x= getsetting("projetc" , "Settings" , "Number", 0)
Text1.text =Val(x)+1
SaveSetting("project" , "Settings" , "Number" ,Text1.text)
End Sub
باید یه چیزی تو این مایه ها باشه.


نه دوست عزیز منظورمو نفهمیدی
این کد یک کلید رو با مقدار یکی بیشتر از کلید قبلی سیو میکنه
من اینو نمیخوام؛نباید کلیدها روی هم سیو بشن

[AmirAmiri]

منظورت اینه که هر بار ممکنه یک کلید جدیدی وارد کنی؟ میخوای برنامه پویا باشه؟ اگه اینطوره باید از GetAllSettings استفاده کنی ولی برای سیو کردنش باید از همون SaveSetting استفاده کنی. ببین اینا بدردت میخوره:



Sub SaveSetting(AppName As String, Section As String, Key As String, Setting As String)
Function GetSetting(AppName As String, Section As String, Key As String, [Default]) As String
Function GetAllSettings(AppName As String, Section As String)
Sub DeleteSetting(AppName As String, [Section], [Key])

[AmirAmiri]

دوست عزیز به اینجا یه سر بزنی بد نیست: http://www.v-basic.mihanblog.com/More-13.ASPX

[.:KeihanCPU:.]

اگه از Gettallsetting استفاده کنم چطوری میتونم چک کنم که آیا کلید 1 وجود داره؟

[AmirAmiri]

به اون لینکی که گفتم یر زدی؟ اونجا به طور مفصل توضیح داده. اگه از GetAllSettings استفاده کنی باید به جایه یک متغیر معمولی از آرایه ای استفاده کنی و بعد تو شرط باید هر کدوم از خونه ها رو به طور جدا گونه بررسی کنی.

[.:KeihanCPU:.]

آره قبلا رفته بودم اگه میشه شرط رو بگید

[AmirAmiri]

ببینید دوست عزیز آرایه به صورت دو بعدی هست یعنی خونه ی اول نام متغیر و خونه ی دوم مقدار قرار میگیره. ولی نمیدونم شما دقیقا چی مدّ نظرتونه تا بخوام راهنمایی کنم. چطوری میخواید متغیر ها رو نام گذای کنید؟ به صورت تصادفی یا به صورت شمارشی؟ مثلا :
num1
num2
num3
....
؟؟؟؟

[.:KeihanCPU:.]

در form_load مقدار مثلا E,m 1 میشود
با زدن دکمه save باید مقدار Text1.text توسط Savesetting سیو بشه
در این زمان دو حالت وجود داره اگر

A=getsetting ("Project1","Email","setting",Em,P)

حالا اگر A=p یعنی اینطور کلیدی وجود نداره
اگه کلید نبود مشکلی نیست اما اگه A<>P انگاه یعنی این کلید وجود داره
در اینجا

Em=val(em)+1

مشکل من اینجاست
حالا باید توسط یه شرط دوباره این رابطه چک بشه اگه کلید بود اون موقع شرط دوباره چک کنه
اگر کلید نبود اون موقع با اسم Em+1 سیو کنه

[.:KeihanCPU:.]

مشکلم حل شد