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

[SAMAN.ASADI]

پاسخ : تجربه از تولید انبوه با بسکام

از قدیم گفتن : صلاح کار خویش خسروان دانند
این دوتا برنامه که گزاشتم رو تست کنید تا تفاوت if و select case مشخص بشه
با دستور if فرکانس خروجی 206 هرتز
با دستور select case فرکانس خروجی 245 هرتز

$regfile = "m32def.dat"
$crystal = 1000000

$hwstack = 200
$swstack = 200
$framesize = 200

Config Porta = Output
Dim A As Byte




Do

A = A + 1

Select Case A

  Case 64:
  Porta = 0

  Case 128:
  Porta = 255


  Case 192:
  Porta = 0


  Case 255:
  Porta = 255

End Select


Loop



End

$regfile = "m32def.dat"
$crystal = 1000000

$hwstack = 200
$swstack = 200
$framesize = 200

Config Porta = Output
Dim A As Byte





Do

A = A + 1

If A = 64 Then Porta = 0

If A = 128 Then Porta = 255

If A = 192 Then Porta = 0

If A = 255 Then Porta = 255


Loop

End

ظاهرا هدف اصلی این تاپیک این بود که اگه کسی تجربه بد با بسکام داره (اون هم با نسخه اصلی) اعلام کنه که تاحالا ...
البته من حودم از نسخه کرک شده استفاده میکنم.

بله حرف شما در این برنامه درسته ...
ولی من دقت نکرده بودم که نمیشه با دستور select case راهش بندازم ...
به نظر شما در این برنامه چطوری میشه select case بگذارم ؟؟؟

   If A = Pwm(1) Then Led1 = 1
   If A = Pwm(2) Then Led2 = 1
   If A = Pwm(3) Then Led3 = 1
   If A = Pwm(4) Then Led4 = 1
   If A = Pwm(5) Then Led5 = 1
   If A = Pwm(6) Then Led6 = 1
   If A = Pwm(7) Then Led7 = 1
   If A = Pwm(8) Then Led8 = 1
   If A = Pwm(9) Then Led9 = 1
   If A = Pwm(10) Then Led10 = 1
   If A = Pwm(11) Then Led11 = 1
   If A = Pwm(12) Then Led12 = 1
   If A = Pwm(13) Then Led13 = 1
   If A = Pwm(14) Then Led14 = 1
   If A = Pwm(15) Then Led15 = 1
   If A = Pwm(16) Then Led16 = 1
   If A = Pwm(17) Then Led17 = 1
   If A = Pwm(18) Then Led18 = 1
   If A = Pwm(19) Then Led19 = 1
   If A = Pwm(20) Then Led20 = 1
   If A = Pwm(21) Then Led21 = 1
   If A = Pwm(22) Then Led22 = 1
   If A = Pwm(23) Then Led23 = 1
   If A = Pwm(24) Then Led24 = 1
   If A = Pwm(25) Then Led25 = 1
   If A = Pwm(26) Then Led26 = 1
   If A = Pwm(27) Then Led27 = 1
   If A = Pwm(28) Then Led28 = 1
   If A = Pwm(29) Then Led29 = 1
   If A = Pwm(30) Then Led30 = 1
   If A = Pwm(31) Then Led31 = 1
   If A = Pwm(32) Then Led32 = 1

اگر میشه بگید تا من برنامم رو تصحیحش کنم ...
ممنون

[mahdi421]

پاسخ : تجربه از تولید انبوه با بسکام

Select Case A

  Case Pwm(1):
     Led1 = 1

  Case Pwm(2):
     Led2 = 1

  Case Pwm(3):
     Led3 = 1

  Case Pwm(4):
     Led4 = 1


'.........


End Select

[SAMAN.ASADI]

پاسخ : تجربه از تولید انبوه با بسکام

Select Case A

  Case Pwm(1):
     Led1 = 1

  Case Pwm(2):
     Led2 = 1

  Case Pwm(3):
     Led3 = 1

  Case Pwm(4):
     Led4 = 1


'.........


End Select

چرا به فکر خودم نرسید ؟؟؟
ممنون

[SAMAN.ASADI]

پاسخ : تجربه از تولید انبوه با بسکام

Select Case A

  Case Pwm(1):
     Led1 = 1

  Case Pwm(2):
     Led2 = 1

  Case Pwm(3):
     Led3 = 1

  Case Pwm(4):
     Led4 = 1


'.........


End Select

مهدی جان
این کار رو کردم نشد ...
در حقیقت با بررسی کردن case اول از حلقه خارج میشه ...
پس همون if ها بدون دردسر تر هستند ...

[mahdi421]

پاسخ : تجربه از تولید انبوه با بسکام

برنامه ای رو که با select case نوشتین رو بزارین تو تاپیک اصلی تا باهم رفع ایراد بکنیم این تاپیک دیگه کاملا از بحث اصلی منحرف شد

یه پیشنهاد هم دارم :nerd:
باتوجه به اینکه شما هم بسکام کار کردین و هم avrstudio اگه پایه باشین باهم یه تاپیک با عنوان مهاجرت از bascom به Avrstudio راه بندازیم که هم خیر دنیا توش هست و هم ثواب آخرت :mrgreen:

[rezash86]

پاسخ : تجربه از تولید انبوه با بسکام

بحث از روال عادی خارج شد..
اهمیت خیلی زیدی داره که تجربه ها در اختیار دیگران قرار بگیره.اگه دو تا تجربه تلخ مطرح بشه که مشخصا از بسکام باشه
خوب قطعا دیگه همچین تاپیک هایی بوجود نمیاد..
آقا سی کامپایلر حرفه ای هاست..میدونم
با سی ویندوز نوشتن.. میدونم
منظور من از تجربه تلخ اینه که کسی یه بوردی رو تولید انبوه کرده و توش گیر کرده . اونوقت همون پروژه رو با سی نوشته و مشکل حل شده...یا یه چیزی شبیه این...

[SAMAN.ASADI]

پاسخ : تجربه از تولید انبوه با بسکام

برنامه ای رو که با select case نوشتین رو بزارین تو تاپیک اصلی تا باهم رفع ایراد بکنیم این تاپیک دیگه کاملا از بحث اصلی منحرف شد

یه پیشنهاد هم دارم :nerd:
باتوجه به اینکه شما هم بسکام کار کردین و هم avrstudio اگه پایه باشین باهم یه تاپیک با عنوان مهاجرت از bascom به Avrstudio راه بندازیم که هم خیر دنیا توش هست و هم ثواب آخرت :mrgreen:

من در کمک کردن دریغ نمی کنم :applause:
ولی من تازه دو سه ماهی هست که دارم ATmel Studio کار میکنم و زیاد بلد نیستم ...
و در حد اینکه بتونم کارم راه بی افته بلدم ...
در هر صورت
کمک خواستید در خدمتم ...

[coloop]

پاسخ : تجربه از تولید انبوه با بسکام

منظور من از تجربه تلخ اینه که کسی یه بوردی رو تولید انبوه کرده و توش گیر کرده . اونوقت همون پروژه رو با سی نوشته و مشکل حل شده...یا یه چیزی شبیه این...

دوست عزیز
اولا فکر نکنم چنین چیزی وجود داشته باشه ! (مگر اینکه مشکل از کامپایلر باشه.)
ثانیا؛وقتی خودتون قبول دارید که سی بهتره پس چرا بسکام ؟!
به خدا زحمت زیادی نداره کوچ کردن از بیسیک به سی !!! :cry2:

برای یه بار این زحمت رو به جون بخرید و سی یاد بگیرید.
آخه وقتی خودتون اقرار میکنید که سی بهتره،چرا باز اصرار دارید پروژه هاتون رو با بیسیک و بسکام بنویسید ؟؟؟

[rezash86]

پاسخ : تجربه از تولید انبوه با بسکام

دوست عزیز
اولا فکر نکنم چنین چیزی وجود داشته باشه ! (مگر اینکه مشکل از کامپایلر باشه.)
ثانیا؛وقتی خودتون قبول دارید که سی بهتره پس چرا بسکام ؟!
به خدا زحمت زیادی نداره کوچ کردن از بیسیک به سی !!! :cry2:

برای یه بار این زحمت رو به جون بخرید و سی یاد بگیرید.
آخه وقتی خودتون اقرار میکنید که سی بهتره،چرا باز اصرار دارید پروژه هاتون رو با بیسیک و بسکام بنویسید ؟؟؟

چون پارانتر زمان خیلی مهمه
همین الا دارم سه تا پروژه رو با بسکام انجام میدم
وقتی شروع میکردیم میگفتن یه مقدار که پیشرفت کنین میررین سراغ سی
حالا که رفتیم تو بازار وقت نمیشه(از باب درد دل)

[majid1986]

پاسخ : تجربه از تولید انبوه با بسکام

تجربه های مفیدی بود. مرسی از لطفتون