منتدى مــعـــهــــد طيبـه لعلوم الحاسب الالي

أكبر تجمع لطلاب معهد طيبه والأكثر تميزا

مــــــــــنــتـدى مـــــــــعـــــــــهــــــــــد طـــــــــــيـــــبــــــــــه لـــــــلـــــــحـــــــــاســـــــــــــب الالــــــــــــى أكــبــر تــجــمـــــع للــطـــلـــــبـــــه والأكـــثـــر تــمــيــزا
*****اهــــلا ومـــرحـــبــــــا بـــكـــم في أكــبـــر تــجــمــع لطــلاب مــــعـــــهـــــــد طـــــيـــبـــــه لـــعـــــلــــــوم الــحــاســب الالــــي*****

    اكواد الفيجوال كامله

    شاطر
    avatar
    عــ تـامر حسنى ــاشق
    عضو نشط
    عضو نشط

    عدد المساهمات : 13
    نقاط : 24
    تاريخ التسجيل : 05/11/2009

    اكواد الفيجوال كامله

    مُساهمة من طرف عــ تـامر حسنى ــاشق في الجمعة 15 يناير 2010, 4:41 am

    ياجماعه انا عندى اكواد الفيجوال بيسك كلها على الورد الى عايزها يكلمنى على الميل او الموبيل
    الميل MOTAMER2010@YAHOO.COM
    الموبيل 0171986102
    الملف حجمه 51 KB
    avatar
    hamada
    مدير منتدى معهد طيبة
    مدير منتدى معهد طيبة

    عدد المساهمات : 164
    نقاط : 364
    تاريخ التسجيل : 10/10/2009

    رد: اكواد الفيجوال كامله

    مُساهمة من طرف hamada في الجمعة 15 يناير 2010, 4:57 am

    الأكواد معاية يامصطفى شكرا لمجهودك



    لإظهار رسالة محوريه " اكتب المرادMsgbox "

    لطباعة "اكتب المراد"Print

    كود الإله الحاسبة
    Text3.text=Val(text1.text)+Val(text2.text)

    لربط برنامج الاكسس ببرنامج الفيجوال أداه اسمها Data
    نختار منها لربط البرنامجين لاختيار الداتا database name
    لاختيار الجدول record source
    من خصائص ألtext
    نختار اسم أل data source data
    اسم الحقل data filed

    لإضافة بيانات جديدة Data1.Recordset.AddNew
    للتعديل في بيانات Data1.Recordset.Edit
    لحذف بيانات Data1.Recordset.Delete
    Data1.Refresh

    لعمل متغير حرفي Dim x as String

    لعمل متغير رقمي Dim x as integer

    كود ألdrive
    يتم الكتابة في ألdrive dir1.path=drive1.drive
    يتم الكتابة في ألdir file1.path=dir1.path

    كود يجعلك تدخل من الفرم1 إلى الفرم2
    Form1.hide
    Form2.show
    كود أمرcheck box
    if check1.value=checked then
    picture1.visible=true
    else
    picture1.visible=false
    end if

    كود أمرoption button
    picture1.visible=false
    picture2.visible=false
    حسب الصور المعروضة
    If option1. value=true then
    picture1.visible=true
    else
    picture1.visible=false
    end if

    كود ألtimer
    shape1.left= shape1.left+100
    if shape1.left>=from1.width
    timer1.enabled= false
    timer2.enabled=true
    end if

    shape1.left= shape1.left-100
    if shape1.left<=0 then
    timer2.enabled= false
    timer1.enabled=true
    end if




    للاستعلام عن بيانات نصية
    Dim x as String
    x = Input Box("name")
    x = "'" + x + "'"
    =&"الاسمData1.Recordset.FindFirst "
    If Data1.Recordset.NoMatch Then
    " الاسم غير موجودMsgBox "
    End If








    للاستعلام عن بيانات رقمية
    Dim x as integer
    ") ادخل المجموعة x = Input Box("
    " & x المجموعة" = Data1.Recordset.FindFirst
    If Data1.Recordset.NoMatch Then
    " الرقم غير موجودMsgBox "
    End If














    _________________







      الوقت/التاريخ الآن هو الثلاثاء 11 ديسمبر 2018, 1:02 pm