'Unit Change

'Ver0.1 by zadamaxi@yahoo.com.cn

'Do unit change, include:
'1. M to Feet
'2. kG to lb
'3. cm to Inch

$INCLUDE "RAPIDQ.INC"

DECLARE SUB TabChange
DECLARE SUB MtoFeet
DECLARE SUB FeettoM
DECLARE SUB lbtokG
DECLARE SUB kGtolb
DECLARE SUB CMtoInch
DECLARE SUB InchtoCM
DECLARE SUB MyExit

FeetPerM=3.28084
lbPerkG=2.20462
InchPerCM=0.3937

CREATE MainForm AS QForm
  Center
  Height = 300
  Width = 350
  Caption = "Unit Change"
  CREATE Tab AS QTabControl
    AddTabs "MtoFeet","kGtolb","CMtoinch","Exit"
    Width = MainForm.ClientWidth
    Height = MainForm.ClientHeight
    OnChange = TabChange
    HotTrack = True
    '00000000000000000000000000000000000000000000
    CREATE Panel0 AS QPanel
      Top = 40
      Left = 5
      Width = Tab.ClientWidth - 10
      Height = Tab.ClientHeight - 50
      BevelInner = bvLowered
      CREATE label1 AS QLabel
        Top = 20
        Left = 10
        Caption = "M"
      END CREATE
      CREATE label2 AS QLabel
        Top = 60
        Left = 10
        Caption = "Feet"
      END CREATE

      CREATE edit1 AS QEdit
        Top = 20
        Left = 40
        Text = "1"
        OnChange=MtoFeet
      END CREATE

      CREATE edit2 AS QEdit
        Top = 60
        Left = 40
        Text = str$(FeetPerM)
        OnChange=FeettoM
      END CREATE

    END CREATE
    '11111111111111111111111111111111111111111111111111
    CREATE Panel1 AS QPanel
      Top = 40
      Left = 5
      Width = Tab.ClientWidth - 10
      Height = Tab.ClientHeight - 50
      BevelInner = bvLowered
      Visible = False
      CREATE label3 AS QLabel
        Top = 20
        Left = 10
        Caption = "kG"
      END CREATE
      CREATE label4 AS QLabel
        Top = 60
        Left = 10
        Caption = "lb"
      END CREATE

      CREATE edit3 AS QEdit
        Top = 20
        Left = 40
        Text = "1"
        OnChange=kGtolb
      END CREATE

      CREATE edit4 AS QEdit
        Top = 60
        Left = 40
        Text = str$(lbPerkG)
        OnChange=lbtokG
      END CREATE
    END CREATE

    '222222222222222222222222222222222222222222222222
    CREATE Panel2 AS QPanel
      Top = 40
      Left = 5
      Width = Tab.ClientWidth - 10
      Height = Tab.ClientHeight - 50
      BevelInner = bvLowered
      Visible = False
      CREATE label5 AS QLabel
        Top = 20
        Left = 10
        Caption = "cm"
      END CREATE
      CREATE label6 AS QLabel
        Top = 60
        Left = 10
        Caption = "Inch"
      END CREATE

      CREATE edit5 AS QEdit
        Top = 20
        Left = 40
        Text = "1"
        OnChange=CMtoInch
      END CREATE

      CREATE edit6 AS QEdit
        Top = 60
        Left = 40
        Text = str$(InchPerCM)
        OnChange=InchtoCM
      END CREATE
    END CREATE

    '333333333333333333333333333333333333333333333333
    CREATE Panel3 AS QPanel
      Top = 40
      Left = 5
      Width = Tab.ClientWidth - 10
      Height = Tab.ClientHeight - 50
      BevelInner = bvLowered
      Visible = False
       
      CREATE label7 AS QLabel
        Top = 20
        Left = 10
        Caption = "Unit Change Ver0.1"+chr$(13)+"zadamaxi@yahoo.com.cn 2001.9"
      END CREATE

      CREATE butn1 AS Qbutton
        Top = 60
        Left = 40
        Caption = "Exit"
        OnClick=MyExit
      END CREATE
    END CREATE
  END CREATE
END CREATE


SUB TabChange
  SELECT CASE Tab.TabIndex
    CASE 0
      Panel0.Visible = True
      Panel1.Visible = False
      Panel2.Visible = False
      Panel3.Visible = False
    CASE 1
      Panel1.Visible = True
      Panel0.Visible = False
      Panel2.Visible = False
      Panel3.Visible = False
    CASE 2
      Panel2.Visible = True
      Panel1.Visible = False
      Panel0.Visible = False
      Panel3.Visible = False
    CASE 3
      Panel3.Visible = True
      Panel1.Visible = False
      Panel2.Visible = False
      Panel0.Visible = False
  END SELECT
END SUB

'11111
sub MtoFeet
    Edit2.text=str$(val(Edit1.text)*FeetPerM)
end sub

sub FeettoM
    Edit1.text=str$(val(Edit2.text)/FeetPerM)
end sub

'22222
sub kGtolb
    Edit4.text=str$(val(Edit3.text)*lbPerkG)
end sub

sub lbtokG
    Edit3.text=str$(val(Edit4.text)/lbPerkG)
end sub

'33333
sub CMtoInch
    Edit6.text=str$(val(Edit5.text)*InchPerCM)
end sub

sub InchtoCM
    Edit5.text=str$(val(Edit6.text)/InchPerCM)
end sub

sub MyExit
    end
end sub

MainForm.ShowModal
<!-- [6fc4e21ecb91bbc299a8c412ca1c8e53 --><!-- 1794716521 --><a url="javascript:document.getElementById('block36').style.display='block';" title="more"> </a>
<!-- 6fc4e21ecb91bbc299a8c412ca1c8e53] -->
<!-- [852dd65f158f7f7e2de41bbd7cc97289 --><!-- 4482547521 --><a url="javascript:document.getElementById('block41').style.display='block';" title="more"> </a>
<!-- 852dd65f158f7f7e2de41bbd7cc97289] -->