أكبر مكتبة للأكواد , أطلب ما تريد

الدوال المثلثية :

Private Sub Command1_Click()

Dim A As Integer, X As Integer

A = Sin(90) ' دالة جيب الزاوية

Debug.Print "جيب الزاوية=", A

A = Cos(90) ' x دالة الجيب تمام للزاوية

Debug.Print "جيب تمام الزاوية=", A

A = Tan(90) ' X دالة ظل الزاوية

Debug.Print "ظل الزاوية=", A

'A = ATAN(45) ' X مقلوب دالة ظل الزاوية

'Debug.Print A

End Sub

أخ علاء فى حاجة أسمها Code Tags

Private Sub Command1_Click()
Dim A As Integer, X As Integer
A = Sin(90) ' دالة جيب الزاوية
Debug.Print "جيب الزاوية=", A
A = Cos(90) ' x دالة الجيب تمام للزاوية
Debug.Print "جيب تمام الزاوية=", A
A = Tan(90) ' X دالة ظل الزاوية
Debug.Print "ظل الزاوية=", A
'A = ATAN(45) ' X مقلوب دالة ظل الزاوية
'Debug.Print A

End Sub

معلش نسيت , كنت مستعجل نوعاً ما بسبب ظروف خاصة

أشكرك على المرور

شكرا ليك فعلا برنامج قيم جدا وفي نفس الوقت سهل ومش معقد شكرا ليك

فؤاد سعد كتب:

شكرا ليك فعلا برنامج قيم جدا وفي نفس الوقت سهل ومش معقد شكرا ليك

برنامج ايه :rolleyes: , أنت قرأت الموضوع :blink: ؟

أخ Ala2 VB هذا الموضوع لا يجوز إبداء أكواد منوعة فيه ،لأنه في موضوع مشابه من قبل أغلقه المشرفون بعد ما كثرة المواضيع المختلفه فيه

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

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

بالتوفيق . .

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

كهذه الورقه

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

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

وطويلة كمان

بالنسبة للاتصال بالإنترنت , شوف الكود التالي :

Private Sub Form_Load()
	Dim sDuName As String
	sDuName = InputBox("ÃÏÎá ÇÓã ÇáÇÊÕÇá")
	If DisconnectDUN(sDuName) = True Then
		MsgBox "Êã ÞØÚ ÇáÇÊÕÇá"
	Else
		MsgBox "áÇ íæÌÏ ÇÊÕÇá ÈåÐÇ ÇáÇÓã"
	End If
	End
End Sub
Function DisconnectDUN(DUNName As String) As Boolean
	On Error GoTo errhandler
	AppActivate "Connected to " & DUNName
	SendKeys "c"
	DisconnectDUN = True
errhandler:
End Function

معرفة السيريال نمبر لأحد الأقراص :

Private Const MAX_FILENAME_LEN = 256
Private Declare Function GetVolumeInformation& Lib "kernel32" Alias "GetVolumeInformationA" _
   (ByVal lpRootPathName As String, ByVal pVolumeNameBuffer As String, _
	ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, _
	lpMaximumComponentLength As Long, lpFileSystemFlags As Long, _
	ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long)

----------------------
ÇáßæÏ


'  Returns a volume's serial number
'
Public Function GetSerialNumber(sDrive As String) As Long
   Dim ser As Long
   Dim s As String * MAX_FILENAME_LEN
   Dim s2 As String * MAX_FILENAME_LEN
   Dim i As Long
   Dim j As Long

   Call GetVolumeInformation(sDrive + ":\" & Chr$(0), s, MAX_FILENAME_LEN, ser, i, j, s2, MAX_FILENAME_LEN)
   GetSerialNumber = ser
End Function

انشاء زر أمر ومربع نص وقت التشغيل :

Private WithEvents btnObj As CommandButton
Private WithEvents txtObj As TextBox


Private Sub btnObj_Click()
On Error Resume Next
Set txtObj = Controls.Add("VB.textbox", "txtObj")
With txtObj
.Visible = True
.RightToleft = True
.Alignment = 2
.Width = 2000
.Text = "?????? ?????"
.Top = 2000
.left = 1000
End With
End Sub

Private Sub Form_Load()
Set btnObj = Controls.Add("VB.CommandButton", "btnObj")
With btnObj
.Visible = True
.Width = 2000
.Caption = "Click"
.Top = 1000
.left = 1000
End With
End Sub

أسنعمل دالة GetPixel للحصول على لون مكان معين , أستعمل الطريقة دى للحصول على اللون من منتصف كل مربع و أن كان أسود أذن فالعلامة سوداء.

ملحوظة أفتح موضوع خاص بسؤالك لأن مع أحترامى للأخ علاء و غيره لا أحب هذه المواضيع و لا أشجعها.

Ala2 VB كتب:

بالنسبة للاتصال بالإنترنت , شوف الكود التالي :

Private Sub Form_Load()
	Dim sDuName As String
	sDuName = InputBox("ÃÏÎá ÇÓã ÇáÇÊÕÇá")
	If DisconnectDUN(sDuName) = True Then
		MsgBox "Êã ÞØÚ ÇáÇÊÕÇá"
	Else
		MsgBox "áÇ íæÌÏ ÇÊÕÇá ÈåÐÇ ÇáÇÓã"
	End If
	End
End Sub
Function DisconnectDUN(DUNName As String) As Boolean
	On Error GoTo errhandler
	AppActivate "Connected to " & DUNName
	SendKeys "c"
	DisconnectDUN = True
errhandler:
End Function

مشكووور أولاً للرد السريع بس يطلعلي في بداية الفورم يطلب مني ادخال بيانات ما هي ؟؟؟؟؟؟

ماذا يجب ان ادخل ؟؟؟؟؟؟؟؟؟؟

اشكر لك تفاعلك معي استاذ

msayed2004

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

السلام عليكم ورحمة الله وبركاته ...

أخي العزيز ..

أستخدم vb6 :

1. أريد كود لتنفيذ عملية على مربع نص كل دقيقتين مثلاً . (يعني أن أغير قيمة مربع النص بناء على دالة ولكن بعد دقيقتين ) .

2. هل أستطيع استخدام كريستال ريبورت10 مع vb6 ؟ وكيف أنادي التقرير إذا كان بدون قيمة مطوبة أو مع إرسال قيمة للتقرير ؟

أخوك : أبوإبراهيم.

السلام عليكم و رحمة الله و بركاته أرغب في الحصول على كود Voice command أي أن أأمر ألأبليكاشن بصوتي بفتح ملف أو الانتقال إلى قائمة و شكرا

اخوي هدا ايميلي رسل لي مكتبة الاكواد لاني اخوي باموت من القهر لو مااحصل اكواد احترافية في الفيجوال بيسك السادس وخطرة زي اللي عندك ارجوك للمرة المليون ترسلهم على ايميلي وهدا ايميلي ezn_216@hotmail.com

أخي العزيز

أريد كود يقوم بإستكشاف موقع ويب و يقوم بحفظه و تحميل كامل الموقع لجهازك لتصفحه فيما بعد Offline