1

Microsoft Visual Basic 6.0

Chapter (1) Introduction pum;csD; 1/ Microsoft Visual Basic 6.0 onf Programming rsm;a&;om;&mwGif toH;k jyKaom Computer Language wpfckjzpfygonf/ ,cifu GWBASIC, BASIC, BASICA, QBASIC wdkYrSwpfqifh,cktcgwGif Visual Basic 4.0, Visual Basic 5.0, Visual Basic 6.0 (Windows Mode) wGiftoHk;jyKEdkifaom Programming Language rsm;jzifha&;om;cJhMuygonf/ Visual rSmtjrifESifhoufqdkifaom[k t"dyÜg,f&NyD; BASIC rSm Beginners All Purpose Symbolic Instruction Code [kt"dygÜ ,f&ygonf/ Visual Basic 6.0 pwifzGifhjcif; 2/ Windows 95 ESifh txufuGefysLwmpufwpfvHk;zGifhvdkufaomtcg Task Bar ay:wGif Start udk Mouse jzifh Left Click ESyd &f rnf/ xdaYk emuf Program tm;a½G;cs,yf g/ Sub-Menu wpfckxyfrHay:vmrnf/ xdk Sub-Menu xJrS Microsoft Visual Basic 6.0 tm;a½G;ygu Visual Basic 6.0 tm;pwiftoH;k jyK&eftqifoifjh zpfaernf/ Desktop nmzuftay:axmifhwGif Microsoft Office Short Cut Bar ½Sad eygu 4if; Bar wef;xJ wGif Microsoft Visual Basic 6.0 Smart Icon jyyguvnf; Left Click ESyd jf cif;jzifv h nf; aumif;? uGefysLwm Desktop ay:wGif Microsoft Visual Basic 6.0 Short Cut Icon ½Sdaeyguvnf; 4if; Short Cut Icon udk Double Click ESdyfjcif;jzifhvnf;aumif; ac:,l

toHk;jyKEdkifayonf/ 3/ aemufwpfenf;rSm Start → Run udk Mouse Left Click vkyfvdkufygu yH(k 1)ygtwdik ;f Run Dialog Box ay:vmrnf/

yHk(1)

uGefysLwmvufpJG

2

4/ Open nmzuf½dS List Box xJwGif Cursor 0ifaevdrfhrnf/ xdktcg Browse udak ½G;yg/ VB6.EXE File ½Sd&mtqifhqifhodkY0ifNyD; OK udEk ydS yf gu Visual Basic 6.0 yGiv hf mrnf/ yH(k 2)/

yHk(2) Creating an Application y½dk*&rfwpfckudkpwiftajcwnfjcif; 5/ yxrOD;pGm Visual Basic Programming jzifh zm&if[dkufrS pifwD*&dwfodkY

ajymif;vJaomy½dk*&rfykpämukda&;om;&mwGif zm&if[dkufrS pifwD*&dwfodkYajymif;vJaom Formula udo k ½d &dS rnf/ Oyrm - C = 5/9 * (F-32)/ 6/

y½dk*&rfwpfckudka&;om;&mwGif tqifh(3)qifh½Sdonf/ 4if;wdkYrSm(u) Create the interface/ ( c) Set Properties/ ( *) Write Code /

3

Microsoft Visual Basic 6.0

Create the interface tjyeftvSefqufoG,fcsufrsm;udkBudKwifpOf;pm;jcif; 7/ yxrOD;pGm Project topfwpfckudkzefwD;&rnf/ xdkYaMumifh Menu Bar wGif ½Sdaom File udak ½G;yg/ Pulldown Menu (or) Dropdown Menu wpfckay:vmrnf/ 4if;xJrS New Project udka½G;&rnf/ yHk(3)/

yHk(3)

8/

xdt k cg New Project Dialog Box wpfckay:vmNyD; yHkrSeftm;jzifh Standard EXE Smart Icon a½G;cs,fjcif;cHae&ygu OK uda k ½G;cs,&f ygrnf/ yk(H 4)/

uGefysLwmvufpJG

4

yHk(4)

9/

zm&if[dkufrS pifwD*&dwfodkYajymif;vJrnfh y½dk*&rfa&;om;&ef Form1 qdkonfh Form yHkpHwpfckay:vmrnf/ yHk(5)/

yHk(5)

5

Microsoft Visual Basic 6.0

10/

4if; Form yHkpHwGif Text, Memory Variable rsm;zefwD;&eftwGuf Visual Basic wGit f qifoifyh g½Sad eaom Toolbox udak c:,l&rnfjzpfygonf/ Toolbox udrk awGU ygu Menu Bar ½Sd View rSwqifha½G;yg/ yHk(6)/ xdktcg Toolbox ay:vmayrnf/ yHk(7)/

yHk(7) yHk(6)

11/ Icon udktoHk;jyKí Fahrenheit Degree, Centigrade Degree rsm;udk Form xJwGifa&;om;&rnf/ yHk(8)/

yHk(8)

uGefysLwmvufpJG

6

12/

þuJhodkY Fahrenheit Degree, Centigrade Degree rsm;udk zefwD;&mwGif Form1 xJodkY Label Icon udka½G;í Drag and Drop vkyy f g&ef/ xdt k cg Form1 xJwGif yHk(9)ygyHkpHtwdkif;jzpfaernf/

yHk(9)

Set Properties *kPo f wÅrd sm;udjk yifqifjcif; 13/ Label [kazmfjyonfh Text Frame udkjrifawGU&rnfjzpfNyD; 4if; Text Frame ay:rS Mouse Right Click udEk ydS yf gu Short Cut Menu wpfckay:vmrnf/ yHk(10)/

yHk(10)

7

Microsoft Visual Basic 6.0

14/

4if; Short Cut Menu \atmufqHk;jzpfaom Properties udak ½G;yg/ xdt k cg Label1 ESifhoufqdkifaom Properties udkyHk(11)ygtwdkif;jrifawGU&rnf/

yHk(11)

15/ yH(k 11)yg Properties - Label1 xJ½dS Label1 Label wGiyf g0ifaomtcsurf sm; udk atmufygtwdkif;jyifqif&rnf (u) AutoSize - True ( c) BackStyle - 0 - Transparant ( *) Caption - Fahrenheit Degree = = = > (C) Font - Font Size - 12, Font Style - Bold [kjyifqif jznfhpGufNyD; Properties \ Close Button udka½G;&rnfjzpfonf/ 16/ xdkenf;wl Centigrade Degree = = = > udkvnf; txufygtwdkif;zefwD; &rnf/ xdkYaemuf Keyboard rS ocsFmqdkif&mudef;*Pef;rsm;½dkufxnfh&ef Text Box Icon jzifh Fahrenheit Degree = = = > \nmzufwGifxyfrHzefwD;&ef/ xdkYaemuf Right Click xyfrE H ydS yf g&ef/ xdt k cg Short Cut Menu wpfckxyfrHay:vmrnf/ yHk(12)/

uGefysLwmvufpJG

8

yHk(12)

17/ 4if;rS Short Cut Menu \atmufqHk;jzpfaom Properties udak ½G;cs,&f rnf/ xdt k cg Properties - Text1 Text1 TextBox ay:vmrnf/ yH(k 13)/

yHk(13)

18/

Text1 TextBox Properties wGifatmufygwdkYudkjyifqif&ef(u) Font - Font Size - 12, Font Style - Bold ( c) Text - Empty [kjyifqifjznfhpGufNyD; Properties \ Close Button udk Left Click vkyy f g/ xdt k cg Text1 TextBox Properties ydwfoGm;vdrfhrnf/ xdkenf;wl Text2 udkvnf; Text1 enf;wl

9

Microsoft Visual Basic 6.0

zefwD;xm;&rnf/ yHk(14)/ Text1 rSm zm&if[dkuf'D*&DtwGufjzpfí Text2 rSm pifw* D &dw'f *D &DtwGujf zpfygonf/

yHk(14)

Write Code y½dk*&rfa&;jcif; 19/ Fahrenheit Degree ½dkufoGif;&efjzpfaom Text Box ü*Pef;wpfck½dkufNyD; <Enter> udE k ydS yf g/ Centigrade Degree udo k ufqikd &f m Text Box üazmfjyrnfjzpfonf/ Centigrade Degree ½dkufoGif;&efjzpfaom Text Box ü*Pef;wpfck½dkufNyD;<Enter>udk ESyd yf gu Fahrenheit Degree udo k ufqikd &f m Text Box ütjyeftvSeaf zmfjyrnfjzpfonf/ þuJhodkYjyKvkyfí&Edkifap&ef Text1, Text2 TextBox wdkYwGif View Code (or) Program rsm;a&;om;&rnfjzpfonf/ Program a&;om;&mü Text1 Box wGif Double Click ESy d &f rnf/ xdt k cg Program a&;om;&eftqifoift h ajctaeay;vmrnf/ yH(k 15)/

yHk(15)

uGefysLwmvufpJG

10

20/ Text1 Text Box udk Double Click ESdyfí Private Sub Text1_Change() ESihf End Sub ay:vmygu Procedure List Box udk Change tpm; KeyPress [kajymif; &rnf/ xdkYaemuf Private Sub Text1_KeyPress(KeyAscii As Integer) ESifh End Sub tMum;wGif atmufyg Program udka&;om;&efjzpfonf/ yHk(16)/

yHk(16)

21/

xdkenf;wl Text2 Text Box ud k Double Click ESdyfí Private Sub Text2_Change ESifh End Sub ay:vmygu Procedure List Box udk Change tpm; KeyPress [k ajymif;&rnf/ xdkYaemuf Private Sub Test2_KeyPress(KeyAscii As Integer) ESifh End Sub tMum;wGif atmufyg Program udka&;om;&efjzpfonf/ yHk(17)/

yHk(17)

22/ 4if;zdkifudk odrf;vdkygu Menu Bar ½Sd File udka½G;NyD; Pulldown Menu wGif yg0ifaom Save Project udka½G;&efjzpfonf/ yHk(18)? xdktcg Save File as Dialog Box ay:vmrnf/ File Name List Box wGif extest001 [ka&;NyD; Save udk Mouse Left Click vky& f rnf/ yH(k 19)/

11

Microsoft Visual Basic 6.0

yHk(18)

yHk(19)

23/ xdt k cg Save Project As Dialog Box ay:vmNyD; File Name List Box wGif extest1 [ka&;NyD; Mouse Left Click vkyf&rnf/ yHk(20)/ yxrodrf;aomzdkifrSm Form File, Extension rSm .frm jzpfNyD; 'kwd,trnfjzifhodrf;aomzdkifrSm Visual Basic Project File, Extension rSm .Vbp jzpfygonf/

uGefysLwmvufpJG

12

yHk(20)

24/ xdt k cg Project - Project Dialog Box wGif Project1(extest001.vbp) ESifh Form1 (extest001.frm) [líyHk(21)ygtwdkif;jzpfay:vmayrnf/

yHk(21)

25/

udk Click vkyyf gu extest001 yHkpHay:vmrnfjzpfNyD; 4if; Form udy k w d v f u kd yf gu Close Button udka½G;&rnf/ yHk(22)/ udk Click vkyyf gu Program a&;om;xm;onfrsm;udkawGU½Sd&rnf/ yHk(23)/

13

Microsoft Visual Basic 6.0

yHk(22)

yHk(23)

26/

txufyg Project File jzpfaom extest001 udk Run vdyk gu Menu Bar ½Sd Run udka½G;yg/ xdkYaemuf Start udka½G;yg/ yHk(24)?(odkYr[kwf) Short Cut Key (or) Short Hand Key taejzifh Function Key jzpfaom F5 udE k ydS í f vnf;&Edik af yonf/ (odrYk [kw)f Menu Bar atmuf½Sd Standard Toolbar rS Icon udk Left Click ESdyfjcif; jzifhvnf;&Edkifayonf/ xdktcgyHk(25)ygtwdkif; Text Box xJwGif Cursor tqifoifh a&muf½Sdaernf/

yHk(24)

uGefysLwmvufpJG

14

yHk(25)

27/ zm&if[dkuf'D*&DudkxnfhNyD; <Enter> ESdyfygu pifwD*&dwf'D*&DtajzwGufay; rnf/ pifw*D &dw'f *D &Dux kd nfNh y;D <Enter> ESyd yf guvnf; zm&if[u kd 'f *D &Duw kd u G af y;rnf/ rdrdBuKdufESpfouf&m Text Box udk*Pef;½dkufxnfhNyD; <Enter> ESdyfEdkifonfhtcGifhta&;½Sd onf/ 4if; Form tm;ydwv f u kd yf gu Form1 \nmzuftay:axmifhwGif½Sdaom Close Button udka½G;&rnf/ 28/

Visual Basic 6.0 xJrx S u G v f ykd gu Menu Bar ½Sd File udka½G;NyD; Pulldown Menu \atmufqHk;jzpfaom Exit uda k ½G;&ygrnf/ xdt k cg Microsoft Visual Basic Dialog Box wpfckay:vmrnf/ Yes udka½G;ygu aemufqHk; Current Project, Form File wdkYudkodrf;oGm;NyD; Microsoft Visual Basic rSxGufoGm;ayrnf/ No udka½G;ygu rodr;f bJxu G o f mG ;ayrnf/ Cancel udka½G;ygu Microsoft Visual Basic 6.0 rSrxGub f J

,ciftwdik ;f tvkyv f yk Ef ikd rf nfjzpfygonf/ yH(k 26)/

yHk(26)

15

Microsoft Visual Basic 6.0

29/

½SdNyD;om; extest001 File udzk iG v hf ykd gu Menu Bar ½Sd File udak ½G;yg/ xdt k cg Pulldown Menu ay:vmrnf/ 4if;rS udak ½G;yg/ xdt k cg Open Project Dialog Box ay:vmNyD;4if;rS extest001.vbp udka½G;í Open udk Click ESy d &f ef jzpfonf/ yH(k 27)/

yHk(27)

30/ odkYr[kwf extest001 File udzk iG v hf ykd gu Menu Bar ½Sd File udak ½G;yg/ Exit tay:½Sd Recent File xJwGif extest001.vbp udka½G;yguvnf; yGifhvmrnfjzpfonf/ yHk(28)/

uGefysLwmvufpJG

16

yHk(28)

31/

þuJhodkY zdkifzGifhvdkufaomtcg wcgw&H Project File rawGU½Sdygu Menu Bar ½Sd View udka½G;yg/ 4if;rS Pulldown Menu wpfckjzpfaom Project Explorer udk a½G;yg/ odrYk [kwf Short Cut Key jzpfonfh Ctrl+R udEk ydS yf g/ yH(k 29)/

17

Microsoft Visual Basic 6.0

yHk(29)

32/ xdt k cg yH(k 30)wGiaf zmfjyxm;onft h wdik ;f extest001 Dialog Box ay:vmay rnf/ , wdkYudk toHk;jyKí Project File udkjyefvnfjyKjyif odrf;Edkifayonf/

yHk(30)

uGefysLwmvufpJG

18

Factorial ½Smonfh y½dk*&rfa&;jcif;

33/

atmufygyHk(31)ygtwdkif; Visual Basic wGizf efw;D xm;&rnf/

yHk(31)

34/ Title Bar wGif ½kyfyHkESifhwuG Factorial pmom;xnfo h iG ;f &mwGif Properties ü Form1 Form udka½G;yg/ xdkYaemufatmufygwdkYudkjyifqif&ef/ yHk(32)/

yHk(32)

19

Microsoft Visual Basic 6.0

35/

Caption udk Factorial ESifh Icon udk C:\Program Files\Microsoft Visual Studio\Common\ Graphics\Icon\Misc xJro S ifah wmf&m½kyyf u kH akd ½G;xnfjh cif;jzpfonf/

36/

Run ESifh Exit onf Command Button rsm;jzpfMuNyD; 4if;wdkY\oufqdkif&m Properties rsm;udkvnf; atmufygtwdkif;pDrHxm;&rnf? Run Command Button wGif(u) Caption - &Run ( c) Font - MS Sans Serif, Font Style→ → Bold, Font Size → 10

37/

Exit Command Button wGif (u) Caption - E&xit ( c) Font - MS Sans Serif, Font Style→ → Bold, Font Size → 10

38/

Exit Command Button wGifatmufyg Program udka&;om;&efPrivate Sub Command2_Click() Unload Me End End Sub

39/

Run Command Button wGifatmufyg Program udka&;om;&efPrivate Sub Command1_Click() ' Write a program to find the factorial of a given integer: N! = 1*2*3*4*5*...*N Cls a = Text1 kount = 1: k = 1 Do While k < a + 1 kount = kount * k k = k +1 loop print "Requirement Answer = = = > ", kount Text2 = kount End Sub

uGefysLwmvufpJG

20

40/

Factorial Program udka&;om;&mwGif Do ... Loop a&;xHk;udk odoifhonf/ Do ... Loop a&;xHk;rSm atmufygtwdkif;jzpfonf/ Syntax; Do [{While/Until} condition] [Statements] [Exit Do] [Statements] Loop (or) Do [Statements] [Exit Do] [Statements] Loop [{While/Until] condition] Syntax; Cls ' Clear form background

41/ xyfcg xyfcgtvkyv f yk &f rnfu h pd rö sm;wGif txufyg Do ... Loop a&;xHk;udk toH;k jyKonf/ xdt k cg Text1 Text Box xJwGif Cursor 0ifaernfjzpfNyD; 4if;wGif*Pef; wpfckck ½dkufxnfh&rnf/ Oyrm-4 [k½dkufNyD; Run Command Button udk Click vkyyf gu Private Sub Command1_Click() ESifh End Sub Mum;½Sd Command rsm;udw k pfaMumif; csi;f tvkyv f yk o f mG ;rnf/ Cls a&;xH;k rSm Form ay:wGit f jcm;udprö sm;a&;xm;ygu ½Si;f vif; ypf&efjzpfygonf/ a = Text1 rSm a xJwGif 4 a&muf½Sdvmrnf/ kount = 1 rSm kount xJ wGif 1 a&muf½Sdvmrnf/ k = 1 rSm k xJwiG f 1 udx k nfx h m;rnf/ Do While k
21

Microsoft Visual Basic 6.0

onf 5 xufi,faeojzifhatmufwpfaMumif;jzpfaom kount = kount * k odkY qif;vm rnf/ kount \wefzdk;onf 1 jzpfNyD; k wefzdk;rSm 2 jzpfaomaMumifh 2 ESifh 1 ajr§mufygu 2 &rnf/ 4if;wefzdk; kount xJa&mufoGm;rnf/ atmufwpfaMumif;qif;ygu k = k +1 jzpfomG ;ayrnf/ xH;k pHtwdik ;f Do While k ", kount odkY qif;vmayrnf/ Form \ b,fbufaxmifhwGif "Requirement Answer = = = > pmom;ay:vmNyD; 24 [k azmfjyrnf/ Text2 xJwGifvnf; tajzjzpfaom 24 udkazmfjyaernfjzpfonf/ 42/ 2 jzifph m;u 1
yHk(33)

uGefysLwmvufpJG

22

43/

Exit Command Button wGifatmufyg Program udka&;om;&efPrivate Sub Command2_Click() Unload Me End End Sub

44/

Run Command Button wGifatmufyg Program udka&;om;&efPrivate Sub Command1_Click() a = 1: Check = True Do ' While Check = True If a Mod 2 = 1 And a Mod 3 = 2 And a Mod 5 = 4 And a Mod 7 = 6 Then Exit Do ' Exit Inner Loop Else a=a+1 End If Loop Until Check = False 'Exit Outer Loop Immediately Print "Requirement Answer = > ", a Text1 = a End Sub

45/ txufyg Program udk Run ygu tajzonf 209 &rnf/ 4if; Program udka&;&mwGif Mod (Modulus) Operator a&;xHk;udk odoifhonf/ Syntax; result = number1 Mod number2 A = 7 Mod 4, A → 3 A = 7 Mod 3, A → 1

23

Microsoft Visual Basic 6.0

Prime Number udk½Smjcif;

46/

atmufygyHk(34)ygtwdkif; Visual Basic wGifzefwD;xm;&rnf yHk(34)

47/

Exit Command Button wGifatmufyg Program udka&;om;&efPrivate Sub Command2_Click() Unload Me End End Sub

48/

Run Command Button wGifatmufyg Program udka&;om;&efPrivate Sub Command1_Click() 'To determine whether the given number is Prime Number Cls mp = Text1 mc = 2 Do While Not (mp Mod mc = 0 And mc <= mp) mc = mc + 1 Loop Print: Print Print "MP ", mp Print "MC ", mc If Text1 = mc Then Print Print mp, " is a Prime Number." Else Print Print mp, " does not Prime Number." End If End Sub

uGefysLwmvufpJG

24

49/

tu,fírdrpd w d Bf uKu d *f Pef;ud½k u kd o f iG ;f Ny;D 2 ESihf rdr½d u kd o f iG ;f onfh *Pef;Mum; Prime Number ta&twGufudk½Smvdkygu yHk(35)ygtwdkif; zefwD;wnfaqmuf&ef -

yHk(35)

50/

Exit Command Button wGifatmufyg Program udka&;om;&efPrivate Sub Command2_Click() Unload Me End End Sub

51/

Run Command Button wGifatmufyg Program udka&;om;&efPrivate Sub Command1_Click() Cls d=1 pp = 2 zz = Val(Text1) Do While pp < zz mc = 2 Do While Not (pp Mod mc = 0 And mc <= pp) mc = mc + 1 Loop If mc = pp Then d=d+1 Print mc; End If pp = pp + 1 Loop Text2 = d - 1 End Sub ---------------0-0-0---------------

25

Microsoft Visual Basic 6.0

Chapter (2) Menu wnfaqmufjcif; 1/ Menu wnfaqmuf&mwGif Menu Bar rS Tools Menu udka½G;yg/ xdkYaemuf Pulldown Menu xJrS Menu Editor ... udka½G;yg/ yHk(36)/ xdktcg Menu Editor Dialog Box wpfckay:vmrnf/ yHk(37)/

yHk(36)

yHk(37)

2/ Caption nmzuf½dS Box wGif &Options [ka&;&ef/ Name nmzuf½dS Box wGif Options [ktrnfowfrw S &f ef/ xdt k cg atmufzuf½dS List Box wGif yH(k 38)ygtwdik ;f jzpfay:vmrnf/

uGefysLwmvufpJG

26

yHk(38)

3/ txufygyH(k 38)wGif OK udk Mouse Left Click vkyyf gu yH(k 39)ygtwdik ;f jzpf ay:vmrnf/ 4if;onf Menu Bar jzpfonf/

yHk(39)

27

Microsoft Visual Basic 6.0

4/

xdkYaemuf Pulldown Menu rsm;udkqufvufzefwD;&rnf/ Menu Bar rS Tools Menu udkjyefa½G;yg/ xdkYaemuf Pulldown Menu xJrS Menu Editor ... uda k ½G;yg/ xdt k cg Menu Editor Dialog Box jyefvnfay:vmrnf/ Command Button wpfcjk zpf aom udak ½G;yg/ xdaYk emuf Caption List Box ü &Test Buttons udjk znfph u G f yg/ Name List Box ü TestButtons udjk znfph u G Nf y;D udak ½G;yg/ TestButtons udkuyfí a&;&rnf/ Test ESifh Buttons udck gG íra&;&yg/ yH(k 40) wGiaf zmfjyxm;onft h wdik ;f jzpfvm ygu OK udk Click vkyyf g/

yHk(40)

5/

xdktcg yHk(41)wGifazmfjyxm;ouJhodkY Test Buttons onf Pulldown Menu (or) Dropdown Menu wpfcjk zpfvmrnf/

uGefysLwmvufpJG

28

yHk(41)

6/

txuf y genf ; twd k i f ; Caption List Box wG i f &Word Warp and Autosize, &Check Box, &Number System, &List Box wdkYESifh Name List Box wGif WordWrapandAutosize, CheckBox, NumberSystem, ListBox wdu Yk jkd znfph u G f NyD; OK udk Left Click vkyfygu yHk(42)wGifjrif&onfhtwdkif; Pulldown Menu (or) Dropdown Menu rsm;toD;oD;jzpfvmrnf/

yHk(42)

29

Microsoft Visual Basic 6.0

7/ Pulldown Menu wpfckjzpfaom List Box udk Mouse Left Click ESy d yf gu aemufxyf Sub-Menu wpfckay:xGufapvdkygu Menu Editor ... udkjyefac:í udka½G;yg/ xdkYaemuf udak ½G;yg/ Caption List Box wGif N&umber,, T&ext wdkYESifh Number List Box wGif Number, Text wdkYudkjznfhpGufNyD; OK udk Mouse Left Click vkyfygu yHk(43)wGif jrif&onfhtwdkif; Pulldown Menu (or) Dropdown Menu rsm; toD;oD;jzpfvmrnf/

yHk(43)

8/

tqdkyg Pulldown Menu wpfckjzpfaom List Box onf Word Wrap and Autosize ESifh Check Box Mum;wGif ae&mjyefvnfajymif;a½TUvdkygu Menu Bar ½Sd Tools udak ½G;yg/ Dropdown Menu wpfcjk zpfaom Menu Editor ... udjk yefvnfa½G;yg/ ...&Check Box uda k ½G;í Dropdown Arrow jzifah tmufq;kH udk a&mufatmifa½TU&ef/ xdkenf;wl ...&Number System udkvnf; atmufqHk;odkYa&mufatmifa½TUNyD; OK udk Click vkyjf cif;jzifh &½SE d ikd af yonf/ yH(k 44)? xdt k cg yH(k 45)ygtwdik ;f Menu ajymif;vJomG ;ay rnf/

uGefysLwmvufpJG

30

yHk(44)

yHk(45)

9/ Form1 Menu xJrSxGuf&ef Command Button jzifh Exit udkzefwD;í xHk;pH twdkif; y½dk*&rfa&;om;&rnf/ yHk(46)/ Private Sub Command1_Click() Unload Me End End Sub

31

Microsoft Visual Basic 6.0

yHk(46)

Pulldown Menu wpfcjk zpfaom Test Buttons uda k ½G;ygujzpfvmrnfh Program udk

a&;om;jcif; 10/ Pulldown Menu wpfcjk zpfaom Test Buttons uda k ½G;ygu 4if;ESiv hf u kd af vsm nDaxGjzpfap&ef Form wpfck Insert jyKvyk í f vdt k yfaomy½d*k &rfrsm;a&;om;&rnf/ Form wpfckudk Insert jyKvyk v f ykd gu Menu Bar ½Sd Project udka½G;yg/ xdkYaemuf Pulldown Menu jzpfaom Add Form udk a½G;&efjzpfonf/ yHk(47)/

yHk(47)

uGefysLwmvufpJG 11/

32

Form2 jzpfay:vmygu yHk(48)ygtwdkif;wnfaqmuf&efjzpfonf/

yHk(48)

12/ Command Button wpfckjzpfaom ChangeSignal wGif atmufygy½dk*&rfudk a&;om;&rnfPrivate Sub Command1_Click() ChangeSignal End Sub

13/ Command Button aemufwpfckjzpfaom Close wGif atmufygy½dk*&rfudk a&;om;&rnfPrivate Sub Command2_Click() Form2.Hide Form1.Show End Sub

14/ Command1 wGifa&;om;xm;aomy½dk*&rfrSm wdkuf½dkuf Run aomy½dk*&rf jzpfojzifh 4if;y½dk*&rfudk qufvufa&;om;&ef vdktyfygonf/ yHk(49)/ 15/

Pulldown Menu wpfckjzpfaom Test Button udk Click vkyy f g/ 4if;wGif

Form2 udk vSrf;íac:aom y½dk*&rfudka&;om;&rnf/ Private Sub TestButtons_Click() Form2.Show End Sub

33 16/

Microsoft Visual Basic 6.0

Form2 \ General wGifatmufygy½dk*&rfudk xyfrHa&;om;&rnf -

yHk(49)

Word Wrap and Autosize (Pulldown Menu) twGuf Program a&;om;jcif; 17/ Pulldown Menu wpfckjzpfaom Word Wrap and Autosize Button udka½G; ygu 4if;ESifhvdkufavsmnDaxGjzpfap&ef aemufxyf Form wpfckzefwD;í vdktyfaom

y½dk*&rfrsm;a&;om;&rnf/ yHk(50)/

yHk(50)

18/

Form3 udkatmufygtwdkif;wnfaqmuf&rnf? yHk(51)/

yHk(51)

uGefysLwmvufpJG

34

19/ yH(k 51)yg Form wGif , ESifh wdkY udo k ;kH xm;ygonf/ Check1 wGif Auto Size ESifh Check2 wGif Word Wrap wdkYudk owfrSwfxm;ygonf/ 4if;wdkYudk atmufygtwdkif; y½dk*&rfrsm;a&;om;&rnfPrivate Sub Check1_Click() If Check1.Value = 1 Then Label1.AutoSize = True Else Label1.AutoSize = False Label1.Height = 300 Label1.Width = 2000 End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then Label1.WordWrap = True Label1.AutoSize = True Else Label1.WordWrap = False Label1.Height = 300 Label1.Width = 2000 End If End Sub Private Sub Command1_Click() Form3.Hide Form1.Show End Sub List Box (Pulldown Menu) twGuf Program a&;om;jcif; 20/ List Box udka½G;vdkufygu Sub-Menu wpfckxyfrHay:vmrnf/ 4if;wdkYrSm Number, Text wdjYk zpfMuonf/ Number udka½G;ygu Number ESifhywfoufaom Form

wpfckay:&efESifh vdktyfaomy½dk*&rfrsm;a&;om;&rnf/ yHk(52)/

35

Microsoft Visual Basic 6.0

yHk(52)

21/ tqdyk g Form yHkpHwGif tpDtpOfrsm;udk Run Edkif&eftwGuf atmufygtwdkif; jyifqif&rnf/

yHk(53)

22/

txufygyHk(53)udkzefwD;&mwGif

,

,

ESifh

wdu Yk o kd ;kH xm;ygonf/ txufyg Form yHpk t H m; Run í&Edkifap&ef vdktyfaomy½dk*&rfrsm;udk a&;om;&rnf/ 23/

Add Command Button wGifatmufyg Program udka&;om;&efPrivate Sub Command1_Click() List1.AddItem Text1.Text Text1.Text = "" Text1.SetFocus

uGefysLwmvufpJG

36

Label3.Caption=List1.ListCount End Sub

24/

Remove Command Button wGifatmufyg Program udka&;om;&efPrivate Sub Command2_Click() Dim Ind As Integer Ind = List1.ListIndex If Ind >= 0 Then List1.RemoveItem Ind Label3.Caption = List1.ListCount Else Beep End If Command2.Enabled = (List1.ListIndex <> -1) End Sub

25/

Clear Command Button wGifatmufyg Program udka&;om;&efPrivate Sub Command3_Click() List1.Clear Command2.Enabled = False Label3.Caption = List1.ListCount End Sub

26/

Close Command Button wGifatmufyg Program udka&;om;&efPrivate Sub Command4_Click() Unload Me End Sub

27/

List Box (Single Click) twGufatmufyg Program udka&;om;&efPrivate Sub List1_Click() Command2.Enabled = (List1.ListIndex <> -1) End Sub

28/

List Box (Double Click) twGufatmufyg Program udka&;om;&efPrivate Sub List1_DblClick() Command2.Value = True End Sub

37 29/ &ef-

Microsoft Visual Basic 6.0

Text1, Add Command Button wdt Yk wGuaf tmufyg Program udak &;om;

Private Sub Text1_Change() Command1.Enabled = (Len(Text1.Text)>0) End Sub

30/ Text udka½G;ygu Text ESifhywfoufaom Form wpfckay:&ef Form wpfckudk zefwD;ívdktyfaomy½dk*&rfrsm;a&;om;&rnf/ yHk(54)/

yHk(54)

31/ tqdyk g Form yHkpHwGif tpDtpOfrsm;udk Run Edkif&eftwGuf atmufygtwdkif; jyifqif&rnf/ yH(k 55)/

yHk(55)

32/

txufygyHk(55)udkzefwD;&mwGif

,

,

ESifh

wdu Yk o kd ;kH xm;ygonf/ txufyg Form yHkpHwGiftpDtpOfrsm;udk Run Edkif&eftwGuf vdktyfaomy½dk*&rfrsm;udk a&;om;&rnf/

uGefysLwmvufpJG

38

33/

Add Command Button wGifatmufyg Program udka&;om;&efPrivate Sub Command1_Click() List1.AddItem Text1.Text Text1.Text = "" Text1.SetFocus Label3.Caption=List1.ListCount End Sub

34/

Remove Command Button wGifatmufyg Program udka&;om;&efPrivate Sub Command2_Click() Dim Ind As Integer Ind = List1.ListIndex If Ind >= 0 Then List1.RemoveItem Ind Label3.Caption = List1.ListCount Else Beep End If Command2.Enabled = (List1.ListIndex <> -1) End Sub

35/

Clear Command Button wGifatmufyg Program udka&;om;&efPrivate Sub Command3_Click() List1.Clear Command2.Enabled = False Label3.Caption = List1.ListCount End Sub

36/

Close Command Button wGifatmufyg Program udka&;om;&efPrivate Sub Command4_Click() Unload Me End Sub

37/

List Box (Single Click) twGuf Private Sub List1_Click() Command2.Enabled = (List1.ListIndex <> -1) End Sub

39

Microsoft Visual Basic 6.0

38/

List Box (Double Click) twGuf Private Sub List1_DblClick() Command2.Value = True End Sub

39/

Text1, Add Command Button wdkYtwGuf Private Sub Text1_Change() Command1.Enabled = (Len(Text1.Text)>0) End Sub

40/

Check Box (Pulldown Menu) twGuf Program a&;om;jcif; Pulldown Menu wpfcjk zpfaom Check Box udak ½G;ygu 4if;ESiv hf u kd af vsmnD axGjzpfap&ef aemufxyf Form wpfckzefwD;í vdktyfaomy½dk*&rf rsm;a&;om;&rnf/

yHk(56)/

yHk(56)

41/ tqdyk g Form yHkpHwGif tpDtpOfrsm;udk Run Edik &f ef twGuf wpfzufygtwdik ;f jyifqif&rnf/ yH(k 57)/ , , ESifh wdkYudkoHk;xm;ygonf/

uGefysLwmvufpJG

40

yHk(57)

42/ rnf/

txufyg yH(k 57)tm; Run í &Edkifap&ef vdktyfaomy½dk*&rfrsm;udka&;om;&

43/

Check1 wGifatmufyg Program udka&;om;&efPrivate Sub Check1_Click() Dim a1 As Font Set a1 = Text1.Font If Check1.Value = 1 Then a1.Bold = True Else a1.Bold = False End If End Sub

44/

Check2 wGifatmufyg Program udka&;om;&efPrivate Sub Check2_Click() Dim a1 As Font Set a1 = Text1.Font If Check2.Value = 1 Then a1.Italic = True

41

Microsoft Visual Basic 6.0

Else a1.Italic = False End If End Sub

45/

Check3 wGifatmufyg Program udka&;om;&efPrivate Sub Check3_Click() Dim a1 As Font Set a1 = Text1.Font If Check3.Value = 1 Then a1.Underline = True Else a1.Underline = False End If End Sub

46/

Check4 wGifatmufyg Program udka&;om;&efPrivate Sub Check4_Click() Dim a1 As Font Set a1 = Text1.Font If Check4.Value = 1 Then a1.Strikethrough = True Else a1.Strikethrough = False End If End Sub

47/

Close Command Button wGifatmufyg Program udka&;om;&efPrivate Sub Command1_Click() Unload Me End Sub

uGefysLwmvufpJG

42

Number System (Pulldown Menu) twGuf Program a&;om;jcif; 48/ Pulldown Menu wpfckjzpfaom Number udka½G;ygu 4if;ESifhvdkufavsmnD axGjzpfap&ef aemufxyf Form wpfckzefwD;í vdktyfaomy½dk*&rfrsm;a&;om;&rnf/

yHk(58)/

yHk(58)

49/ tqdyk g Form yHkpHwGif tpDtpOfrsm;udk Run Edkif&eftwGuf atmufygtwdkif; jyifqif&rnf/ yH(k 59)/

yHk(59)

50/ txufyg , , ESifh wdu Yk o kd ;kH xm;ygonf/ 4if; Form yHkpHwGif Run í&Edkifap&ef vdktyfaomy½dk*&rfrsm;udk a&;om;&rnf/ 51/

General, Declarations wGifatmufyg Program udka&;om;&efDim a As Integer

43

Microsoft Visual Basic 6.0

52/

Close Command Button wGifatmufyg Program udka&;om;&efPrivate Sub Command1_Click() Unload Me End Sub

53/

Option1 wGifatmufyg Program udka&;om;&efPrivate Sub Option1_Click() Label2.Caption = Format(a) End Sub

54/

Option2 wGifatmufyg Program udka&;om;&efPrivate Sub Option2_Click() Label3.Caption = Oct(a) End Sub

55/

Option3 wGifatmufyg Program udka&;om;&efPrivate Sub Option3_Click() Label4.Caption = Hex(a) End Sub

56/

Text1 wGifatmufyg Program udka&;om;&efPrivate Sub Text1_Change() a = Val(Text1.Text) End Sub

57/

Options Menu wGif xyfrHí Multiple Column List Box, Scroll Bars, Control Array wdu Yk zkd efw;D &ef/ yH(k 60)/

yHk(60)

uGefysLwmvufpJG

44

Multiple Column List Box (Pulldown Menu) twGuf Program a&;om;jcif; 58/ Pulldown Menu wpfckjzpfaom Multiple Column List Box udka½G;ygu 4if;ESiv hf u kd af vsmnDaxGjzpfap&ef aemufxyf Form wpfczk efw;D í vdt k yfaomy½d*k &rfrsm;

a&;om;&rnf/ yHk(61)/

yHk(61)

59/ tqdyk g Form yHkpHwGif tpDtpOfrsm;udk Run Edkif&eftwGuf atmufygwdkif; jyifqif&rnf/yHk(62)/

yHk(62)

60/ tqdkygyHk(62)udk zefwD;&mwGif oHk;xm;ygonf/ 61/

ESifh

wdkYudk

List1 List Box \ Properties wGif atmufygwdkYudkjyifqifxm;½Sd&rnf (u) Columns 2 ( c) MultiSelect 2 - Extended

45 62/ &rnf/

Microsoft Visual Basic 6.0

yH(k 62)yg Form yHpk t H m; Run í&Edkifap&ef atmufygy½dk*&rfrsm;udka&;om;

63/

Transfer Command Button twGufPrivate Sub Command1_Click() For n = 0 To (List1.ListCount - 1) If List1.Selected(n) = True Then ' If selected then add to the bottom list. List2.AddItem List1.List(n) End If Next Command2.Enabled = True 'An item is now in the bottom list, so enable the clear button. End Sub

64/

Clear Command Button twGufPrivate Sub Command2_Click() List2.Clear Command2.Enabled = False End Sub

65/

Close Command Button twGufPrivate Sub Command3_Click() Unload Me End Sub

66/

Form Load twGufPrivate Sub Form_Load() 'Note that the Sorted property of list is True, so adding 'items in alphabetical order is not actually necessary. List1.AddItem "Yangon" List1.AddItem "Myeik" List1.AddItem "Bagan" List1.AddItem "Kalaw" List1.AddItem "Meiktila" List1.AddItem "North Okkalapa" List1.AddItem "Mingaladon"

uGefysLwmvufpJG

46

List1.AddItem "South Okkalapa" List1.AddItem "North Dagon" List1.AddItem "South Dagon" List1.Selected(1) = True End Sub

67/

List1 List Box Double Click twGufPrivate Sub List1_DblClick() Command1.Value = True 'A user clicked the Transfer button. End Sub Scroll Bars toHk;jyKrItwGuf Program a&;om;jcif; 68/ Pulldown Menu wpfcjk zpfaom Scroll Bars udak ½G;ygu 4if;ESiv hf u kd af vsmnD axGjzpfap&ef Form wpfckzefwD;í vdktyfaomy½dk*&rfrsm;a&;om;&rnf/ yHk(63)/

yHk(63)

69/ tqdyk g Form yHkpHwGif tpDtpOfrsm;udk Run Edkif&eftwGuf yHk(64)ygtwdkif; jyifqif&rnf/ , , ESifh wdkYudkoHk; xm;ygonf/

yHk(64)

47 70/

Microsoft Visual Basic 6.0

Function wpfckjzpfaom DoColor twGuf yHk(65)wGifazmfjyxm;ygonf/

yHk(65)

71/

Close Command Button twGufPrivate Sub Command1_Click() Unload Me End Sub

72/

Red Horizontal Scroll Bar twGufPrivate Sub HScroll1_Change() HScroll1_Scroll 'Call the event procedure directly. End Sub Private Sub HScroll1_Scroll() DoColor End Sub

73/

Green Horizontal Scroll Bar twGufPrivate Sub HScroll2_Change() HScroll2_Scroll 'Call the event procedure directly. End Sub Private Sub HScroll2_Scroll() DoColor End Sub

uGefysLwmvufpJG

48

74/

Blue Horizontal Scroll Bar twGufPrivate Sub HScroll3_Change() HScroll3_Scroll 'Call the event procedure directly. End Sub Private Sub HScroll3_Scroll() DoColor End Sub Menu Bar aemufwpfckxyfrHjyKvkyfjcif; 75/ yHk(66)ygyHkwGif Menu wpfckom½SdNyD; Menu rSxGufcGgvdkygu Command Button wpfcu k t kd oH;k jyKí xdk Command Button udk Click jyKvyk jf cif;jzifh xGucf gG Edik af y onf/ þuJo h Ykd Menu rSxu G cf gG vdo k nfh aemufxyf Menu Bar wpfcw k nfaqmufvykd gu Tools udka½G;yg/ xdkYaemuf Pulldown Menu wpfckjzpfaom Menu Editor ... uda k ½G;yg/

yHk(66)

76/ xdt k cg yH(k 67)ygtwdik ;f Menu Editor ay:vmrnf/ 4if; ...&Scroll Bars wGif Active jzpfatmifxm;í Next Command Button udka½G;yg/ xdkYaemuf Caption wGif E&xit, Name wGif Exit [kjznfhpGufí Left Arrow Button tm;a½G;ygu ...E&xit onf E&xit jzpfoGm;ayrnf/ a½SUqHk;rSOD;aqmifonfh ... aysmufoGm;ayrnf/ xdkYaemuf Exit \atmufwGif½Sdaom Pulldown Menu rsm;tm; qufvufzefwD;&ef jzpfonf/ yHk(67)? yHk(68)/

49

Microsoft Visual Basic 6.0

yHk(67)

yHk(68)

uGefysLwmvufpJG

50

77/

xdt k cg yH(k 69)ygtwdik ;f Menu rsm;ajymif;vJoGm;ayrnf/ Exit Command Button tm;zsuy f pf&rnf/

yHk(69)

78/

txufygyHk(69)yg Pulldown Menu wpfckjzpfaom Quit tm; Double Click ESdyfívdktyfaomy½dk*&rftm;a&;om;&rnf/ 79/

Pulldown Menu wpfckjzpfaom Quit twGufPrivate Sub Quit_Click() Unload Me End End Sub ---------------0-0-0---------------

80/ onf-

txufyg y½d*k &rfrsm;udak &;&eftwGuf atmufyga&;xH;k rsm;udk od½&dS efvt kd yfyg

Syntax; Val(<String>) String wpfcktm; wGufcsufí&aom wefzdk;wpfcktjzpf ajymif;vJay;onf/

Oyrm MyValue = Val("2457") MyValue = Val(" 2 45 7") MyValue = Val("24 and 57") Syntax; If Then <Statements> [Else <Statements>] End If

' Returns 2457 ' Returns 2457 ' Returns 24

51

Microsoft Visual Basic 6.0

(Or) If Then [<Statements>] ElseIf Then [<Statements>]] ... [Else <Statements>]] End If

Oyrm Number = 53 'Initialize Variable If Number < 10 Then Digits = 1 ElseIf Number < 100 Then 'Condition evaluates to True so the next statement is executed. Digits = 2 Else Digits = 3 End If Syntax;