بابه‌تی هاوشیوه‌
نوسیتی: karwanpro / ڕێكه‌وتی: 2009-11-23 , دووشه‌ممه‌
سڵاوی خوای گه‌وره‌تان لێبێ
بێگومان كه‌ هه‌ر كه‌سه‌ و بیرۆكه‌ی تایبه‌تی خۆی هه‌یه‌ بۆ به‌رنامه‌ داڕشتن ئه‌گینا خۆ ڕێگایه‌كی ئاماده‌كراو نیه‌ بۆ داڕشتنی به‌رنامه‌یه‌ك و بیرۆكه‌ی كه‌سێك بۆ كه‌سێكی تر جیاوازه‌ چ ڕێگه‌یه‌كی هه‌یه‌ بۆ داڕشتنی به‌رنامه‌ بۆیه‌ سه‌ركه‌وتنی به‌رنامه‌كان په‌یوه‌سته‌ به‌ زیره‌كی و لێهاتوی خاوه‌نه‌كه‌یه‌وه‌ ئه‌وه‌یش په‌یوه‌سته‌ به‌ شاره‌زابوون له‌ به‌رنامه‌ داڕشتن به‌ڵام شاره‌زابوون له‌ به‌رنامه‌ داڕشتن پێویستی به‌ داهێنان به‌لكو پێویستی به‌ فێر بوون هه‌یه‌ بۆیه‌ هه‌وڵدان و بیكردنه‌وه‌ داهێنانی له‌دوایه‌.
بۆیه‌ بیرۆكه‌ی دروستكردنی فه‌رهه‌نگ ئامانجی زۆر له‌ به‌رنامه‌ڕێژانی كورده‌ چونكه‌ زمانی كوردی زمانی جیهان نیه‌ بۆیه‌ پێویستمان به‌ زمانی جیهانه‌ بۆ به‌ره‌و پێشچون ، لێره‌دا بیرۆكه‌یه‌كی زۆر ساده‌تان پێشكه‌ش ئه‌كه‌م بۆ دروستكردنی قاموس جا ئه‌گه‌ر هه‌وڵ بده‌ن زیاتر په‌ره‌ی پێ ئه‌ده‌ن.



فه‌رهه‌نگه‌كه‌ به‌ ئامرازی List Box دروست ئه‌كه‌ین
فه‌رهه‌نگه‌كه‌ بۆ زمانی و كوردی و ئینگلیزی دایی ئه‌نێین ئه‌گه‌ر ویستان زمانی تری بخه‌نه‌سه‌ر ئه‌وه‌ به‌هه‌مان شێوه‌ی ئه‌م دوو زمانه‌ بیكه‌ن ، سه‌ره‌تا پێویستمان به‌ دوو په‌ڕگه‌ی تێكست هه‌یه‌ بۆ دانانی وشه‌كان یه‌كێكیان بۆ كوردی و ئه‌وی تریان بۆ ئینگلیزی هه‌ر وه‌كوو ئه‌م وێنه‌یه‌



هه‌ر یه‌كه‌و له‌ په‌ڕگانه‌ وشه‌كانی تیا ئه‌نوسین (وشه‌ كوردێكان و وشه‌ ئینگلێزێكان) به‌ڵام لێره‌یا پێویسته‌ كه‌مێ ورد بین هه‌ر وشه‌یه‌ك له‌ دێڕێك ئه‌نوسین و ماناكه‌ی له‌ هه‌مان دێر به‌ڵام له‌ په‌ڕگه‌كه‌ی تر ئه‌نوسین وه‌كوو ئه‌م وێنه‌یه‌



ئێستا دێین به‌رنامه‌ی مه‌لتیمیدیا بلده‌ر ئه‌كه‌ینه‌وه‌ و پرۆژه‌یه‌كی نوێ دروست ئه‌كه‌ین و دوو كلیك له‌سه‌ر page ئه‌كه‌ین و ڕه‌نگێك بۆ ڕوكاری به‌رنامه‌كه‌ دائه‌نێین



