[h=2][/h] برنامه های نوشته شده با visual basic 6 vb :: این بر نامه با استفاده از API مقدار حافظه فیزیکی و مجازی و ... را برایتان نمایش می ده . این برنامه خیلی ساده است و توضیحی هم ندارم که براش بدم چون اگه یه نگاه به سورسش بندازید می فهمید که چیز خاصی نداره . Private Type Memory Length As Long MemoryLoad As Long TotalPhysMemory As Long AvailablePhysMemory As Long TotalPageFile As Long AvailPageFile As Long TotalVirtualMemory As Long AvailableVirtualMemory As Long End Type Private Declare Sub GlobalMemoryStatus Lib "kernel32" (M As Memory) Private Sub Timer1_Timer() Dim M As Memory GlobalMemoryStatus M '************************************************* LblAvlMem.Caption = Format(CDbl(M.AvailablePhysMemory / 1048576), "#.## MB") LblTotalPhMem.Caption = Format(CDbl(M.TotalPhysMemory / 1048576), "#.## MB") LblUsedMemory.Caption = Format(CDbl((M.TotalPhysMemory - M.AvailablePhysMemory) / 1048576), "#.## MB") LblPercentPhMem.Caption = Format(CDbl((M.AvailablePhysMemory / M.TotalPhysMemory)), "##.#%") '************************************************* LblVirtualMem.Caption = Format(CDbl(M.AvailableVirtualMemory / 1048576), "#.## MB") LblTotalVirtualMem.Caption = Format(CDbl(M.TotalVirtualMemory / 1048576), "#.## MB") LblUsedVirtualMem.Caption = Format(CDbl((M.TotalVirtualMemory - M.AvailableVirtualMemory) / 1048576), "#.## MB") LblPercentVirtualMem.Caption = Format(CDbl((M.AvailableVirtualMemory / M.TotalVirtualMemory)), "##.#%") '************************************************* End Sub
پاسخ : برنامه های نوشته شده با visual basic 6 vb دوستان عزیز برنامه نویسی که با ویژوال بیسیک کار میکنین حتما شمسی دیت به گوششتون خورده امروز براتون تابع شمسی دیت میذارم Dim Day(0 To 1, 1 To 12) As Integer Dim Rooz(0 To 1, 1 To 12) As Integer Dim TRooz, Maah, Saal As Integer Dim Roz, Mah, Sal As String Dim Tot, M, Next_shamciYear_Limit As Integer Dim Kabiseh_Sal, Adder, mar_passed As Integer Dim Saal_shamci, Mah_shamci, Roz_shamci As Integer Day(0, 1) = 31: Day(0, 2) = 28: Day(0, 3) = 31: Day(0, 4) = 30 Day(0, 5) = 31: Day(0, 6) = 30: Day(0, 7) = 31: Day(0, 8) = 31 Day(0, 9) = 30: Day(0, 10) = 31: Day(0, 11) = 30: Day(0, 12) = 31 Day(1, 1) = 31: Day(1, 2) = 29: Day(1, 3) = 31: Day(1, 4) = 30 Day(1, 5) = 31: Day(1, 6) = 30: Day(1, 7) = 31: Day(1, 8) = 31 Day(1, 9) = 30: Day(1, 10) = 31: Day(1, 11) = 30: Day(1, 12) = 31 Rooz(0, 1) = 31: Rooz(0, 2) = 31: Rooz(0, 3) = 31: Rooz(0, 4) = 31 Rooz(0, 5) = 31: Rooz(0, 6) = 31: Rooz(0, 7) = 30: Rooz(0, 8) = 30 Rooz(0, 9) = 30: Rooz(0, 10) = 30: Rooz(0, 11) = 30: Rooz(0, 12) = 29 Rooz(1, 1) = 31: Rooz(1, 2) = 31: Rooz(1, 3) = 31: Rooz(1, 4) = 31 Rooz(1, 5) = 31: Rooz(1, 6) = 31: Rooz(1, 7) = 30: Rooz(1, 8) = 30 Rooz(1, 9) = 30: Rooz(1, 10) = 30: Rooz(1, 11) = 30: Rooz(1, 12) = 30 Saal_shamci = Text1.Text Mah_shamci = Text2.Text Roz_shamci = Text3.Text Saal = Saal_shamci + 621 If Saal_shamci Mod 4 = 0 Then Adder = 1 Else Adder = 0 End If If Saal Mod 4 = 3 Then Kabiseh_Sal = 1 mar_passed = 19 Next_shamciYear_Limit = 287 Else Kabiseh_Sal = 0 mar_passed = 20 Next_shamciYear_Limit = 286 End If Tot = 0 For M = 1 To Maah_shamci - 1 Tot = Tot + Rooz(Kabiseh_Sal, M) Next M Tot = Tot + Roz_shamci If (Tot > Next_shamciYear_Limit) Then Saal_shamci = Saal_shamci + 1 Tot = Tot - Next_shamciYear_Limit If Saal_shamci Mod 4 = 0 Then Adder = 1 Else Adder = 0 End If Else Tot = Tot + Day(Adder, 1) + Day(Adder, 2) + mar_passed End If M = 1 While (Tot > Day(Adder, M)) Tot = Tot - Day(Adder, M) M = M + 1 Wend Maah = M TRooz = Tot Sal = Str(Saal) If Maah < 10 Then Mah = "0" & Maah Else Mah = Maah If TRooz < 10 Then Roz = "0" & TRooz Else Roz = TRooz Text4.Text = Sal Text5.Text = Mah Text6.Text = Roz End Sub
پاسخ : برنامه های نوشته شده با visual basic 6 vb VB6 برنامه کافی نت (سطح : ساده) شرح برنامه این برنامه برای محاسبه تایم و هزینه استفاده از منابعی است که در اختیار مشتری قرار می گیرد. موارد کاربرد آنرا می توان در : - کافی نت - گیم نت - بیلیارد - امکانات تفریحی پارک ها - پارکینگ ها - وغیره دانست. البته در هر کدام از بنگاههای تجاری نام برده بنا به مورد احتیاج کمی باید در برنامه تغییر ایجاد گردد. با توضیحات ذیل بیشتر با این برنامه آشنا می شویم. فرمی که کاربر مشاهده می کند به شکل بالاست. اگر به عنوان مثال فرض کنیم که این برنامه در یک کافی نت استفاده می شود ، و صاحب کافی نت برای نگهداری زمان مشتریان و سپس محاسبه هزینه استفاده از اینترنت این برنامه را سفارش داده بهتر می توان برنامه را شرح داد. همانطور که در بالا می بینید این برنامه از سه قسمت تشکیل شده tables,setting,earnings که در مورد هر یک در ذیل توضیح مختصری آمده: Tables: در این قسمت بطور مثال فرض شده که کافی نت دارای 4 کامپیوتر است. زمانی که مشتری شروع به استفاده می کند صاحب کافی نت دکمه start کامپیوتر مورد نظر را فشار می دهد زمان شروع کار در textbox اول که با label بالای آن (start time) مشخص شده ثبت می گردد و در هنگام پایان کار دکمه stop را می فشارد که زمان پایان استفاده مشتری در textbox مربوطه نمایش داده می شود و هزینه ای که مشتری باید پرداخت کند در textbox آخر ظاهر می شود. Setting : در این قسمت صاحب کافی نت می تواند مبلغ استفاده از اینترنت را به ازای هر ساعت تغییر دهد که بصورت پیش فرض این مبلغ در ابتدای کار 800 تومان انتخاب شده ولی در صورت تغییر قیمت و با وارد کردن قیمت جدید سپس فشردن دکمه Price Per Hour از این زمان به بعد مبلغ استفاده هر ساعت تغییر می کند. Earnings : در این قسمت تمام عایدی کافی نت از زمان شروع برنامه تا حال نمایش داده می شود یعنی هر بار که مشتری ای پولی پرداخت می کند آن مبلغ با مبلغی که در textbox مربوطه نمایش داده می شود جمع می خورد. در اصل این مبلغ می تواند نشانگر دخل صاحب کافی نت باشد. کد برنامه Public PricePerHour As Integer Public TotalCost As Integer Private Sub Form_Load() PricePerHour = 800 TotalCost = 0 End Sub Private Sub btnStart1_Click() txtStart1.Text = Format(Time, "hh:mm") btnStart1.Enabled = False btnStop1.Enabled = True txtStop1.Text = "" txtCost1.Text = "" End Sub Private Sub btnStop1_Click() Dim hStart As Integer Dim mStart As Integer Dim hStop As Integer Dim mStop As Integer Dim UsedTime As Integer Dim UsedCost As Integer txtStop1.Text = Format(Time, "hh:mm") hStart = hour(txtStart1.Text) mStart = minute(txtStart1.Text) hStop = hour(txtStop1.Text) mStop = minute(txtStop1.Text) UsedTime = (hStop - hStart) * 60 + (mStop - mStart) UsedCost = UsedTime * (PricePerHour / 60) txtCost1.Text = UsedCost TotalCost = TotalCost + UsedCost txtCostTotal.Text = TotalCost btnStop1.Enabled = False btnStart1.Enabled = True End Sub Private Sub btnStart2_Click() txtStart2.Text = Format(Time, "hh:mm") btnStart2.Enabled = False btnStop2.Enabled = True txtStop2.Text = "" txtCost2.Text = "" End Sub
پاسخ : برنامه های نوشته شده با visual basic 6 vb ادامه پست بالا Private Sub btnStop2_Click() Dim hStart As Integer Dim mStart As Integer Dim hStop As Integer Dim mStop As Integer Dim UsedTime As Integer Dim UsedCost As Integer txtStop2.Text = Format(Time, "hh:mm") hStart = hour(txtStart2.Text) mStart = minute(txtStart2.Text) hStop = hour(txtStop2.Text) mStop = minute(txtStop2.Text) UsedTime = (hStop - hStart) * 60 + (mStop - mStart) UsedCost = UsedTime * (PricePerHour / 60) txtCost2.Text = UsedCost TotalCost = TotalCost + UsedCost txtCostTotal.Text = TotalCost btnStop2.Enabled = False btnStart2.Enabled = True End Sub Private Sub btnStart3_Click() txtStart3.Text = Format(Time, "hh:mm") btnStart3.Enabled = False btnStop3.Enabled = True txtStop3.Text = "" txtCost3.Text = "" End Sub Private Sub btnStop3_Click() Dim hStart As Integer Dim mStart As Integer Dim hStop As Integer Dim mStop As Integer Dim UsedTime As Integer Dim UsedCost As Integer txtStop3.Text = Format(Time, "hh:mm") hStart = hour(txtStart3.Text) mStart = minute(txtStart3.Text) hStop = hour(txtStop3.Text) mStop = minute(txtStop3.Text) UsedTime = (hStop - hStart) * 60 + (mStop - mStart) UsedCost = UsedTime * (PricePerHour / 60) txtCost3.Text = UsedCost TotalCost = TotalCost + UsedCost txtCostTotal.Text = TotalCost btnStop3.Enabled = False btnStart3.Enabled = True End Sub Private Sub btnStart4_Click() txtStart4.Text = Format(Time, "hh:mm") btnStart4.Enabled = False btnStop4.Enabled = True txtStop4.Text = "" txtCost4.Text = "" End Sub Private Sub btnStop4_Click() Dim hStart As Integer Dim mStart As Integer Dim hStop As Integer Dim mStop As Integer Dim UsedTime As Integer Dim UsedCost As Integer txtStop4.Text = Format(Time, "hh:mm") hStart = hour(txtStart4.Text) mStart = minute(txtStart4.Text) hStop = hour(txtStop4.Text) mStop = minute(txtStop4.Text) UsedTime = (hStop - hStart) * 60 + (mStop - mStart) UsedCost = UsedTime * (PricePerHour / 60) txtCost4.Text = UsedCost TotalCost = TotalCost + UsedCost txtCostTotal.Text = TotalCost btnStop4.Enabled = False btnStart4.Enabled = True End Sub Private Sub btnPrice_Click() PricePerHour = txtPrice.Text
