آشنايي با عناصر label,text box,commandbuttonو form

صفحه 1:


صفحه 2:
با کی ۲ تمرین ‏ - برنامه اي که دو عدد را خوانده توسط دکمه 06060) مجموع دو عدد را حساب مي کند و توسط دکمه 96200)حاصل تفریق دو عدد را چاپ مي کند و نمایش مي دهد . (Private Gub ‏)لت‎ ‎Dex9.Pent = Gr(Od(Pex(l Pen) + Ool(Pex@ Peni) Cod Ob (Private Gub cardruy_Olck Dex. Dent = Gr(Od(Pextl Pex) - Oo Pext®.Dent)) Cod Gb 

صفحه 3:
سس تمرین 0 - برنامه اي که مقداري را به ثانيه مي كيرد و ان را به دقيقه » ساعت و ثانیه تبدیل مي کند . (\Prixte Gub ‏اک امین‎ ‎Dent)‏ )00 < )دم ‎۳ ‎ww = (591 Ord SOOO) \ OO ‎29 = (sx Ord FOOD) \ OO) Ord OO ‏هس‎ Pent = "k=" + Grr(hh) ‎Den Dent = Dent Dent + "w=" + Siro) Dex. Dent = Pex. Pent + "552" + Gir(s5) Cod Gb ‎ 

