صفحه 2 از 2 نخستنخست 12
نمایش نتایج: از 11 به 20 از 20

موضوع: نمایش عدد اعشاری روی سون سگمنت

  1. #11
    مدیریت سایت LightIran آواتار ها
    تاریخ عضویت
    Apr 2014
    نوشته ها
    1,122
    تشکر
    224
    تشکر شده 1,440 بار در 641 پست
    متغیر مربوط به اعشار رو از نوع single بذارین!متغیر d
    You can if you want!Trust Me
    تنها غیرممکن غیرممکن است پس تلاش کنید!

  2. #12
    کاربر عادی hamed_avr آواتار ها
    تاریخ عضویت
    May 2014
    نوشته ها
    77
    تشکر
    15
    تشکر شده 24 بار در 19 پست
    متغیر های D و temp و y *رو single تعریف کردم ولی برنامه کمپایل نمیشه و ارور میده. از نوع word میزارم کمپایل میشه ولی اعشارم نشون نمیده

  3. #13
    مدیریت سایت LightIran آواتار ها
    تاریخ عضویت
    Apr 2014
    نوشته ها
    1,122
    تشکر
    224
    تشکر شده 1,440 بار در 641 پست
    چه اروری میده؟
    You can if you want!Trust Me
    تنها غیرممکن غیرممکن است پس تلاش کنید!

  4. #14
    کاربر عادی hamed_avr آواتار ها
    تاریخ عضویت
    May 2014
    نوشته ها
    77
    تشکر
    15
    تشکر شده 24 بار در 19 پست
    این کل برنامش هست.
    خط 49 و 51 رو ارورر میده.
    invalid datatype [[0011]112[
    کد:
    $regfile = "m8def.dat"
    $crystal = 1000000
    $hwstack = 40
    $swstack = 16
    $framesize = 32
    
    ' 1WIRE * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
    Config 1wire = Portb.0
    
    ' MOTAGHAYERHA * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
    Dim Byte0 As Byte
    Dim Byte1 As Byte
    Dim X As Integer
    Dim Y As Single
    Dim Num As Single
    Dim Yekan As Word
    Dim Dahgan As Word
    Dim Sadgan As Word
    Dim Temp As Single
    Dim D As Single
    ' TAINE ASHAR* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
    Config Single = Scientific , Digits = 1
    
    
    Config Portd = Output
    Config Portc = Output
    
    ' MAIN PROGRAM FOR DS18B20 * * * * * * * * * * * *
    Do
    1wreset
    If Err = 1 Then
    Portc = &B1110000
    Portd = &B01000000
    Else
    1wwrite &HCC
    1wwrite &H44
    Waitms 10
    1wreset
    1wwrite &HCC
    1wwrite &HBE
    
    Byte0 = 1wread()
    Byte1 = 1wread()
    
    X = Makeint(byte0 , Byte1)
    Y = X / 16
    Temp = Y
    Yekan = Temp / 10
    Num = Temp Mod 10
    Dahgan = Num / 1
    Num = Num Mod 1
    Sadgan = Num / 0.1
    
    
    Portc = &B1111110
    Portd = Lookup(sadgan , Lable1)
    Waitms 5
    Portc = &B1111101
    Portd = Lookup(dahgan , Lable2)
    Waitms 5
    Portc = &B1111011
    Portd = Lookup(yekan , Lable1)
    Waitms 5
    
    'if Byte1 > &B11111000 Then
    'Portc = &B1111111
    'Portd = Lookup(10 , Lable1)
    'Waitms 5
    'End If
    End If
    Loop
    
    
    Lable1:
    Data &B00111111                                             '0
    Data &B00000110                                             '1
    Data &B01011011                                             '2
    Data &B01001111                                             '3
    Data &B01100110                                             '4
    Data &B01101101                                             '5
    Data &B01111101                                             '6
    Data &B00000111                                             '7
    Data &B01111111                                             '8
    Data &B01101111                                             '9
    Data &B01000000                                             '-
    
    
    Lable2:
    Data &B10111111                                             '0
    Data &B10000110                                             '1
    Data &B11011011                                             '2
    Data &B11001111                                             '3
    Data &B11100110                                             '4
    Data &B11101101                                             '5
    Data &B11111101                                             '6
    Data &B10000111                                             '7
    Data &B11111111                                             '8
    Data &B11101111                                             '9
    Data &B11000000                                             '-

  5. #15
    مدیریت سایت LightIran آواتار ها
    تاریخ عضویت
    Apr 2014
    نوشته ها
    1,122
    تشکر
    224
    تشکر شده 1,440 بار در 641 پست
    متغیرهای یکان،دهگان و صدگان رو هم از نوع Single تعیین کنید ببینید بازم ایراد میگیره؟
    You can if you want!Trust Me
    تنها غیرممکن غیرممکن است پس تلاش کنید!

  6. #16
    کاربر عادی hamed_avr آواتار ها
    تاریخ عضویت
    May 2014
    نوشته ها
    77
    تشکر
    15
    تشکر شده 24 بار در 19 پست
    اره بازم همون ارور رو میده.

  7. #17
    مدیریت سایت LightIran آواتار ها
    تاریخ عضویت
    Apr 2014
    نوشته ها
    1,122
    تشکر
    224
    تشکر شده 1,440 بار در 641 پست
    برنامه شما فقط همین ارور رو میده یا ارورهای دیگه ای هم داره؟
    You can if you want!Trust Me
    تنها غیرممکن غیرممکن است پس تلاش کنید!

  8. #18
    کاربر عادی hamed_avr آواتار ها
    تاریخ عضویت
    May 2014
    نوشته ها
    77
    تشکر
    15
    تشکر شده 24 بار در 19 پست
    فقط ارور invalid datatype رو میده

  9. #19
    مدیریت سایت LightIran آواتار ها
    تاریخ عضویت
    Apr 2014
    نوشته ها
    1,122
    تشکر
    224
    تشکر شده 1,440 بار در 641 پست
    مشکل این برنامه به اینجا برمیگرده که عبارت mod که باقیمانده یک عدد رو نشون میده در متغیر های نوع Single که اعشاری هستند اصولا کاربردی نداره و این مشکل یقینا پیش خواهد آمد.
    برای این مورد و اینکه ممیز حذف نشه به محض تبدیل عدد رو در 10 ضرب کنید تا ممیز بیاد بیرون یعنی مثلا عدد 15.6 میشه 156
    بعد این رو به integer تبدیل کنید و با استفاده از تقسیم های متوالی به جزء های مختلف تقسیم کنید.
    فقط توجه داشته باشید با مقدار دهی متغیر Y به یک متغیر Word عمل تبدیل Single به Word انجام میشه یعنی بعد از ضرب کردن در 10 تبدیل کنید.
    You can if you want!Trust Me
    تنها غیرممکن غیرممکن است پس تلاش کنید!

  10. کاربران زیر از این پست مفید LightIran تشکر نموده اند:

    bamdadelectronic (07-12-2015)

  11. #20
    کاربر عادی hamed_avr آواتار ها
    تاریخ عضویت
    May 2014
    نوشته ها
    77
    تشکر
    15
    تشکر شده 24 بار در 19 پست
    چیزی متوجه نشدم
    دیگه بی خیالش شدم .

صفحه 2 از 2 نخستنخست 12

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

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
با کلیک بر روی 1+ ما را در گوگل محبوب کنید