PC INTERFACE project

[anrico_lc]

سلام>خسته نباشید>
با برنامه زیر می تونید زمان روشن و خاموش شدن 2 تا LED رو از طریق کامپیوتر کنترل کنید.(در PORTD.7 و PORD D.6>
این برنامه با ویژوال بیسیک نوشته شده و برنامه میکرو هم با BASCOM و از میکرو ATMEGA8 استفاده شده>
لیست برنامه میکرو و همچنین ویژوال بیسیک و SETUPبرنامه و OCX مورز نیاز درر فایل ضمیمه شده>
در این پروژه از ارتباط سریال بین میکرو و کامپیوتر استفاده شده(از طریق UART و RXD) و PORT COM1
فکر نمیکننم شماتیک مدار لازم باشه.فقط باید از MAX232 بین پورت و میکرو استفاده کنین.
برای ارتباط سریال بین میکرو - کامپیوتر باید BAUD هر دو تا یکسان باشه>
باری دریافت اطلاعات از طریق میکرو هم میتونید از وقفه سریال و رجیستر UDRاستفاده کنین که کد اون تو بسکام به شکل زیر هستش:
ENABLE INTERRUPS
ENABLE URXC
ON URXC HEY
.
.
.
:HEY
A=UDR(هر متغیری که بخاین)
RETURN
البته که این برنامه پر اشکاله و اشکالالشو به بزرگی خودتون ببخشید و اینجا مطرح کنین.
لینک دانلود در پست بعدی:::: :nerd: :nerd:

[anrico_lc]

پاسخ : PC INTERFACE project

سلام>اینم فقط سورس های برنامه به همراه MSCOMM>حجمش 128 کیلوبایت.
http://www.4shared.com/file/16954013...ual_codes.html

[Hekmateca]

پاسخ : PC INTERFACE project

نام پروژه:
PC INTERFACE

اجزای مدار:
ATMEGA8, LED

زبان برنامه نویسی:
بیسیک

محتوایات پوشه:
سورس کد، فایل hex


عملکرد مدار:
بااین برنامه می توانید زمان روشن و خاموش شدن 2 تا LED رو از طریق کامپیوتر کنترل کنید.(در PORTD.7 و PORD D.6)
این برنامه با ویژوال بیسیک نوشته شده و برنامه میکرو هم با BASCOM و از میکرو ATMEGA8 استفاده شده.
لیست برنامه میکرو و همچنین ویژوال بیسیک و SETUPبرنامه و OCX مورد نیاز در فایل ضمیمه شده. :nerd:

[explode]

پاسخ : PC INTERFACE project

با سلام وخسته نباشید خدمت استاد محترم خودم
اقا من تو دریافت هیچ مشکلی ندارم از طرف میکرو البته ولی تو دریافت کامپیوتر هر کار میکنم نمیتونم یک عدد که حداکثر میتونه 255 باشه رو بفرستم .میکرو میفرسته و تو hyper terminal و emulator bascom جواب میده ولی تو vb نه؟؟؟؟؟ :angry: :angry: :cry2:
میتونید کمکم کنید
پیشاپیش ممنون

[anrico_lc]

پاسخ : PC INTERFACE project

با سلام وخسته نباشید خدمت استاد محترم خودم
اقا من تو دریافت هیچ مشکلی ندارم از طرف میکرو البته ولی تو دریافت کامپیوتر هر کار میکنم نمیتونم یک عدد که حداکثر میتونه 255 باشه رو بفرستم .میکرو میفرسته و تو hyper terminal و emulator bascom جواب میده ولی تو vb نه؟؟؟؟؟ :angry: :angry: :cry2:
میتونید کمکم کنید
پیشاپیش ممنون

سلام>فکر نکنم مشکلی داشته باشه.برنامه هایی که اشاره کردید(هایپر ترمینال و امولاتور) رو هنگام اجرای برنامه وی بی کلا ببندید.

[raminrayat]

پاسخ : PC INTERFACE project

سلام به دوستان گلم
من برای اینکه دمای یک سنسور و مقدار ولتاژ متغیر پتانسیومتر را در labview به صورت گرافیکی ببینم نیاز به پروگرام ردن برنامه زیر در میکرو avr هستم .اما مشکل من اینه که اولا من زبان c بلد نیستم ,ثانیا میکروی من atmega 32 هست و می بایست برنامه رو یه کوچیک تغییر بدم.اگر دوستان بتونن به من کمک کنن و این برنامه رو تبدیل به زبان بیسیک کنن واقعا ممنون میشم.

#include "AT91SAM7x256.h"
#include "usart.h"
#include "delay.h"
#include "adc.h"
#include <stdio.h>
int a , b , Sum ;
int main(void){
USART(18432000,9600,0);
usart0_init();
config_adc(0x03);
delay_s(2);
while(1){
start_adc();
for (b=0;b<10;b++){
a = read_adc(0);
Sum=Sum+a;
delay_ms(5);
}
Sum = Sum / 10 ;
Sum = Sum + 10000;
printf("%d",Sum) ;
Sum = 0;
for (b=0;b<10;b++){
a = read_adc(1);
Sum=Sum+a;
delay_ms(5);
}
Sum = Sum - 110 ;
Sum = Sum / 16;
Sum = Sum + 20000;
printf("%d",Sum) ;
Sum = 0;
} }

در ضمن این برنامه به همراه شماتیک labview تو مجله شماره pmm13 اومده .صفحه 50 به بعد
منتظر یاریتون هستم

[raminrayat]

پاسخ : PC INTERFACE project

سلام و فوقالعاده ممنون از مطالب مفیدتون.
من وقتی پروژه رو با hyperlink و میکرو avr atmega32 اجرا میکنم.البته با برنامه زیر

داخل hyperlink حروف نامفهوم مینویسه و labview هم این error رو میده VISA: (Hex 0xBFFF003E) Could not perform operation because of I/O error.

لطفا راهنماییم کنید.



$regfile = "m32def.dat"
$crystal = 16000000 'give here the value of the X-tal you use in Hertz
$baud = 9600
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc

Dim A As Word , Sum As Word , N As Byte , Temp1 As Byte , Temp2 As Byte
Dim Max1 As Byte , Max2 As Byte
' Config Portd = Output
Config Portc = Input
' Config Portb = Output
Wait 1


' Reset Portb.1
' Reset Portb.2


Print "---------------AVR projects----------------"
Print "Serial Port monitoring "
Print "serial port settings:9600-8-N-1 "
Print "-------------------------------------------"

Wait 1

Input "insert max tempereature for sensor 1 " , Max1
Input "insert max tempereature for sensor 2 " , Max2

Startt:
Sum = 0
For N = 1 To 10
A = Getadc(1)
Sum = Sum + A
Waitms 100
Next
Sum = Sum - 110
Sum = Sum / 16
Temp1 = Sum
Sum = 0
For N = 1 To 10
A = Getadc(0)
Sum = Sum + A
Waitms 100
Next
Sum = Sum / 102
Temp2 = Sum

Print "tempereature1= " ; Temp1 ; " tempereature2= " ; Temp2
'---------------------------------------------------------------------
' If Temp1 > Max1 Then
' Set Portb.1
' End If
'If Temp2 > Max2 Then
' Set Portb.2
'End If
'
' If Max1 > Temp1 Then
' Reset Portb.1
' End If
' If Max2 > Temp2 Then
' Reset Portb.2
' End If

' Wait 2
Goto Startt
End



ادرس دانلود این پروژه هم اینه
http://www.iranled.com/forum/attachment.php?aid=5401

[mhek6435]

پاسخ : PC INTERFACE project

این برنامه با code vision چجوری کار میکنه؟ با atmega32