معرفة الوقت الذي مضى على تشغيل الويندوز (الوقت هنا بالملي ثانية)
*كود برمجي*


--------------------------------------------------------------------------------


Private Declare Function GetTickCount Lib "Kernel32" () As Long

Private Sub Command1_Click()
MsgBox Format(GetTickCount, "0")
End Sub


--------------------------------------------------------------------------------


كود لمعرفة كلمات السر على هيئة نجوم *****
*كود برمجي*


--------------------------------------------------------------------------------


Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


Private Sub Timer1_Timer()
Const EM_SETPASSWORDCHAR = &HCC
Dim coord As POINTAPI
'نقوم هنا بمعرفة احداثى الفأرة
s = GetCursorPos(coord)
x = coord.x
y = coord.y
'المكتوب بها كلمة المرور(textbox)نقوم هنا بمعرفة مقبض آداة التحرير
h = WindowFromPoint(x, y)
'Char 0 الى (PasswordChar)فى هذه الخطوة نقوم بتعديل خاصية ال
Dim NewChar As Integer
NewChar = CLng(0)
retval = SendMessage(h, EM_SETPASSWORDCHAR, ByVal NewChar, 0)
End Sub


--------------------------------------------------------------------------------


كود لاضافة بيانات حقل معين في قاعدة البيانات الى عنصر list
*كود برمجي*


--------------------------------------------------------------------------------


Private Sub Form_Activate()
Dim a As String
Do While Not Data1.Recordset.EOF = True
a = Data1.Recordset.Fields("name").Value
' هنا تمثل اسم الحقل في قاعدة البيانات name كلمة
List1.AddItem a
Data1.Recordset.MoveNext
Loop
End Sub

كود يقوم بحماية برنامجك حيث يعمل عدد من المرات (تحددها بنفسك) ثم يتوقف نهائيا عن العمل ، وهو يشبه طريقة عمل الـ(register) في البرامج المشهورة
*كود برمجي*


--------------------------------------------------------------------------------


Private Sub Form_Load()
retvalue = GetSetting("A", "0", "Runcount")
GD$ = Val(retvalue) + 1
SaveSetting "A", "0", "RunCount", GD$
If GD$ > 3 Then ' الرقم (3) يحدد عدد مرات التشغيل
MsgBox "انتهت مدة تشغيل البرنامج .. عليك بشراء النسخة الاصلية"
Unload FRM '
End If
End Sub


--------------------------------------------------------------------------------


يقوم بتحويل شكل التكست واليبل الى 3d
*كود برمجي*


--------------------------------------------------------------------------------


'Set form's AutoRedraw property toTrue
Sub PaintControl3D(frm As Form, Ctl As Control)
' This Sub draws lines around controls to make them 3d

' darkgrey, upper - horizontal
frm.Line (Ctl.Left, Ctl.Top - 15)-(Ctl.Left + _
Ctl.Width, Ctl.Top - 15), &H808080, BF
' darkgrey, left - vertical
frm.Line (Ctl.Left - 15, Ctl.Top)-(Ctl.Left - 15, _
Ctl.Top + Ctl.Height), &H808080, BF
' white, right - vertical
frm.Line (Ctl.Left + Ctl.Width, Ctl.Top)- _
(Ctl.Left + Ctl.Width, Ctl.Top + Ctl.Height), &HFFFFFF, BF
' white, lower - horizontal
frm.Line (Ctl.Left, Ctl.Top + Ctl.Height)- _
(Ctl.Left + Ctl.Width, Ctl.Top + Ctl.Height), &HFFFFFF, BF

End Sub

Sub PaintForm3D(frm As Form)
' This Sub draws lines around the Form to make it 3d

' white, upper - horizontal
frm.Line (0, 0)-(frm.ScaleWidth, 0), &HFFFFFF, BF
' white, left - vertical
frm.Line (0, 0)-(0, frm.ScaleHeight), &HFFFFFF, BF
' darkgrey, right - vertical
frm.Line (frm.ScaleWidth - 15, 0)-(frm.ScaleWidth - 15, _
frm.Height), &H808080, BF
' darkgrey, lower - horizontal
frm.Line (0, frm.ScaleHeight - 15)-(frm.ScaleWidth, _
frm.ScaleHeight - 15), &H808080, BF

End Sub

'DEMO USAGE
'Add 1 label and 1 textbox


Private Sub Form_Load()

Me.AutoRedraw = True
PaintForm3D Me
PaintControl3D Me, Label1 'Label1 is name of label
PaintControl3D Me, Text1 'Text1 is name of textbox

End Sub
ملاحظة في البداية لبد من انشاء تكست وليبل


--------------------------------------------------------------------------------

البحث عن أكواد فيجول بيزك لتصميم آلة حاسبة

البحث عن كود فيجول خاص بإدخال الأرقم لتصميم آلة حاسبة وكود آخر لكتابة علامة (=)

شكرا أخي الكريم على الأكواد الرائعة
جعلها الله في ميزان حسناتك

مشكور اخي بارك الله فيك

مشكور أخوي على الأكواد المفيدة جعلها الله في ميزان حسناتك

مشكووووووور اخي الكريم ع هذه الاكواد المهمه

مشكور أخي عبد الرحمن وارجو مساعدتي
في كود ربط قاعدة بيانات SQL2005 على المخدم مع برنامج مصمم على واجه VB2005
وجزاك الله عنا ألف خير علما انني استفيد كثيرا من معلوماتك التي تضعها في الموقع الرائع ولكنني اطمع بالمزيد

شكـــراً جزيلاً
احتاج الى كود يمكنني من اغلاق الفورم بعد فترة زمنية معينه 30 ثانية مثلاً

أخوانى الكرامك أرسل إليكم تصميم لآلة حاسبة من تصميمى وأرسل إليكم الأكواد مع الشرح بعد قليل ولكن أطلب منكم الدعاء لى أن يزيح اللى عنى كربى وعلى من يريد أى توضيح فى أكوادها أن يسأل وإن شاء الله تجدون ما يرضيكم

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

شكرا أعزائي على المجهود ........

مشكور على المجهود وجعله الله في ميزان حسناتك

مشكور اخوي وعساك عالقوه انشالله

شكرا جزيلا أخي عبد الرحمن جدا جدا جدا جدا جدا جدا

مشكور اخوي والله يعطيك الف عافية

مشكور وبارك الله فيك
بس ياريت لو تكون بدل الألة الحاسبة مثلا منظومة محاسبة خفيفة

بارك الله فى فيك اخى الكريم على هذا المجهود الرائع
وارجو لك المزيد من التقدم ودوام الصحة زالعافية

شكرا لجميع الاخوة الذين قاموا بالمشاركة في وضع البرامج
التي هي ان دلت على شعورهم النبيل بمد يد المعونة لباقي اخوانهم
تحياتي

بار الله فيكم
ابحث عن احد يعرف اكواد خاصة بالتعامل مع التليفون عن طريق كارت الفاكس اذ عندك فكرة لنتواصل
انا باعرف اعمل اتصال
لاكن لا اعرف ان اتعامل مع الاستقبال
هل لديك فكرة


sesayed@hotmail.com