نمونه سورس کد کنترل برای انتخاب یک مقدار زمانی در vb.net

نمونه سورس کد کنترل برای انتخاب یک مقدار زمانی در VB.NET

در برنامه‌نویسی ویژوال بیسیک دات نت (VB.NET)، یکی از نیازهای رایج، فراهم کردن امکاناتی است که کاربر بتواند زمان را به صورت دلخواه انتخاب کند. این قابلیت، معمولا در برنامه‌هایی کاربرد دارد که نیازمند تنظیم وقایع، زمان‌بندی، یا مدیریت مدت‌زمان‌های خاص هستند. بنابراین، توسعه یک کنترل مناسب برای انتخاب زمان، اهمیت زیادی دارد. در این مقاله، با ارائه یک نمونه سورس کد کامل و جامع، به بررسی نحوه ساخت و پیاده‌سازی چنین کنترل‌هایی در VB.NET می‌پردازیم، به گونه‌ای که علاوه بر قابلیت‌های پایه، امکانات توسعه‌پذیری و کاربری آسان را نیز در بر داشته باشد.
۱. اهمیت کنترل‌های زمان در برنامه‌های VB.NET
در ابتدا، باید درک کنیم که چرا کنترل‌های زمان در برنامه‌نویسی اهمیت دارند. این کنترل‌ها، به کاربران امکان می‌دهند تا به راحتی و با دقت بالا، زمان مورد نظر خود را انتخاب کنند، بدون نیاز به وارد کردن دستی عدد یا متن. برای نمونه، زمان‌بندی رویدادهای خاص، تنظیم هشدارها، یا تعیین مدت‌زمان‌های معین، همگی نیازمند کنترل‌های زمان هستند. در VB.NET، کنترل‌های استانداردی مانند `DateTimePicker` وجود دارد، اما در برخی موارد، توسعه‌دهندگان نیاز دارند کنترل‌های سفارشی‌تری بسازند که امکانات بیشتری ارائه دهند، یا ظاهر و رفتار متفاوتی داشته باشند.
۲. ساختار کلی کنترل زمان در VB.NET
برای ساخت یک کنترل زمان، باید چند عنصر کلیدی را در نظر گرفت. اول، باید یک عنصر نمایشی برای نمایش ساعت و دقیقه، و احتمالا ثانیه باشد. دوم، باید امکان تغییر این مقادیر توسط کاربر فراهم شود، که معمولا با استفاده از دکمه‌های افزایش یا کاهش مقدار، یا کشویی‌های (TrackBar) قابل انجام است. سوم، باید رویدادهای لازم برای اطلاع‌رسانی به برنامه‌نویس یا سایر بخش‌های برنامه درباره تغییرات در زمان، طراحی گردد.
در نمونه کد زیر، ما یک کنترل ساده ساخته‌ایم که شامل چهار قسمت است: ساعت، دقیقه، ثانیه، و دکمه‌هایی برای افزایش و کاهش هر کدام. این کنترل، قابلیت تنظیم زمان را به صورت step-by-step دارد، و می‌تواند در پروژه‌های مختلف مورد استفاده قرار گیرد.
۳. نمونه سورس کد کامل در VB.NET

vb.net  


Public Class TimePickerControl  
Inherits UserControl
' تعریف متغیرهای داخلی برای نگهداری زمان  
Private _hours As Integer = 0  
Private _minutes As Integer = 0  
Private _seconds As Integer = 0
' کنترل‌های نمایشی  
Private lblHours As New Label()
Private lblMinutes As New Label()
Private lblSeconds As New Label()
Private btnIncreaseHours As New Button()
Private btnDecreaseHours As New Button()
Private btnIncreaseMinutes As New Button()
Private btnDecreaseMinutes As New Button()
Private btnIncreaseSeconds As New Button()
Private btnDecreaseSeconds As New Button()
' رویداد تغییر زمان  
Public Event TimeChanged(ByVal currentTime As DateTime)
Public Sub New()
InitializeComponent()
SetupControls()
UpdateLabels()
End Sub
Private Sub SetupControls()
' تنظیمات برچسب‌ها  
lblHours.Text = "ساعت: 00"
lblMinutes.Text = "دقیقه: 00"
lblSeconds.Text = "ثانیه: 00"
' تنظیمات دکمه‌های افزایش و کاهش  
btnIncreaseHours.Text = "+"
btnDecreaseHours.Text = "-"
AddHandler btnIncreaseHours.Click, AddressOf IncreaseHours  
AddHandler btnDecreaseHours.Click, AddressOf DecreaseHours
btnIncreaseMinutes.Text = "+"
btnDecreaseMinutes.Text = "-"
AddHandler btnIncreaseMinutes.Click, AddressOf IncreaseMinutes  
AddHandler btnDecreaseMinutes.Click, AddressOf DecreaseMinutes
btnIncreaseSeconds.Text = "+"
btnDecreaseSeconds.Text = "-"
AddHandler btnIncreaseSeconds.Click, AddressOf IncreaseSeconds  
AddHandler btnDecreaseSeconds.Click, AddressOf DecreaseSeconds
' افزودن کنترل‌ها به کنترل اصلی  
Me.Controls.Add(lblHours)
Me.Controls.Add(btnIncreaseHours)
Me.Controls.Add(btnDecreaseHours)
Me.Controls.Add(lblMinutes)
Me.Controls.Add(btnIncreaseMinutes)
Me.Controls.Add(btnDecreaseMinutes)
Me.Controls.Add(lblSeconds)
Me.Controls.Add(btnIncreaseSeconds)
Me.Controls.Add(btnDecreaseSeconds)
' تنظیم مکان و...  ← ادامه مطلب در magicfile.ir