صنـع برنامج فلود

صبـآحكم / مسـآئكم خيرٍ ،،
شخبآركم يآ آحلى آعضآءُ وآحلى زوآرٍ

آليـوم حبيت آقـدم لـكم { شـرح } صنـع برنآمج فلـود بخصآئص جمـيله بأسهل الطرقً بالصـوٍرِ { طبعـآ بالفيجوٍآلُ }

طبعآ نـزلت الشرٌح بعد مآطلبه مني الأخ ẤβĐứŁŁдĦ فـي موضوعُي السـآبقُ

نبـدأ على بـركة الله

آوٍل شـي نفتـحُ standard ExE

وبعـدها نضـعُ علـيهآ متطلبـآت الفـلودُ !!

آوٍلآإ تضـع TXTBoX

صـوٍره توٍضيـحيهٌ

ثـم تضـع تـحتـهُ Command1
وٍ آيضـآ Command2

صـوٍره توَضـيحيهٌ

وبعـدهـآ نضـع آدآت التــآيمرٍ ’‘

وآلأن جـآءُ وقـت الأكوآددُ

نضـع هذا الكـوٍد فـي الفـوٍرمَ

كود:

Private Sub Form_Load()
Timer1.Enabled = False
End Sub

صـوٍره لتوَضيحَ

وبعـدهآ نضـع هذا الكـوٍد فـي التـآيمرٍ

كود:
Private Sub Timer1_Timer()
كود:
SendKeys Text1.Text & "{enter}"[center]End Sub

وبعـدها نضغـط على Command2 ونضـع فيه هذا الكوٍدَ

كود:
Private Sub Command2_Click()

كود:
Timer1.Enabled = True
On Error Resume Next
Timer1.Interval = text2.Text
End Sub

مــلآحظـهُ : هذاَ الزٍر رآح يكوٍن زرٍ إبـدأ لبـدأ الفلـوٍد

وٍنضع هذا الكوٍد في Command1 هذا الكـوٍدَ

كود:
Private Sub Command1_Click()
كود:
Timer1.Enabled = False
End Sub

ملآحـظهُ : هذآ الزرِ يستخـدمُ فـي إيقآف الفلـوٍد

إلى هنــآ كـــل شـيءُ تمــآآمُ

فـرضآ لـوٍ حبيت آنك تضيف سـرعه للـفلوٍد يمـكن اضافـة LABEL وجنـبه text وإنتهى الموضوعُ

فـرضــآ لـوٍ حبـيت اتضيـفً زرٍ للحـقوقَ ..

تضـع COMMAND3 جـديد وتضعُ فـيه هذا الكـوٍد معُ تغييرٍ مآ يلزٍمً فـأنآ فـرضآ وآضع الديفُ بـوينت

كود:
Private Sub Command3_Click()
كود:
MsgBox " All Copy Right ® For DeV-PoinT ", vbOKOnly, "By HaJuS"
End Sub

وٍضيفَ Command4 لـيكون زرٍ لذهـآب إلى موٍقـعً تضـعً هذا آلكـوٍدُ

كود:
Private Sub Command4_Click()
كود:
Dim x As Object
Set x = CreateObject("internetexplorer.application")
x.navigate "http://www.dev-point.com/vb "
x.Visible = True
End Sub

طبعـآ بعد كـل هالخطـوٍآت خلآص آنت سـويت برنآمج الفلوٍد الخآصً فـيكً

لــكنً بـقى كـود مهـم بدونه مآبيشتغل الفلـوٍدَ

كود:
Private Sub VScroll2_Change()
End Sub

نضعًه آخـرٍ شيءُ كمـآ فـي الصـوٍرهُ

إلى هنـآ كـل وآحد قـد صممُ بـرنآمج الفـلوٍد الخـآصُ فـيهُ ..

وٍالأن كـل وآحد وذوقـه لتصمـيم وآجهه للبرنـآمجُ { صـوٍرهُ + آيقـوٍنهُ } ..

وآنـآ آسوي الشـرحُ صصممـتً برنآمج فلـوٍد علىٍ السـريعٌ

صـوٍرهُ

لتـحميل آلبــرنآمــجُ

http://www.mediafire.com/?9ikchwxf3eai69z

فـي النهـآيه آتمنى آنـي قـد وفقـت فـي آلطـرحً

وإن قصـرت فـأعذروني وإن آعجـبتكم لآ تنـسونُ التقـييمُ
[/center]