سومين ابزار ، ((ليبل)) است.
label
انصافا ليبل بايد قبل دو ابزار ديگر گفته مي شد. چون هم ساده تره و هم كاربردش بيشتره.
محل و شكل آن را در جعبه ابزار مي بينيد:
روش كاشتن ليبل روي فرم مثل دو تاي قبلي (دكمه و تكست باكس) است.
من يك ليبل روي صفحه مياورم و كاپشن(كپشن) آن را به ((به ويژوال بيسيك خوش آمديد)) تغيير مي دهم.
در حالت اجرا اين طور ميشه.
در ادامه كار بر ليبل بالا، به پنجره پراپرتي بريد و دكمه اي كه در زير مي بينيد را كليك كنيد.
همان طور كه در شكل بالا مي بينيد براي تغيير رنگ دو لبه ((پلت)) و ((سيستم)) وجود دارد. با هر دو كار كنيد. همان طور كه باز در شكل مي بينيد ما رنگ ((بك كالور)) را الان داريم عوض مي كنيم.
باز به پنجره پراپرتي بريد و دكمه اي كه در زير مي بينيد را كليك كنيد.
همان طور كه در شكل بالا مي بينيد براي تغيير رنگ دو لبه ((پلت)) و ((سيستم)) وجود دارد. با هر دو كار كنيد. همان طور كه باز در شكل مي بينيد ما رنگ ((فور كالور)) را الان داريم عوض مي كنيم.
تغيير رنگ و فونت از پنجره پراپرتي به صورتي كه در بالا گفته شد ، انجام مي شود.
من بعد من از تغيير رنگ و فونت استفاده مي كنم ولي توضيح نمي دهم. خودتان از ديدن عكسها مي فهميد كه قبلا رنگ و فونت تغيير داده شده.
ابزار لازم:
دو تكست باكس و يك دكمه.
نام گذاري:
[ltr]name's : t1 , t2 , c1[/ltr]
تغيرات لازم در پنجره پراپرتي:
فونت و رنگ را هم به دلخواه تغيير بدهيد.
[ltr]t1.text : 0
t2.text : 0
c1.caption : transfer[/ltr]
كد نوشته شده براي دكمه در پاسخ به كليك:
[ltr]Private Sub c1_Click()
t2.Text = t1.Text
t1.Text = ""
End Sub[/ltr]
كار اين برنامه اين است كه هر عددي در تكست باكس اولي تايپ بشه و دكمه زده بشه، آن عدد
به تكست باكس دومي منتقل ميشه.
شكل زير يكي ديگر از راههاي دسترسي به پنجره كد را نشان مي دهد. راه ديگر كه تا بحال استفاده كرده ايم ، عبارت بود از ((دابل كليك)) بر روي اشياء .
حال مي خواهيم بيشتر با پنجره كد آشنا شويم. در شكل مي بينيد كه در زبانه باز شده ، يك انتخاب جنرال داريم. بعضي كد ها(دستورات) بايستي در قسمت جنرال نوشته شود.
دكلريشن (تعين متغيرها) اينجا انجام مي شود.
در برنامه اي كه بالا نوشتيم و هنوز كامل نشده ، مي خواهيم از اين نكته استفاده كنيم.
ابزارهاي لازم:
دو ليبل - دو تكست باكس - يك دكمه
نام گذاري:
[ltr]l1 , l2 , t1 , t2 , c1[/ltr]
تغييرات در پنجره پراپرتي:
[ltr]l1.caption : write a number
l2.caption : sum=
c1.caption : ADD
t1.text : 0
t2.text : 0
font & color : delkhaah[/ltr]
كد نويسي:
در قسمت جنرال بنويسيد:
[ltr]Dim sum As Integer[/ltr]
اين باعث تعريف متغير ((سام)) از نوع عدد صحيح مي شود.
در قسمت كاركرد دكمه در پاسخ به كليك داريم.
[ltr]Private Sub c1_Click() sum = sum + t1.Text
t1.Text = ""
t2.Text = sum
End Sub[/ltr]
در كل طبق عكس زير ميشه:
به جايي كه موس در عكس زیر اشاره مي كند توجه كنيد. وقتي اين دكمه رافشار داده باشيم ، كل كد نمايش داده ميشه. اگر دكمه سمت چپي را استفاده كرده بوديم ، قسمت جنرال مخفي بود.
نتيجه اجراي برنامه را در زير مي بينيد:
در برنامه ماشين حساب ساده ، نيازي نيست كه كاربر بتواند تكست باكس 2 را دستكاري كند. مي توانيم آن را غير فعال كنيم. به پنجره پراپرتي برويد و اين صفت را براي اين شي ، فالس كنيد.
[ltr]t2.enabled : false[/ltr]
نتيجه اجرا به اين شكل است:
حالا ديگر ((تكست باكس 2)) كه مجموع را نگهداري مي كند ، قابل دستكاري نيست.
در اين حال ، فرم ، سربرگ ندارد. از كناره هاي فرم هم، قابل كوچك و بزرگ كردن نيست.
حالت دوم: وقتي بوردراستيل ((يك)) باشد.
.
در اين حال ، فرم فقط يك دكمه دارد براي بستن.(دكمه شكل ضربدر) . از كناره ها ، قابل كوچك و بزرك كردن نيست.
حالت سوم: وقتي بوردراستيل ((2)) باشد.
در اين حال ، هم دكمه هاي ماكزيمايز و مينيمايز داريم ، و هم از كناره ها قابل تغيير سايز است.
حالت چهارم: وقتي بوردراستيل ((3)) باشد.
همان شكل حالتي است كه بوردر استيل ((1)) بود. من تنها فرقي كه ديدم اين بود كه در حالتي كه 3 است روي تولبار ويندوز(پايين صفحه) اصلا اثري از باز بودن پنجره در بالا نيست. ولي در حالت 1 بودن، روي تولبار وجود داشت.
دوستان اگر فرق دقيق اين دو حالت رامي دانند ، بگويند.
حالت پنجم: وقتي بوردراستيل ((4)) باشد.
همان طور كه مي بينيد سربرگ كوچك تر و نوشته هايش هم ريز تر است.
حالت ششم: وقتي بوردراستيل ((5)) باشد.
سربرگ ، شبيه حالت پنجم ، ولي از كناره ها قابل تغيير سايز.
من وقتي با ماشين حساب ساخته شده كار مي كردم ، متوجه شدم كه بالاي 23 هزار اگر عدد بدهيم ، خطا رخ مي دهد.
فكر كنم بخاطر اين است كه عدد صحيحي كه در آن تعريف كرده ايم ، محدوده خاصي دارد.
بايد با اين ماشين حساب اعداد كوچك محاسبه شود.
پس بياييد ورودي ((تكست باكس اول)) را محدود بگيريم. براي اينكار از صفت
maxlenght
استفاده مي شود. همان طور كه در شكل زير مي بينيد ، مقدار پيش فرض ((صفر)) است. ما آن را به 4 تغيير مي دهيم. يعني كاربر مي تواند حداكثر از اعداد 4 رقمي استفاده كند.
البته فكر نكنيد ويژوال بيسيك محدوديت دارد در كار با اعداد. ما مي توانيم متغير خود را از نوعهاي ديگر انتخاب كنيم و اين نقيصه را از بين ببريم.
وقتي روي فرم ((دابل كليك)) كنيد، در پنجره كد داريم:
[ltr]Private Sub Form_Load()
End Sub[/ltr]
دستوراتي كه اينجا بنويسيد ، موقع لود شدن فرم، درست قبل از به نمايش درآمدن آن انجام مي شود.
شما مي توانيد كاپشن ها (حتي كاپشن فرم) را اينجا بنويسيد. و با پنجره پراپرتي اين كار را نكنيد. اين كار باعث سهولت در كار است. و مي تواند پلي باشد براي ارتباط بين من و شما. چون شما مي توانيد تغييراتي را كه بايستي در پنجره پراپرتي انجام شود را از تاپيك كپي بگيريد و در قسمت فرم لود پيست كنيد. و بعد كدها را در محل مناسب كپي - پيست كنيد.
با اين كار كلي از حجم كار شما كم مي شود.
پس كار شما مي شود اين مراحل:
اول آوردن ابزارها از جعبه ابزار
دوم تغيير نام شي ها آنطور كه من نامگذاري كرده ام.
سوم كپي - پيست تغييرات صفات اشياء در محل فرم- لود در پنجره كد.
چهارم كپي پيست دستورات در محلهاي مناسب.
پنجم اجرا و اگر خواستيد ذخيره برنامه.
پس بعد نام گذاري دو ليبل و دو تكست باكس و يك دكمه به...
l1,l2,t1,t2,c1
مي توانيد كدهاي زير را كپي و درج كنيد.
[ltr]Dim sum As Integer
Private Sub Form_Load()
Form1.Caption = "SIMPLE CALCULATOR"
c1.Caption = "Add"
l1.Caption = "write a number"
l2.Caption = "SUM="
t1.Text = 0
t2.Text = 0
t1.MaxLength = 4
t2.Enabled = False
End Sub
Private Sub c1_Click()
sum = sum + t1.Text
t1.Text = ""
t2.Text = sum
End Sub
[/ltr]
بعد آنكه اشياء را درست نام گذاري كرديد ، فقط كافيه پنجره كد را باز كنيد و همه كد بالا را(يك جا) درونش درج كنيد.
شما بهتره صبر كني تا درس برسه به توابع پيشرفته
يا اگه در اين مورد اشكالي داشتين بهتره يه تاپيك جديد بزنين
نويد جان كجايي بيا اين دوتا پست رو حذف كن تا ترتيب آموزش به هم نريزه
----------------
سينا
اين چهار صفت در تمام اشيائي كه تا به حال گفتيم وجود دارد. فاصله از بالا و چپ و عرض و طول.
فاصله از بالا و چپ:
در مورد فرم ، فاصله از بالا و چپ صفحه مونيتور و راجع به بقيه ، نسبت به بالا و چپ فرم.
اين صفات را هم ميشه در قسمت ((فرم-لود)) آورد. يعني اشياء هر جا باشند ، موقع اجرا به جاهاي مقرر مي روند.
مواد لازم : يك دكمه / نامگذاري : سي1
[ltr]Private Sub c1_Click()
Circle (2100, 1200), 1100
End Sub[/ltr]
[ltr]Dim radius As Integer
Private Sub c1_Click()
For radius = 20 To 3000 Step 19
Circle (1400, 1200), radius, vbRed
Next
End Sub[/ltr]
ساختار حلقه: از كلمه ((فور)) تا كلمه ((نكست)) يك حلقه ايجاد ميشه. و اعدادي كه تعريف شده(از 20 تا 3 هزار) بايد رد بشه. اين تعداد چرخش حلقه است. البته اينجا با جهش هاي نوزده تايي اعداد را سپري مي كنه.
[ltr]Dim x As Long
Dim y As Long
Private Sub c1_Click()
For x = 0 To 3000 Step 30
For y = 0 To 3000 Step 30
PSet (x, y), vbRed
Next
Next
End Sub
[/ltr]
[ltr]Dim x As Single
Dim y As Single
Private Sub c1_Click()
For x = -600 To 600 Step 0.007
y = (x ^ 2) / 100 + 500
PSet (x + 1400, y)
Next
End Sub
[/ltr]
[ltr]line (0,0)-(100,100),vbred
mostatil: line (0,0)-(100,100),vbred,b
mostatile toopor: line (0,0)-(100,100),vbred,bf[/ltr]
.
