نمایش نتایج 1 تا 1 از 1

نام تاپیک: ٍمشکل با ساخت em4095 با attiny13

  1. #1

    Unhappy ٍمشکل با ساخت em4095 با attiny13

    سلام
    من تازه عضو شدم
    یه سوالی داشتم
    من یه برنامه با بسکام برای ساخت یک سیستم پروکسی ریدر نوشتم
    همونطور که میدونید میکروی tiny13 امکان uart نداره
    واسه همین به صورت مجازی با بسکام واسش ایجاد کردم
    اما با این خطا موقع کامپایل مواجه میشم
    ممنون میشم اگه بهم بگین چیکار کنم
    راستی کسی میدونه چطوری میشه توی کد ویژن پورت uart مجازی درست کرد؟؟

    مثل بسکام دستور خاصی داره؟؟
    این برنامه
    $regfile = "attiny13.dat"
    $baud = 9600
    $crystal = 8000000
    $hwstack = 32
    $swstack = 10
    $framesize = 24

    Config Portb.2 = Output

    'Make SHD and MOD low
    Config Portb.3 = Output
    Portb.4 = 0

    Shd Alias Portb.4
    Config Shd = Output
    Shd = 0

    Dim Tags(5) As Byte 'make sure the array is at least 5 bytes
    Dim J As Byte
    Dim A As Byte
    Dim B As Byte
    Dim L As Bit

    Open "comb.0:9600,8,n,1" For Output As #1

    Config Hitag = 64 , Type = Em4095 , Demod = Pinb.1 , Int = @int0


    Print #1 , "Test EM4095"



    On Int0 Checkints Nosave 'we use the INT1 pin all regs are saved in the lib
    Config Int0 = Change 'we have to config so that on each pin change the routine will be called
    Enable Interrupts


    L = 0

    Do
    'Print "Check..." 'my test
    If L = 1 Then
    If B = A Then
    B = 0
    A = 0

    End If
    End If
    If Readhitag(tags(1)) = 1 Then
    Print #1 , Chr(2) 'this will enable INT1
    For J = 5 To 1 Step -1
    'Print Hex(tags(j)) ; ",";

    A = Tags(j) / 16
    A = A + 48
    Print #1 , Chr(a)
    A = Tags(j) Mod 16
    A = A + 48
    Print #1 , Chr(a)
    B = A
    L = 1
    Next
    Print #1 , Chr(0); 'CHECK SUM
    Print #1 , Chr(0); 'CHECK SUM
    Print #1 , Chr(13);
    Print #1 , Chr(10);
    Print #1 , Chr(3);

    Reset Portb.2
    Else
    'Set Portd.7
    End If
    Waitms 100

    Loop
    Close #1


    Checkints:
    Call _checkhitag
    Return

    اینم خطاش

    error: 222 line : 26 illegal character [expected (,got "[ TIFR0]]

    که وقتی روش دو بار کلیک می کنم میره روی config hitag = 64 ...
    آخرین ویرایش به وسیله amirt66 : شنبه 21 اردیبهشت 1392 در 09:02 صبح

تاپیک های مشابه

  1. ساخت سیستم عامل با دلفی
    نوشته شده توسط amin_omega در بخش مباحث عمومی دلفی و پاسکال
    پاسخ: 20
    آخرین پست: سه شنبه 12 بهمن 1400, 11:38 صبح
  2. ساخت باتون در حین اجرای برنامه
    نوشته شده توسط حسن در بخش برنامه نویسی در Delphi
    پاسخ: 3
    آخرین پست: یک شنبه 15 آذر 1383, 01:21 صبح
  3. پاسخ: 1
    آخرین پست: جمعه 05 اردیبهشت 1382, 13:32 عصر
  4. ساخت یک نوع فرم خاص
    نوشته شده توسط پدر ژپتو در بخش مباحث عمومی دلفی و پاسکال
    پاسخ: 2
    آخرین پست: سه شنبه 05 فروردین 1382, 13:16 عصر

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •