انواع سورس های ویبی

[RST2]

این هم یک سورس کد برای محاسبه میزان مصرفی اینترنت شما

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[RST2]

این یک ساعت زنگداره که خیلی ساده نوشتمش و امکان قرار گیری در کنار ساعت رو هم داره

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[RST2]

براي قرار دادن آيکون برنامه در system tray ابتدا يک ماژول تعريف کرده و اطلاعات زير را در آن قرار دهيد :
ابتدا تعريف constant هاي مورد نياز :

Public Const WM_RBUTTONUP = &H205
Global Const WM_MOUSEMOVE = &H200
Global Const NIM_ADD = 0
Global Const NIM_DELETE = 2
Global Const NIM_MODIFY = 1
Global Const NIF_ICON = 2
Global Const NIF_MESSAGE = 1

Global Const ABM_GETTASKBARPOS = &H5

سپس تعريف يک type با نام RECT براي نشان دادن يک مستطيل :

Type RECT

Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

سپس تعريف يک type با نام NOTIFYICONDATA براي توصيف آيکون :

Type NOTIFYICONDATA

cbSize As Long
hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type

حال تعريف يک type با نام APPBARDATA براي توصيف اطلاعات application bar :

Type APPBARDATA

cbSize As Long
hwnd As Long
uCallbackMessage As Long
uEdge As Long
rc As RECT
lParam As Long
End Type

دو متغير را بصورت زير تعريف مي کنيم :

Global Notify As NOTIFYICONDATA

Global BarData As APPBARDATA

حال نياز به declare کردن توابع Shell_NotifyIcon و SHAppBarMessage از کتابخانه shell32 داريم :

Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long

Private Declare Function SHAppBarMessage Lib "shell32.dll" (ByVal dwMessage As Long, pData As APPBARDATA) As Long

روتين قراردادن آيکون بصورت زير است :

Sub AddIcon(Form1 As Form, IconID As Long, Icon As Object, ToolTip As String)x

Dim Result As Long
BarData.cbSize = 36&
Result = SHAppBarMessage(ABM_GETTASKBARPOS, BarData)x
Notify.cbSize = 88&
Notify.hwnd = Form1.hwnd
Notify.uID = IconID
Notify.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
Notify.uCallbackMessage = WM_MOUSEMOVE
Notify.hIcon = Icon
Notify.szTip = ToolTip & Chr$(0)x
Result = Shell_NotifyIcon(NIM_ADD, Notify)x
End Sub

روتين حذف آيکون بصورا زير است :

Sub delIcon(IconID As Long)

Dim Result As Long
Notify.uID = IconID
Result = Shell_NotifyIcon(NIM_DELETE, Notify)
End Sub

در فرم مورد نظرتان ابتدا يک متغير از نوع object تعريف کنيد :

Public IconObject As Object

در Form load عبارات زير را بنويسيد :

Set IconObject = Form.Icon

AddIcon Form, IconObject.Handle, IconObject, "TrayIcon"x

در Form unload عبارات زير را بنويسيد :

delIcon IconObject.Handle

delIcon Form.Icon.Handle

فرض کنيد يک منو با نام popmenu در فرم داريد و مي خواهيد با کليک راست روي آيکون برنامه در system tray ، آن منو باز شود . ابتدا visible اين منو را false کنيد و سپس متد زير را براي mousemove بنويسيد :

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Static Message As Long
Message = X / Screen.TwipsPerPixelX
Select Case Message
Case WM_RBUTTONUP:
Me.PopupMenu Popup
End Select

End Sub

لینک منبع : MyComputer

[lopez]

دوست عزيز با تشكر ظاهرا لينكت خرابه!!

[Oracle_Eldorado]

دوست عزيز با تشكر ظاهرا لينكت خرابه!!

نه سالمه من همشونو دانلود کردم .
راستی Rst من یه برنامه آماده میخوام که اگه کسی تاریخ شمسی رو داد به میلادی تبدیل کنه یا برعکس . ممنون میشم .

[RST2]

دوست عزيز با تشكر ظاهرا لينكت خرابه!!

سلام

آقا من فکر میکنم اکانت شما سایت منو ساپورت نمی کنه - لطفا اگه میتونی اکانتت رو عوض کن

[RST2]

سلام بیا اینم یه سری شماره برای اتصال به اینترنت

ردیف

نام شرکت
شماره اتصال به شبکه
نو ع سرویس
نرخ به دقیقه(ریال)
نرخ به ساعت(ریال)
-----------------------------------------------------------
بانی ساز
9092304050
اینترنت
50
3000
-----------------------------------------------------------
بانی ساز
9092303132
اینترنت
50
3000
-----------------------------------------------------------
فراپویان رایانه
9092302424
اینترنت
50
3000
-----------------------------------------------------------
فراپویان رایانه
9092302425
اینترنت
50
3000
-----------------------------------------------------------
فراپویان رایانه
9092303042
تلفن
350
21000
-----------------------------------------------------------
آرمان پردازعرفان
9092303010
اینترنت
50
3000
-----------------------------------------------------------
آریا رسانا تدبیر
9092303939
اینترنت
50
3000
-----------------------------------------------------------
آریارسانه تدبیر
9092303001
اینترنت
50
3000
-----------------------------------------------------------
آزاد نت رسانه
9092303500
اینترنت
50
3000
-----------------------------------------------------------
آزاد نت رسانه
9092303555
اینترنت
50
3000
-----------------------------------------------------------
آوای سگال نت
9092303026
اینترنت
50
3000
-----------------------------------------------------------
ارمغان راه طلایی
9092303900
اینترنت
50
3000
-----------------------------------------------------------
ارمغان راه طلایی
9092303839
اینترنت
50
3000
-----------------------------------------------------------
اطلاع رسان کسری
9092303232
اینترنت
50
3000
-----------------------------------------------------------
اطلاع رسان کسری
9092303222
اینترنت
50
3000
-----------------------------------------------------------
افرانت
9092303332
اینترنت
50
3000
-----------------------------------------------------------
افرانت
9092303333
تلفن
490
29400
-----------------------------------------------------------
افرانت
9092303334
اینترنت
50
3000
-----------------------------------------------------------
افرانت
9092303435
اینترنت
50
3000
-----------------------------------------------------------
اندیشه ساز کیهان
9092303033
اینترنت
50
3000
-----------------------------------------------------------
اندیشه ساز کیهان
9092303312
اینترنت
50
3000
-----------------------------------------------------------
اندیشه ساز کیهان
9092303311
اینترنت
50
3000
-----------------------------------------------------------
اوشن رایانه
9092303231
اینترنت
50
3000
-----------------------------------------------------------
اوشن رایانه
9092303230
اینترنت
50
3000
-----------------------------------------------------------
پارس آن لاین
9092302200
اینترنت
50
3000
-----------------------------------------------------------
پارس آن لاین
9092304400
تلفن
490
29400
-----------------------------------------------------------
پارس آن لاین
9092303300
اینترنت
50
3000
-----------------------------------------------------------
پژواک ارتباط نو اندیش
9092303638
اینترنت
50
3000
-----------------------------------------------------------
پژواک ارتباط نو اندیش
9092303636
تلفن
490
29400
-----------------------------------------------------------
پژواک ارتباط نو اندیش
9092303637
تلفن
490
29400
-----------------------------------------------------------
تراشه سبز تهران
9092303800
اینترنت
50
3000
-----------------------------------------------------------
تنویر رایانه
9092303330
اینترنت
50
3000
-----------------------------------------------------------
داده پردازی رسپینا
9092303393
اینترنت
50
3000
-----------------------------------------------------------
داده پردازی رسپینا
9092303696
اینترنت
50
3000
-----------------------------------------------------------
داده پردازی رسپینا
9092303595
اینترنت
50
3000
-----------------------------------------------------------
داده پردازی فراز نت
9092302626
تلفن
390
23400
-----------------------------------------------------------
داده پردازی فراز نت
9092302727
اینترنت
50
3000
-----------------------------------------------------------
رای مهر
9092302324
اینترنت
50
3000
-----------------------------------------------------------
رای مهر
9092302323
تلفن
390
23400
-----------------------------------------------------------
رسانه آوا برید
9092303080
اینترنت
50
3000
-----------------------------------------------------------
سرمایه گذاری اوراکل
9092302020
اینترنت
50
3000
-----------------------------------------------------------
سرمایه گذاری اوراکل
9092303536
اینترنت
50
3000
-----------------------------------------------------------
سرمایه گذاری اوراکل
9092303537
اینترنت
50
3000
-----------------------------------------------------------
سرمایه گذاری اوراکل
9092302525
اینترنت
50
3000
-----------------------------------------------------------
شبکه سازان درسا
9092303003
اینترنت
50
3000
-----------------------------------------------------------
شبکه سازان درسا
9092303005
اینترنت
50
3000
-----------------------------------------------------------
شبکه سازان درسا
9092303002
اینترنت
50
3000
-----------------------------------------------------------
شبکه گستران آریا سامانه
9092303024
اینترنت
50
3000
-----------------------------------------------------------
شبکه گستران آریا سامانه
9092303025
اینترنت
50
3000
-----------------------------------------------------------
فاران رایانه
9092304000
اینترنت
50
3000
-----------------------------------------------------------
فاران رایانه
9092303535
اینترنت
50
3000
-----------------------------------------------------------
فاران رایانه
9092302000
اینترنت
50
3000
-----------------------------------------------------------
فراکوشان رایانه
9092302428
اینترنت
50
3000
-----------------------------------------------------------
فراکوشان رایانه
9092302427
اینترنت
50
3000
-----------------------------------------------------------
فراکوشان رایانه
9092302426
اینترنت
50
3000
-----------------------------------------------------------
کام نت
9092303110
اینترنت
50
3000
-----------------------------------------------------------
کام نت
9092303111
اینترنت
50
3000
-----------------------------------------------------------
کیانا رایانه خزر
9092303366
اینترنت
50
3000
-----------------------------------------------------------
کیمیا کهکشان
9092303015
اینترنت
50
3000
-----------------------------------------------------------
کیمیا کهکشان
9092303020
اینترنت
50
3000
-----------------------------------------------------------
گسترش ارتباطات سپنتا
9092303202
اینترنت
50
300
-----------------------------------------------------------
گسترش ارتباطات سپنتا
9092303200
اینترنت
50
300
-----------------------------------------------------------
مرتبط رایانه افق
9092303233
اینترنت
50
300
-----------------------------------------------------------
مرتبط رایانه افق
9092303234
تلفن
490
29400
-----------------------------------------------------------
مرتبط رایانه افق
9092303235
اینترنت
50
3000
-----------------------------------------------------------
مرکز توانا
9092303090
اینترنت
50
3000
-----------------------------------------------------------
مرکز توانا
9092303091
اینترنت
50
3000
-----------------------------------------------------------
مرکز توانا
9092303092
اینترنت
50
3000
-----------------------------------------------------------
مروا سیستم
9092303031
اینترنت
50
3000
-----------------------------------------------------------
مروا سیستم
9092303036
اینترنت
50
3000
-----------------------------------------------------------
مروا سیستم
9092303037
اينترنت
50
3000
-----------------------------------------------------------
مروا سیستم
9092303032
تلفن
490
29400
-----------------------------------------------------------
مهرگان دانش پژوه
9092304200
تلفن
390
23400
-----------------------------------------------------------
مهرگان دانش پژوه
9092303201
اینترنت
50
3000
-----------------------------------------------------------
مهرگان دانش پژوه
9092303203
اینترنت
50
3000
-----------------------------------------------------------
مهرگان دانش پژوه
9092303204
اینترنت
50
3000
-----------------------------------------------------------
مهرگان دانش پژوه
9092303205
اینترنت
50
3000
-----------------------------------------------------------
میلاد نور
9092303100
اینترنت
50
3000
-----------------------------------------------------------
ندا رایانه
9092304141
اینترنت
50
3000
-----------------------------------------------------------
ندا رایانه
9092303131
اینترنت
50
3000
-----------------------------------------------------------
ندا رایانه
9092303838
تلفن
490
29400
-----------------------------------------------------------
نگارستان سپهر
9092303060
اینترنت
50
3000
-----------------------------------------------------------
نگارستان سپهر
9092303066
تلفن
250
15000
-----------------------------------------------------------
نگاه جدید دنیا
9092303022
اینترنت
50
3000
-----------------------------------------------------------
نوید نت
9092303000
تلفن
290
17400
-----------------------------------------------------------
نوید نت
9092304040
تلفن
490
29400
-----------------------------------------------------------
نویدنت
9092303040
اینترنت
50
3000
-----------------------------------------------------------
نویدنت
9092303030
اینترنت
50
3000
-----------------------------------------------------------
نوین پیام پرداز
9092303320
اینترنت
50
3000
-----------------------------------------------------------
نوین پیام پرداز
9092302220
اینترنت
50
3000
-----------------------------------------------------------
وانا الکتریک
9092303737
تلفن
490
29400
-----------------------------------------------------------
موسسه فرهنگی تبیان
9092302300
اینترنت
50
3000
-----------------------------------------------------------
پردازش اطلاعات شتاب
9092304300
تلفن
350
2100
-----------------------------------------------------------
گسترش ارتباطات مبنا
9092303302
اینترنت
50
3000
-----------------------------------------------------------
گسترش ارتباطات مبنا
9092303301
اینترنت
50
3000
-----------------------------------------------------------
گسترش ارتباطات مبنا
9092302909
تلفن
290
17400
-----------------------------------------------------------
گسترش ارتباطات مبنا
9092303909
تلفن
390
23400

-----------------------------------------------------------

[RST2]

Option Explicit
--------------------------------------------------------------------

معرفی سه متغییر از نوع Integer

Dim Sum As Integer
Dim NumProb As Integer, NumRight As Integer
--------------------------------------------------------------------

فرمان خروج برای دکمه cmdExit ( در رویداد cmdExit_Click ) یعنی کلیک کردن

Private Sub cmdExit_Click()
End
End Sub
--------------------------------------------------------------------

معرفی دو متغییر از نوع Integer - - - - -

این قسمت مربوط به دکمه cmdNext هست که در رویداد کلیک کردن نوشته شده است

همچنین در این قسمت از دو RND استفاده شده است ( رندوم باعث میشود تا اعداد تغییر کنند

Private Sub cmdNext_Click()
Dim Number1 As Integer
Dim Number2 As Integer
txtAnswer.Text = ""
lblMessage.Caption = ""
NumProb = NumProb + 1
Number1 = Int(Rnd * 21)
Number2 = Int(Rnd * 21)
lblNum1.Caption = Format(Number1, "#0")
lblNum2.Caption = Format(Number2, "#0")
Sum = Number1 + Number2
cmdNext.Enabled = False
txtAnswer.SetFocus
End Sub
------------------------------------------------------------------

در اینجا تعریف شده است که با زدن دکمه Play تایمر شروع به کار کردن کند

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
--------------------------------------------------------------------

در این قسمت تعریف شده است که اگر شما بر روی گزینه Fast از منوی View کلیک کنید Interval تایمر 300 بشود تا سرعت شمارش از 10 تا 0 بالاتر برود

Private Sub F_Click()
Timer1.Interval = 300
End Sub
--------------------------------------------------------------------

در این قسمت تعریف شده است تا هنگامی که بازی باز میشود فرمان های زیر را انجام دهید

Private Sub Form_Load()
Randomize Timer
NumProb = 0
NumRight = 0
If Timer1.Interval = 1000 Then l.Checked = True
If Timer1.Interval = 500 Then M.Checked = True
If Timer1.Interval = 300 Then F.Checked = True
End Sub
--------------------------------------------------------------------

در این قسمت تعریف شده است که اگر شما بر روی گزینه Low از منوی View کلیک کنید Interval تایمر 1000 بشود تا سرعت شمارش از 10 تا 0 کاهش یابد

Private Sub l_Click()
Timer1.Interval = 1000
End Sub
--------------------------------------------------------------------

در این قسمت تعریف شده است که اگر شما بر روی گزینه Medium از منوی View کلیک کنید Interval تایمر 500 بشود تا سرعت شمارش از 10 تا 0 متوسط باشد

Private Sub M_Click()
Timer1.Interval = 500
End Sub
--------------------------------------------------------------------

در این قسمت فرمانی به این صورت برای تایمر تعریف شده است که : هنگامی تایمر شروع به کار کرده از شمارش خود را از 10 به 0 آغاز کرده و هنگامی که 0 شده به صورت اتوماتیک رویداد Next یعنی عوض شدن اعداد رخ بدهد و دوباره عدد 0 تغییر یابد و 10 بشود

Private Sub Timer1_Timer()
Dim a As Integer
a = a + 1
Label3.Caption = Label3.Caption - a
If Label3.Caption = 0 Then
Dim Number1 As Integer
Dim Number2 As Integer
txtAnswer.Text = ""
lblMessage.Caption = ""
NumProb = NumProb + 1
Number1 = Int(Rnd * 21)
Number2 = Int(Rnd * 21)
lblNum1.Caption = Format(Number1, "#0")
lblNum2.Caption = Format(Number2, "#0")
Sum = Number1 + Number2
cmdNext.Enabled = False
txtAnswer.SetFocus
Label3.Caption = 10
End If
If cmdNext.Enabled = True Then Label3.Caption = 10
End Sub
--------------------------------------------------------------------

در این قسمت تعریف شده است تا با زدن دکمه Enter بروی Keyboard حساب شود تا غلط بودن یا صحیح بودن جواب شما مشخص شود

Private Sub txtAnswer_KeyPress(KeyAscii As Integer)
Dim Ans As Integer
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyBack Then
Exit Sub
ElseIf KeyAscii = vbKeyReturn Then
Ans = Val(txtAnswer.Text)
If Ans = Sum Then
NumRight = NumRight + 1
lblMessage.Caption = "˜&Ccedil;&atilde;&aacute;&Ccedil; &Otilde;&Iacute;&iacute;&Iacute; "
Else
lblMessage.Caption = "&Egrave;&iacute;&Ocirc;&Ecirc;&Ntilde; &Yacute;˜&Ntilde; ˜&auml;&iacute;&Iuml; "
End If
lblScore.Caption = Format(100 * NumRight / NumProb, "##0")
cmdNext.Enabled = True
cmdNext.SetFocus
Else
KeyAscii = 0
End If
End Sub

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[Oracle_Eldorado]

جواب ما رو ندادي Rst
بخدا خيلي ضروريه

[kbdfa]

[راستی Rst من یه برنامه آماده میخوام که اگه کسی تاریخ شمسی رو داد به میلادی تبدیل کنه یا برعکس . ممنون میشم .[/QUOTE]
Oracle جان نمونه برنامه زياده جستجو كني پيدا ميكني اگه پيدا نكردي بگو يه نمونه برات بذارم