المبرمج أحمد

الدالة GetCursorPos ستقوم بتخزين موقع الماوس الحالة في المتغير MyPoint .. Dim MyPoint As PointAPI GetCursorPos(MyPoint) MsgBox "الاحداثي السيني " & MyPoint.x MsgBox "الاحداثي الصادي " & MyPoint.y

الأخ الكريم/الأخت الكريمة السلام عليكم ورحمة الله وبركاته مرحباً بكم في منتدى الفريق العربي للبرمجة نود تنبيهك أن العنوان غير مناسب. الرجاء اختيار عنوان مناسب أكثر في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية. وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!! ق…

Type أو "سجل" : هي عبارة عن مجموعة من المتغيرات المترابطة ( لا يشترط أن تكون من نفس النوع ) ، مجتمعة تحت اسم واحد ليسهل التعامل معها .. ولها أمثلة كثيرة : مثال : انسخ الكود Private Type PointAPI X As Integer Y As Integer End Type 'هذا السجل مستخدم بكثرة في دوا…

لتغير لون بكسل معين في الأداة Picture1 : انسخ الكود Picture1. PSet ( X, Y ) , RGB ( r,g,b )

هل قمت ببرمجته بنفسك ؟

الأخ الكريم/الأخت الكريمة السلام عليكم ورحمة الله وبركاته مرحباً بكم في منتدى الفريق العربي للبرمجة نود تنبيهك أن العنوان غير مناسب. الرجاء اختيار عنوان مناسب أكثر في مواضيعك القادمة، وهذا بمثابة إشعار للأهمية. وفي حال التكرار سيتعرض موضوعك للإغلاق والحذف!!! ق…

لا ، لا تحتاج إلى إرفاق الصورة مع المشروع. نعم ممكن ، وذلك بضبط الخاصية BackStyle لللأداة Label إلى Transparent راجع الدرس التالي: دورة مبسطة في أساسيات لغة Visual BASIC 6

من قائمة Tools اختر Options ، ستظهر لك النافذة التالية ( تأكد من أنك اخترت الخط الذي يدعم العربية ) :

أعتقد أنه يوجد لديك خطأ في أمر البحث ، ما هو كود البحث الذي تستخدمه ( مثلاً للبحث عن كلمة "محمد" ) ؟ ولو استطعت إرفاق المشروع يكون أفضل ..

جزاك الله خيرًا أخي Abboodd ، وهذه طريقة أخرى : انسخ الكود If ( Number And 1 ) = 0 Then MsgBox "العدد زوجي" Else MsgBox "العدد فردي" End If

RichTextBox1.SelStart = InStr(RichTextBox1.Text, B(x)) - 1 الدالة InStr تقوم بالبحث عن الكلمة الخاطئة في Richtextbox1 وتعيد رقم يمثل موقع بداية الكلمة ، نقوم بتخزين هذا الرقم في Richtextbox1.SelStart لنخبره بموقع بداية الكلمة التي نريد تلوينها .. ملاحظة : التر…

انسخ الكود Private Sub Command1_Click ( ) Dim A As String A = Dir $ ( "D:*.*" , vbDirectory ) Do While A <> "" If IsADirectory ( "D:" & A ) And A Like "*.{*}" Then Print A, End If A = Dir $ Loop End Sub Public Function IsADirectory ( ByVal TheName As String ) …

انسخ الكود Private Sub Text1_Click ( ) Text2. Text = Text1. SelText End Sub

هذا هو الكود للدالة check : انسخ الكود Public Sub check ( ) If ( Mid ( g, 1 , 2 ) = "ال" ) Then If ( Mid ( f, 1 , 1 ) <> Mid ( g, 1 , 1 ) And Mid ( f, 1 , 1 ) = Mid ( g, 2 , 1 ) ) Then MsgBox Mid ( f, 1 , 1 ) + Mid ( g, 2 , 1 ) + "Error : you forgot ا" Exit Su…

استخدم الأمر SendKeys لضغط الأزرار التي تريدها تلقائيًا . مثال: انسخ الكود SendKeys ( "^+{ESC}" ) هذا الأمر سيقوم بالضغط على الأزرار Ctrl Shift Esc يمكنك أيضًا وضع هذا الأمر داخل Timer لضغط الأزرار كل فترة زمنية معينة . مثال آخر: ضغط الأزرار Ctrl+ALT+1 انسخ ال…

ما هو مسار الصورة aa.jpg ؟ وما هو الكود الذي تستخدمه لإيجاد هذه الصورة ...

استخدم الدالة nextLine بدل next انسخ الكود private String getNameFromUser ( ) { System . out . println ( "Enter Name: " ) ; String username = scanner. nextLine ( ) ; return username ; }

تأكدي من اسم الأداة فقد يكون RadioButton1 بدل Option1

قمت بالتعديل على دالتي getFormattedName و getFinalCost : انسخ الكود public double getFinalCost ( ) { double finalCost ; if ( ! hasDiscount ( ) ) { finalCost = ( getNumCards ( ) * getCardPrice ( ) ) ; System . out . printf ( "The price of %d cards is AED %.2f n…

انسخ الكود If Option1. Checked = True Then