Home » Aplikasi sederhana » Matematika » Cara Membuat Program Konversi Satuan Panjang di Visual Baic 6.0

Cara Membuat Program Konversi Satuan Panjang di Visual Baic 6.0

Cara Membuat Program Konversi Satuan Panjang di Visual Baic 6.0

Hari ini tip dan trik unik visual basic akan berbagi sebuah cara bagaimana membuat program konversi satuan Panjang dengan menggunakan visual basic dengan sangat mudah.Sebelum ke tutorial terlebih dahulu kita bahas tentang pengertian dan cara menghitungnya.

Berdasarkan satuan Internasional (SI), satuan Panjang standar adalah meter (m).Satuan jarak yang ditempuh cahaya pada ruang hampa selama 1/299792458 detik. Satuan Panjang merupakan titik-titik diskrit dalam suatu garis linier dengan tiap titik jaraknya sama.

Cara menghitung satuan Panjang

Secara umum yang kita ketahui di Indonesia menggunakan satuan km, hm, dam, m, cm dan mm. Dimana kita menghitungnya dengan sebuah anak tangga dan setiap turun satu anak tangga dikali 10 dan sebaliknya setiap kali naik anak tangga di bagi 10. Misal 1 km =1000 m karena itu( 1 x 10 x 100 x 1000 ) itu artinya 3 kali turun anak tangga sebaliknya bila satu kali naik anak tangga dibagi 10.

Cara Membuat Program Konversi Satuan Panjang di Visual Baic 6.0

1. Buka form VB Anda

2. Pilih Standa EXE

3. Tanamkan di form properti berikut : Frame, Label, Text dan CommandButton

4. Desainlah Form seperti gambar dibawah ini :

Desain Form 


Catatan :

Command1 Caption “Konversi”

Command2 Caption “Clear”

Command3 Caption “Exit


5. Setelah Anda mendesain form yang sesuai diatas, lalu buka jendela kode dan ketikan kode berikut dibawah ini  :



Dim a As Double

Dim b As Double

Dim tutup As String

Private Sub Command1_Click() 'tombol Konversi

If Combo1.Text = "Satuan" Or Combo2.Text = "Satuan" Then

MsgBox "Masukan Nama Satuan!!!", vbCritical, "Perhatian"

Text1.SetFocus

Else


If Text1.Text = "" Then

MsgBox "Masukan Bilangan yang dicari!!!", vbCritical, "Perhatian"

Text1.SetFocus

Else


If Combo1.Text = "Kilometer" Then

If Combo2.Text = "Hektometer" Then

'KiloMeter ke HektoMeter

Label4.Caption = Val(Text1.Text) * 10 & " " & Combo2.Text

ElseIf Combo2.Text = "Dekameter" Then

'KiloMeter ke DekaMeter

Label4.Caption = Val(Text1.Text) * 100 & " " & Combo2.Text

ElseIf Combo2.Text = "Meter" Then

'KiloMeter ke Meter

Label4.Caption = Val(Text1.Text) * 1000 & " " & Combo2.Text

ElseIf Combo2.Text = "Desimeter" Then

'KiloMeter ke DesiMeter

Label4.Caption = Val(Text1.Text) * 10000 & " " & Combo2.Text

ElseIf Combo2.Text = "Centimeter" Then

'KiloMeter ke CentiMeter

Label4.Caption = Val(Text1.Text) * 100000 & " " & Combo2.Text

ElseIf Combo2.Text = "Milimeter" Then

'KiloMeter ke MiliMeter

Label4.Caption = Val(Text1.Text) * 1000000 & " " & Combo2.Text

End If




ElseIf Combo1.Text = "Hektometer" Then

If Combo2.Text = "Kilometer" Then

'HektoMeter ke KiloMeter

Label4.Caption = Val(Text1.Text) / 10 & " " & Combo2.Text

ElseIf Combo2.Text = "Dekameter" Then

'HektoMeter ke DekaMeter

Label4.Caption = Val(Text1.Text) * 10 & " " & Combo2.Text

ElseIf Combo2.Text = "Meter" Then

'HektoMeter ke Meter

Label4.Caption = Val(Text1.Text) * 100 & " " & Combo2.Text

ElseIf Combo2.Text = "Desimeter" Then

'HektoMeter ke DesiMeter

Label4.Caption = Val(Text1.Text) * 1000 & " " & Combo2.Text

ElseIf Combo2.Text = "Centimeter" Then

'HektoMeter ke CentiMeter

Label4.Caption = Val(Text1.Text) * 10000 & " " & Combo2.Text

ElseIf Combo2.Text = "Milimeter" Then

'HektoMeter ke MiliMeter

Label4.Caption = Val(Text1.Text) * 100000 & " " & Combo2.Text

End If




ElseIf Combo1.Text = "Dekameter" Then

If Combo2.Text = "kilometer" Then

'DekaMeter ke KiloMeter

Label4.Caption = Val(Text1.Text) / 100 & " " & Combo2.Text

ElseIf Combo2.Text = "Hektometer" Then

'DekaMeter ke HektoMeter

Label4.Caption = Val(Text1.Text) / 10 & " " & Combo2.Text

ElseIf Combo2.Text = "Meter" Then

'DekaMeter ke Meter

Label4.Caption = Val(Text1.Text) * 10 & " " & Combo2.Text

ElseIf Combo2.Text = "Desimeter" Then

'DekaMeter ke DesiMeter

Label4.Caption = Val(Text1.Text) * 100 & " " & Combo2.Text

ElseIf Combo2.Text = "Centimeter" Then

'DekaMeter ke CentiMeter

Label4.Caption = Val(Text1.Text) * 1000 & " " & Combo2.Text

ElseIf Combo2.Text = "Milimeter" Then

'DekaMeter ke MiliMeter

Label4.Caption = Val(Text1.Text) * 10000 & " " & Combo2.Text

End If




ElseIf Combo1.Text = "Meter" Then

If Combo1.Text = "Kilometer" Then

'Meter ke KiloMeter

Label4.Caption = Val(Text1.Text) / 1000 & " " & Combo2.Text

ElseIf Combo2.Text = "Hektometer" Then

'Meter ke HektoMeter

Label4.Caption = Val(Text1.Text) / 100 & " " & Combo2.Text

ElseIf Combo2.Text = "Dekameter" Then

'Meter ke DekaMeter

Label4.Caption = Val(Text1.Text) / 10 & " " & Combo2.Text

ElseIf Combo2.Text = "Desimeter" Then

'Meter ke DesiMeter

Label4.Caption = Val(Text1.Text) * 10 & " " & Combo2.Text

ElseIf Combo2.Text = "Centimeter" Then

'Meter ke CentiMeter

Label4.Caption = Val(Text1.Text) * 100 & " " & Combo2.Text

ElseIf Combo2.Text = "Milimeter" Then

'Meter ke MiliMeter

Label4.Caption = Val(Text1.Text) * 1000 & " " & Combo2.Text

End If



ElseIf Combo1.Text = "Desimeter" Then

If Combo1.Text = "Kilimeter" Then

'DesiMeter ke KiloMeter

Label4.Caption = Val(Text1.Text) / 10000 & " " & Combo2.Text

ElseIf Combo2.Text = "Hektometer" Then

'DesiMeter ke HektoMeter

Label4.Caption = Val(Text1.Text) / 1000 & " " & Combo2.Text

ElseIf Combo2.Text = "Dekameter" Then

'DesiMeter ke DekaMeter

Label4.Caption = Val(Text1.Text) / 100 & " " & Combo2.Text

ElseIf Combo2.Text = "Meter" Then

'DesiMeter ke Meter

Label4.Caption = Val(Text1.Text) / 10 & " " & Combo2.Text

ElseIf Combo2.Text = "Centimeter" Then

'DesiMeter ke CentiMeter

Label4.Caption = Val(Text1.Text) * 10 & " " & Combo2.Text

ElseIf Combo2.Text = "Milimeter" Then

'DesiMeter ke MiliMeter

Label4.Caption = Val(Text1.Text) * 100 & " " & Combo2.Text

End If



ElseIf Combo1.Text = "Centimeter" Then

If Combo2.Text = "Kilometer" Then

'CentiMeter ke KiloMeter

Label4.Caption = Val(Text1.Text) / 100000 & " " & Combo2.Text

ElseIf Combo2.Text = "Hektometer" Then

'CentiMeter ke HektoMeter

Label4.Caption = Val(Text1.Text) / 10000 & " " & Combo2.Text

ElseIf Combo2.Text = "Dekameter" Then

'CentiMeter ke DekaMeter

Label4.Caption = Val(Text1.Text) / 1000 & " " & Combo2.Text

ElseIf Combo2.Text = "Meter" Then

'CentiMeter ke Meter

Label4.Caption = Val(Text1.Text) / 100 & " " & Combo2.Text

ElseIf Combo2.Text = "Desimeter" Then

'CentiMeter ke DesiMeter

Label4.Caption = Val(Text1.Text) / 10 & " " & Combo2.Text

ElseIf Combo2.Text = "Milimeter" Then

'CentiMeter ke MiliMeter

Label4.Caption = Val(Text1.Text) * 10 & " " & Combo2.Text

End If



ElseIf Combo1.Text = "Milimeter" Then

If Combo2.Text = "Kilometer" Then

'MiliMeter ke KiloMeter

Label4.Caption = Val(Text1.Text) / 1000000 & " " & Combo2.Text

ElseIf Combo2.Text = "Hektometer" Then

'MiliMeter ke HektoMeter

Label4.Caption = Val(Text1.Text) / 100000 & " " & Combo2.Text

ElseIf Combo2.Text = "Dekameter" Then

'MiliMeter ke DekaMeter

Label4.Caption = Val(Text1.Text) / 10000 & " " & Combo2.Text

ElseIf Combo2.Text = "Meter" Then

'MiliMeter ke Meter

Label4.Caption = Val(Text1.Text) / 1000 & " " & Combo2.Text

ElseIf Combo2.Text = "Desimeter" Then

'MiliMeter ke DesiMeter

Label4.Caption = Val(Text1.Text) / 100 & " " & Combo2.Text

ElseIf Combo2.Text = "Centimeter" Then

'MiliMeter ke CentiMeter

Label4.Caption = Val(Text1.Text) / 10 & " " & Combo2.Text

End If

End If

End If

End If

End Sub

Private Sub Command2_Click() 'tombol Clear

Text1.Text = ""

Combo1.Text = "Satuan"

Combo2.Text = "Satuan"

Label4.Caption = "0"

Text1.SetFocus

End Sub

Private Sub Command3_Click() 'tombol Exit

tutup = MsgBox("Anda yakin tutup form ini ?", vbYesNo, "Perhatian")

If tutup = vbYes Then

End

Else

Text1.SetFocus

End If

End Sub

Private Sub Form_Activate()

Text1.SetFocus

End Sub

Private Sub Form_Load()

Combo1.Text = "Satuan"

Combo2.Text = "Satuan"

'isi combo1

Combo1.AddItem "Kilometer"

Combo1.AddItem "Hektometer"

Combo1.AddItem "Dekameter"

Combo1.AddItem "Meter"

Combo1.AddItem "Desimeter"

Combo1.AddItem "Centimeter"

Combo1.AddItem "Milimeter"


'isi combo2

Combo2.AddItem "Kilometer"

Combo2.AddItem "Hektometer"

Combo2.AddItem "Dekameter"

Combo2.AddItem "Meter"

Combo2.AddItem "Desimeter"

Combo2.AddItem "Centimeter"

Combo2.AddItem "Milimeter"

Text1.Text = ""

Label4.Caption = "0"

End Sub


Simpan hasilpekerjaan anda dan jalankan program,jika berhasil maka akan tampak pada gambar dibawah ini :



Demikian artikel dari tip dan trik unik VB6 tentang Cara Membuat Program Konversi Satuan Panjang di Visual Baic 6.0, semoga bermanfaat.Selamat mencoba.


No comments:

Post a Comment