-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
هههههه...مبارك عليك يا إسلام...
ما أجمل كلمة الاعتذار...تشعر بالراحة...
شكرا لك مازن
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
اقتباس:
المشاركة الأصلية كتبت بواسطة -zakaria.-
...السلام عليكم
متى ستكمل دورة البرمجة مسيرتها !! :)
والسلام عليكم
جاري حاليا إعداد الدرس السادس بواسطة الأخ المشرف حسامز
سينتهي قريبا بإذن الله (في حدود إسبوعين على الأكثر)
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
سؤال جديد:كيف أنشئ مجلدا جديدا بنقرة button في البرنامج؟
وبالطبع أنا من يحدد اسم المجلد
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
سؤال جديد:
كيف يمكنني نسخ أوامر معينة لأداة أخرى؟
مثلا لدي Button1 و Button2...
يحتوي Button1_click على عدد من الأوامر...
وأريد لـ Button2_click أن يكون لها نفس أوامر Button1_click لكن دون نسخ...
وذلك كي لا يزيد حجم البرنامج...وأيضا عند الحاجة لتعديل الكود يكون لدي مرجع واحد فقط...أيضا لأتمكن من استخدام نفس الأمر في عدد من الأدوات...
اللغة:Visual Basic 9 (2008) Professional
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
أسئلة جديدة:
* كيف يمكنني إعطاء الأمر لزر بتصغير الفورم إلى جوار الساعة؟
* كيف يمكنني التحكم بأوامر أزرار الإغلاق والتصغير والتكبير (Control Box) الإفتراضية؟
* كيف يمكنني التحكم بأوامر رمز البرنامج المصغر بجوار الساعة؟ (النقر باليمين-باليسار-النقر المزدوج-إلخ)
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
اقتباس:
المشاركة الأصلية كتبت بواسطة Eye Code
سؤال جديد:كيف أنشئ مجلدا جديدا بنقرة button في البرنامج؟
وبالطبع أنا من يحدد اسم المجلد
طبعا كل ماسأضعه لك من أكواد ستعمل على فيجوال بيسك 6 بسلاسة لأني لم أستخدم 8 بعد ^^
كود إنشاء مجلد
MkDir "c:\WaHdAiN"
طبعا إسم المجلد سيكون WaHdAiN
وتقدر تغيره بما تشاء ^^
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
اقتباس:
المشاركة الأصلية كتبت بواسطة Eye Code
سؤال جديد:
كيف يمكنني نسخ أوامر معينة لأداة أخرى؟
مثلا لدي Button1 و Button2...
يحتوي Button1_click على عدد من الأوامر...
وأريد لـ Button2_click أن يكون لها نفس أوامر Button1_click لكن دون نسخ...
وذلك كي لا يزيد حجم البرنامج...وأيضا عند الحاجة لتعديل الكود يكون لدي مرجع واحد فقط...أيضا لأتمكن من استخدام نفس الأمر في عدد من الأدوات...
اللغة:Visual Basic 9 (2008) Professional
في الجنرال للكود ضع هذا مثلاً
[PHP]Public Sub wahdain()
MsgBox "Hello !!", vbInformation
Me.WindowState = vbMinimized
End Sub[/PHP]
الآن ضع الأمر [PHP]call Wahdain[/PHP] في حدث النقر لكل من Button1 و Button2
وستجد انه ينفذ جميع الأوامر في كلا الزرين وهي إظهار رسالة ثم تصغير النموذج أو الفورم ويمكن وضع الأوامر التي تريد ^^
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
اقتباس:
المشاركة الأصلية كتبت بواسطة Eye Code
* كيف يمكنني إعطاء الأمر لزر بتصغير الفورم إلى جوار الساعة؟
ضع هذ الكود في موديول
[PHP]Option Explicit
Declare Function shell_notifyicon Lib "shell32.dll" Alias _
"Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_MBUTTONDBLCLK = &H209
Public Const WM_MBUTTONDOWN = &H207
Public Const WM_LBUTTONUP = &H202
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_RBUTTONDBLCLK = &H206
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_MOUSEMOVE = &H200
Public Const NIF_ICON = &H2
Public Const WM_COMMNOTIFY = &H44
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4
Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2
Public Const MAX_TOOLTIP As Integer = 64
Type NOTIFYICONDATA
cbsize As Long
hwind As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * MAX_TOOLTIP
End Type[/PHP]وفي الجنرال للنموذج ضع هذا الكود
[PHP]Dim nfIconData As NOTIFYICONDATA[/PHP]وكود وضع الأيقونة بجوار الساعة ضعه في بداية حدث تحميل الفورم
[PHP]With nfIconData
.hwind = Form1.hWnd
.uID = Form1.Icon
.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
.uCallbackMessage = WM_MOUSEMOVE
.hIcon = Form1.Icon.Handle
.szTip = "أكتب هنا إسم برنامجك والذي سيظهر كتلميح عند وقوف الماوس على الأيقونة بجوار الساعة" & Chr$(0)
.cbsize = Len(nfIconData)
End With
[/PHP]وكود الإستدعاء ووضع الأيقونة بجوار الساعة هو
[PHP]Call shell_notifyicon(NIM_ADD, nfIconData)[/PHP]ضعه في المكان الذي يعجبك والأفضل ان يكون في حدث تحميل الفورم ^^
وأيضا كود إزالة الأيقونة من جوار الساعة
[PHP]Call shell_notifyicon(NIM_DELETE, nfIconData)[/PHP]
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
اقتباس:
المشاركة الأصلية كتبت بواسطة Eye Code
* كيف يمكنني التحكم بأوامر رمز البرنامج المصغر بجوار الساعة؟ (النقر باليمين-باليسار-النقر المزدوج-إلخ)
هذا الكود مشروحاً ^_^
[PHP]Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case (X \ Screen.TwipsPerPixelX)
'عند مرور الماوس على الأيقونة
Case &H200
MsgBox "لقد مر الماوس على الأيقونة ^_^", vbInformation
'عند النقر على الأيقونة بالفأرة نقرة واحدة
Case &H202
Me.Caption = "WaHdAiN"
'عند النقر المزدوج على الأيقونة بالفأرة
Case &H203
If WindowState = vbMinimized Then
Me.WindowState = vbNormal
Me.Visible = True
End If
'عند النقر بالزر الأيمن على الأيقونة
Case &H205
PopupMenu Mnu_File
End Select
End Sub [/PHP]
إستبدل كلمة Mnu_File بإسم القائمة التي تريد ظهورها عند النقر بالزر الأيمن (يجب ان تكون قد عملت هذه القائمة مسبقا)
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
اقتباس:
المشاركة الأصلية كتبت بواسطة Eye Code
* كيف يمكنني التحكم بأوامر أزرار الإغلاق والتصغير والتكبير (Control Box) الإفتراضية؟
هذا الكود بالنسبة لزر التصغير والإستعادة ^^
[PHP]Private Sub Form_Resize()
If WindowState = vbMinimized Then Me.Visible = False
If WindowState = vbNormal Then Me.Visible = True
End Sub[/PHP]وهذا لوضع الأوامر التي ستحدث عند الضغط على زر إغلاق
[PHP]
Private Sub Form_Unload(Cancel As Integer)
Call shell_notifyicon(NIM_DELETE, nfIconData)
Cancel = True
End Sub[/PHP]
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
الحقيقة أشكرك على هذا المجهود العظيم...وهذا ما يمكن أن يسمى بتكديس المناهج ^^...أتحفتني وزدتني علما جزاك الله خيرا وعلما...
لا أدري ما الذي يعبر عن كل ذلك...
لكن لن أنساك من الدعاء...
كان لدي بعض الاستفسارات على ما سبق...
اقتباس:
كل ماسأضعه لك من أكواد ستعمل على فيجوال بيسك 6 بسلاسة لأني لم أستخدم 8 بعد
لا عليك فأنا أستعمل 9 أصلا ^^
في هذا السؤال:
اقتباس:
كيف يمكنني نسخ أوامر معينة لأداة أخرى؟
ألا يمكن أن أستدعي من Button1_click إلى أي شيء أخر بدلا من وضعها في الPublic؟؟؟
اقتباس:
إستبدل كلمة Mnu_File بإسم القائمة التي تريد ظهورها عند النقر بالزر الأيمن (يجب ان تكون قد عملت هذه القائمة مسبقا)
ولكن كيف أقوم بعمل Menu؟هل هي إحدى الأدوات؟
في هذا السؤال:
اقتباس:
* كيف يمكنني التحكم بأوامر أزرار الإغلاق والتصغير والتكبير (Control Box) الإفتراضية؟
كنت أقصد أنه عند النقر على تلك الأزرار ينفذ تعليمات أخرى أنا أحددها...
أرجو الرد على هذه الأسئلة أيضا:
اقتباس:
أسئلة جديدة...لكن
أرجو الإسراع في الإجابة عليها قدر الإمكان:
*كيف يمكنني تعريف متغير لكل البرنامج؟
حاولت استخدام Public Class ولم أفلح...
*كيف أتحكم بخصائص ملف خارجي؟
أريد جعل ملف txt مخفي مثلا...
*أرجو منك كتابة كود استيراد الملف بالكامل...كتبت هذا الكود ولكنه لم يفلح وحاولت بأكثر من طريقة ولم أفلح:
اقتباس:
Try
Dim oFile As System.IO.File
Dim oRead As System.IO.StreamReader
Dim oWrite As System.IO.StreamWriter
oRead = IO.File.OpenText(C:\S.txt")
oWrite.WriteLine(StoryP.txt)
oRead.Close()
Catch ex As Exception
MsgBox("لم يفلح البرنامج في استيراد الملف",VBCritical , "ERROR-7")
End Try
...أرجو السرعة في ذلك
أعتقد أن المشكلة أن المتغيرoWrite فارغ فلا يوجد ما يكتبه وهذا ما يقوله البرنامج ولكن لم أعرف كيف أملأه بالنص من ملف text المحدد...
اقتباس:
سؤال جديد:
كيف أرسل بريد إلكتروني عن طريق نقرة زر؟
كما يكون مثلا في كلمة راسلني في المواقع أو اتصل بنا...
أيضا سؤال الأخ AMYM لم تتم الإجابة الكاملة عليه....
سؤال جديد:
*كيف يمكن أن أزيد أزرارا على الـControl Box كما يوجد في IDM؟
شاكر مجهودك الكبييييييييييييييييييييي ييييييييييييييييييييييييي ييييييييييييييييييييييييي ييييييييييييييييييييييييي ييييييييييييير جدا...
لا عدمنا تواجدك وقراءة ردودك...
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
قد اتأخر بالرد بسبب وجود الإمتحانات المتتالية في هذا الإسبوع
إن رد أحد من يعلم كان بها أو إنتظرني
^_^"
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
لا بأس...
بانتظاركم...
أشكرك أخ وحدين
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
اقتباس:
ألا يمكن أن أستدعي من Button1_click إلى أي شيء أخر بدلا من وضعها في الPublic؟؟؟
نعم يمكنك إستدعاء من Button1_click وايضا يمكنك الإستدعاء من Private sub أو من sub فقط ^_^
اقتباس:
ولكن كيف أقوم بعمل Menu؟هل هي إحدى الأدوات؟
حدد الفورم في مساحة العمل على الفيجوال ثم اضغط على زر Ctrl + E في لوحة المفاتيح ثم ستظهر لك نافذة عمل القوائم على الفورم
اقتباس:
كنت أقصد أنه عند النقر على تلك الأزرار ينفذ تعليمات أخرى أنا أحددها...
هل تقصد انه عند الضغط على زر التصغير مثلا يقوم بعمل الأوامر التي تريد ولايعمل تصغير للفورم أم انه سيقوم بتصغير الفورم مع عمل الأوامر الخاصة بك؟
اقتباس:
*كيف أتحكم بخصائص ملف خارجي؟
هذه الأوامر للتحكم بكامل خصائص الملف وأعتقد أنها مفهومة ^_^
كود:
SetAttr "C:\wahdain.txt", vbNormal
SetAttr "C:\wahdain.txt", vbHidden
SetAttr "C:\wahdain.txt", vbReadOnly
SetAttr "C:\wahdain.txt", vbArchive
SetAttr "C:\wahdain.txt", vbSystem
إذا واجهت صعوبة في فهم أحدها سأشرحه لك ^^"
اقتباس:
*أرجو منك كتابة كود استيراد الملف بالكامل
كود إستيراد ملف على textbox هو:
كود:
Open "C:\wahdain.txt" For Input As #1
Text1.Text = Input(LOF(1), 1)
Close #1
نفس الكود إذا كنت تريد الإستيراد إلى label أما إذا كنت تريد الإستيرد في ComboBox أو في ListBox فهناك كود آخر لهذه العملية ^_^
اقتباس:
كيف أرسل بريد إلكتروني عن طريق نقرة زر؟
ضع هذا الكود في الجنرال للفورم
اقتباس:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
وكود إظهار صندوق إرسال رسالة هو:
اقتباس:
ShellExecute Me.hwnd, vbNullString, "mailto:Mazen@Wahdain.Com", vbNullString, "C:\", SW_SHOWNORMAL
اقتباس:
*كيف يمكن أن أزيد أزرارا على الـControl Box كما يوجد في IDM؟
لا أعلم ^_^
-
رد: إسأل واستفسر عما استشكل عليك في أمور البرمجة وبإذن الله سنجيبك [يرجى المساهمة من جميع المبرمجين]
اقتباس:
المشاركة الأصلية كتبت بواسطة AMYM
سؤال جديد
الان كنت ببرمج برنامج الساعه المؤقته ... ابرمجه بطريقه مبتداه المهم ...
لكن هناك شئ خاطئ ... فالبرنامج لا يعمل
لذا هذه هي الاكواد ... اخبروني اين الخطأ
أضف هذا الكود بداخل حدث تحميل الفورم Form Load
كود:
Private Sub Form_Load()
Label1.Caption = "0"
Label2.Caption = "0"
Label3.Caption = "0"
End Sub
وإستبدل كود الـ Timer الخاص بك بهذا الكود بعد التعديل ^_^
كود:
Private Sub Timer1_Timer()
If Not Timer1.Interval = 0 Then Label3.Caption = Val(Label3.Caption) + 1
If Label3.Caption = "60" Then
Label3.Caption = "0"
Label2.Caption = Val(Label2.Caption) + 1
ElseIf Label2.Caption = "60" Then
Label2.Caption = "0"
Label1.Caption = Val(Label1.Caption) + 1
End If
End Sub
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
أشكرك أخ وحدين على هذا ...وآسف لإتعابك
اقتباس:
هل تقصد انه عند الضغط على زر التصغير مثلا يقوم بعمل الأوامر التي تريد ولايعمل تصغير للفورم أم انه سيقوم بتصغير الفورم مع عمل الأوامر الخاصة بك؟
نعم,عند الضغط على زر التصغير مثلا يقوم بعمل غير التصغير...أعطيتني كود التصغير سابقا...يمكنني الدمج بينهما
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
بخصوص الأكواد السابقة...
ما هو الجنرال؟...
ما هو الموديول؟...
بداية حدث تحميل الفورم...هل تقصد Form_load؟
أرجو منك أن توضح ما هي قاعدة Type؟
هل النموذج=فورم؟
سؤال أخير...لماذا تظهر الصفحة الرابعة من هذا الموضوع مشدودة هكذا...
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
موضوع جميل ...
لأول مرة أكتشف وجوده ^.^
خبرتنا في الفي بي vb لم تصل للاحترافية لذا لن أعرف الإجابة على جميع الأسئلة ..
بإمكاني الإجابة على أي استفسارات سي بلس بلس أو سي شارب أو سيكول
C#. C++ , sql
بالتوفيق للجميع ^.^
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
اقتباس:
خبرتنا في الفي بي vb لم تصل للاحترافية لذا لن أعرف الإجابة على جميع الأسئلة ..
لابأس بمساعدة الأعضاء بماتعرفي هنا حيث انني وإسلام مشغولين حاليا وسنكون سعداء بمشاركاتك إن أمكنك طبعا ^_^
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
السلام عليكم...
سؤال جديد:
كيف أتحكم في شفافية فورم أو أداة؟
هل توجد لذلك خاصية أم أستعمل كود؟
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
سؤال جديد:
لدينا أمر للنقر بالزر الأيمن وآخر للأيسر ولكن ما الأمر للنقر بعجلة الفأرة؟
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
اقتباس:
المشاركة الأصلية كتبت بواسطة Eye Code
نعم,عند الضغط على زر التصغير مثلا يقوم بعمل غير التصغير...أعطيتني كود التصغير سابقا...يمكنني الدمج بينهما
بالنسبة لزر التصغير والتكبير والإستعادة فأعتقد أنك لاتستطيع إستبدال عملهم ولكن تستطيع دمج أوامر معهم
أما بالنسبة لزر إغلاق فيمكن إستبدال عمله بالكامل بنفس الكود الذي وضعته لك سابقا وبالتالي سينفذ أوامرك ولن يعمل إغلاق
أما إذا كنت تريد تنفيذ الأوامر الخاصة بك مع تنفيذ الأمر الإفتراضي وهو الإغلاق قم بمسح الأمر
Cancel = True
من الكود الذي وضعته لك سابقا
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
اقتباس:
المشاركة الأصلية كتبت بواسطة Eye Code
ما هو الجنرال؟...
شرحه يطول لكن بإختصار هي الأكواد العامة في الفورم والتي توضع خارج نطاق كود أداة معينة
يعني لاتكون داخل حدث Form_Load أو Button1_Click كمثال
اقتباس:
المشاركة الأصلية كتبت بواسطة Eye Code
ما هو الموديول؟...
أرجو منك أن توضح ما هي قاعدة Type؟
ساسألك سؤال وأرجوا ان لاتفهمني خطأ ^^"
هل تنفذ شرط الموضوع بإن تقوم بالبحث في النت قبل وضع إستفسارك لنا؟
لإن الموضوع ليس لتعليم البرمجة أو برنامج بذاته وإنما هو لإجابة الإستفسارات التي لم تجد إجابة لها بعد محاولتك ذلك ^_^
اقتباس:
المشاركة الأصلية كتبت بواسطة Eye Code
بداية حدث تحميل الفورم...هل تقصد Form_load؟
نعم
اقتباس:
المشاركة الأصلية كتبت بواسطة Eye Code
هل النموذج=فورم؟
نعم
اقتباس:
المشاركة الأصلية كتبت بواسطة Eye Code
سؤال أخير...لماذا تظهر الصفحة الرابعة من هذا الموضوع مشدودة هكذا...
أعتقد تم حل المشكلة ^_^"
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
اقتباس:
المشاركة الأصلية كتبت بواسطة Eye Code
السلام عليكم...
وعليكم السلام ورحمة الله وبركاته
اقتباس:
المشاركة الأصلية كتبت بواسطة Eye Code
كيف أتحكم في شفافية فورم أو أداة؟
هل توجد لذلك خاصية أم أستعمل كود؟
نعم هو كود للقيام بذلك
كما اعتقد ايضا بوجود مكتبة تنفذ هذه العملية
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
اقتباس:
المشاركة الأصلية كتبت بواسطة Eye Code
لدينا أمر للنقر بالزر الأيمن وآخر للأيسر ولكن ما الأمر للنقر بعجلة الفأرة؟
لا أعلم ^_^
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
اقتباس:
شرحه يطول لكن بإختصار هي الأكواد العامة في الفورم والتي توضع خارج نطاق كود أداة معينة يعني لاتكون داخل حدث Form_Load أو Button1_Click كمثال
تقصد أنها خاصية Public؟
حاولت استعمالها وفشلت...
اقتباس:
ساسألك سؤال وأرجوا ان لاتفهمني خطأ ^^" هل تنفذ شرط الموضوع بإن تقوم بالبحث في النت قبل وضع إستفسارك لنا؟ لإن الموضوع ليس لتعليم البرمجة أو برنامج بذاته وإنما هو لإجابة الإستفسارات التي لم تجد إجابة لها بعد محاولتك ذلك ^_^
في كثير من الأسئلة...لكن هذه الأسئلة الأخيرة متعلقة بإجاباتك على أسئلة سابقة...
المشكلة أن أغلب الشروحات أجدها إنجليزية...والمفاهيم البرمجية صعية في الإنجليزية...أما العربية فمنها المدفوع ومنها غير الكفء ومنها ما لا يعطي الجواب النهائي...
اقتباس:
نعم هو كود للقيام بذلك كما اعتقد ايضا بوجود مكتبة تنفذ هذه العملية
مكتبة؟؟
هل الكود طويل لهذه الدرجة؟
أم تقصد أن هناك كود في المكتبة؟
أشكر تعاونك
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
السلام عليكم...
لدي سؤال:
* عندما أكتب هذا الكود:
[PHP]Private Sub Button1_MouseMove
Label1.Backcolour=Red
End Sub[/PHP]
سيصبح لون خلفية label1 حمراء دائما مالم يتم تغييرها...
أريد أن أستني من هذا الكود..أي عندما تمر الفأرة على Button1 تصبح خلفية label1 حمراء...وعندما يبتعد مؤشر الفأرة تعود كما كانت...
يمكن ذلك عن طريق وضع خاصية MouseMove للفورم كاملا ولكن هذا يزيد من حجم البرنامج...
جربت خاصية Else ولكنها خاصة استثناء متعلقة بقاعدة IF فقط...
ما هو الحل إذا؟
أيضا أرجو الرد على أسئلة المشاركة السابقة...
وهذه الأسئلة القديمة:
اقتباس:
*لدينا أمر للنقر بالزر الأيمن وآخر للأيسر ولكن ما الأمر للنقر بعجلة الفأرة؟
*كيف أتحكم في شفافية فورم أو أداة؟
*كيف يمكن أن أزيد أزرارا على الـControl Box كما يوجد في IDM؟
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
موضوع جميل ويقدم المساعدة
اتمنى للجميع التوفيق8wq4
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
كود استيراد ملفات النصوص لم يعمل...كل سطر فيه أكثر من خطأ...
أستعمل VB9 (2008)...
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
لجعل الفورم شفاف
ضع هذا الكود في الجينرال
اقتباس:
Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd As Long, ByValcrKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Boolean
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Const LWA_ALPHA = 2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
وضع هذا الكود في داخل حدث تحميل الفورم
اقتباس:
SetWindowLong hwnd, GWL_EXSTYLE, GetWindowLong(hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes hwnd, 0, 128, LWA_ALPHA
العدد 128 هو الذي يتحكم بمدى شفافية الفورم , يمكنك زيادته ونقصانه بمايناسبك ^^
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
اقتباس:
المشاركة الأصلية كتبت بواسطة Eye Code
كود استيراد ملفات النصوص لم يعمل...كل سطر فيه أكثر من خطأ...
أستعمل VB9 (2008)...
أنا استخدم VB6 كما أسلفت لك سابقاً ^^
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
شكرا جزيلا بخصوص الشفافية...
اقتباس:
أنا استخدم VB6 كما أسلفت لك سابقاً ^^
نعم...وصلتني المعلومة متأخرة...^^...
الكود سهل الفهم وقصير...خسارة...سأحاول إيجاد غيره...
شكرا لمساعدة
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
سؤال جديد:
خاصية GoTo لا تعمل عندي...أليست مهمتها العودة لسطر ما في الكود؟
عندما أكتب Goto 4 يخرج لي خطأ...
اقتباس:
label '4' Is not defined
أرجو حل هذه المشكلة...
أيضا ما الكود لتكرار عملية ما؟...
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
السلام عليكم ورحمة الله وبركاته ..
عندي سؤال محيرني ...
نزلت برنامج لتحميل الفيديو من اليوتيوب بصيغ مختلفة زي صيغة
الpsp ..
اسمه ( FreeYouTubeToiPodConverter) .. وحملت كم فيديو
وتم تحويلهم بنجاح لصيغة mp4
لكن لما نزلت الفيديو على جهازي psp في ملف الفيديو _ يطلع لي صورة ملف عليه استفهام ويكتب
( un Unsupported data) .. ايش الحل .. ايش اسوي ؟؟ ..
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
اقتباس:
المشاركة الأصلية كتبت بواسطة قلب جامح
السلام عليكم ورحمة الله وبركاته ..
عندي سؤال محيرني ...
نزلت برنامج لتحميل الفيديو من اليوتيوب بصيغ مختلفة زي صيغة
الpsp ..
اسمه ( FreeYouTubeToiPodConverter) .. وحملت كم فيديو
وتم تحويلهم بنجاح لصيغة mp4
لكن لما نزلت الفيديو على جهازي psp في ملف الفيديو _ يطلع لي صورة ملف عليه استفهام ويكتب
( un Unsupported data) .. ايش الحل .. ايش اسوي ؟؟ ..
الحقيقة أختي أن هذا ليس المكان الصحيح لسؤالك...اطرحي السؤال هنا:
[-● اطلب واسأل واستفسر ، وبإذن الله سنجيبك•9• ◘ يمنع عرض التوقيع ◘ ●-]–~إضافات جديدة~ نرجوا القراءه
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
شباب أنا عندي مشكلة
أنا أستخدم ويندوز 7
ولما ركبت الفيجول بيسك
إشتغل معاي
ولكن بعض الخصائص لا تعمل مثل :
خاصية right to left
لا أستطيع إختيار true فقط false
ممكن جواب
والله يجزاكم خير
بإنتظاركم
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
اقتباس:
المشاركة الأصلية كتبت بواسطة الرجل الطيب
شباب أنا عندي مشكلة
أنا أستخدم ويندوز 7
ولما ركبت الفيجول بيسك
إشتغل معاي
ولكن بعض الخصائص لا تعمل مثل :
خاصية right to left
لا أستطيع إختيار true فقط false
ممكن جواب
والله يجزاكم خير
بإنتظاركم
كانت نفس المشكلة لدي مع فيجول بيسك6 على ويندوز7...
لا أعرف السبب الحقيقة...
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
طيب
إيش الحل ؟
نغير الإصدار ولا نغير النظام ؟
طيب
لو ركبنا البرنامج الذي إسمه XP MODE
هل ينفع أم لا ؟
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
اقتباس:
المشاركة الأصلية كتبت بواسطة الرجل الطيب
طيب
إيش الحل ؟
نغير الإصدار ولا نغير النظام ؟
طيب
لو ركبنا البرنامج الذي إسمه XP MODE
هل ينفع أم لا ؟
الحقيقة لا أعرف...
لكن الحال الآن مع ويندوز XP طبيعي بدون مشاكل...
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
اقتباس:
المشاركة الأصلية كتبت بواسطة Eye Code
خاصية GoTo لا تعمل عندي...أليست مهمتها العودة لسطر ما في الكود؟
عندما أكتب Goto 4 يخرج لي خطأ...
الكود شغال معي تمام
جرب تغيير رقم 4 بكلمة بدل ارقام وإذا مازالت نفس المشكلة قم بتعريفه كمتغير String
ربما كان هذا حلا ^^"
اقتباس:
المشاركة الأصلية كتبت بواسطة Eye Code
أيضا ما الكود لتكرار عملية ما؟...
كود تكرار عملية لعدد معين من المرات هو
كود:
For wahdain = 1 To 10
MsgBox wahdain, vbInformation
Next wahdain
قم بتغيير الرقم 10 لعدد مرات التكرار التي تريد ^_^
أما لتكرار الكود إلى مالا نهاية
كود:
Do
DoEvents
MsgBox "WaHdAiN", vbInformation
loop
مابين Do و loop يتم تكراره إلى مالا نهاية
أما الدالة DoEvents ففائدتها تقليل تعليق (تهنيق) البرنامج اثناء فترة عمل التكرار
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
اقتباس:
الكود شغال معي تمام
جرب تغيير رقم 4 بكلمة بدل ارقام وإذا مازالت نفس المشكلة قم بتعريفه كمتغير String
ربما كان هذا حلا ^^"
أكتبها Four مثلا؟...جربت الآن ولم أفلح...
لم أفهم كيف أعرف السطر كـString؟
شكرا على كود التكرار...
لكن كيف يكرر حتى الحصول على ناتج معين ويتوقف؟...بدون تحديد عدد تكرار أو تركها مفتوحة...
س/
كيف أعطي أمر للبرنامج بأن يبحث داخل قاعدة بيانات في البرنامج (أداة DataGridView) عن نص معين ويأتيني باسم الخلية الخاوية لذلك النص؟
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
× مرحبــآ ×
مدري إذآ المكآن هنآ صح ولـآ لـأ ؟!
أنـآ أبغـآ برنـآمج " الـفوتــوشـوب " مـآأدري أي الإصـدآرآت أفـضل !!
المهم يكون ـ عربــي ـ !
أنتظركـمـ ..
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
اقتباس:
المشاركة الأصلية كتبت بواسطة ام برق
× مرحبــآ ×
مدري إذآ المكآن هنآ صح ولـآ لـأ ؟!
أنـآ أبغـآ برنـآمج " الـفوتــوشـوب " مـآأدري أي الإصـدآرآت أفـضل !!
المهم يكون ـ عربــي ـ !
أنتظركـمـ ..
للأسف المكان هنا:
[-● اطلب واسأل واستفسر ، وبإذن الله سنجيبك•9• ◘ يمنع عرض التوقيع ◘ ●-]–~إضافات جديدة~ نرجوا القراءه...
ولكن تفضلي:
حصرياً Photoshop CS4 Middle Eastern آخر اصدار فوتوشوب 11 برابط واحد سريع
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
Eye Code
شكرا لك لمتابعتك الدائمة للموضوع وردودك على الأعضاء :)
اقتباس:
المشاركة الأصلية كتبت بواسطة الرجل الطيب
طيب
إيش الحل ؟
نغير الإصدار ولا نغير النظام ؟
طيب
لو ركبنا البرنامج الذي إسمه XP MODE
هل ينفع أم لا ؟
أخي ان كنت مصرا على استخدام الإصدار السادس من فيجوال بيسك فقم بتغيير نظام التشغيل الى اكس بي، أما لو كنت متمسكا بنظام تشغيل ويندوز 7 وتريد استخدام فيجوال بيسك 6 فجرب أولا أن تقوم بتغيير خاصية ال compatibility الموجودة في ويندوز 7
وذلك بأن تضغطل كيك يمين على ايقونة تشغيل فيجوال بيسك 6 بعد تنصيبه على ويندوز 7 ثم اختار properties
بعدها اختر قائمة compatibility
ستجد مربع مكتوب بجانبه run thins program in compatibility mode for:
ضع عليها علامة صح واختر من القائمة الموجودة windows xp sp2 كما في الصورة:
http://www.howtogeek.com/wp-content/...ility-mode.png
ان لم تفلح الطريقة قم بتحميل برنامج virtual pc وقم بتنصيب ويندوز اكس بي عليه وبرنامج فيجوال بيسك 6 واعمل من خلاله
يمكنك تحميله مجانا من هنا:
http://www.microsoft.com/windows/virtual-pc/
اقتباس:
المشاركة الأصلية كتبت بواسطة المارد الأبيض
مشكور أخي icon-cab
عفوا أخي وشكرا لك
اقتباس:
المشاركة الأصلية كتبت بواسطة Eye Code
أكتبها Four مثلا؟...جربت الآن ولم أفلح...
لم أفهم كيف أعرف السطر كـString؟
شكرا على كود التكرار...
لكن كيف يكرر حتى الحصول على ناتج معين ويتوقف؟...بدون تحديد عدد تكرار أو تركها مفتوحة...
س/
كيف أعطي أمر للبرنامج بأن يبحث داخل قاعدة بيانات في البرنامج (أداة DataGridView) عن نص معين ويأتيني باسم الخلية الخاوية لذلك النص؟
هل قمت بكتابة label معين أولا حتى تستطيع العودة اليه باستخدام أمر Goto لأنك لم تذكر هذا الأمر؟
ثانيا ان كنت قد فعلت فربما يجب ألا يكون هذا ال label رقما فقط، بل تحتاج الى كتابة حروف أولا ثم رقم، هذا هو ما يقصده مازن بأن يكون اسم ال label من نوع string
طريقة كتابة ال label تكون بكتابة اسمه ثم وضع نقطتين فوق بعضهما (:)
مثال:
كود:
Start_Label:
<أسطر الكود الخاصة بك>
GoTo Start_Label
بالنسبة للتكرار يمكن ايقافه بوضع نص شرطي يكون ناتجه أمر GoTo أيضا
اي كما في المثال السابق الذي وضعته لك تكتب مثلا تحت <أسطر الكود الخاصة بك> الجملة الشرطية مثل مثلا:
If i = 5 Then
GoTo Exit_Label
وتضع ال label المسمى Exit_Label تحت سطر GoTo Start_Label الموجود في المثال السابق
هذه طريقة
وهي ليست طريقة مستحبة أبدا، بل ان استخدام أمر GoTo في حد ذاته غير مرغوب فيه، فهو يجعل الكود متشعب جدا يصعب متابعته، فأنت فيه تتقافز من سطر الى اخر بطريقة سيئة كافية جدا لأن تفقد تركيزك في حال حدوث خطأ ما وأردت أن تحاول اصلاحه بتتبع الكود
أمر GoTo هو من الأوامر القديمة جدا وكان يستخدم في الإصدارات الاولى في لغات البرمجة وهو من الأوامر التي يفضل دائما ألا تستخدم إلا في حالة الضرورة القصوى فقط
لكن يستعاض عنه بأوامر أخرى مثل For في حالة كان عدد التكرار معروفا أو بأوامر أخرى مثل While أو do while في حالة كان عدد التكرار غير معروف
والفرق بين While أو do while أن الأولى توضع للتأكد من شرط معين قبل البدئ في الأسطر التي سوف تتكرر بينما الأخرى نستخدمها اذا كنا نريد مثلا تنفيذ كود معين لمرة واحدة على الأقل قبل التأكد من الشرط الذي سيحدد هل سنقوم بعملية التكرار أم لا
مثال:
لو أردنا مثلا عمل برنامج يحسب مساحة المربع وبعد أن يقوم بحساب المساحة يقوم بسؤال المستخدم هل يريد ان يحسب مساحة مربع اخر ام لا
فإننا في هذه الحالة نريد تنفيذ كود حساب مساحة المربع مرة واحدة على الأقل قبل التأكد من المستخدم مما ان كان يريد القيام بذلك مرة أخرى ام لا، لذا في هذه الحالة نستخدم do while
مثال اخر:
لدينا متغير اسمه i وهذا المتغير قيمته غير معروفة وتتغير باستمرار ويجب علينا التأكد من قيمته دائما بعدد غير محدود من المرات، بل يجب علينا التأكد من قيمته قبل أن نبدأ باستخدامه أصلا بحيث لو كانت قيمته = -1 فإن البرنامج يقوم بالخروج
اما ان كانت قيمته غير ذلك فيجب علينا أن نقوم بطرح 1 منه مثلا
في هذه الحالة نحتاج الى استخدام while حتى نتأكد اساسا من قيمة -1 قبل ان نقوم بطرح الواحد منه
ما يدرينا ربما تكون قيمة i من الأصل = -1 وفي هذه الحالة لا نحتاج أصلا لأن نقوم بالطرح منه
لذا لا يصلح هنا استخدام do while لأننا لو استخدمناها سيقوم الكود بطرح واحد من قيمة i مرة على الأقل قبل التأكد من قيمة i، فلو كانت قيمة i من البداية = -1 فهذا يعني اننا سنطرح منها 1 مرة أخرة وستصبح قيمتها في هذه الحالة -2 وهو أمر لا يجب السماح به أصلا :)
أتمنى أن يكون شرحي واضحا فقد كتبته سريعا، ان لم يكن مفهوما أخبرني وسأحاول شرحها بطريقة أخرى ^_^
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
اقتباس:
المشاركة الأصلية كتبت بواسطة Eye Code
أعتذر لصآحب الموضوع ..
وأشكرك جدآ Eye Code على الرد + الرآبط ..
يعطيك العــآفيه =)
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
الســلآم عليكم جميعاً..
لي سؤال عن برنـامج أثري نوعاً للغات البرمجة..
البرنـامج اسمه : qbasic..
تحديداً بالـ loops..
ما هي " بشرح وافي ومبسط في آنٍ واحد " الصياغة المُدخلة لبرنامج لإخراج الناتج التالي :
1
2 2
3 3 3
4 4 4 4
5 5 5 5 5
على اعتبار أن دورة العملية من 1 إلي 5..تزداد إذا ازدادت الدورة بنفس النمط التسلسلي..
بدون فكرة كتابة الناتج على طريقة print.. وعلى اعتبار أن الرقم يدخل بواسطة المُستخدم ؟
وجزى الله كل خير من يساعدني.
أتوقف عند هذا القدر.
كلآود
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
أهلا بعودتك إسلامو , شكرا لردك ^_^
================================================== ============
اقتباس:
المشاركة الأصلية كتبت بواسطة ~ MissCloud ~
الســلآم عليكم جميعاً..
لي سؤال عن برنـامج أثري نوعاً للغات البرمجة..
البرنـامج اسمه : qbasic..
تحديداً بالـ loops..
ما هي " بشرح وافي ومبسط في آنٍ واحد " الصياغة المُدخلة لبرنامج لإخراج الناتج التالي :
1
2 2
3 3 3
4 4 4 4
5 5 5 5 5
على اعتبار أن دورة العملية من 1 إلي 5..تزداد إذا ازدادت الدورة بنفس النمط التسلسلي..
بدون فكرة كتابة الناتج على طريقة print.. وعلى اعتبار أن الرقم يدخل بواسطة المُستخدم ؟
وجزى الله كل خير من يساعدني.
أتوقف عند هذا القدر.
كلآود
وعليكم السلام ورحمة الله وبركاته
اقتباس:
بدون فكرة كتابة الناتج على طريقة print
لم أفهم هذه النقطة جيدا , كيف تريدي ان يخرج الناتج إذا؟ ^^"
على كل هذا هو كود العملية التي طلبتيها وإن شاء الله يكون واضح
كود:
Dim inside, outside ' تعريف متغيرات البرنامج
For outside = 1 To user_entry
For inside = 1 To outside
Print outside; ' الكتابة على نفس الخط
Next inside
Print 'خط جديد
Next outside
غيري user_entry إلى متغير إدخال المستخدم
أي نقطة ليست واضحة في الكود سأقوم بشرحها بإذن الله
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
اقتباس:
المشاركة الأصلية كتبت بواسطة WaHdAiN
أهلا بعودتك إسلامو , شكرا لردك ^_^
================================================== ============
وعليكم السلام ورحمة الله وبركاته
لم أفهم هذه النقطة جيدا , كيف تريدي ان يخرج الناتج إذا؟ ^^"
على كل هذا هو كود العملية التي طلبتيها وإن شاء الله يكون واضح
كود:
Dim inside, outside ' تعريف متغيرات البرنامج
For outside = 1 To user_entry
For inside = 1 To outside
Print outside; ' الكتابة على نفس الخط
Next inside
Print 'خط جديد
Next outside
غيري user_entry إلى متغير إدخال المستخدم
أي نقطة ليست واضحة في الكود سأقوم بشرحها بإذن الله
على ما أعتقد فى QBasic يمكت تعديل بسيط على الكود ليصبح هكذا:
كود:
Input "Enter a number: ",N
For outside = 1 To N
For inside = 1 To outside
Print outside;
Next inside
Print
Next outside
يمكن عمل تلك الحركة فى روبى بنفس فكرة التكرار و لكن أيضاً يمكن ذلك بسطرين (يعتبروا سطرا واحد)!
كود:
print "Enter a number: "
(1..gets.to_i).map{|i| puts "#{i} "*i}
هكذا هى اللغات الحديثة :D
-
رد: الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]
اقتباس:
سؤال جديد:
خاصية GoTo لا تعمل عندي...أليست مهمتها العودة لسطر ما في الكود؟
عندما أكتب Goto 4 يخرج لي خطأ...
اقتباس:
label '4' Is not defined
أرجو حل هذه المشكلة...
أيضا ما الكود لتكرار عملية ما؟
أهلاً حسام (: ..
بالنسبة للمشكلة الأولى .. فهذا مثال توضيحي باستخدام ال FORTRAN ..
كود:
A=5
B=3
IF(A.GT.B) GOTO 4
IF(B.GT.A) GOTO 5
4 SUM=A+B
5 SUM=A-B
طبعًا هنا ستكون قيمة SUM 8 لأنها تحقق الشرط ..
اقتباس:
label '4' Is not defined
أعتقد بأنك لم تضع الرقم 4 قبل السطر الذي تود الإنتقال إليه ..
اقتباس:
أيضا ما الكود لتكرار عملية ما؟
هو ال Loop وأعتقد أن أخي محمد قد أجابك على السؤال ..
اقتباس:
لذا لا يصلح هنا استخدام do while
أهلا محمد ..
هل تتحداني أن أستخدم ال DO WHILE في هذه الحالة ؟ icon04
برأيي .. يمكن استخدامها في هذه الحالة .. thumbsup-Icon
بالتوفيق ..