دواتر دوو ئامرازی List Bo دائه‌نێین هه‌ردوكی له‌سه‌ر یه‌ك بۆ ده‌رخستنی وشه‌كان كوردی و ئینگلیزی و ئامرازیكی Input Box بۆ نوسینی وشه‌ بۆ دۆزینه‌وه‌ ودوو دوگمه‌ی Text Button یه‌كێكیان بۆ كرته‌ كردن بۆ دۆزینه‌وه‌ی وشه وه‌وی تریان بۆ دووباره‌ گه‌ڕان‌ دوو ئامرازی Pragraph Text بۆ ده‌رخستنی مانای وشه‌كان هه‌ر وه‌كوو ئه‌م شێویه‌



ئێستا دێینه‌ سه‌ركۆده‌كان ، له‌ سه‌ره‌تای page كه‌ به‌م شێوه‌یه‌ بۆی ئه‌ڕۆی



ئه‌م كۆده‌ دا ئه‌نێنێن

Code

SongListLoad("<SrcDir>\en.txt","TXT")  
ListBoxAddItem("List en","<List>")  
ListBoxGetItems("List en","ItemsArray$,ItemsNumArray$,#,NumOfAllItems")  
ListBoxAddItem("List ku","<SrcDir>\Ku.txt")

ئه‌م كۆده‌ وا ئه‌كا كه‌ هه‌موو وشه‌كانی هوردوو په‌ڕگه‌كه‌ كه‌ له‌ سه‌ره‌تاوه‌ دروستمان كرد له‌ هه‌ردوو لیسته‌كه‌ پیشان بدرێ

دوای ئه‌وه‌ی كه‌ هه‌ردوو لیست وشه‌كانیان ده‌ر خست ێستا پێویسته‌ كه‌ كۆدێك دابنێین كه‌ كلكمان له‌ سه‌ر هه‌ر وشه‌یه‌ك كرد ئه‌وه‌ ئه‌و وشه‌یه‌ و وشه‌ی به‌رامبه‌ری له‌ لیسته‌كه‌ی تر كه‌ مانای وشه‌كه‌یه‌ ده‌ركه‌وێ له‌ هه‌ردوو paragraphه‌كه‌ ئو كۆده‌ش له‌ لیستی وشه‌ ئینگلێزێكان له‌ on sslection ئه‌مه‌ ئه‌نوسی

Code

