« اللهم اجعلنا ممن يورثون الجنان ويبشرون بروح وريحان ورب غير غضبان آمين »
 بوابة بدر اضغط للتحميل


العودة   منتديات بوابة بدر > منتديات البرامج - Programs Forum > تحميل احدث برامج 2017 , 2018


تحميل احدث برامج 2017 , 2018 تحميل احدث البرامج، تحميل برامج كمبيوتر 2017، برامج 2018، برامج 2018، برامج مجانية، تحميل برامج جديدة، برامج حديثة ، احدث برامج الجهاز , برامج عامة, برامج 2018, تحميل برامج 2017

مشروع برنامج راديو محطات قرآنية ومتصفح للجرائد المصرية - بوابة بدر 2016

مشروع برنامج راديو محطات قرآنية ومتصفح للجرائد المصرية تحميل,تنزيل,2013,2014,ماى ايجى,تحميل مباشر,عرب سيد,برابط مباشر,سريع,تورنت,عربي,معرب,مجانا,فاينال,انجليزي,فرنسي,اخر اصدار,برابط واحد,صاروخ مشروع برنامج راديو محطات قرآنية ومتصفح للجرائد المصرية مشروع برنامج راديو محطات قرآنية لكبار القراء

إنشاء موضوع جديد إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
قديم 01-09-2016, 07:45 AM   رقم المشاركة : [1]
Eng_Badr
Administrator
الصورة الرمزية Eng_Badr
 
افتراضي مشروع برنامج راديو محطات قرآنية ومتصفح للجرائد المصرية - بوابة بدر 2016 Eng_Badr غير متواجد حالياً

مشروع برنامج راديو محطات قرآنية ومتصفح للجرائد المصرية
تحميل,تنزيل,2013,2014,ماى ايجى,تحميل مباشر,عرب سيد,برابط مباشر,سريع,تورنت,عربي,معرب,مجانا,فاينال,انجليزي,فر نسي,اخر اصدار,برابط واحد,صاروخ
مشروع برنامج راديو محطات قرآنية ومتصفح للجرائد المصرية
<div>مشروع برنامج راديو محطات قرآنية لكبار القراء ومتصفح للجرائد المصرية بسيط جدا ببرنامج Visual Basic 6
يتكون المشروعمن عدد 2 فورم
نضع على الفورم رقم 1
عدد 2 ليست بوكس
عدد 1 ميدا بلير
عدد3 ازرار play
pause
stop
news

الفورم الثانى نضعليه عدد 2 ليست بوكس
عدد1 Webbrowser
عدد 3 ازرار
back
forward
referch
stop
Go
textbox

Cod: copy and past
كود الفورم الأول

Form1
Option Explicit


' Note that this example does not scale controls within
' other controls. For example, if you place a TextBox
' inside a PictureBox, the TextBox's position and
' dimensions are relative to the PictureBox not the
' form. This example does not handle this case.
'
' It also does not adjust fonts, stretch pictures, etc.


Private Type ControlPositionType
Left As Single
Top As Single
Width As Single
Height As Single
FontSize As Single
End Type


Private m_ControlPositions() As ControlPositionType
Private m_FormWid As Single
Private m_FormHgt As Single
' Save the form's and controls' dimensions.
Private Sub SaveSizes()
Dim i As Integer
Dim ctl As Control


' Save the controls' positions and sizes.
ReDim m_ControlPositions(1 To Controls.Count)
i = 1
For Each ctl In Controls
With m_ControlPositions(i)
If TypeOf ctl Is line Then
.Left = ctl.X1
.Top = ctl.Y1
.Width = ctl.X2 - ctl.X1
.Height = ctl.Y2 - ctl.Y1
Else
.Left = ctl.Left
.Top = ctl.Top
.Width = ctl.Width
.Height = ctl.Height
On Error Resume Next
.FontSize = ctl.Font.Size
On Error GoTo 0
End If
End With
i = i + 1
Next ctl


' Save the form's size.
m_FormWid = ScaleWidth
m_FormHgt = ScaleHeight
End Sub
Private Sub Add_Click(Index As Integer)

List1.AddItem (txtSearch.Text)
End Sub
Private Sub Command2_Click()
Form3.Show
End Sub

Private Sub Delete_Click(Index As Integer)
List1.RemoveItem (List1.ListIndex)
End Sub

Private Sub Exit_Click()
End
End Sub

Private Sub Form_Load()
SaveSizes
Dim ff As Long
Dim line As String
ff = FreeFile
Open App.Path & "\Data1.txt" For Input As #ff
Do While Not EOF(ff)
Line Input #ff, line

'make sure we're not adding a blank line

If Len(line) Then List1.AddItem line

Loop
Close #ff


Open App.Path & "\Data2.txt" For Input As #ff

Do While Not EOF(ff)
Line Input #ff, line

'make sure we're not adding a blank line

If Len(line) Then List2.AddItem line

Loop
Close #ff

