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

[RST2]

سلام

لطفا از این سورس کدها درست استفاده کنید :biggrin:

[RST2]

سلام
این سورس توانیی تبدیل کردن یک عدد از مبنای 10 ( که خودش می باشد ) از مبناهای 1 تا 29 را دارد



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

پسورد : [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


:puke:

[RST2]

سلام
شما می توانید از طریق فرمانی که برای دانلود گذاشته ام فرم خود را به صورت حرفه در رویداد Form load تغییر دهید برای مثال به نمونه زیر توجه کنید :


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


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


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

توجه داشته باشید برای تغییر رنگ میبایست فقط دستور زیر را باتوجه به مثال تغییر دهید


Me.Line (0, i)-(Me.ScaleWidth, i), RGB(i, i, i) ------------------------ Black & White


Me.Line (0, i)-(Me.ScaleWidth, i), RGB(0, 0, i) ------------------------ Black & Blue

و ..........................


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

پسورد : [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])

:puke:

[RST2]

سلام
اینک یه سورس کد دیگه برای باز و بسته کردن در سی دی رام


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


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

پسورد : [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

:puke:

[RST2]

سلام

امروز یه بازی ریاضی که توسط یک شخصه دیگری ساخته شده بود را تو کامپیوتر خودم دیدم
بد هم یه خورده فکر کردم تا اینکه پیش خودم گفتم بزار براش یه تایمر هم بزارم :D و تغییرش دادم
اینم عکس بازی فکری :


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

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

پسورد : [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]


:puke:

[RST2]

سلام

اینم سورس کد یک تقویم

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

پسورد : [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

:puke:

[RST2]

سلام

اینم یک MP3 Player با حال که شمایلش مثل Winamp

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

پسورد : [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

:puke:

[RST2]

سلام من اومدم با يك برنامه جديد . اين برنامه يك بازي فكري است كه همه با اون آشنا هستيد . پازل اعداد من در 4 رشته ازاد . آسان . نيمه آسان و سخت انجام مي شود .


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

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

پسورد : [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

:puke:

[RST2]

اين برنامه اولين برنامه كامل من با ويژوال بيسيك ميباشد.اين برنامه يك ماشين حساب شبيه ماشين حساب

ويندوز مي باشد.اميدوارم كه از كار با اين برنامه لذت ببريد.


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

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

پسورد : [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

:puke:

[RST2]

:puke: سلام

امروز داشتم تو آرشیو سورس کدهای خودم می چرخیدم که به این سورس کد برخوردم گفتم

شاید بد نباشه بذارمش براتون ......................

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

[RST2]

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

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


:puke:

[RST2]

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

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

:puke:

[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

:puke:

[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


:puke::puke::puke::puke::puke::puke::puke::puke::p uke::puke::puke::puke::puke::puke::puke::puke::puk e::puke::puke:



فروش هاستینگ و دامین - طراحی صفحات وب - طراحی و ساخت اتوران - خدمات طراحی و چاپ ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


انجمن فارسی کامپیوتر ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


:tongue: :tongue: :tongue: :tongue: :tongue:

[Oracle_Eldorado]

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

[kbdfa]

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

[kbdfa]

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

[shabnavard]

سلام من یه سورس میخوام که بشه باهاش بازی سودوکو را طراحی کرد نمی دونم چقدر با سودوکو آشنا هستید ولی بازی به این صورته که یک مربع با 81 خونه داریم که باید در هر ردیف و ستون اعداد 1تا 9 قراربگیره و هیچکدوم هم تکراری نباشه ودر هر 9 مربع هم اعداد 1تا 9 تکرار نشن

[bad_boy_2007]

این 2 تا دانلود نشد :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

ممنون از سورس کدای جالبت :rambo: :santa: :thumbsup: :thumbsup: :thumbsup: :thumbsup: :thumbsup:

[RST2]

این 2 تا دانلود نشد :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

ممنون از سورس کدای جالبت :rambo: :santa: :thumbsup: :thumbsup: :thumbsup: :thumbsup: :thumbsup:

سلام
آقا این لینک ها همه درست هستند لطفا این قدر جواب ندید لینک خرابه چون این سایت ماله خودمه و کسی پاک نمی کنه اینارو


:puke:

[Oracle_Eldorado]

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

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

اینو برای من گذاشتی ؟
راستی دوستان لینک ها مشکلی نداره . من همشونو دانلود کردم ( برای بار دوم )

[shabnavard]

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

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

:puke:

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

[Oracle_Eldorado]

ساعت زنگدار و ماشین حساب دانلود میشن ولی باز نمیشن مثل اینکه لینکشون خرابه
عزیزان من همش رو دانلود کردم و همش رو باز کردم سالم بود ! ( برای بار سوم !) شما پست های قبلی رو بخون !

[bad_boy_2007]

عزیزان من همش رو دانلود کردم و همش رو باز کردم سالم بود ! ( برای بار سوم !) شما پست های قبلی رو بخون !

لینکات مشکل داره عزیزم
ساعت و ماشین حساب

[mazi_z_PSP]

سلام RTS2 . من دنباله کد هايه VB برايه ويروس سازی می گردم ميشه چند تا برام بفرستی ؟ mazi_z_MCSD
Email : mr_afee202@yahoo.com

[mazi_z_PSP]

من ميخام يه تاپيک بسازم که همه بين توش تا با هم درباره ويروس سهبت کنيم دوست دارم بهترين تاپيکه این سا يت بشه
mazi_z_MCSD

[mammad_visual]

دوستانی که علاقه به اینترفیس برنامشون دارن حتما اینو بگیرن که تیپ فرم رو مثله پنجره های ویستا در میاره.
با قابلیت زیبای Shadow و Transparency
نویسنده: Mahmood Mubarak
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[whisper]

دوستانی که علاقه به اینترفیس برنامشون دارن حتما اینو بگیرن که تیپ فرم رو مثله پنجره های ویستا در میاره.
با قابلیت زیبای Shadow و Transparency
نویسنده: Mahmood Mubarak
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

دستت درد نکنه خیلی خیلی جالب بود

[majj]

عزیز پس پسورد کجا قرار گرفته

[takostad]

من یک برنامه حسابداری وانبار داری نسبتا کامل نوشته ام

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

به وسیله ایمیل زیر بهم خبر بدید ایمیلتون هم براو بزارین


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

قیمت سورس این برنامه : 30000 تومان

ایمیل من :baradarm@yahoo.com

[morteza_k]

اين برنامه اولين برنامه كامل من با ويژوال بيسيك ميباشد.اين برنامه يك ماشين حساب شبيه ماشين حساب

ويندوز مي باشد.اميدوارم كه از كار با اين برنامه لذت ببريد.


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

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

پسورد : [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

:puke:


سلام
دوست خوبم لینک این برنامه کار نمی کنه .
ممنون میشم اگه زحمتی نیست یک جای دیگه اپ کنید به خدا ضروریه.
ممنونم.

[digidream]

سلام
دوست خوبم لینک این برنامه کار نمی کنه .
ممنون میشم اگه زحمتی نیست یک جای دیگه اپ کنید به خدا ضروریه.
ممنونم.

سلام:20:
من این برنامه رو نوشتم لی شبیه ماشین حساب ویندوز نیست. می خوای دانلود کن شاید خوشت بیاد.

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

pass: 88a25

[digidream]

سلام!:20:
برنامه ای برای جمع، تفریق و ضرب دو چند جمله ای. انتگرال و مشتق گیری


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[digidream]

سلام دوستان:46:
اینم سورس یه برنامه برای جمع،تفریق و ضرب دو چندجمله ای. انتگرال و مشتق گیری


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[digidream]

ببخشید پست قبلی رو 2بار فرستادم DC شدم فکر نمی کردم ارسال شده باشه.
این سورسم برای برنامه پازل هستش البته قبلا یه تاپیک دادم ولی فکر کنم اینجا بیشتر دوستان بیان ببینن


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[vahid_vb]

با سلام.
دوستان من یه اکتیو ایکس برای طراحی منوهای زیبا و حرفه ای نیاز دارم.officemenu رو دارم ولی رجیستر نشده و کرکشم پیدا نکردم.
میشه در این مورد کمکم کنین ؟

[Ship Storm]

اين برنامه اولين برنامه كامل من با ويژوال بيسيك ميباشد.اين برنامه يك ماشين حساب شبيه ماشين حساب

ويندوز مي باشد.اميدوارم كه از كار با اين برنامه لذت ببريد.


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

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

پسورد : [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

:puke:

این لینکه خرابه یک جا دیگه اپلود کنید

[SR72]

سلام دوستان
یه چند تا سوال دارم از vb نویسان پروفشنال...
من تو سورس هام هیچ کد مخربی نمینویسم ..ولی پروژم بعد از اتمام ویروسییه

[MrJamshidy]

1- دوست عزيز احتمالا توي هاردت ويروسه وقتي شما برنامت رو كامپايل مي كني ميچسبه به فايلت
2- ويروس يابت MCAfee يه كه خيلي چرته چون تمام فايل ها رو ويروس ميشناسه

[محاجر]

این 2 تا دانلود نشد :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

ممنون از سورس کدای جالبت :rambo: :santa: :thumbsup: :thumbsup: :thumbsup: :thumbsup: :thumbsup:
سورس کدها را نمی شود دانلود کرد:41:

[SR72]

1- دوست عزيز احتمالا توي هاردت ويروسه وقتي شما برنامت رو كامپايل مي كني ميچسبه به فايلت
2- ويروس يابت MCAfee يه كه خيلي چرته چون تمام فايل ها رو ويروس ميشناسه



برطرف شد ...در ضمن mr jamshidi عزیز MCafee همچین بد نیست ..تنها مشکلی که داره آپدیت نمیشه که واسه اونم کرک هست ..
من این ویروس خفن رو با MCafee Viruse Scan InterPrise 9 پیدا کردم ... بعد هم فایل های VB رو نه تنها حذف نکرد بلکه تمیز کرد ..
خیلی خفنه این آنتی ویروس .. حتی نمیشه نرم افزار های کرک شده رو رو سیستمم نصب کنم ...

:6::4::32::evil:واقا که کار ساز بود:devil::3:


ورژن قبلی 8.2 بود حالا ترکونده ...

[habib703967]

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ](2).gifمک کمک کمک کمک کمک کمک کمک[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ](2).gif

ایا فرم را می توان به عنوان یک object تعریف کرد وآنرا به یک رویداد ارسال

[habib703967]

[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ](2).gifمک کمک کمک کمک کمک کمک کمک[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ](2).gif

ایا فرم2 را می توان به عنوان یک object تعریف کرد وآنرا به یک رویداد ارسال

[ZIBAYEKHOFTE]

سلام دوستان
آقا من بايد يه برنامه با VB بنويسم به شرح زير لطفا كمكم كنيد كه بدجور موندم[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
مثل مرورگر Windows طرف چپ Treeview باشه كه همه درايو هاي ويندوز توش باشه و با كليك روي + بقلش باز بشه و پوشه هاي موجود در درايو رو نشون بده وطرف راست فرم هم يه Listview باشه كه فايل هاي هر Folder كه در Treeview رو كه بازه رو نشون بده
البته راهنمايي اينكه : براي راحتتر شدن كار بايد از كنترلهاي Drive.Directori,File استفاده كنيم كه بايد اول اين 3تا رو به هم ربط داد بعد به Treeview وبعد به Liseview ربطشبديم
جدا از هر كسي كه كمكم كنه ممنون ميشم[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[ZIBAYEKHOFTE]

سلام
من خودم اصل اين برنامه رو نوشتم فقط مشكلم در ReadOnly بودن كنترل Dir است .لطفا كمكم كنيد

[ZIBAYEKHOFTE]

سلام دستتون درد نكنه از اين همه جواب .واقعا شرمنده ام كرديد [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]
بهر حال خودم نوشتمش
اگر كسي برنامه رو ميخواد بگه براش ايميل كنم
ممنونم خدانگهدار

[majid_kntu]

سلام
این سورس توانیی تبدیل کردن یک عدد از مبنای 10 ( که خودش می باشد ) از مبناهای 1 تا 29 را دارد



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

پسورد : [ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ] ([ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ])


:puke:


فقط خواستم بگم مبناي يك بي معنيه!!

جاي ديگه نگيا!

به خاطر تاپيك خوبت هم ممنون:31:

[hno]

سلام
من سورس دفتر حساب ( دفتر کل ) رو می خواهم . خیلی فوریه
در آن بدهکاری و بستانکاری و قیمت و ...... رو بشه وارد کرد . اگه برنامه ای هم سراغ دارید که چنین امکاناتی داشته باشه ، لطفا معرفی کنید

با تشکر