ListBoxGetSelectedItems("List en","SelItems$,ItemNum$,#,count")  
For i=1 To count  
  numitem$=GetArrayItem(ItemNum$,#,i)  
  numitem=VAL(numitem$)  
  SelItems$=GetArrayItem(SelItems$,#,i)  
  LoadText("Paragraph","SelItems$")  
  ListBoxSelectItem("List ku","numitem")  
Next i  

وه‌ له‌ لیستی وشه‌ كوردێكان ئه‌مه‌ ئه‌نوسی
Code

ListBoxGetSelectedItems("List ku","SelItems$,ItemNum$,#,count")  
For i=1 To count  
  numitem$=GetArrayItem(ItemNum$,#,i)  
  numitem=VAL(numitem$)  
  SelItems$=GetArrayItem(SelItems$,#,i)  
  LoadText("Paragraph1","SelItems$")  
  ListBoxSelectItem("List en","numitem")  
Next i  

ئێستا ته‌ماشاكه‌ كه‌ كلیك له‌ سه‌ر هه‌ر وشه‌یه‌ك بكه‌ی چ وشه‌ی كوردی بێ یان وشه‌ی ئینگلیزی بێ ئه‌بینی خۆی و ماناكه‌ی له‌ ته‌نیشت ده‌ر ئه‌كه‌ون



ئێستا ئه‌وه‌ ماوه‌ كه‌ چۆن فه‌رمانی دۆزینه‌وه‌ دابنێین بۆ گه‌ڕان به‌ دوای وشه‌یه‌كدا ، لێره‌دا دوو دوگمه‌مان پێویسته‌ یه‌كه‌میان بۆ گه‌ڕان و دوه‌میان بۆ ئه‌وه‌ی كه‌ دووباره‌ بگه‌ڕێته‌وه‌ بۆ نموونه‌ به‌دوای وشه‌یه‌كدا گوڕاین و دله‌ ناوه‌راستی فه‌رهه‌نگه‌كه‌ دۆزیمانه‌وه‌ ودواتر به‌ دوای وشه‌یه‌كی ترا گه‌ڕاین پێویسته‌ له‌ سه‌ره‌تاوه‌ بگه‌ڕێین نه‌ك له‌ دوای وشه‌ی ڕابردووه‌ ، دوگمه‌ی دوه‌م ئه‌م كاره‌مان بۆ ده‌كات. ئێستا له‌ دوگمه‌ی گه‌ڕان پێویته‌ به‌م شێوه‌یه‌ كۆده‌كه‌ بنوسین
سه‌ره‌تا پێویسته‌ كۆدێك دابنێین كه‌ ئه‌گه‌ر وشه‌مان نه‌نوسی كاری گه‌ڕان ئه‌نجام نه‌دا به‌م شێوه‌یه‌

Code

L=LEN(search$)  
If (L=0) Then  
  Return()  
End  

دواتر كۆدێك بۆ خستنه‌ ڕوی وشه‌كه‌ ئه‌گه‌ر وشه‌یه‌كی نوێت نوسی و به‌رده‌وام بێ له‌ گه‌ڕان دوای ئه‌وه‌ی كه‌ وشه‌یه‌كی دوزیه‌وه‌ وئه‌گه‌ر وشه‌یه‌كی نوێمان نوسی له‌ سه‌ره‌تاوه‌ بگه‌ڕێ به‌م شێوه‌یه

Code

p=POS(Lastsearch$,search$)  
If (p<>1) Then  
  x=0  
End  

دواتر كاری گه‌ڕان ئه‌نجام بدا كه‌ پێویسته‌ له‌ سكرپتێكی تایبه‌ت بنوسرێ بۆ نه‌ئاڵۆزبوونی كۆده‌كان به‌م شێوه‌یه‌

Code

Lastsearch$=search$  
RunScript("Script")

له‌ كۆتایدا له‌ دوگمه‌ی دۆزینه‌وه‌ كۆده‌كه‌ به‌ شێوه‌یه‌ ده‌ر ئه‌چێ

Code

L=LEN(search$)  
If (L=0) Then  
  Return()  
End  
p=POS(Lastsearch$,search$)  
If (p<>1) Then  
  x=0  
End  
Lastsearch$=search$  
RunScript("Script")  

ئێستا دێینه‌ سه‌ر سكرپته‌كه‌ كه‌ كۆده‌كه‌ی له‌ چه‌ن هه‌نگاوێدا خۆی ئه‌گرێته‌وه‌ له‌وانه‌
سه‌ره‌تا كۆدێك ئه‌نوسین بۆ ئه‌وه‌ی كه‌ دوای ته‌واو بونی گه‌ڕان په‌یامیك بنوسێ كه‌ ئاماژه‌ بۆ ته‌واوبوونی گه‌ڕان بكا به‌م شێوه‌یه‌

Code

If (x=NumOfAllItems) Then  
  Message("ته‌واوبوو.","")  
  Return()  
End

دواتر كۆدێك كه‌ دێڕ دێڕ به‌ دوای وشه‌كه‌مانا بگه‌ڕێ به‌م شێوه‌یه‌

Code

x=x+1  
ListBoxSelectItem("List en","x")  
ListBoxGetSelectedItems("List en","SelItems$,ItemNum$,#,count")  
For i=1 To count  
  SelItems$ = GetArrayItem(SelItems$,#,i)  
  If (Sensitive=0) Then  
  search$=LOW(search$)  
  SelItems$=LOW(SelItems$)  
  End

به‌ڵام ئه‌كۆده‌ هێشتا ناته‌واوه‌ ئاگاداربن ئێستا كۆدێك بۆ ئه‌وه‌ی كه‌ هه‌ر كه‌ وشه‌كه‌مانی دۆزیه‌وه‌ بوه‌ستێ و كه‌ كلكمان له‌سه‌ری كرد دووباره‌ گه‌ڕانی خۆی ته‌واو بكا و وشه‌ دۆزراوه‌كه‌مان بۆ ده‌رخا به‌م شێوه‌یه‌

Code

p=POS(search$,SelItems$)  
  If (DeepSearch=0) Then  
  If (p=1) Then  
  Return()  
  End  
  Else  
  If (p=>1) Then  
  Return()  
  End  
  End  
  If (p=1) Then  
  Return()  
  End  
Next i  
ScriptTimer("Script","1")

ئێستا كۆده‌كه‌ به‌م شێوه‌یه‌ ده‌ر ئه‌چێ

Code

If (x=NumOfAllItems) Then  
  Message("ته‌واوبوو.","")  
  Return()  
End  
x=x+1  
ListBoxSelectItem("List en","x")  
ListBoxGetSelectedItems("List en","SelItems$,ItemNum$,#,count")  
For i=1 To count  
  SelItems$ = GetArrayItem(SelItems$,#,i)  
  If (Sensitive=0) Then  
  search$=LOW(search$)  
  SelItems$=LOW(SelItems$)  
  End  
  p=POS(search$,SelItems$)  
  If (DeepSearch=0) Then  
  If (p=1) Then  
  Return()  
  End  
  Else  
  If (p=>1) Then  
  Return()  
  End  
  End  
  If (p=1) Then  
  Return()  
  End  
Next i  
ScriptTimer("Script","1")

ته‌ماشا كه‌ له‌ دێری كۆتایی كۆده‌كه‌ فه‌رمانی ئه‌وه‌مان داوه‌تێ كه‌ هه‌مان سكریبت دووبار بێته‌وه‌ به‌ به‌رده‌وام.

ئێستا به‌س ئه‌وه‌ ماوه‌ كه‌ كۆدی دوگمه‌ی دووباره‌ دابنێین ئه‌وه‌یش به‌م شێوه‌یه‌ ئه‌بێ

Code

x=0  
L=LEN(search$)  
If (L=0) Then  
  Return()  
End  
p=POS(Lastsearch$,search$)  
If (p<>1) Then  
  x=0  
End  
Lastsearch$=search$  
RunScript("Script")

هیچی تیا نیه‌ ته‌نها ئه‌وه‌ نه‌بێ كه‌ له‌ سه‌ره‌تاوه‌ ده‌ست به‌ گه‌ڕان ئه‌كا.

ئێستا ئه‌توانن لێره‌وه‌ دایگرن پرۆژه‌كه‌

ته‌واو بوو یاخوا سود به‌خش بێ هیوادارم ئێوه‌ش شتی جوانتری بۆ زیاد كه‌ن
سه‌رتانم ئێشان به‌ڵام به‌رنامه‌ داڕشتن وایه‌ زۆر ئاسان نیه‌ زۆر خه‌رێكی بی ده‌م و چاوت وه‌كوو كۆده‌كانی لێدێ ههههه

بابه‌تی هه‌ڵبژارده‌

پێش ئه‌وه‌ی ببی به‌ پرۆگرام ساز ...ئه‌م خاڵانه‌ بزانه‌
چه‌ن خاڵێك پێش ئه‌وه‌ی ماڵپه‌ڕه‌كه‌ت دروست بكه‌ی
فراكتالیۆس - یه‌كێك له‌ هونه‌ره‌كانی فۆتۆشۆپ

Share