اول از همه یه تشکر ویژه برای شما دوست عزیز که واقعاً وقت میزاری و کمک میکنی
ایشالا هر چی می خوای بدست بیاری
قبل از اینکه به فکر دو قسمتی کردن برنامه بیفتم، برنامه شامل یک قسمت بود (فقط یک فایل exe) که یه تعداد تقریباً زیادی Button هم داشت. تعدادی از این Buttonها هم MultiClick (نمیدونم این اصطلاح درسته یا نه) بودن، یعنی هر بار که فشار میدادی یه کاری انجام می داد. مثلا با اولین فشار یک عکس رو نشون می داد و با دومین فشار اون عکس رو Hide میکرد و بعضیای دیگه که 3 یا 4 کار انجام می دادند.
حالا مشکل من اینه که وقتی یک کد رو از اون برنامه دریافت میکنم، توی اون CBK_CMDLINEای که تو برنامه تعریف کردم یه سری شرط گذاشتم که اگه فلان کد رو دریافت کردی این کار رو انجام بده.
یعنی تو برنامه یک Script مستمرا اجرا میشه و عمل Hide و Show رو تکرار میکنه.
خوب برنامه درست کار میکنه و تا زمانی که کد از برنامه Transmitter عوض و ارسال نشده همچنان شرط برقراره و این عمل رو در برنامه گیرنده مستمر انجام میده.
می خوام یه جوری بشه که وقتی با برنامه ی Transmitter (همونی که کد رو میفرسته) وقتی روی دکمه ی Pass Code رو زدم اون کد رو بفرسته و بعد از چند میلی ثانیه مقدار اون کد رو عوض کنه و دوباره بفرسته.
اینجوری تو برنامه ی گینده یک لحظه شرط برقرار میشه و کار مورد نظر انجام میشه و دیگه تغییر نمیکنه تا دوباره کد ارسال بشه.
این کد برنامه گیرنده:
کد:
n=[color=#000090][b]VAL[/b][/color](CmdLineParam$[[color=#ff0000]0[/color]])
[color=#0000FF]If[/color] (n>[color=#ff0000]0[/color]) [color=#0000FF]Then[/color]
[color=#0000FF]For[/color] i=[color=#ff0000]1[/color] [color=#0000FF]To[/color] n
[color=#000090][b]DisplayValue[/b][/color]("Text1","CmdLineParam$[[color=#ff0000]1[/color]]")
[color=#000090][b]DisplayValue[/b][/color]("Text2","CmdLineParam$[[color=#ff0000]2[/color]]")
[color=#000090][b]DisplayValue[/b][/color]("Text9","CmdLineParam$[[color=#ff0000]3[/color]]")
[color=#000090][b]LoadText[/b][/color]("Text9","CmdLineParam$[[color=#ff0000]3[/color]]")
[color=#0000FF]Next[/color] i
[color=#0000FF]End[/color]
[color=#009000]**//************************[/color]
[color=#0000FF]If[/color] (CmdLineParam$[[color=#ff0000]3[/color]] = [color=#800000]'A01'[/color]) [color=#0000FF]Then[/color]
[color=#000090][b]RunScript[/b][/color]("Bottom ScoreBoard")
[color=#0000FF]End[/color]
[color=#000090][b]ScriptTimer[/b][/color]("CBK_CMDLINE","[color=#ff0000]500[/color]")
فرستنده:
کد:
Path$=[color=#800000]'<SrcDir>\Receiver.exe'[/color]
[color=#0000FF]If[/color] (OpenFile$ <> [color=#800000]''[/color]) [color=#0000FF]Then[/color]
Params$ = [color=#800000]' '[/color] + FirstParam$ + [color=#800000]' '[/color] + SecParam$ + [color=#800000]' '[/color] + [color=#800000]'"'[/color] + ThirdParam$ + [color=#800000]'"'[/color]
[color=#000090][b]Run[/b][/color]("Path$","Params$")
[color=#009000]**Pause("100")[/color]
[color=#0000FF]End[/color]
با تشکر