الموضوع الرسمي لإستفسارات المبرمجين في لغات البرمجة [يرجى المساهمة من جميع المبرمجين]

[؛ّ نديمك ؛ّ]

سؤال جديد:
كيف أرسل بريد إلكتروني عن طريق نقرة زر؟
كما يكون مثلا في كلمة راسلني في المواقع أو اتصل بنا...

[AMYM]

سؤال جديد

الان كنت ببرمج برنامج الساعه المؤقته ... ابرمجه بطريقه مبتداه المهم ...

لكن هناك شئ خاطئ ... فالبرنامج لا يعمل


لذا هذه هي الاكواد ... اخبروني اين الخطأ

هذا برمجه الــ Timer

 Label3.Text = Label3.Text + 1
        If Label3.Text = "60" Then
            Label2.Text = Label2.Text + 1
            Label3.Text = "00"
        Else
            If Label2.Text = "60" Then
                Label1.Text = Label1.Text + 1
                Label2.Text = "00"
            End If
        End If

وهذا برمجه زر Start

 Timer1.Interval = 1000

وهذا زر Stop
ويوجد خطا بالبرمجه الخاصه به

Timer1.Interval = 0

[أميرهـ بكلمتي]

السلام عليكم


حابة أسأل عن برنامج antivir


فجأة حمل نفسه في الجهاز ويبلك لي معضم المواقع ويعلق الجهاز

ولما بحذفه بالطريقة العادية ما ألقاه كبرنامج مضاف في اللست ..

؟؟؟ جهازي يعلق 10 مرات في النص ساعة من جد طفشت

[؛ّ نديمك ؛ّ]

السلام عليكم


حابة أسأل عن برنامج antivir


فجأة حمل نفسه في الجهاز ويبلك لي معضم المواقع ويعلق الجهاز

ولما بحذفه بالطريقة العادية ما ألقاه كبرنامج مضاف في اللست ..

؟؟؟ جهازي يعلق 10 مرات في النص ساعة من جد طفشت

المعذرة لا يمكننا الإجابة على هذه الأسئلة فهناك موضوع مخصص لذلك يمكنك زيارته من هنا:
http://msoms-anime.net/showthread.php?t=115083
راجعي قوانين الموضوع

[؛ّ نديمك ؛ّ]

سؤال جديد

الان كنت ببرمج برنامج الساعه المؤقته ... ابرمجه بطريقه مبتداه المهم ...

لكن هناك شئ خاطئ ... فالبرنامج لا يعمل


لذا هذه هي الاكواد ... اخبروني اين الخطأ

هذا برمجه الــ Timer

 Label3.Text = Label3.Text + 1
        If Label3.Text = "60" Then
            Label2.Text = Label2.Text + 1
            Label3.Text = "00"
        Else
            If Label2.Text = "60" Then
                Label1.Text = Label1.Text + 1
                Label2.Text = "00"
            End If
        End If

وهذا برمجه زر Start

 Timer1.Interval = 1000

وهذا زر Stop
ويوجد خطا بالبرمجه الخاصه به

Timer1.Interval = 0

أهلا عزيزي أحمد موساااا...إإحم مسعد ...
سأتكلم فيما أعلم فقط:
هذا الجزء من الكود الخاص بالتايمر:

If Label2.Text = "60" Then
                Label1.Text = Label1.Text + 1
                Label2.Text = "00"

فيفترض جعلها بعد End If كاستثناء آخر له End If خاصة به...
لتصبح هكذا:

Label3.Text = Label3.Text + 1
        If Label3.Text = "60" Then
            Label2.Text = Label2.Text + 1
            Label3.Text = "00"
                            End If
If Label2.Text = "60" Then
                 Label1.Text = Label1.Text + 1
                 Label2.Text = "00"
        End If

..
أيضا تلميح....
لا تكتب else في سطر و If في سطر آخر فهي قاعدة مستقلة تضطر معها لكتابة End If أخرى كما فعلت واكتب Else If وأكمل بعدها ولن تضطر لكتابة End If لأكثر من مرة....

أما باقي الأكواد فلا أعرف عنها شيئا....

رحم الله أخونا إسلام لو يزور هذا الموضوع...أو حتى أخونا مازن...كان الله في عونهم...

[النمر تامر]

السلام عليكم
أخوي مشكلتي أني حملت برنامج Kaspersky Internet Security 2010
وبعد ماسويت له تنصيب وتعريب أعدت تشغيل الكمبيوتر فأردت الدخول على البرنامج ولكن للأسف لم أستطع
فكيف أتمكن من الدخول إلى البرنامج واذا كان فيه مشكلة فما الحل ؟ وجزاك الله خيرا

[؛ّ نديمك ؛ّ]

السلام عليكم
أخوي مشكلتي أني حملت برنامج Kaspersky Internet Security 2010
وبعد ماسويت له تنصيب وتعريب أعدت تشغيل الكمبيوتر فأردت الدخول على البرنامج ولكن للأسف لم أستطع
فكيف أتمكن من الدخول إلى البرنامج واذا كان فيه مشكلة فما الحل ؟ وجزاك الله خيرا

أخي العزيز هناك موضوع مخصص لهذه الأسئلة..لعل التشابه في عناوين الموضوع هو السبب...
هذا هو رابط الموضوع:
http://msoms-anime.net/showthread.php?t=121044
حل مشكلتك سأضعه هناك بإذن الله...

[-zakaria.-]

...السلام عليكم

