Matematika Kelautan II

   


     BP2IP MALAHAYATI ACEH     
NAUTIKA PELAYARAN

Matematika Profesi Kelautan

Bismillah
Asssalamualaikum...Jaya Nusantara

Perbandingan Berbalik Nilai

Suatu perbandingan disebut sebagai perbandingan berbalik nilai jika dua perbandingan nilainya  saling berkebalikan.



        Untuk Memahami arti perbandingan berbalik nilai , perhatikan contoh berikut yang merupakan contoh perbandingan kecepatan kapal [Knot] dan Pemakaian BBM Kapal [Ton]:









Penyelesaian :

120     ---  40
40  ----   x
40.x  =  60.80
          =  4.800
                40
          = 120 [Ton]

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




Listing Program Perbandingan Senilai Dengan
Menggunakan Ruby Gui Tk Widget
require 'tk'
require 'tkextlib/tile'

FrmbbmKapal = TkRoot.new do 
title "Perbandinngan Senilai Kapal"
background 'Blue'
minsize(750,300)
end

$knotpertama    = TkVariable.new
$bbmkapal        = TkVariable.new
$knotcari           = TkVariable.new
 $bbm                 = TkVariable.new
$bbmhasil         = TkVariable.new

TkLabel.new(FrmbbmKapal) do
text "Masukkan Kecepatan PerKnot Kapal Pertama :"
grid('row'=>0, 'column'=>0, 'padx'=>10, 'pady'=>10) 
end
TkEntry.new(FrmbbmKapal) do
textvariable $knotpertama
grid('row'=>0, 'column'=>1)
end
TkLabel.new(FrmbbmKapal) do
text "Masukkan Jumlah BBM Kapal / Ton:"
grid('row'=>0, 'column'=>2, 'padx'=>10, "pady"=>10)
end
TkEntry.new(FrmbbmKapal) do
textvariable $bbmkapal
grid('row'=>0, 'column'=>4)
end
TkLabel.new(FrmbbmKapal) do
text "Nilai Kecepatan Kapal PerKnot Yang di Cari:"
grid('row'=>1, 'column'=>0, 'padx'=>10, 'pady'=>10) 
end
TkEntry.new(FrmbbmKapal) do
textvariable $knotcari
grid('row'=>1, 'column'=>1)
end

TkButton.new(FrmbbmKapal) do
text "Hitung "
command{proces}
grid('row'=>4, 'column'=>0, 'padx'=>10, "pady"=>10)
end
TkLabel.new(FrmbbmKapal) do
text "Jumlah BBM Kapal :"
grid('row'=>5, 'column'=>0, 'padx'=>10, "pady"=>10)
end

TkEntry.new(FrmbbmKapal) do
textvariable $bbmhasil
grid('row'=>5, 'column'=>1)
end

TkLabel.new(FrmbbmKapal) do
text "Ton :"
grid('row'=>5, 'column'=>2, 'padx'=>10, "pady"=>10)
end

    def proces
    begin
    $bbm.value = $knotcari * $bbmkapal 
    $bbmhasil.value = $bbm / ($knotpertama)
             
    rescue 
    $bbmhasil.value = ""
    end
    end

Tk.mainloop()
Alhamdulillaah
Selamat Mencoba yaa wassalam 



Komentar

Postingan populer dari blog ini

Penjabaran Haluan

Radar Plotting

MANAJEMEN RISIKO K3