vb converter example

-

 


vb code is:-


Private Sub cmdChangeOunceGram_Click()
    Call cmdClearOunceGram_Click

    If Label5.Caption = "Ounce" Then
        Label5.Caption = "Gram"
        Label6.Caption = "Ounce"
    Else
        Label5.Caption = "Ounce"
        Label6.Caption = "Gram"
    End If
End Sub

Private Sub cmdClearPoundKilo_Click()
    text1.Text = ""
    text2.Text = ""
End Sub

Private Sub cmdChangePoundKilo_Click()
    Call cmdClearPoundKilo_Click

    If Label1.Caption = "Pound" Then
        Label1.Caption = "Kilogram"
        Label2.Caption = "Pound"
    Else
        Label1.Caption = "Pound"
        Label2.Caption = "Kilogram"
    End If
End Sub

Private Sub cmdClearCaratGram_Click()
    Text3.Text = ""
    Text4.Text = ""
End Sub

Private Sub cmdChangeCaratGram_Click()
    Call cmdClearCaratGram_Click

    If Label3.Caption = "Carat" Then
        Label3.Caption = "Gram"
        Label4.Caption = "Carat"
    Else
        Label3.Caption = "Carat"
        Label4.Caption = "Gram"
    End If
End Sub

Private Sub cmdClearOunceGram_Click()
    Text5.Text = ""
    Text6.Text = ""
End Sub


Private Sub cmdPoundKilo_Click()
    fraPoundKilo.Visible = True
    fraCaratGram.Visible = False
    fraOunceGram.Visible = False
End Sub

Private Sub cmdCaratGram_Click()
    fraCaratGram.Visible = True
    fraOunceGram.Visible = False
    fraPoundKilo.Visible = False
End Sub

Private Sub cmdOunceGram_Click()
    fraOunceGram.Visible = True
    fraPoundKilo.Visible = False
    fraCaratGram.Visible = False
End Sub

Private Sub text1_Change()
    If Label1.Caption = "Pound" Then
        text2.Text = Val(text1.Text) * 0.4536
    Else
        text2.Text = Val(text1.Text) * 2.2045855
    End If
End Sub

Private Sub Text3_Change()
    If Label3.Caption = "Carat" Then
        Text4.Text = Val(Text3.Text) * 0.2
    Else
        Text4.Text = Val(Text3.Text) * 5
    End If
End Sub

Private Sub Text5_Change()
    If Label5.Caption = "Ounce" Then
        Text6.Text = Val(Text5.Text) * 28.35
    Else
        Text6.Text = Val(Text5.Text) * 0.0352734
    End If
End Sub





Comments

Post a Comment

Popular posts from this blog

Computer Mcq Part 1 (1-50)

-
Image
 MCQ ABOUT COMPUTER FROM 1 TO 50 1. An Optical Input Device that interprets pencil marks on paper media is______ a) O.M.R b) Punch card reader c) Optical scanners d) Magnetic tape Answer: A 2. A Billionth of a second is defined as a______ a) Millisecond b) Microsecond c) Nanosecond d) Picoseconds Answer: C 3. CD-ROM stands for______ a) Compactable Read Only Memory b) Compact Data Read Only Memory c) Compactable Disk Read Only Memory d) Compact Disk Read Only Memory Answer: D 4. The Name box on to the left of formula bar______ a) shows the name of workbook currently working on b) shows the name of worksheet currently working on c) shows the name of cell or range currently working on d) None of above Answer: C 5. By Formatting a cell in Currency format, you can specify ? a) Decimal Places  b) Currency Symbol c) Both 1 and 2 Options d) None of above  Answer: C 6. The slide that is used to introduce a topic and set the tone for the presentat...
Read more

Computer MCQ Part 4 (151-200)

-
Image
 Computer MCQ for Practice 151. CorelDraw is a ______ based drawing application package. a) Photo paint b) Bitmap c) Vector d) Scalar Answer: C 152. ______tool removes overlapping segments in the objects. a) Knife b) Crop Tool c) Virtual Segment Tool d) Eraser Answer: C 153. Which submenu convert the .cdr file in .jpeg format? a) import b) filter c) export d) text Answer: C 154. Apply add perspective from ________ menu. a) Effects b) File c) Help d) Window Answer: A 155. Where we from insert the 'insert character' ? a) File b) Edit c) View d) Text Answer: D 156. CorelDraw is a ______ type of graphics software? a) Raster graphics b) Vector graphics c) Both of these d) None of these Answer: B 157. Shortcut key of zoom to page_______ a) Shift + F2 b) Shift + F3 c) Shift + F4 d) Shift + F5 Answer: C 158. Zoom to all objects, use_______ a) Shift + F2 b) F2 c) F4 d) F3 Answer: C 159. What is the shortcut key to align selected objects to the bot...
Read more

Computer MCQ Part 3 (101-150)

-
Image
 ALL ABOUT COMPUTER MCQ 101. Which command brings you to the first slide in your presentation? a) Next slide button b) Page up c) Ctrl + Home d) Ctrl + End Answer: C 102. Which file starts MS Word? a) Winword.exe b) word.exe c) word2003.exe d) 2007.exe Answer: A 103. Which is not a computer classification? a) Mainframe b) Maxframe c) Mini d) Notebook Answer: B 104. Which language is directly understood by the computer without translation program? a) Machine language b) Assembly language c) High level language d) None of above Answer: A 105. Which menu provides you options like Animation Scheme, custom Animation, Slide Transition? a) Insert Menu b) Format Menu c) Tools Menu d) Slide Show Menu Answer: D 106. Which of the following features should you use while typing in the notes text box? a) Slide show  b) Insert c) Slide maser d) Zoom Answer: D 107. Which of the following is internal memory? a) Disks b) Pen Drives c) RAM d) CDs An...
Read more