End Sub
' Arrange the controls for the new size.
Private Sub ResizeControls()
Dim i As Integer
Dim ctl As Control
Dim x_scale As Single
Dim y_scale As Single


' Don't bother if we are minimized.
If WindowState = vbMinimized Then Exit Sub


' Get the form's current scale factors.
x_scale = ScaleWidth / m_FormWid
y_scale = ScaleHeight / m_FormHgt


' Position the controls.
i = 1
For Each ctl In Controls
With m_ControlPositions(i)
If TypeOf ctl Is line Then
ctl.X1 = x_scale * .Left
ctl.Y1 = y_scale * .Top
ctl.X2 = ctl.X1 + x_scale * .Width
ctl.Y2 = ctl.Y1 + y_scale * .Height
Else
ctl.Left = x_scale * .Left
ctl.Top = y_scale * .Top
ctl.Width = x_scale * .Width
If Not (TypeOf ctl Is ComboBox) Then
' Cannot change height of ComboBoxes.
ctl.Height = y_scale * .Height
End If
On Error Resume Next
ctl.Font.Size = y_scale * .FontSize
On Error GoTo 0
End If
End With
i = i + 1
Next ctl
End Sub


Private Sub Form_Resize()
ResizeControls
End Sub

Private Sub Command1_Click()
Form2.Show
Form1.Hide
End Sub


Private Sub List1_Click()
List2.ListIndex = List1.ListIndex
WindowsMediaPlayer1.URL = List2
WindowsMediaPlayer1.Controls.Play
End Sub

Private Sub Mute_Click()
WindowsMediaPlayer1.settings.Mute = True
End Sub

Private Sub Pause_Click()
If Pause.Caption = "Pause" Then
Pause.Caption = "Resume"
WindowsMediaPlayer1.Controls.Pause
Else
Pause.Caption = "Pause"
WindowsMediaPlayer1.Controls.Play
End If


End Sub

Private Sub Play_Click()
WindowsMediaPlayer1.Controls.Play
End Sub
Private Sub txtSearch_Change()
Dim i As Integer

For i = 0 To List1.ListCount - 1
If InStr(List1.List(i), txtSearch.Text) > 0 Then
MsgBox "Item #" & (i + 1) & " is what you searched for"
'Select the found entry
List1.ListIndex = i
End If
Next
End Sub

Private Sub Stop_Click()
WindowsMediaPlayer1.Controls.Stop
End Sub


كود الفورم الثانى

Form2

Option Explicit


' Note that this example does not scale controls within
' other controls. For example, if you place a TextBox
' inside a PictureBox, the TextBox's position and
' dimensions are relative to the PictureBox not the
' form. This example does not handle this case.
'
' It also does not adjust fonts, stretch pictures, etc.


Private Type ControlPositionType
Left As Single
Top As Single
Width As Single
Height As Single
FontSize As Single
End Type


Private m_ControlPositions() As ControlPositionType
Private m_FormWid As Single
Private m_FormHgt As Single
' Save the form's and controls' dimensions.
Private Sub SaveSizes()
Dim i As Integer
Dim ctl As Control


' Save the controls' positions and sizes.
ReDim m_ControlPositions(1 To Controls.Count)
i = 1
For Each ctl In Controls
With m_ControlPositions(i)
If TypeOf ctl Is line Then
.Left = ctl.X1
.Top = ctl.Y1
.Width = ctl.X2 - ctl.X1
.Height = ctl.Y2 - ctl.Y1
Else
.Left = ctl.Left
.Top = ctl.Top
.Width = ctl.Width
.Height = ctl.Height
On Error Resume Next
.FontSize = ctl.Font.Size
On Error GoTo 0
End If
End With
i = i + 1
Next ctl


' Save the form's size.
m_FormWid = ScaleWidth
m_FormHgt = ScaleHeight
End Sub

Private Sub Back_Click()
WebBrowser1.GoBack
End Sub

Private Sub Form_Load()
Dim ff As Long
Dim line As String
ff = FreeFile
Open App.Path & "\Data3.txt" For Input As #ff
Do While Not EOF(ff)
Line Input #ff, line

'make sure we're not adding a blank line

If Len(line) Then List1.AddItem line

Loop
Close #ff


Open App.Path & "\Data4.txt" For Input As #ff

Do While Not EOF(ff)
Line Input #ff, line

'make sure we're not adding a blank line

If Len(line) Then List2.AddItem line

Loop
Close #ff
SaveSizes
End Sub
' Arrange the controls for the new size.
Private Sub ResizeControls()
Dim i As Integer
Dim ctl As Control
Dim x_scale As Single
Dim y_scale As Single


' Don't bother if we are minimized.
If WindowState = vbMinimized Then Exit Sub


' Get the form's current scale factors.
x_scale = ScaleWidth / m_FormWid
y_scale = ScaleHeight / m_FormHgt