متى ستكمل دورة البرمجة مسيرتها !!

والسلام عليكم

[؛ّ نديمك ؛ّ]

غير معقول يا جماعة أين الرد على الأسئلة...والمساعدة

إذا لم تم فتح هذا الموضوع....

[WaHdAiN]

المعذرة ياشباب ^_^

أنا حاليا لا أستطيع تلبية الإستفسارات بشكل عام بسبب الإمتحانات بالكاد أتمكن من الرد على المواضيع

أما الأخ إسلام فهو يعمل على موضوع حاليا ليكون المشاركة رقم 5555 له XDDD

لذا لن يستطيع الرد على أي موضوع قبل هذا

سأحاول الرد فيما بعد إن أمكنني ^^"

المعذرة

[؛ّ نديمك ؛ّ]

هههههه...مبارك عليك يا إسلام...
ما أجمل كلمة الاعتذار...تشعر بالراحة...

شكرا لك مازن

[WaHdAiN]

...السلام عليكم

متى ستكمل دورة البرمجة مسيرتها !!

والسلام عليكم

جاري حاليا إعداد الدرس السادس بواسطة الأخ المشرف حسامز

سينتهي قريبا بإذن الله (في حدود إسبوعين على الأكثر)

[؛ّ نديمك ؛ّ]

سؤال جديد:كيف أنشئ مجلدا جديدا بنقرة button في البرنامج؟
وبالطبع أنا من يحدد اسم المجلد

[؛ّ نديمك ؛ّ]

سؤال جديد:
كيف يمكنني نسخ أوامر معينة لأداة أخرى؟
مثلا لدي Button1 و Button2...
يحتوي Button1_click على عدد من الأوامر...
وأريد لـ Button2_click أن يكون لها نفس أوامر Button1_click لكن دون نسخ...

وذلك كي لا يزيد حجم البرنامج...وأيضا عند الحاجة لتعديل الكود يكون لدي مرجع واحد فقط...أيضا لأتمكن من استخدام نفس الأمر في عدد من الأدوات...

اللغة:Visual Basic 9 (2008) Professional

[؛ّ نديمك ؛ّ]

أسئلة جديدة:
* كيف يمكنني إعطاء الأمر لزر بتصغير الفورم إلى جوار الساعة؟
* كيف يمكنني التحكم بأوامر أزرار الإغلاق والتصغير والتكبير (Control Box) الإفتراضية؟
* كيف يمكنني التحكم بأوامر رمز البرنامج المصغر بجوار الساعة؟ (النقر باليمين-باليسار-النقر المزدوج-إلخ)

[WaHdAiN]

سؤال جديد:كيف أنشئ مجلدا جديدا بنقرة button في البرنامج؟
وبالطبع أنا من يحدد اسم المجلد

طبعا كل ماسأضعه لك من أكواد ستعمل على فيجوال بيسك 6 بسلاسة لأني لم أستخدم 8 بعد ^^

كود إنشاء مجلد
MkDir "c:\WaHdAiN"

طبعا إسم المجلد سيكون WaHdAiN

وتقدر تغيره بما تشاء ^^

[WaHdAiN]

سؤال جديد:
كيف يمكنني نسخ أوامر معينة لأداة أخرى؟
مثلا لدي 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

وستجد انه ينفذ جميع الأوامر في كلا الزرين وهي إظهار رسالة ثم تصغير النموذج أو الفورم ويمكن وضع الأوامر التي تريد ^^

[WaHdAiN]

* كيف يمكنني إعطاء الأمر لزر بتصغير الفورم إلى جوار الساعة؟

ضع هذ الكود في موديول
[PHP]Option Explicit

Declare Function shell_notifyicon Lib "shell32.dll" Alias _
"Shell_NotifyA" (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
h As Long
szTip As String * MAX_TOOLTIP
End Type[/PHP]وفي الجنرال للنموذج ضع هذا الكود
[PHP]Dim nfData As NOTIFYICONDATA[/PHP]وكود وضع الأيقونة بجوار الساعة ضعه في بداية حدث تحميل الفورم
[PHP]With nfData

.hwind = Form1.hWnd

.uID = Form1.

.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP

.uCallbackMessage = WM_MOUSEMOVE

.h = Form1..Handle

.szTip = "أكتب هنا إسم برنامجك والذي سيظهر كتلميح عند وقوف الماوس على الأيقونة بجوار الساعة" & Chr$(0)
.cbsize = Len(nfData)
End With

[/PHP]وكود الإستدعاء ووضع الأيقونة بجوار الساعة هو
[PHP]Call shell_notifyicon(NIM_ADD, nfData)[/PHP]ضعه في المكان الذي يعجبك والأفضل ان يكون في حدث تحميل الفورم ^^

وأيضا كود إزالة الأيقونة من جوار الساعة
[PHP]Call shell_notifyicon(NIM_DELETE, nfData)[/PHP]

[WaHdAiN]

* كيف يمكنني التحكم بأوامر رمز البرنامج المصغر بجوار الساعة؟ (النقر باليمين-باليسار-النقر المزدوج-إلخ)

هذا الكود مشروحاً ^_^

[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 بإسم القائمة التي تريد ظهورها عند النقر بالزر الأيمن (يجب ان تكون قد عملت هذه القائمة مسبقا)

[WaHdAiN]

* كيف يمكنني التحكم بأوامر أزرار الإغلاق والتصغير والتكبير (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, nfData)
Cancel = True
End Sub[/PHP]