قسم الميكروكنترولر والروبوت ودوائر الاتصال بالحاسب الالي قسم المتحكمات الـ microcontroller و المعالجات microprocessor و التحكم الرقمي بالكمبيوتر CNC والانظمة الآلية والروبوت Robots

   

abdewidad
:: مهندس متميز ::
تاريخ التسجيل: Dec 2013
الدولة: casablanca
المشاركات: 712
نشاط [ abdewidad ]
قوة السمعة:
قديم 27-01-2015, 02:41 AM المشاركة 17   
افتراضي



انا رهن الاشارة لاي مساعدة اخي

اعلانات

hamadalla31
:: مهندس متميز ::
تاريخ التسجيل: Mar 2009
المشاركات: 585
نشاط [ hamadalla31 ]
قوة السمعة:
قديم 27-01-2015, 10:42 AM المشاركة 18   
x6 بوركت وطاب مسعاك


انا رهن الاشارة لاي مساعدة اخي

اشكرك اخي الحبيب علي هذه النية الطيبة
المشكلة عندي VB-10 ولم يفتح ملفات VB-6
ابحث لدي اصدقائي علي اسطوانه عليها VB-6
اشكرك وبارك الله لك وان شاء الله قريبا سأتابع معك حين يتوفر لي VB-6

اعلانات اضافية ( قم بتسجيل الدخول لاخفائها )

abdewidad
:: مهندس متميز ::
تاريخ التسجيل: Dec 2013
الدولة: casablanca
المشاركات: 712
نشاط [ abdewidad ]
قوة السمعة:
قديم 27-01-2015, 03:16 PM المشاركة 19   
افتراضي



اشكرك اخي الحبيب علي هذه النية الطيبة
المشكلة عندي VB-10 ولم يفتح ملفات VB-6
ابحث لدي اصدقائي علي اسطوانه عليها VB-6
اشكرك وبارك الله لك وان شاء الله قريبا سأتابع معك حين يتوفر لي VB-6
لا تحزن اخي سارفع الموقع الدي يضم البرنامج


abdewidad
:: مهندس متميز ::
تاريخ التسجيل: Dec 2013
الدولة: casablanca
المشاركات: 712
نشاط [ abdewidad ]
قوة السمعة:
قديم 27-01-2015, 03:21 PM المشاركة 20   
افتراضي


http://www.startimes.com/?t=11626523


hamadalla31
:: مهندس متميز ::
تاريخ التسجيل: Mar 2009
المشاركات: 585
نشاط [ hamadalla31 ]
قوة السمعة:
قديم 28-01-2015, 10:06 AM المشاركة 21   
x6 بارك الله لك اخي الكريم


اشكرك اخي الحبيب علي اهتمامك بارك الله لك
الرابط في منتدي ستار تايمز لايعمل عندي
مازال البحث جاريا ............... جزاكم الله بكل خير


abdewidad
:: مهندس متميز ::
تاريخ التسجيل: Dec 2013
الدولة: casablanca
المشاركات: 712
نشاط [ abdewidad ]
قوة السمعة:
قديم 29-01-2015, 02:42 AM المشاركة 22   
افتراضي


اشكرك اخي الحبيب علي اهتمامك بارك الله لك
الرابط في منتدي ستار تايمز لايعمل عندي
مازال البحث جاريا ............... جزاكم الله بكل خير
لا شكرا على واجب


hamadalla31
:: مهندس متميز ::
تاريخ التسجيل: Mar 2009
المشاركات: 585
نشاط [ hamadalla31 ]
قوة السمعة:
قديم 29-01-2015, 10:59 AM المشاركة 23   
افتراضي بارك الله لك اخي الكريم


السلام عليكم
اخي الحبيب abdewidad
بفضل الله قمت بتركيب VB6 علي جهازي

وحاولت تشغيل البرنامج الا انه اعطاني رسالة الخطأ التالية

حاولت اضافة الفورم للبرنامج فأعطاني الرسالة الثانية
فكيف اصحح الخطأ بارك الله لك


