كود يتشغيل ملف صوتي mp3

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

بالنسبة للطلب الاول :

كان يجب عليك البحث أولاً في المنتدى لأن هذه المرة المليار لتكرار نفس السؤال

و أيضاً الاخ HnHn قد و ضع أمثلة عن نفس الموضوع في موضوعه شارك بكل مالديك تقريباً لا أتذكر اسم الموضوع بالضبط و هو أيضاً موجود في موضوع "دليلك الاسرع"

و لكني أرفقت لك مثالاً آخر ضع بجانبه أي ملف بصيغة MP3 و سميه Test.

و أما الطلب الثاني فهو غير مفهوم و لا يجب أن تسأل عن مواضيع متفرقة في نفس الموضوع

و لكن يجب أن تسأل عن كل استفسار في موضوع منفصل .

ArabTeam_Example.rar

راجع الموضوع: /index.php?showtopic=117248

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

اقتباس

كيفية عرص نصور من مستن(New Text Document)د علي الفورم

إذا كنت تقصد كيف تعرض ملف نصب داخل برنامجك

فهذا هو الكود

Private Sub Command1_Click()
Dim path
Dim file
path = App.path
If Right(path, 1) <> "\" Then path = path + "\"
file = path + "help.txt"
'************************************
Dim f
f = FreeFile
Open file For Input As f
Text1.Text = Input(LOF(f), f)
Close f
End Sub

وهذا مرفق ...

NOUR_txt.rar

تمام بارك الله فيكم يا شباب

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

الكود الدي اريدة هو عرض كل سطر في المستند علي حدي

اي اكتب كل مااريد في التكست

والاخراج يكون عشوائي م التكست واحد

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

السلام عليكم

إذا كنت تقصد إختيار سطرعشوائي من المستند

أضف كومند وليبل وضع مستند نصي سميه الملاحظات في مسار البرنامج

وهذا كود

Option Explicit
Dim Tips As New Collection
Const TIP_FILE = "الملاحظات.TXT"
Dim CurrentTip As Long

Public Sub DisplayCurrentTip()
	If Tips.Count > 0 Then
		Label1.Caption = Tips.Item(CurrentTip)
	End If
End Sub

Private Sub DoNextTip()
	CurrentTip = Int((Tips.Count * Rnd) + 1)
	Form1.DisplayCurrentTip
End Sub

Function LoadTips(sFile As String) As Boolean
	Dim NextTip As String
	Dim InFile As Integer
	InFile = FreeFile
	If sFile = "" Then
		LoadTips = False
		Exit Function
	End If
	If Dir(sFile) = "" Then
		LoadTips = False
		Exit Function
	End If
	Open sFile For Input As InFile
	While Not EOF(InFile)
   Line Input #InFile, NextTip
		Tips.Add NextTip
	Wend
	Close InFile
	DoNextTip
	LoadTips = True
End Function

Private Sub Command1_Click()
	DoNextTip
End Sub

Private Sub Form_Load()
	Dim ShowAtStartup As Long
	ShowAtStartup = GetSetting(App.EXEName, "Options", "Show Tips at Startup", 1)
	If ShowAtStartup = 0 Then
		Unload Me
		Exit Sub
	End If
	Randomize
	If LoadTips(App.Path & "\" & TIP_FILE) = False Then
		Label1.Caption = " " & TIP_FILE & " لم استطع ايجاده " & vbCrLf & vbCrLf & _
				"ضع مستند اسمه" & TIP_FILE & "استخدم مستند نصي وضع كل ملاحظة في سطر" & _
				"وضعه في مسار البرنامج "
	End If
End Sub

السلام عليكم

إذا كنت تقصد إختيار سطرعشوائي من المستند

أضف كومند وليبل وضع مستند نصي سميه الملاحظات في مسار البرنامج

وهذا كود

Option Explicit
Dim Tips As New Collection
Const TIP_FILE = "الملاحظات.TXT"
Dim CurrentTip As Long

Public Sub DisplayCurrentTip()
	If Tips.Count > 0 Then
		Label1.Caption = Tips.Item(CurrentTip)
	End If
End Sub

Private Sub DoNextTip()
	CurrentTip = Int((Tips.Count * Rnd) + 1)
	Form1.DisplayCurrentTip
End Sub

Function LoadTips(sFile As String) As Boolean
	Dim NextTip As String
	Dim InFile As Integer
	InFile = FreeFile
	If sFile = "" Then
		LoadTips = False
		Exit Function
	End If
	If Dir(sFile) = "" Then
		LoadTips = False
		Exit Function
	End If
	Open sFile For Input As InFile
	While Not EOF(InFile)
   Line Input #InFile, NextTip
		Tips.Add NextTip
	Wend
	Close InFile
	DoNextTip
	LoadTips = True
End Function

Private Sub Command1_Click()
	DoNextTip
End Sub

Private Sub Form_Load()
	Dim ShowAtStartup As Long
	ShowAtStartup = GetSetting(App.EXEName, "Options", "Show Tips at Startup", 1)
	If ShowAtStartup = 0 Then
		Unload Me
		Exit Sub
	End If
	Randomize
	If LoadTips(App.Path & "\" & TIP_FILE) = False Then
		Label1.Caption = " " & TIP_FILE & " لم استطع ايجاده " & vbCrLf & vbCrLf & _
				"ضع مستند اسمه" & TIP_FILE & "استخدم مستند نصي وضع كل ملاحظة في سطر" & _
				"وضعه في مسار البرنامج "
	End If
End Sub

NOUR_NOTE.rar

الأخ الفاضل ...

راجع موضوع أكواد * أكواد: /index.php?showtopic=66229 إعداد الأخ الفاضل proegy وأبحث عن العنوان كود لعرض جملة في كل مرة تشغل فيها برنامجك (نصيحة اليوم) ستجد إن شاء الله ما يساعدك فى إنجاز ما تريد

شكراً

بارك الله فيك Mokadem

وجزاك الله خير

واشكر كل من ساعدني