العودة
منتدى القرية الإلكترونية > القسم الالكتروني > قسم الميكروكنترولر والروبوت ودوائر الاتصال بالحاسب الالي
تحديث الصفحة vusial basic 6  


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

   
الصفحة 2 من 3 1 2 3

abdewidad
:: مهندس متميز ::
تاريخ التسجيل: Dec 2013
الدولة: casablanca
المشاركات: 712
نشاط [ abdewidad ]
قوة السمعة:
قديم 26-12-2014, 02:41 PM المشاركة 9   
افتراضي


اخي العزيز
لدي اربع صور اريد عند الضغط على نفس الزر تتغير الصور على التوالى بكل ضغطة
حتى تصل الى الصورة الرابعة ثم اضغط على زر 2 تتغير الصور تنازليا
كود:
Dim X, y As Integer
Private Sub Command1_Click()

y = y + 1
If y = 1 Then
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = True
End If
If y = 2 Then
Image1.Visible = False
Image2.Visible = False
Image3.Visible = True
Image4.Visible = False
End If
If y = 3 Then
Image1.Visible = False
Image2.Visible = True
Image3.Visible = False
Image4.Visible = False
End If
If y = 4 Then
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
End If

If y = 4 Then
y = 4
End If
End Sub


Private Sub Command2_Click()
X = X + 1


If X = 1 Then
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
End If
If X = 2 Then
Image1.Visible = False
Image2.Visible = True
Image3.Visible = False
Image4.Visible = False
End If
If X = 3 Then
Image1.Visible = False
Image2.Visible = False
Image3.Visible = True
Image4.Visible = False
End If
If X = 4 Then
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = True
End If
If X = 4 Then
X = 4
End If

End Sub
اعلانات

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

هل من مجيب

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

batma97
:: مهندس متواجد ::
تاريخ التسجيل: Nov 2012
المشاركات: 60
نشاط [ batma97 ]
قوة السمعة:
قديم 26-12-2014, 05:58 PM المشاركة 11   
افتراضي

كود:
Dim X As Integer=0
Private Sub Command1_Click()

X = X + 1
If X = 1 Then
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
End If
If X = 2 Then
Image1.Visible = False
Image2.Visible = True
Image3.Visible = False
Image4.Visible = False
End If
If X = 3 Then
Image1.Visible = False
Image2.Visible = False
Image3.Visible = True
Image4.Visible = False
End If
If X = 4 Then
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = True
End If

IF X>4 then 
X=4
End if
End Sub


Private Sub Command2_Click()
X = X - 1


If X = 1 Then
Image1.Visible = True
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
End If
If X = 2 Then
Image1.Visible = False
Image2.Visible = True
Image3.Visible = False
Image4.Visible = False
End If
If X = 3 Then
Image1.Visible = False
Image2.Visible = False
Image3.Visible = True
Image4.Visible = False
End If
If X = 4 Then
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False
Image4.Visible = True
End If

IF X<1 then
 X=1
End if
End Sub

التعديل الأخير تم بواسطة : batma97 بتاريخ 26-12-2014 الساعة 06:02 PM

abdewidad
:: مهندس متميز ::
تاريخ التسجيل: Dec 2013
الدولة: casablanca
المشاركات: 712
نشاط [ abdewidad ]
قوة السمعة:
قديم 26-12-2014, 06:12 PM المشاركة 12   
افتراضي

ماشاء الله اخي العزيز
مادا اقول والقول لدي ضعيف سوى جزاك الله اجرا وثوابا اخي
شكرا اخي العزيز


abdewidad
:: مهندس متميز ::
تاريخ التسجيل: Dec 2013
الدولة: casablanca
المشاركات: 712
نشاط [ abdewidad ]
قوة السمعة:
قديم 26-12-2014, 07:36 PM المشاركة 13   
افتراضي

اخي العزيز
لقد وضعت الصور فوق بعضها تعمل جيدا
كيف اجعل الصورة التي اختار انا يبدء بها البرنامج عند تشغيله


abdewidad
:: مهندس متميز ::
تاريخ التسجيل: Dec 2013
الدولة: casablanca
المشاركات: 712
نشاط [ abdewidad ]
قوة السمعة:
قديم 26-12-2014, 08:07 PM المشاركة 14   
افتراضي

شكرا اخي
لقد وجدت الحل

Private Sub Form_Load()
Image1.Visible = False
Image2.Visible = True
Image4.Visible = False
Image3.Visible = False
End Sub


abdewidad
:: مهندس متميز ::
تاريخ التسجيل: Dec 2013
الدولة: casablanca
المشاركات: 712
نشاط [ abdewidad ]
قوة السمعة:
قديم 26-12-2014, 09:52 PM المشاركة 15   
افتراضي

اقتباس المشاركة الأصلية كتبت بواسطة abdewidad
شكرا اخي
لقد وجدت الحل

Private Sub Form_Load()
Image1.Visible = False
Image2.Visible = True
Image4.Visible = False
Image3.Visible = False
End Sub
رغم دلك قد وجدت مشكلة وهي
ان الصورة رقم اثنين تظهر ولكن عند الضغط على الزر يرجع
الى الصورة الاولى فانه لايكمل فوق الصورة التانية التي اخترت
ارجوا الحل


batma97
:: مهندس متواجد ::
تاريخ التسجيل: Nov 2012
المشاركات: 60
نشاط [ batma97 ]
قوة السمعة:
قديم 27-12-2014, 12:50 AM المشاركة 16   
افتراضي

كود:

Private Sub Form_Load()
Image1.Visible = False
Image2.Visible = True
Image4.Visible = False
Image3.Visible = False
X=2
End Sub
الصفحة 2 من 3 1 2 3


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