Avaxnet

سلام

دارم یک برنامه رو می نویسم یه جا مشکل دارم

می خوام بدون چطور یک برنامه رو برای مثلا یک فرهنگ لغت بنویسیم که بین حروف بزرگ وکوچک تفاوت قائل نشود و جواب را برای ما نشان دهد

قربون نگاهتون

سلام

شرمنده که بعد از یک ماه دارم جواب میدم... چون خودم تازه امروز این مورد رو درس گرفتم

با یک مثال:

برنامه ای بنویسید که یک ارایه 10 عنصری از نوع رشته ای داشته باشیم و بتوانیم هر اسمی را بدون در نظر گرفتن بزرگی یا کوچیکی حروف ان، در لیست جستجو کنیم و ان عنصر انتخاب شود:

dim a ( 0 to 9 ) as string                  <= General
_______________________________________________
private sub create_click()
erase a
liste 1.clear
for i=0 to 9
a(i)=trim (inputbox("Number"))
next
for i=0 to 8
for j=0 to 8
if a(i) > a (j+1) then
n=a(j) : a(j) = a(j+i) : a(j+1) = n
end if
next
next
for i=0 to 9
list1.additem a(i)
next
end sub
______________________________
privat sub search_click()
l=0 : h=9
for i=0 to 5
m=int((h+l)/2)
if strcomp(list1.list(m),text1.text , 1)=0 then
list1.celected(m)=true : Exit sub
else if strcomp (list1.list(m),text1.text,1)=1 then
h=m-1
else if strcomp(list1.list(m),text1.text)=-1 then
l=m+l
end if
next
lable1.caption="not Fount"

موفق باشید

erase a

این رو بخونید:

Remarks