صفحه 4:
با کی ۲ تمرین 6 - برنامه اي که سن شما را بر حسب روز از ورودي خوانده مشخص مي ند که سن شما چند سال » چند ماه و چند هفته و چند روز است . )موی )سره( ۵۱ < سول ماص د بر " Dex@. Dent = "Your ag ts :" + Orr(y) + "yew "| Dex. Dent = ۵ + ‏(مه‎ + "| Dex. Dent = De. Dent + Sr(w) + "weeks " DextO.Pent = Dex. Dent + Gir(days) + "hays od Gb 

صفحه 5:
سس 3 6 برنامه 1 که دو عدد | از ورود: اند با کليك يك دکمه ‎٠.‏ مربعات انهارا به خروجي مي برد ورب كلك دكمة دير عام أضرب دو حدد را لمايش مي ذكد . ‎(Pract Gub mearckrntiphy_Click‏ ‎enn = Oal(Dextl. Dex!)‏ ‎Od(Dext@ Dent)‏ = مه سم ‎ene = ard‏ ‎Oran)‏ +" بای" ع م۳۰ ‎ud Gub‏ اک امین و( مه( ‎Pent)‏ 0 اس (دس 1 00/1 د ‎ono‏ one = nel MG + ae AO Den Dent = "so sary 3" + Gir(nnr) Cod Ob 

صفحه 6:
SS درانتهاي فصل لول مختصري در مورد عناصر موجود در این فصل توضیح مي دهیم . 

صفحه 7:


صفحه 8:
با کی ۲ 8 ستور 16 0 شرط1 مجموعه دستورات ره مجموعه دستورات تمرین - برنامه اي که دو عدد صحیح را از ورودي دریافت کرده و کوچکترین عدد را در اخروجي جاب كلد . ما منرت )سم( ‎"Ded Dent = "ook‏ AP Od > 0 ‏رم‎ ۱ Pen Dent = Pentex + Derk. Den Cle Pet -Pent = Denon + PexPent Eud Gub 

صفحه 9:
سس تمرین 0 - برنامه اي نویسد که که يك عدد را از ورودي خولنده و تععین علامت مي کند . ‎Pex!)‏ )00 ع مه ‎AP aco > O Drew‏ ‎“Label .Cuptiva = "oucwber is posiive‏ ‎be‏ ‎AP an < O Drea‏ سره و اس" > عون اما ‎be‏ ‏و ها ای > عون اور ‎God‏ ‎Cw F‏ ‎Ed Gub‏ 

صفحه 10:
با کی ۲ طراحي منوها : رابط كاربري طراحي کنید شامل سه منو ررجور,لل,] و منوهاي فرعي شان و فعال و غیر فعال كردن كزينه هاو نمايش تيك دار كردن كزينه ها را در آن نشان دهيد . )سومان )سم( و ‎Pre‏ لله ‏له ‎OP addhesbantew.Oheched = Pase Nea ‎anddresbantew. Checked = Pre ‎۴ ‎4 ‎Cod Gb 

صفحه 11:
ها — )میت )و۳( ‎Dhea‏ سس < اج هروه ‎٩۴‏ ‎Pre‏ = )موه ‎Gad F ‎AP raion (Bocbled = (Poe Dhea ‎nate (Borbled = Pre ‎God F ‎OP postetew.(Bocbled = Pee ‘Dhea ‏لس( سم‎ - Pre ‎od F ‎Cod Gb ‎Price Sub oxentardh acciew_Olch() ‎OP oxntardb towed, Okeched = Poke Pheat skank db azote. Ohecked = Pre ‎be ‎OP oxntardbtocted Okeched = Puke Peat stordordbutvatew. Checked = Prue ‎Cod F ‎Cod F ‎Cod Gb 

آشنايي با عناصرlabel,text box,commandbutton وform  مجموع دو عدد را حساب مي كند وADD برنامه اي كه دو عدد را خوانده توسط دكمه- 1 تمرين . حاصل تفريق دو عدد را چاپ مي كند و نمايش مي دهدSUB توسط دكمه )(Private Sub cmdadd_Click Text3.Text = Str(Val(Text1.Text) + Val(Text2.Text)) End Sub )(Private Sub cmdsub_Click Text3.Text = Str(Val(Text1.Text) - Val(Text2.Text)) End Sub  ساعت و ثانيه تبديل مي، – برنامه اي كه مقداري را به ثانيه مي گيرد و ان را به دقيقه2 تمرين . كند )(Private Sub Command1_Click ss1 = Val(Text1.Text) hh = ss1 \ 3600 mm = (ss1 Mod 3600) \ 60 ss = ((ss1 Mod 3600) \ 60) Mod 60 Text2.Text = "hh=" + Str(hh) Text2.Text = Text2.Text + "mm=" + Str(mm) Text2.Text = Text2.Text + "ss=" + Str(ss) End Sub  – برنامه اي كه سن شما را بر حسب روز از ورودي خوانده مشخص مي ند كه سن3 تمرين . چند ماه و چند هفته و چند روز است، شما چند سال )(Private Sub Command1_Click days = Val(Text1.Text) y = days \ 365 days = days Mod 365 m = days \ 30 days = days Mod 30 w = days \ 7 days = days Mod 7 " , Text2.Text = "your age is :" + Str(y) + "year " , Text2.Text = Text2.Text + Str(m) + "month " , Text2.Text = Text2.Text + Str(w) + "weeks " .Text2.Text = Text2.Text + Str(days) + "days End Sub  –برنامه اي بنويسيد كه دو عدد صحيح را از ورودي مي خواند با كليك يك دكمه مجموع4 تمرين . مربعات انها را به خروجي مي برد و با كليك دكمه ديگر حاصلضرب دو عدد را نمايش مي دهد )(Private Sub cmdmultiply_Click num1 = Val(Text1.Text) num2 = Val(Text2.Text) num3 = num1 * num2 Text3.Text = "multiply is :" + Str(num3) End Sub )(Private Sub Command1_Click num1 = Val(Text1.Text) num2 = Val(Text2.Text) num3 = num1 ^ 2 + num2 ^ 2 Text3.Text = "sum sqr is :" + Str(num3) End Sub درانتهاي فصل اول مختصري در مورد عناصر موجود در اين فصل توضيح مي دهيم . حلقه تكرار و ساختار تصميم گيري IF دستور IFش رط  THEN مجموعه دستورات ELSE مجموعه دستورات برنامه اي كه دو عدد صحيح را از ورودي دريافت كرده و كوچكترين عدد را در- 1 تمرين . خروجي چاپ كند )(Private Sub cmdmin_Click ":Text3.Text = "min If Val(Text1.Text) < Val(Text2.Text) Then Text3.Text = Text3.Text + Text1.Text Else Text3.Text = Text2.Text + Text3.Text End Sub . – برنامه اي نويسد كه كه يك عدد را از ورودي خوانده و تععين عالمت مي كند2 تمرين num = Val(Text1.Text) If num > 0 Then "Label2.Caption = "number is positive Else If num < 0 Then "Label2.Caption = "number is negative Else "Label2.Caption = "number is zero End If End If End Sub : طراحي منوها و منوهاي فرعي شان و فعال و غير فعالfile,edit,view رابط كاربري طراحي كنيد شامل سه منو . كردن گزينه هاو نمايش تيك دار كردن گزينه ها را در آن نشان دهيد )(Private Sub addresbaritem_Click If addresbaritem.Checked = False Then addresbaritem.Checked = True Else If addresbaritem.Checked = False Then addresbaritem.Checked = True End If End If End Sub )(Private Sub Image1_Click If copyitem.Enabled = False Then copyitem.Enabled = True End If If cutitem.Enabled = False Then cutitem.Enabled = True End If If pasteitem.Enabled = False Then pasteitem.Enabled = True End If End Sub Private Sub standardbuttonitem_Click)( If standardbuttonitem.Checked = False Then standardbuttonitem.Checked = True Else If standardbuttonitem.Checked = False Then standardbuttonitem.Checked = True End If End If End Sub