تشغيل مصابيح كهرباء عن طريق الفيجوال

الحزين اوى كتب:

السلام عليكم

لدي هذا الجهاز وهو يقوم بعمل وسيط بين جهاز الكمبيوتر و المصابيح الكهربائية ( اللمبات ) وهو موجود على هذا الرابط

http://www.eeci.com/pac-ap.htm

الكود الموجود للتعامل معه بالفيجوال سي وانا لا اعرف الفيجوال سي لو تكرم احد الاعضاء وادانى تعليمات الفيجوال بيسك اكون شاكر جدا وهو يتم توصيل عن طريق serial port

وبه مكان لوضع 8 لمبات كل الذي اريده هو كود فتح واغلاق اللمبات بالكود

رجاء سرعة الرد والاهتمام للاهمية وشكرا

يفضل ان تقوم باضافة كود السي .

انظر هذا الرابط لعله يفيدك في شي

http://www.rentron.com/ActiveX.htm

تحياتي

omani كتب:

يفضل ان تقوم باضافة كود السي .

انظر هذا الرابط لعله يفيدك في شي

http://www.rentron.com/ActiveX.htm

تحياتي

PROGRAMING EXAMPLE IN C PROGRAMING EXAMPLE IN ASSEMBLY
NOTE 8: Do not include the upper case remarks in your C program.
#include <conio.h> To view the assembly listing,
#include <dos.h> insert the test disk and enter:
#include <stdio.h> TYPE AR-16.ASM
transmit(a) TRANSMIT RELAY CODE To line print the listing, enter:
{ PRINT AR-16.ASM
int status, s;
do NOTE: PRINT is an external DOS command.
{
status=inportb(0x3FD);
s=status & 32; *Listed below are the I/O ports for COM 1 thru COM 4
} for IBM compatibles (see page 14 for baud rates)
while (s==0);
outportb(0x3F8,a); COM 1 COM 2 COM 3 COM 4 (hex values)
shown)
} 3F8 2F8 3E8 2E8 Transmitter
3F8 2F8 3E8 2E8 Baud Latch LSB
reset() DE-ENERGIZE RELAYS 3F9 2F9 3E9 2E9 Baud Latch MSB
{ 3FB 2FB 3EB 2EB Line Control
int a;
for (a=0; a<=30; a=a+2)
{ LINE CONTROL
transmit(a); (Bit 0) (Bit 1) Word Length
} 0 0 5 data bits
} 1 0 6 data bits
0 1 7 data bits
main() 1 1 8 data bits
{
int a,b; (Bit 2) 0 = 1 stop bit
outportb(0x3FB,128); BAUD RATE LATCH ON 1 = 2 stop bits
outportb(0x3F8,12); STORE BAUD 9,600, LSB
outportb(0x3F9,0); STORE BAUD 9,600, MSB (Bit 3) 0 = no parity
outportb(0x3FB,3); BAUD RATE LATCH OFF 1 = parity enabled
while (1)
{ (Bit 4) 0 = even parity
clrscr(); 1 = odd parity
printf("PRESS KEY\n");
reset();
for (a=1; a<=31; a=a+2) (Bit 5) 0 = logical 1
{ 1 = logical 0
getch();
printf("RELAY #%2d: \n",(a+1)/2); (Bit 6) 1 = break command
transmit(a);
} (Bit 7) 0 = baud latch off
} 1 = baud latch on
}
The VISUAL BASIC programming example may be viewed from the VB directory on the disk provided.
See page 7 for information on systems level programming and additional I/O ports.

هذا هو كود السي برجاء المساعده لتحويلة بالفيجوال بيسك ، كما انه هناك ملف بي دي اف يشرح كيفية استخدام الجهاز على هذا الرابط

http://www.eeci.com/ar-16tm.pdf

السلام عليكم

اخي ربما لن استطيع افادتك لعدم وجود جهاز للتجربة لدي . ولكن انظر هذا الرابط فبه الكثير من الاكواد التي قد تفيدك

http://www.control.com/thread/1026198113

تحياتي