abdewidad
:: مهندس متميز ::
تاريخ التسجيل: Dec 2013
الدولة: casablanca
المشاركات: 712
نشاط [ abdewidad ]
قوة السمعة:
قديم 29-01-2015, 03:52 PM المشاركة 24   
افتراضي


اربع حساسات في متحكم واحد بتوفيق من الله تعالى



الكود
كود:
sbit LCD_RS at Rb0_bit;
sbit LCD_EN at Rb1_bit;
sbit LCD_D7 at Rb7_bit;
sbit LCD_D6 at Rb6_bit;
sbit LCD_D5 at Rb5_bit;
sbit LCD_D4 at Rb4_bit;

// Pin direction
sbit LCD_RS_Direction at TRISb0_bit;
sbit LCD_EN_Direction at TRISb1_bit;
sbit LCD_D7_Direction at TRISb7_bit;
sbit LCD_D6_Direction at TRISb6_bit;
sbit LCD_D5_Direction at TRISb5_bit;
sbit LCD_D4_Direction at TRISb4_bit;
unsigned char text0[4] ;
unsigned char text1[4] ;
unsigned char text2[4] ;
unsigned char text3[4] ;
int temp0 = 0;
int temp1 = 0;
int temp2 = 0;
int temp3 = 0;
//Programme principal : MOUAD //
void main ()
{

 Uart1_Init (9600);
  Lcd_Init();
  Lcd_Cmd(_LCD_CLEAR);
  Lcd_Cmd(_LCD_CURSOR_OFF);
  Lcd_Out(1, 5, ">>T0");
  Lcd_Out(2, 5, ">>T1");
  Lcd_Out(1, 15, ">> T2");
  Lcd_Out(2, 15, ">> T3");
do {
temp0 = Adc_Read(0);
temp1 = Adc_Read(1);
temp2 = Adc_Read(2);
temp3 = Adc_Read(3);
temp0 =temp0/2.05;
temp1 =temp1/2.05;
temp2 =temp2/2.05;
temp3 =temp3/2.05;
temp0=temp0-271.5;
 temp1=temp1-271.5;
 temp2=temp2-271.5;
 temp3=temp3-271.5;
ByteToStr(temp0, text0);
ByteToStr(temp1, text1);
ByteToStr(temp2, text2);
ByteToStr(temp3, text3);
Lcd_Out(1, 1, text0);
Lcd_Chr_cp('C');
Lcd_Out(2, 1, text1);
Lcd_Chr_cp('C');
Lcd_Out(1, 10, text2);
Lcd_Chr_cp('C');
Lcd_Out(2, 10, text3);
Lcd_Chr_cp('C');
UART1_Write_Text(text0);
UART1_Write_Text(" C1 >>T0");
Uart1_Write('\r');
delay_ms(100);
UART1_Write_Text(text1);
UART1_Write_Text(" C >>T1");
Uart1_Write('\f');
delay_ms(100);
UART1_Write_Text(text2);
UART1_Write_Text(" C >>T2");
Uart1_Write('\n');
delay_ms(100);
UART1_Write_Text(text3);
UART1_Write_Text(" C >>T3");
Uart1_Write('\v');
delay_ms(100);




delay_ms(500);
}
while (1);
}
انتظرني حتى اكتب الكود في برنامج vusial basic



الساعة معتمدة بتوقيت جرينتش +3 الساعة الآن: 07:33 AM
موقع القرية الالكترونية غير مسؤول عن أي اتفاق تجاري أو تعاوني بين الأعضاء
فعلى كل شخص تحمل مسئولية نفسه إتجاه مايقوم به من بيع وشراء وإتفاق وأعطاء معلومات موقعه
التعليقات المنشورة لا تعبر عن رأي موقع القرية الالكترونية ولايتحمل الموقع أي مسؤولية قانونية حيال ذلك (ويتحمل كاتبها مسؤولية النشر)