' Position the controls.
i = 1
For Each ctl In Controls
With m_ControlPositions(i)
If TypeOf ctl Is line Then
ctl.X1 = x_scale * .Left
ctl.Y1 = y_scale * .Top
ctl.X2 = ctl.X1 + x_scale * .Width
ctl.Y2 = ctl.Y1 + y_scale * .Height
Else
ctl.Left = x_scale * .Left
ctl.Top = y_scale * .Top
ctl.Width = x_scale * .Width
If Not (TypeOf ctl Is ComboBox) Then
' Cannot change height of ComboBoxes.
ctl.Height = y_scale * .Height
End If
On Error Resume Next
ctl.Font.Size = y_scale * .FontSize
On Error GoTo 0
End If
End With
i = i + 1
Next ctl
End Sub


Private Sub Form_Resize()
ResizeControls
End Sub

Private Sub Forward_Click()
WebBrowser1.GoForward
End Sub

Private Sub Go_Click()
WebBrowser1.Navigate (Text1.Text)
End Sub

Private Sub Home_Click()
WebBrowser1.GoHome
End Sub

Private Sub List1_Click()
List2.ListIndex = List1.ListIndex
WebBrowser1.Navigate (List2)
WebBrowser1.Silent = True

End Sub

Private Sub *******_Click()
WebBrowser1.*******
End Sub

مشروع برنامج راديو محطات قرآنية ومتصفح للجرائد المصرية
تحميل,تنزيل,2013,2014,ماى ايجى,تحميل مباشر,عرب سيد,برابط مباشر,سريع,تورنت,عربي,معرب,مجانا,فاينال,انجليزي,فر نسي,اخر اصدار,برابط واحد,صاروخ
مشروع برنامج راديو محطات قرآنية ومتصفح للجرائد المصرية



lav,u fvkhl[ vh]d, lp'hj rvNkdm ,ljwtp gg[vhz] hglwvdm - f,hfm f]v 2016




    رد مع اقتباس
إنشاء موضوع جديد إضافة رد

مواقع النشر (المفضلة)



جديد مواضيع قسم تحميل احدث برامج 2017 , 2018
الموضوع الحالى: مشروع برنامج راديو محطات قرآنية ومتصفح للجرائد المصرية - بوابة بدر 2016    -||-    القسم الخاص بالموضوع: تحميل احدث برامج 2017 , 2018    -||-    المصدر: منتديات بوابة بدر    -||-    بوابة بدر
أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة


المواضيع المتشابهه لموضوع: مشروع برنامج راديو محطات قرآنية ومتصفح للجرائد المصرية - بوابة بدر 2016
الموضوع كاتب الموضوع المنتدى مشاركات آخر مشاركة
برنامج راديو ( الكعبة ) 2016 الاستماع ( 149 مصحف كاملا - 133 اذاعة للقراء ) (319 kb) - بوابة بدر 2016 Eng_Badr تحميل احدث برامج 2017 , 2018 0 30-04-2016 09:41 AM
برنامج راديو ( الكعبة ) 2016 الاستماع ( 149 مصحف كاملا - 133 اذاعة للقراء ) (319 kb) - بوابة بدر 2016 Eng_Badr تحميل احدث برامج 2017 , 2018 0 06-01-2016 07:02 AM
للهواتف والآيباد زوال إسرائيل حتمية قرآنية كتاب الكتروني رائع - بوابة بدر 2016 Eng_Badr تحميل احدث برامج 2017 , 2018 0 19-10-2015 04:17 AM
برنامج راديو ( الكعبة ) 2016 الاستماع ( 149 مصحف كاملا - 133 اذاعة للقراء ) (319 kb) - بوابة بدر 2016 Eng_Badr تحميل احدث برامج 2017 , 2018 0 28-09-2015 05:57 PM
برنامج راديو لتشغيل جميع محطات الإذاعة حول العالم في ثواني وبكل وضوح , بوابة بدر 2014,2015 Eng_Badr تحميل احدث برامج 2017 , 2018 0 10-05-2015 05:25 AM


الساعة الآن 04:03 AM

بوابة، بدر، بوابة بدر، منتديات، منتديات بوابة بدر، بدر جيت


بوابة بدر ، منتديات بوابة بدر ، برامج 2018 ، برامج شات 2018 ، برامج بورتابل 2018
BadrGate | About Us | Google Adsense Privacy Policy | DMCA | Disclaimer | Contact Us
جميع المشاركات لا تعبر عن وجهة نظر الاداره وإنما تعبر عن وجهة نظر صاحبها فقط وللإبلاغ عن اى إنتهاك للحقوق يُرجى الاتصال بنا
يمنع وضع اى مشاركات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة واذا وجد اى ضرر نرجوا الاتصال بنا لعمل اللازم

منتديات بوابة بدر

RSS RSS 2.0 XML MAP html  PHP  info gz vbmaps maptag sitemap  sitemap2  tags htmlMAP

بوابة بدر ا منتديات بوابة بدر ا 2016 تحميل برامج ا برامج 2016 ا برامج شات 2016 ا برامج بورتابل 2016 ا بدر سوفت ا بدر للبرامج ا Badr4Soft ا Download New Full Software
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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77