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

والله الهادي والموفق الى سواء السبيل

وكما تعودنا يتم غلق المضوضوع لحين الانتهاء باذن الله

تعلم إنشاء قواعد البيانات في فجوال بيسك دوت نت بالفيديو (http://www.kutub.info/library/download.php?filename=01221107_938.zip&cid=75&password=799268c408953a1ecbfeeb75a6a057b0)

تعلم إنشاء تقارير Crystall reports في VB.Net بالفيديو (http://www.kutub.info/library/download.php?filename=01221107_939.zip&cid=75&password=799268c408953a1ecbfeeb75a6a057b0)

شرح تصميم Time out (http://www.kutub.info/library/download.php?filename=07241207_1050.wmv&cid=75&password=799268c408953a1ecbfeeb75a6a057b0)

الدرس الخامس والخاص بكيفية التعامل مع SqlExceptions للتغلب على جميع المشاكل التي تحدث في حالة الاتصال بقواعد البيانات (http://www.kutub.info/library/download.php?filename=08241207_1051.zip&cid=75&password=799268c408953a1ecbfeeb75a6a057b0)

الدرس الثالث لمنتج ADO.NET والذي يحتوي على شرح عملي Coding لما سبق وان تناولناه في الدرس الثاني حيث يتم شرح كيفية عمل اتصال بكلا من SQL Server وايضا Access وهذا الدرس يعتبر نقطة الانطلاق في التعامل مع قواعد البيانات (http://www.kutub.info/library/download.php?filename=05241207_1049.zip&cid=75&password=799268c408953a1ecbfeeb75a6a057b0)

كيفية اجراء الاتصال بقاعدة البيانات وماهية الفئات Classes المستخدمة لعمل هذا الاتصال (http://www.kutub.info/library/download.php?filename=08291107_984.zip&cid=75&password=799268c408953a1ecbfeeb75a6a057b0)

فيديو يشرح كيفية تحزيم البرامج بالفيديو في فجوال بيسك دوت نت. (http://www.kutub.info/library/download.php?filename=01221107_940.zip&cid=75&password=799268c408953a1ecbfeeb75a6a057b0)

صنع برنامج عارض صور في vb2005. (http://www.kutub.info/library/download.php?filename=02290909_4473.pdf&cid=19&password=799268c408953a1ecbfeeb75a6a057b0)

هذه المذكرة تلخيص للترم الثانى للصف الثالث الاعدادى (http://www.kutub.info/library/download.php?filename=02310709_4049.doc&cid=19&password=799268c408953a1ecbfeeb75a6a057b0)

هذا توضيح لمهام قائمة الأدوات في الفيجول بيسك Microsoft Visual Basic


http://www.ar-tr.com/vb/uploaded/13_1161284506.gif

كود مشغل mp3 , wav , avi , asf , mdi ,wmv

لتشغيل ملفات الصوت بشكل بسيط ، يمكن كتابة هذين السطرين
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
mciSendString("open C:\Hadeia.mp3 type mpegvideo alias thissong", 0, 0, 0)
mciSendString("play thissong", 0, 0, 0)
End Sub


لتشغيل ملفات الصوت بشكل اكثر تحكم اضف هذا الكلاس BasicMciPlayer الى مشروعك
واكتب هذا الكود لشغيل الصوت


Static Mp3Player As New BasicMciPlayer
Mp3Player.Play("C:\Hadeia.mp3", False)


كلاس BasicMciPlayer

Public Class BasicMciPlayer
' لتشغيل ملفات MP3 , WAV , MID , WMA , ASF , AVI ,
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
Private Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Integer, ByVal lpstrBuffer As String, ByVal uLength As Integer) As Integer

Public Event MediaOpened(ByVal sender As System.Object, ByVal e As System.EventArgs)
Public Event MediaClosed(ByVal sender As System.Object, ByVal e As System.EventArgs)

Private Shared ObjectCount As Integer = 0
Private retVal As Integer = 0
Private returnData As String = Space(128)
Private errorString As String = Space(128)
Private errorSuccess As Boolean
'
Sub New()
ObjectCount = ObjectCount + 1
mFileAlias = "SND" & Hex(Now.Ticks) & Hex(ObjectCount)
End Sub

Sub New(ByVal pFileName As String)
Me.New()
Me.FileName = pFileName
End Sub


Private mFileAlias As String
ReadOnly Property FileAlias() As String
Get
Return mFileAlias
End Get
End Property

Private mFileName As String
Property FileName() As String
Get
Return mFileName
End Get
Set(ByVal value As String)
Me.Stop()
Me.close()
mFileName = value
End Set
End Property

Private mLength As Long = 0
Public ReadOnly Property Length() As Long
Get
Return mLength
End Get
End Property

Public Property Position() As Long
Get
retVal = mciSendString("status " & Me.FileAlias & " position", returnData, 128, 0)
Return Val(returnData)
End Get
Set(ByVal value As Long)
If Me.IsPlaying() Then
retVal = mciSendString("play " & Me.FileAlias & " from " & value.ToString, 0, 0, 0)
Else
retVal = mciSendString("seek " & Me.FileAlias & " to " & value.ToString, 0, 0, 0)
End If
End Set
End Property


Public ReadOnly Property IsPlaying() As Boolean
Get
retVal = mciSendString("status " & Me.FileAlias & " mode", returnData, 128, 0)
Return returnData.StartsWith("playing")
End Get
End Property


Private mVolume As Byte = 100
Public Property volume() As Byte
Get
Return mVolume
End Get
Set(ByVal value As Byte)
If value > 100 Then
value = 100
End If
mVolume = value

Dim vol As Integer = (Me.volume * 10)
retVal = mciSendString("setaudio " & Me.FileAlias & " volume to " & vol.ToString, 0, 0, 0)

End Set
End Property

Private mIsOpen As Boolean = False
Sub open(ByVal sFileName As String)
Me.FileName = sFileName
Me.open()
End Sub

Public ScreenHandel As Int32 = 0

Sub open()
Me.close()
If ScreenHandel <= 0 Then
retVal = mciSendString("open """ & Me.FileName & """ type mpegvideo alias " & Me.FileAlias, 0, 0, 0)
Else
retVal = mciSendString("open """ & Me.FileName & """ type mpegvideo alias " & Me.FileAlias & " parent " & ScreenHandel.ToString & " style " & "child" & " ", 0, 0, 0)
End If

retVal = mciSendString("set " & Me.FileAlias & " time format ms", 0, 0, 0)

'Get the length of the currently opened song in milli-seconds.
retVal = mciSendString("status " & Me.FileAlias & " length", returnData, 128, 0)
mLength = Val(returnData)
mIsOpen = True
Me.volume = Me.volume
RaiseEvent MediaOpened(Me, New System.EventArgs)
End Sub

Sub Play(Optional ByVal repate As Boolean = False)
If repate = True Then
Me.Play("repeat")
Else
Play("")
End If
End Sub


Sub Play(ByVal pFileName As String, ByVal pRepate As Boolean)
Me.FileName = pFileName
Me.Play(pRepate)
End Sub

Sub Play(ByVal pCommand As String)
Dim Cmd As String = "play " & Me.FileAlias & " " & pCommand
If mIsOpen = False Then
Me.close()
Me.open()
End If
retVal = mciSendString(Cmd, 0, 0, 0)
End Sub


Sub Pause()
retVal = mciSendString("pause " & Me.FileAlias, 0, 0, 0)
End Sub


Sub [resume]()
retVal = mciSendString("resume " & Me.FileAlias, 0, 0, 0)
End Sub

Sub [Stop]()
retVal = mciSendString("stop " & Me.FileAlias, 0, 0, 0)
End Sub


Sub close()
Me.Stop()
retVal = mciSendString("close " & Me.FileAlias, 0, 0, 0)
'----------------------------------
If mIsOpen = True Then
RaiseEvent MediaClosed(Me, New System.EventArgs)
End If
'----------------------------------
mIsOpen = False
mLength = 0
'--------------------------------------

End Sub

Protected Overrides Sub Finalize()
Me.close()
MyBase.Finalize()
End Sub
End Class

تحميل برنامج فيجوال بيسك دوت نت رابط مباشر

Visual Basic 2005 Express Edition (http://download.microsoft.com/download/B/D/0/BD0A8523-75FE-40A9-990B-C9D63F50AE63/VWD.iso)

تصميم برنامج لتشغيل إذاعاتك المفضلة ملف وورد شرح بالصور
(http://www.mediafire.com/?mgdlkjwgdog)

تصميم برنامج تشغيل القرآن الكريم ملف وورد شرح بالصور
(http://www.mediafire.com/?ztqnqejzhmy)

إنشاء قاعدة بيانات باستخدام Microsoft Access وربطها مع الفيجوال بيسك
(http://www.mediafire.com/?ndowiwmweml)