Fa نمایش یک عکس متغییر در mmb

[MVGM_Soft]

سلام خسته نباشید دوستان
من یک پایگاه داده دارم که از داخلش یکسری اطلاعات رو می خونم
این اطلاعات هم 6000 تا یا بیشتر هست
0 و 1
این اطلاعات رو من نمی تونم تغییر بدم
حالا من می خوام در mmb اگر اون داده ای رو که دریافت کرده اگر 0 باشه عکس مربع رو نمایش بده
اگر 1 باشه عکس دایره
نمی دونم تونستم منظورمو برسونم یا نه
اگه یه نمونه بزارید خیلی ممنون میشم

 

[Saman]

پایگاه داده شما چی هست؟ متنی ؟ Sqlite ؟
اگه بخوام به صورت تئوریک جواب بدم باید بگم که ، رکورد مورد نظر رو میخونید و بعد با یه دستور If اونو چک میکنید.

 

[MVGM_Soft]

پایگاه متنی هستش
اگه یه مثال یا فقط اون شرطشو بزارید ممنون میشم

 

[evil_gates]

دوست عزيز

لطفا بخشي از اين فايل متني تون رو قرار بديد.

 

[MVGM_Soft]

برای پیدا کردن لاین مورد نظر از این دستور استفاده شده چون تعداد متغییر هست:

doubleclick=1
ListBoxGetSelectedItems("List","SelItems$,ItemsOrderNum$,#,NumOfAllItems")
For a=NumOfAllItems To 1
  t$ = GetArrayItem(SelItems$,#,a)
  numitem$ = GetArrayItem(ItemsOrderNum$,#,a)
  numitem = VAL(numitem$)
[B]  RetVal=(NOL(file$)-34)/50[/B]
  lines$=CHAR(RetVal)
  lines = VAL(lines$)
  file$='<Embedded>\data.txt'
  fromline= numitem
  numoflines=1
  Return$=StrFromFile(file$,fromline,numoflines)
  LoadText("sh_barge","Return$")
  positie$='Number ' + numitem$ + ' in the list.'
  Return2$=Return$ + CHR(13) + CHR(10) + positie$
Next a

با فرض اینکه الان numitem مقدارش 1 باشه الان داده 0 و یا 1 من در خط یک قرار داره


​

 

[evil_gates]

دوست عزيز
اول اينكه ميتونستيد كدها رو بهينه كنيد خطوط برنامتون كمتر بشه.

دوم اينكه من هنوز هم منظور شما رو از اين جمله متوجه نشدم

... الان داده 0 و یا 1 من در خط یک قرار داره...

منظورتون كدوم خط هست؟ شما ميتونيد داده خودتون رو به يك متغير نسبت بديد و با يك شرط چك كنيد كه آيا مقدار متغير برابر 0 يا 1

 

[MVGM_Soft]

من نتونستم کمتر کنم تعداد خط ها رو اگه تاثیر چشم گیری داره , بهینش رو لطف کنید ممنون میشم
درفایل پایگاه دادهه , داده ها به اینصورت هستن:

0
1
1
0
0
0
0
1
1
0
1
0
1
0
1
0
0
1
1
....

یعنی تو هر خط ممنکنه عدد 0 باشه یا 1 احتمال دیگه ای وجود نداره
الان دقیقا مین شرطشو می خوام که اگه مقدار خط یک پایگاه داده 0 باشه عکس مربع خالی رو نشون بده و اگر مقدار خط یک پایگاه داده 1 بودش عکس مربع تیک دار رو نشون بده

​

 

[evil_gates]

دوست عزيز
من اين كد رو پيشنهاد ميكنم:

file$='<Embedded>\data.txt'
For i=1 To NOL(file$)
  str$=StrFromFile(file$,i,1)
  If (str$='0') Then
    *** run some commands
  End
  If (str$='1') Then
    *** run some commands
  End
Next i