|
سڵاوی خوای گه‌وره‌تان لێبێ
بێگومان كه هه‌ر كه‌سه و بیرۆكه‌ی تایبه‌تی خۆی هه‌یه بۆ به‌رنامه داڕشتن ئه‌گینا خۆ ڕێگایه‌كی ئاماده‌كراو نیه بۆ داڕشتنی به‌رنامه‌یه‌ك و بیرۆكه‌ی كه‌سێك بۆ كه‌سێكی تر جیاوازه چ ڕێگه‌یه‌كی هه‌یه بۆ داڕشتنی به‌رنامه بۆیه سه‌ركه‌وتنی به‌رنامه‌كان په‌یوه‌سته به زیره‌كی و لێهاتوی خاوه‌نه‌كه‌یه‌وه ئه‌وه‌یش په‌یوه‌سته به شاره‌زابوون له به‌رنامه داڕشتن به‌ڵام شاره‌زابوون له به‌رنامه داڕشتن پێویستی به داهێنان به‌لكو پێویستی به فێر بوون هه‌یه بۆیه هه‌وڵدان و بیكردنه‌وه داهێنانی له‌دوایه.
بۆیه بیرۆكه‌ی دروستكردنی فه‌رهه‌نگ ئامانجی زۆر له به‌رنامه‌ڕێژانی كورده چونكه زمانی كوردی زمانی جیهان نیه بۆیه پێویستمان به زمانی جیهانه بۆ به‌ره‌و پێشچون ، لێره‌دا بیرۆكه‌یه‌كی زۆر ساده‌تان پێشكه‌ش ئه‌كه‌م بۆ دروستكردنی قاموس جا ئه‌گه‌ر هه‌وڵ بده‌ن زیاتر په‌ره‌ی پێ ئه‌ده‌ن. 
فه‌رهه‌نگه‌كه به ئامرازی 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
وه له لیستی وشه كوردێكان ئه‌مه ئه‌نوسی
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") هیچی تیا نیه ته‌نها ئه‌وه نه‌بێ كه له سه‌ره‌تاوه ده‌ست به گه‌ڕان ئه‌كا. ئێستا ئه‌توانن لێره‌وه دایگرن پرۆژه‌كه
ته‌واو بوو یاخوا سود به‌خش بێ هیوادارم ئێوه‌ش شتی جوانتری بۆ زیاد كه‌ن
سه‌رتانم ئێشان به‌ڵام به‌رنامه داڕشتن وایه زۆر ئاسان نیه زۆر خه‌رێكی بی ده‌م و چاوت وه‌كوو كۆده‌كانی لێدێ ههههه
| 
