Programming for Everybody: May 2018

Learn ABC for Kids


برنامج صغير لتعليم الاطفال ABC باللغة الانجليزية وهو برنامج صغير مجاني يستطيع من خلاله الطفل الضغط على الصورة  لتظهر امامه  الكلمة والصوت مكتوبة ومن خلالها يتمكن الطفل من تكرار الكلمة أكثر من مرة حتى يصل الى مستوى الاتقان .


برنامج عواصم ودول اختبر معلوماتك في ثلاث دقائق

اختبر معلوماتك ببرنامج صغير وشاركنا النتيجة رابط البرنامج أسفل الأسئلة 

1 - مـــاهي عاصمة مالي؟

  • باماكو
  • داكار
  • بانجول
  • كوناكري
2- مـــاهي عاصمة موريتانيا ؟

  • فيكتوريا
  • أنجامينا
  • فري تاون
  • نواكشوط
3 - مـــاهي عاصمة كينيا ؟

  • بانجول
  • دودوما
  • ليبرفيبل
  • نيروبي
4- مـــاهي عاصمة  الكاميرون ؟

  • كينشاسا
  • نياما
  • ياوندي
  • بورتونوفو

5 - مـــاهي عاصمة  غانا ؟

  • بيساو
  • مالابو
  • أكرا
  • بانجول
6- مـــاهي عاصمة  مصر ؟

  • الاسكندرية
  • القاهرة
  • أسوان
  • أسيوط
7 - مـــاهي عاصمة  المغرب ؟

  • الرباط
  • طرابلس
  • دار السلام
  • الخرطوم
8 - مـــاهي عاصمة  أثيوبيا ؟

  • أديس أبابا
  • نواكشوط
  • هاراري
  • لوساكا
9- مـــاهي عاصمة باكستان ؟
  • عشق آباد
  • إسلام آباد
  • كراتشي
  • لاهور
10- مـــاهي عاصمة أفغانستان ؟
  • طشقند
  • كابول
  • قندهار
  • رانجون
11- مـــاهي عاصمة البحرين ؟
  • الرباط
  • عمان
  • الدوحة
  • المنامة
12- مـــاهي عاصمة لبنان ؟
  • طرابلس
  • بيروت
  • دمشق
  • صنعاء
13- مـــاهي عاصمة  جزر المالديق ؟

  • ماليه
  • استانا
  • مسقط 
  • هانوي
14- مـــاهي عاصمة  ماليزيا ؟

  • كوالالمبور
  • هانوي
  • كولمبو
  • ديلي
15- مـــاهي عاصمة الهند ؟

  • نيودلهي
  • دكا
  • طوكيو
  • مانيلا
16- مـــاهي عاصمة  بلجيكا ؟

  • برلين
  • بروكسل
  • باريس
  • دبلن
17-  ما هي عاصمة بلغاريا ؟

  • صوفيا
  • أثينا
  • بودابست
  • براج
18- مـــاهي عاصمة  هولندا ؟

  • أمستردام
  • ريغا
  • برشتينا
  • زغرب
19- مـــاهي عاصمة رومانيا ؟

  • بوخارست
  • برن
  • بلجراد
  • ديلي
20- مـــاهي عاصمة  كندا ؟

  • ذا فالي
  • أوتاوا
  • مونتريال
  • تورنتو

21- مـــاهي عاصمة  أمريكا ؟

  • واشنطن
  • نيويورك
  • نيوجيرسي
  • تكساس
22- مـــاهي عاصمة  الإمارات ؟
  • أبوظبي
  • المنامة
  • بغداد
  • دبي

23- مـــاهي عاصمة  الارجنتين ؟

  • روما
  • جورج تاون
  • قرطبة
  • بيونس ايرس
24- مـــاهي عاصمة  بيرو ؟

  • ليما
  • كيتو
  • بوجوتا
  • سانتيوجو
25-  ماهي عاصمة كولومبيا ؟
  • باستير
  • كاراكاس
  • بوجوتا
  • كيتو



How to avoid adding duplicate items in a ComboBox in VB ?

Dim conn9 As New OleDbConnection
            conn9.ConnectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\store1.mdb;Jet OLEDB:Database Password=123456")
            conn9.Open()
            Dim strsql9 As String
            strsql9 = "select * from types where code1='" + TextBox6.Text + "' "
            Dim cmd9 As New OleDbCommand(strsql9, conn9)
            myreader9 = cmd9.ExecuteReader
            ComboBox7.Items.Clear()
          

            While myreader9.Read()
                ComboBox7.Items.Add(myreader9("n1"))
                             Dim i, j As Int32
                For i = 0 To Me.ComboBox7.Items.Count - 2 Step 1
                    For j = Me.ComboBox7.Items.Count - 1 To i + 1 Step -1
                        If Me.ComboBox7.Items(i).ToString = Me.ComboBox7.Items(j).ToString Then
                            Me.ComboBox7.Items.RemoveAt(j)

                        End If
                    Next
                Next

                Dim i1, j1 As Int32
                For i1 = 0 To Me.ComboBox8.Items.Count - 2 Step 1
                    For j1 = Me.ComboBox8.Items.Count - 1 To i1 + 1 Step -1
                        If Me.ComboBox8.Items(i1).ToString = Me.ComboBox8.Items(j1).ToString Then
                            Me.ComboBox8.Items.RemoveAt(j1)

                        End If
                    Next
                Next
            End While

        Catch


        End Try