اطلاعیه

**sobhan68** · 2019-03-06T00:30:41

پاسخ : ساعت با فونت بزرگ

نوشته اصلی توسط ry.mohammad نمایش پست ها

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

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

راستی سبحان عزیز گفتین که :

خوب دو تا کلید تعریف کن بعد با pwm این کارو انجام بده
با کلید ها مقدار pwm رو کم و زیاد می کنی

دلیل: ادغام دو پست برای جلوگیری از اسپم

اولی رو شما موافقید ولی من نه وقتشو دارم نه موافق
الان دیر وقته بزار بمونه واسه فردا
این کدم اینجوری پست نکن اینجا اون بالا اینو (#) بزن و کدت رو بین این قرار بده تاپیک جمع و جورتر بشه

نوکرتم آقا این چه حرفیه

داداش این pwm اصلا بلد نیستم
دستورش چجوریه؟؟
-----------------------------
برا ساعتم چممم

**MM320** · 2019-03-06T02:41:48

پاسخ : ساعت با فونت بزرگ

سلام
برای چشمک زدن می تونی این کار کنی یه بیت تعریف کنی که هر ۵۰۰ ثانیه تغییر وضعیت بده
بعد هر وقت یک بود کاراکتر دو نقطه نمایش یده و هر وقت صفر بودکاراکتر خالی(جای دو دو نقطه)
نمایش بده .سوال دومتون می تونیدیه تاریخیمثلا ۱۳۶۰/۱۰/۱ مثلا روز شم چهار شنبه هست برای سیستم در نظر بگیری حالا تعداد روزهای از تاریخ تا تاریخ جاری حساب کنی
مثلا میشه ۵۴۵۶۴۳بعد حلقه فور این ععد بشماره و هر استپ حلقه جلو میره یکی به روز هفته پیش فرض که چهار شنبه اضاف کن هر بار روز هفته از عدد هفت بیشتر شد به مقدارمثلاایک(مقدار روز شنبه)بشه در نهایت وقتی از حلقه خارج میشی روز هفته بدست میادfor

**sobhan68** · 2019-03-06T07:53:43

پاسخ : ساعت با فونت بزرگ

نوشته اصلی توسط ry.mohammad نمایش پست ها

راستی سبحان عزیز گفتین که :

خوب دو تا کلید تعریف کن بعد با pwm این کارو انجام بده
با کلید ها مقدار pwm رو کم و زیاد می کنی

دلیل: ادغام دو پست برای جلوگیری از اسپم

محمد عزیز من اومدم با help بسکام این برنامه رو نوشتم برا pwm
کار میکنه فقط دو تا مشکل داره:
1.خروجیشو میشه تغییر داد؟یعنی از رو پایه OC1 برش داشت؟
2.تو پرتئوس ک کلیدارو میزنم خروجی بهو فعال میشه یعنی با یکبار تحریک شدن شروع میکنه از 5 ولت به صفر اومدن و با زدن کلید کلید بعدی از صفر به 5 ولت
من میخام هر موقع کلید زدم کم و زیاد شه

کد:

$regfile = "m16def.dat"
$crystal = 8000000
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Prescale = 1


Config Portb = Input
Pinb.1 = 0
Pinb.1 = 0
Dim A As Byte

Do
If Pinb.0 = 1 Then

For A = 0 To 255
Pwm1a = A
Waitms 50

Next A
End If

If Pinb.1 = 1 Then

For A = 255 To 1 Step -1

 Pwm1a = A
Waitms 50

Next A

End If
Loop
End

دلیل: ادغام دو پست برای جلوگیری از اسپم

نوشته اصلی توسط MM320 نمایش پست ها

سلام
برای چشمک زدن می تونی این کار کنی یه بیت تعریف کنی که هر ۵۰۰ ثانیه تغییر وضعیت بده
بعد هر وقت یک بود کاراکتر دو نقطه نمایش یده و هر وقت صفر بودکاراکتر خالی(جای دو دو نقطه)
نمایش بده .سوال دومتون می تونیدیه تاریخیمثلا ۱۳۶۰/۱۰/۱ مثلا روز شم چهار شنبه هست برای سیستم در نظر بگیری حالا تعداد روزهای از تاریخ تا تاریخ جاری حساب کنی
مثلا میشه ۵۴۵۶۴۳بعد حلقه فور این ععد بشماره و هر استپ حلقه جلو میره یکی به روز هفته پیش فرض که چهار شنبه اضاف کن هر بار روز هفته از عدد هفت بیشتر شد به مقدارمثلاایک(مقدار روز شنبه)بشه در نهایت وقتی از حلقه خارج میشی روز هفته بدست میادfor

سلام
ممنون از پاسخگویی شما

میشه یکم بیشتر توضیح بدین؟
مثال بزنین؟
هم مورد اول رو هم مورد دوم رو؟

**ry.mohammad** · 2019-03-06T19:28:28

پاسخ : ساعت با فونت بزرگ

نوشته اصلی توسط sobhan68 نمایش پست ها

محمد عزیز من اومدم با help بسکام این برنامه رو نوشتم برا pwm
کار میکنه فقط دو تا مشکل داره:
1.خروجیشو میشه تغییر داد؟یعنی از رو پایه OC1 برش داشت؟
2.تو پرتئوس ک کلیدارو میزنم خروجی بهو فعال میشه یعنی با یکبار تحریک شدن شروع میکنه از 5 ولت به صفر اومدن و با زدن کلید کلید بعدی از صفر به 5 ولت
من میخام هر موقع کلید زدم کم و زیاد شه

کد:

$regfile = "m16def.dat"
$crystal = 8000000
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Down , Prescale = 1


Config Portb = Input
Pinb.1 = 0
Pinb.1 = 0
Dim A As Byte

Do
If Pinb.0 = 1 Then

For A = 0 To 255
Pwm1a = A
Waitms 50

Next A
End If

If Pinb.1 = 1 Then

For A = 255 To 1 Step -1

 Pwm1a = A
Waitms 50

Next A

End If
Loop
End

سلام
اومدین توی برنامه یه حلقه ی for تعریف کردین که وقتی کلید فشرده میشه یا از 255 تا صفر میشماره یا از صفر تا 255 میشماره و pwm رو یا خاموش و یا در بیشترین عرض پالس خودش قرار میده خوب این اشتباهه
شما باید اون حلقه رو پاک کنید و طوری بنویسید که وقتی کلید بالا فشرده شده pwm یه واحد افزایش داشته باشهو وقتی مثلا کلید پایین فشرده میشه pwm یه واحد کاهش داشته باشه که در صورت نگه داشتن کلید pwm هم به طورپیوسته تغییر خواهد کرد

A=255
do
If Pinb.0 = 1 Then
A=A-1;
Pwm1a = A
End If
loop

**sobhan68** · 2019-03-06T23:16:48

پاسخ : ساعت با فونت بزرگ

نوشته اصلی توسط ry.mohammad نمایش پست ها

سلام
اومدین توی برنامه یه حلقه ی for تعریف کردین که وقتی کلید فشرده میشه یا از 255 تا صفر میشماره یا از صفر تا 255 میشماره و pwm رو یا خاموش و یا در بیشترین عرض پالس خودش قرار میده خوب این اشتباهه
شما باید اون حلقه رو پاک کنید و طوری بنویسید که وقتی کلید بالا فشرده شده pwm یه واحد افزایش داشته باشهو وقتی مثلا کلید پایین فشرده میشه pwm یه واحد کاهش داشته باشه که در صورت نگه داشتن کلید pwm هم به طورپیوسته تغییر خواهد کرد

A=255
do
If Pinb.0 = 1 Then
A=A-1;
Pwm1a = A
End If
loop

ممنونم ازت محمد جان

آقا بریم سراغ ساعت؟؟؟
از کجا و چجوری شروع کنم؟؟

**ry.mohammad** · 2019-03-06T23:47:56

پاسخ : ساعت با فونت بزرگ

نوشته اصلی توسط sobhan68 نمایش پست ها

ممنونم ازت محمد جان

آقا بریم سراغ ساعت؟؟؟
از کجا و چجوری شروع کنم؟؟

گفتم که باید با متغیر های سال و ماه و روز کار کنی
برای حساب کردن کل روز یه متغیر از نوع long تعریف کن و سپس طبق اون روشی که مثال زدیم تعداد کل روز رو بدست بیار و در این متغیر ذخیره کن
فرض می کنیم متغیر سال year باشه
dim All_days as long
Do
All_days=year*365

بعد تعداد روزای ماه رو بدست میاری و با این متغیر All_days جمع می کنی
بعد تعداد روز ماه جاری هم به این متغیر All_days اضاف می کنی تا کل روزات بدست بیاد
Loop

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

**sobhan68** · 2019-03-07T00:23:05

پاسخ : ساعت با فونت بزرگ

نوشته اصلی توسط ry.mohammad نمایش پست ها

گفتم که باید با متغیر های سال و ماه و روز کار کنی
برای حساب کردن کل روز یه متغیر از نوع long تعریف کن و سپس طبق اون روشی که مثال زدیم تعداد کل روز رو بدست بیار و در این متغیر ذخیره کن
فرض می کنیم متغیر سال year باشه
dim All_days as long
Do
All_days=year*365

بعد تعداد روزای ماه رو بدست میاری و با این متغیر All_days جمع می کنی
بعد تعداد روز ماه جاری هم به این متغیر All_days اضاف می کنی تا کل روزات بدست بیاد
Loop

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

ممنون
خب من میخام مثلا تاریخ امروز رو نمایش بدم 1397/12/116
طبق گفته هات All_days=1397*365 که برابر 509905
و ماه هم میشه 11 چون تو 12 هستیم
تعداد روز های 11 ماه سال هم برابر 336 روزه که با مجموع All_days میشه 510241
و در آخر هم روز های ماه جاری 16 که کلا 510257
پس All_days=510257
خب و امروز هم برابر 6 میشه
خب بقیه ش چجوری؟

**ry.mohammad** · 2019-03-07T00:59:56

پاسخ : ساعت با فونت بزرگ

نوشته اصلی توسط sobhan68 نمایش پست ها

ممنون
خب من میخام مثلا تاریخ امروز رو نمایش بدم 1397/12/116
طبق گفته هات All_days=1397*365 که برابر 509905
و ماه هم میشه 11 چون تو 12 هستیم
تعداد روز های 11 ماه سال هم برابر 336 روزه که با مجموع All_days میشه 510241
و در آخر هم روز های ماه جاری 16 که کلا 510257
پس All_days=510257
خب و امروز هم برابر 6 میشه
خب بقیه ش چجوری؟

خوب من وقتی تو اون پست توضیح میدادم به کی توضیح می دادم؟
اصلا خوندی اون پست رو؟
اگر خونده باشی ادامشو می بینی...

که من حساب کردم تعداد کل روزش شد 510403
الان من همین عدد رو از عدد مبنا کم می کنم
510403-510255=148
الان همین عدد 148 رو تقسیم می کنم بر تعداد روزای هفته که برابر با هفت هست
148%7=1
خوب چرا جای تقسیم درصد نوشته شده؟
چون درصد نشان دهنده ی باقیمانده هست
مثلا اگر 148 رو تقسیم بر 7 کنم جوابش میشه 21.FFFF و باقیماندش میشه یک
حال اون عدد هفته ی مبنا رو که چهار بود به این اضاف می کنم میشه 5
اگر بشماری میبینی که میشه چهارشنبه
یعنی
1398/05/09 میشه چهارشنبه
از اون قسمت مبنا به بعد باید تو کامپایلر دقیقا این مراحل رو پیاده کنی
امیدوارم که مفیده بوده باشه...

**sobhan68** · 2019-03-07T01:03:30

پاسخ : ساعت با فونت بزرگ

نوشته اصلی توسط ry.mohammad نمایش پست ها

خوب من وقتی تو اون پست توضیح میدادم به کی توضیح می دادم؟
اصلا خوندی اون پست رو؟
اگر خونده باشی ادامشو می بینی...

اینم گرفتم چی شد
کد نویسی شو بلد نیستم
یعنی نمیدونم چی بنویسم و چه دستوراتی

**ry.mohammad** · 2019-03-07T02:04:33

پاسخ : ساعت با فونت بزرگ

نوشته اصلی توسط sobhan68 نمایش پست ها

اینم گرفتم چی شد
کد نویسی شو بلد نیستم
یعنی نمیدونم چی بنویسم و چه دستوراتی

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

**sobhan68** · 2019-03-07T02:12:47

پاسخ : ساعت با فونت بزرگ

نوشته اصلی توسط ry.mohammad نمایش پست ها

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

یه استارت میزنی بقیه شو من برم؟؟؟؟

**sobhan68** · 2019-03-11T02:10:12

پاسخ : ساعت با فونت بزرگ

سلام

من این کد رو نوشتم ولی موقع کامپایل ارورمیده
مشکل از کجاست؟؟؟؟؟

کد:

$regfile = "m16def.dat"
$crystal = 8000000
Config Lcd = 20 * 4
Config Lcdpin = Pin , Db7 = Porta.0 , Db6 = Porta.1 , Db5 = Porta.2 , Db4 = Porta.3 , E = Porta.4 , Rs = Porta.5
Config Debounce = 30
Config Clock = Soft
Config Date = Ymd 
Dim T As Byte , D As Byte
'-----------------------------------------
Dim A As Long
Dim Hafteh As Byte

Dim Y1 As Integer
Dim M1 As Integer
Dim D1 As Integer
M1 = _month
Y1 = _year
D1 = _day

'-----------------------------------

D = 0
Enable Interrupts
Time$ = "14:50:20"

Do
Home

Lowerline
Lcd "Date: " ; Date$
Debounce Pinb.0 , 0 , Menu

Repeat:
Loop
End
'----------------------------------------
Menu:
D = 0

Label1:
Cls
Lcd "2-Date Setting"
Do
Debounce Pinb.0 , 0 , Repeat
Debounce Pinb.1 , 0 , Dateset
Loop
'----------------------------------------


'----------------------------------------
Dateset:
Cls
Incr D
Lcd "Day: " ; _day
Do
Debounce Pinb.1 , 0 , Incdate , Sub
Debounce Pinb.0 , 0 , Label3
Loop

Label3:
Cls
Incr D
Lcd "Month: " ; _month
Do
Debounce Pinb.1 , 0 , Incdate , Sub
Debounce Pinb.0 , 0 , Label4
Loop

Label4:
Cls
Incr D
Lcd "Year: " ; _year
Do
Debounce Pinb.1 , 0 , Incdate , Sub
Debounce Pinb.0 , 0 , Repeat


Loop

'-------------------------------------
 Do


   A = Y1 * 365

   If M1 <= 6 Then : A = A +((m1 -1) * 31) + D1

   End If


                 Hafteh = A Mod 7

                   Locate 3 , 2
                   Select Case Hafteh
                         Case 1 : Lcd " SAT"
                         Case 2 : Lcd " SUN"
                         Case 3 : Lcd " MON"
                         Case 4 : Lcd " TUE"
                         Case 5 : Lcd " WED"
                         Case 6 : Lcd " THU"
                         Case 7 : Lcd " FRI"
                   End Select



  Loop
'-------------------------------------
Incdate:
If D = 1 Then
  Incr _day
  If _day > 31 Then
    _day = 1
  End If
  Cls
  Lcd "Day: " ; _day
Else
If D = 2 Then
  Incr _month
  If _month > 12 Then
     _month = 1
  End If
  Cls
  Lcd "Month: " ; _month
Else
If D = 3 Then
  Incr _year
  If _year > 100 Then
     _year = 0
  End If
  Cls
  Lcd "Year: " ; _year
End If
End If
End If

'----------------------------------------

Return

تو دستور If که زدم اگر m1 کوچکتر مساوی 6 بود .......

**sobhan68** · 2019-03-11T15:15:16

پاسخ : ساعت با فونت بزرگ

نوشته اصلی توسط sobhan68 نمایش پست ها

سلام

من این کد رو نوشتم ولی موقع کامپایل ارورمیده
مشکل از کجاست؟؟؟؟؟

کد:

$regfile = "m16def.dat"
$crystal = 8000000
Config Lcd = 20 * 4
Config Lcdpin = Pin , Db7 = Porta.0 , Db6 = Porta.1 , Db5 = Porta.2 , Db4 = Porta.3 , E = Porta.4 , Rs = Porta.5
Config Debounce = 30
Config Clock = Soft
Config Date = Ymd 
Dim T As Byte , D As Byte
'-----------------------------------------
Dim A As Long
Dim Hafteh As Byte

Dim Y1 As Integer
Dim M1 As Integer
Dim D1 As Integer
M1 = _month
Y1 = _year
D1 = _day

'-----------------------------------

D = 0
Enable Interrupts
Time$ = "14:50:20"

Do
Home

Lowerline
Lcd "Date: " ; Date$
Debounce Pinb.0 , 0 , Menu

Repeat:
Loop
End
'----------------------------------------
Menu:
D = 0

Label1:
Cls
Lcd "2-Date Setting"
Do
Debounce Pinb.0 , 0 , Repeat
Debounce Pinb.1 , 0 , Dateset
Loop
'----------------------------------------


'----------------------------------------
Dateset:
Cls
Incr D
Lcd "Day: " ; _day
Do
Debounce Pinb.1 , 0 , Incdate , Sub
Debounce Pinb.0 , 0 , Label3
Loop

Label3:
Cls
Incr D
Lcd "Month: " ; _month
Do
Debounce Pinb.1 , 0 , Incdate , Sub
Debounce Pinb.0 , 0 , Label4
Loop

Label4:
Cls
Incr D
Lcd "Year: " ; _year
Do
Debounce Pinb.1 , 0 , Incdate , Sub
Debounce Pinb.0 , 0 , Repeat


Loop

'-------------------------------------
 Do


   A = Y1 * 365

   If M1 <= 6 Then : A = A +((m1 -1) * 31) + D1

   End If


                 Hafteh = A Mod 7

                   Locate 3 , 2
                   Select Case Hafteh
                         Case 1 : Lcd " SAT"
                         Case 2 : Lcd " SUN"
                         Case 3 : Lcd " MON"
                         Case 4 : Lcd " TUE"
                         Case 5 : Lcd " WED"
                         Case 6 : Lcd " THU"
                         Case 7 : Lcd " FRI"
                   End Select



  Loop
'-------------------------------------
Incdate:
If D = 1 Then
  Incr _day
  If _day > 31 Then
    _day = 1
  End If
  Cls
  Lcd "Day: " ; _day
Else
If D = 2 Then
  Incr _month
  If _month > 12 Then
     _month = 1
  End If
  Cls
  Lcd "Month: " ; _month
Else
If D = 3 Then
  Incr _year
  If _year > 100 Then
     _year = 0
  End If
  Cls
  Lcd "Year: " ; _year
End If
End If
End If

'----------------------------------------

Return

تو دستور If که زدم اگر m1 کوچکتر مساوی 6 بود .......

دوستان یکی بگه مشکل از کجاس؟؟؟؟؟؟؟؟؟؟؟

**ry.mohammad** · 2019-03-15T21:45:44

پاسخ : ساعت با فونت بزرگ

نوشته اصلی توسط sobhan68 نمایش پست ها

دوستان یکی بگه مشکل از کجاس؟؟؟؟؟؟؟؟؟؟؟

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

**AIANDEH** · 2020-12-02T10:09:11

پاسخ : ساعت با فونت بزرگ

دوستان فایل حذف شده لطفا دوباره آپلود کنید

اطلاعیه

ساعت با فونت بزرگ

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه