تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] لو سمحتو ايريد تصميم برنامج
#1
لو سمحتو ايريد تصميم برنامج
يقوم باستعراض الملفات تحتوي على عناوين مواقع من على الحاسوب ثم يقوم بفتحها عن طريق الويب HuhHuh
أريد كل امر ان ينفذ بعد 60 ثانية
ارجو الاهتمام
بليزززززززززززززز!Sad
الرد
تم الشكر بواسطة:
#2
سلام عليكم
تم نقل الموضوع لقسم الأسئلة Blush

الطريقة سهلة لكن المهم هو ما شكل المحتويات التي يحتويها الملف ( كمثال ) ؟؟

سأقوم بعمل المثال Blush
وسأفترض أن ملف الـ txt يحتوي على روابط ( كل رابط موضوع بسطر منفرد )

سلام عليكم

تم عمل المثال بحمد الله

مع العلم ان هناك ملف اسمه (Url.txt) مخزن به روابط المواقع وموقعه بجانب الملف التنفيذي ( exe. )
تحميل المثال :

اللَّهُمَّ أَنْتَ رَبِّي ، لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ ، وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ ، أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ ، أَبوءُ لَكَ بِنِعْمتِكَ علَيَ ، وأَبُوءُ بذَنْبي فَاغْفِرْ لي ، فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ .
الرد
تم الشكر بواسطة: sooriaty03 , ali.alfoly , Easy4ever
#3
تحياتي لكـ دمتـ بودSmile
الرد
تم الشكر بواسطة: Omar Mekkawy
#4
السلام عليكم
اسف علي التاخير والله مشغول جدا
بعد اذن اخي شرح الكود

كود :
Public Class Form1

    '- الاعلان عن متغير نصي ليحمل النص الموجود في الملف
    Dim fileContents As String
    '- الاعلان عن مصفوفة نصية باستخدام علامتي () لتخزين النص  بعد تقسيمه عن طريق الاسطر
    Dim Lines() As String

    '- متغير رقمي لاستخدامه في عد الاسطر
    Dim u As Integer = -1

    '- عند تحميل الفورم
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '- جلب النص من الملف
        '- Application.StartupPath  -  تعني مسار المجلد الذي تم فتح البرنامج منه
        fileContents = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\Url.txt")

        '-  تقوم بتقسيم النص الي مصفوفة عن طرق حرف معين Split الدالة
        '- وهي تعني سطر vbNewLine هنا سيتم تقسيم النص عن طريق الدالة
        Lines = Split(fileContents, vbNewLine) ' وضع كل سطر بالملف النصي بعنصر بالمصفوفة


        '- وضع جميع العناصر الموجودة في المصفوفة في اليست بوكس
        ListBox1.Items.AddRange(Lines)

        '- تشغيل التايمر
        '- الخاص بالتايمر Tick وعند تشغيله سيتم تنفيذ اي كود يتم كتابته في الحدث
        Timer1.Enabled = True


    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        On Error Resume Next

        '- نقص العدد الموجود في اليبل ب 1
        Label2.Text = Label2.Text - 1

        '- عند انتهاء العد والوصول الي الصفر
        If Label2.Text = 0 Then

            '- زيادة العداد بواحد
            u = u + 1

            '-  تقوم بفتح اي شي برنامج ملف نصي او موقع اي رابط نعطيها اياه راح تفتحه Process.Start الدالة
            '- هنا اعطيناها رابط الموقع من المصفوفة عن طريق رقمه في العداد
            Process.Start(Lines(u))

            '- تغير العدد ليبدء في العد من جديد
            Label2.Text = 60

        End If

    End Sub
End Class
الرد
تم الشكر بواسطة: Easy4ever


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] عاوز اعمل برنامج يفعل البرنامج بتاعى MOSTAFA.KAMEL 7 0 11-02-18, 09:10 PM
آخر رد: MOSTAFA.KAMEL
  [VB.NET] طلب بخصوص برنامج المبيعات محمد اسماعيل 3 0 08-02-18, 02:30 AM
آخر رد: محمد اسماعيل
Information [سؤال] اريد عمل برنامج يقرأ النص من سطر معين ويفرز المعطيات ويعالجها NABIL40W 1 0 06-02-18, 09:05 PM
آخر رد: NABIL40W
  [VB.NET] استفسار عن انشاء برنامج تجريبي محمد اسماعيل 3 0 04-02-18, 11:27 PM
آخر رد: Basil Abdallah
  [VB.NET] كيفية عمل برنامج صغير لرفع صورة من جهازي وتحويلها الي رابط e-coder 3 0 04-02-18, 01:23 AM
آخر رد: Basil Abdallah
  تصميم فاتورة المبيعات باستخدام داتا قرايد فيو nooralcown 1 0 01-02-18, 03:37 PM
آخر رد: محمود صالح
  رسالة خطاء اثناء تحزيم البرنامج باستخدام برنامج Setup Factory نور الدين 2014 2 0 30-01-18, 01:48 AM
آخر رد: نور الدين 2014
  [Acces2010] برنامج يقوم بنقل الجداول من قاعدة الى اخرى ونقل البيانات من جدول لاخر وانشاء الحقول مصمم الدوادمي 4 1 29-01-18, 01:18 PM
آخر رد: مصمم الدوادمي
  [سؤال] فكرة عمل برنامج تنبيهات abdulla2 2 378 29-01-18, 04:10 AM
آخر رد: nada2
Thumbs Up [C#.NET] من فضلكم انا عاوز اعمل برنامج تنفيذ الاوامر الصوتيه والتحدث بالفيجوال بيسك ahmed kamal 2 114 28-01-18, 05:17 PM
آخر رد: IBRA939

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم