Matematika Kelautan I
BP2IP MALAHAYATI ACEH
NAUTIKA PELAYARAN
Matematika Profesi Kelautan
Bismillah
Asssalaimualai...Kum Jaya Nusantara
Perbandingan Senilai
Suatu perbandingan disebut sebagai perbandingan senilai jika dua perbandingan nilai sama
Untuk Memahami arti perbandingan senilai , perhatikan contoh berikut yang merupakan contoh perbandingan kecepatan kapal dan waktu tempuh :
Penyelesaian :
30 --- 3
100 ---- x
30.x = 100.3
= 300
3
= 10 [Jam]
https://www.microsoft.com/id-id/microsoft-365/excel-Hasil menggunakan Microsoft Excel Menggunakan rumus
Tampilan Hasil Desain Program Menggunakan
Bahasa Pemogram Ruby Gui Tk Widget
https://rubyinstaller.org/downloads/
Bahasa Pemogram Ruby Gui Tk Widget
https://rubyinstaller.org/downloads/Listing Program Perbandingan Senilai Dengan
Menggunakan Ruby Gui Tk Widget
require 'tk'
require 'tkextlib/tile'
FrmHalo = TkRoot.new do
title "Perbandinngan Berbalik Nilai Kapal"
background 'Blue'
minsize(800,300)
end
$pertama = TkVariable.new
$tempuh = TkVariable.new
$kcpcari = TkVariable.new
$wktcari = TkVariable.new
$Kecepatan = TkVariable.new
$wkthasil = TkVariable.new
TkLabel.new(FrmHalo) do
text "Masukkan Nilai Kecepatan Pertama Kapal PerKnot:"
grid('row'=>0, 'column'=>0, 'padx'=>10, 'pady'=>10)
end
TkEntry.new(FrmHalo) do
textvariable $pertama
grid('row'=>0, 'column'=>1)
end
TkLabel.new(FrmHalo) do
text "Masukkan Waktu Tempuh Kapal PerJam :"
grid('row'=>0, 'column'=>2, 'padx'=>10, "pady"=>10)
end
TkEntry.new(FrmHalo) do
textvariable $tempuh
grid('row'=>0, 'column'=>4)
end
TkLabel.new(FrmHalo) do
text "Nilai Kecepatan Kapal PerKnot Yang di Cari:"
grid('row'=>1, 'column'=>0, 'padx'=>10, 'pady'=>10)
end
TkEntry.new(FrmHalo) do
textvariable $kcpcari
grid('row'=>1, 'column'=>1)
end
TkButton.new(FrmHalo) do
text "Hitung "
command{proces}
grid('row'=>4, 'column'=>0, 'padx'=>10, "pady"=>10)
end
TkLabel.new(FrmHalo) do
text "Waktu Tempuh Kapal / PerJam :"
grid('row'=>5, 'column'=>0, 'padx'=>10, "pady"=>10)
end
TkEntry.new(FrmHalo) do
textvariable $wkthasil
grid('row'=>5, 'column'=>1)
end
TkLabel.new(FrmHalo) do
text "Jam"
grid('row'=>5, 'column'=>2, 'padx'=>10, "pady"=>10)
end
def proces
begin
$wktcari.value = $tempuh * $pertama
$Kecepatan.value = $pertama
$wkthasil.value = $wktcari / ($kcpcari)
rescue
$wkthasil.value = ""
end
end
Tk.mainloop()
Alhamdulillh
Menggunakan Ruby Gui Tk Widget
require 'tk'
require 'tkextlib/tile'
FrmHalo = TkRoot.new do
title "Perbandinngan Berbalik Nilai Kapal"
background 'Blue'
minsize(800,300)
end
$pertama = TkVariable.new
$tempuh = TkVariable.new
$kcpcari = TkVariable.new
$wktcari = TkVariable.new
$Kecepatan = TkVariable.new
$wkthasil = TkVariable.new
TkLabel.new(FrmHalo) do
text "Masukkan Nilai Kecepatan Pertama Kapal PerKnot:"
grid('row'=>0, 'column'=>0, 'padx'=>10, 'pady'=>10)
end
TkEntry.new(FrmHalo) do
textvariable $pertama
grid('row'=>0, 'column'=>1)
end
TkLabel.new(FrmHalo) do
text "Masukkan Waktu Tempuh Kapal PerJam :"
grid('row'=>0, 'column'=>2, 'padx'=>10, "pady"=>10)
end
TkEntry.new(FrmHalo) do
textvariable $tempuh
grid('row'=>0, 'column'=>4)
end
TkLabel.new(FrmHalo) do
text "Nilai Kecepatan Kapal PerKnot Yang di Cari:"
grid('row'=>1, 'column'=>0, 'padx'=>10, 'pady'=>10)
end
TkEntry.new(FrmHalo) do
textvariable $kcpcari
grid('row'=>1, 'column'=>1)
end
TkButton.new(FrmHalo) do
text "Hitung "
command{proces}
grid('row'=>4, 'column'=>0, 'padx'=>10, "pady"=>10)
end
TkLabel.new(FrmHalo) do
text "Waktu Tempuh Kapal / PerJam :"
grid('row'=>5, 'column'=>0, 'padx'=>10, "pady"=>10)
end
TkEntry.new(FrmHalo) do
textvariable $wkthasil
grid('row'=>5, 'column'=>1)
end
TkLabel.new(FrmHalo) do
text "Jam"
grid('row'=>5, 'column'=>2, 'padx'=>10, "pady"=>10)
end
def proces
begin
$wktcari.value = $tempuh * $pertama
$Kecepatan.value = $pertama
$wkthasil.value = $wktcari / ($kcpcari)
rescue
$wkthasil.value = ""
end
end
Tk.mainloop()
Alhamdulillh
Selamat Mencoba nya wassalam
Komentar
Posting Komentar