[asmarsou]

(14-06-22, 12:51 AM)محمد مسافر كتب : الاخوة الاعزاء جميعاً :

السوال الاول :كيف يمكن ارداج ملف صوتي من خلال البوتون كماهو مرفق لكم في المرفق التجريبي ومن خلالها اضغط على التشغيل والايقاف من نفس البوتون .
السوال الثاني : ماهو كود لحساب التاريخ مثلاً نحن اليوم بتاريخ 13 يونيو واريد احسب كم المده المتبقيه لتاريخ 21 نوفمبر حتى الساعه 1 ظهراً كايام كم وكساعات وكدقائق كماهي الفكره في الصوره المرفقه .

او على الاقل يحسب لي الايام من التاريخ الذي نحن فيه .


شكراً للجميع

اخي الكريم
اضف لمثالك المرفق اداة مؤقت على ان يكون مفعل و ذو فاصل زمني 1000
اداة نص ليبل سمها  lbltime
قم بتحميل الملف الصوتي الذي سيشغل عند الظغط على الزر و اضفه للريسورس في المشروع على ان يكون بصيغة موجة صوتية wav و اعطه اسم 2
ثم ازرع الكود التالى في صفحة الاكواد

PHP كود :

Public Class Form1
    Private blnSwitch As Boolean = False
    Public Shared Function GetDateSpanText(fromDate As DateTime, Optional toDate As DateTime = Nothing) As String
        Try
            Dim years As Integer = 0, months As Integer = 0, days As Integer = 0, hours As Integer = 0, minuts As Integer = 0, sec As Integer = 0
            If toDate = Nothing Then toDate = DateTime.Now

            Do Until toDate.AddYears(-1) < fromDate
                years += 1
                toDate = toDate.AddYears(-1)
            Loop

            Do Until toDate.AddMonths(-1) < fromDate
                months += 1
                toDate = toDate.AddMonths(-1)
            Loop

            Do Until toDate.AddDays(-1) < fromDate
                days += 1
                toDate = toDate.AddDays(-1)
            Loop


            Do Until toDate.AddHours(-1) < fromDate
                hours += 1
                toDate = toDate.AddHours(-1)
            Loop
            Do Until toDate.AddMinutes(-1) < fromDate
                minuts += 1
                toDate = toDate.AddMinutes(-1)
            Loop

            Do Until toDate.AddSeconds(-1) < fromDate
                sec += 1
                toDate = toDate.AddSeconds(-1)
            Loop


            Return String.Format("{0} Years {1} Months {2} Days {3} Houres {4} Minutes {5} Seconds", years, months, days, hours, minuts, sec)
        Catch ex As Exception
            Return "Error"
        End Try
    End Function


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If blnSwitch Then
            My.Computer.Audio.Stop()
            blnSwitch = False
        Else
            My.Computer.Audio.Play(My.Resources._2, AudioPlayMode.BackgroundLoop)
            blnSwitch = True
        End If
    End Sub


    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        lbltime.Text = GetDateSpanText(Now, "21/11/2022")
    End Sub
End Class 


تنويه : اعتمد في ذلك على موضوع سابق كان قد طرحه الاستاذ  [b]سعود بارك الله له في علمه و عمله و طيب محياه[/b]
في الموضوع التالي
http://vb4arb.com/vb/thread-40554.html