Radar Plotting

          BP2IP MALAHAYATI  ACEH           

NAUTIKA PELAYARAN   

                 https://poltekpelaceh.ac.id/

      https://smtcglobalinc.com/

https://opito.com/

Radar Plotting
Bismillah

Asssalamualaikum...Jaya Nusantara

      Radar Plotting adalah seni yang di gunakan dalam usaha mencegah resiko tubrukan di laut dan sebagai sumber informasi navigasi dari dua kali observasi atau lebih dari tiap-target pada layar Radar

Huruf-huruf yang sering digunakan dalam pekerjaan ploting

Rumus :  CPA = (AN / OA) x Interval
               TCP = Jam Akhir + CPA
               Speed Target = CN x 60 / Waktu Interval

Contoh Soal :

Dimana Rumus Di Microsoft Excel Sebagai berikut :

https://www.microsoft.com/id-id/microsoft-365/excel

Tampilan Hasil Desain Program Menggunakan
Bahasa Pemogram Ruby Gui Tk Widget

https://rubyinstaller.org/downloads/

Listing Program :Plotting.rb

require 'tk'
require 'tkextlib/tile'

Frmplot = TkRoot.new do 
title "Radar Plotting"
background 'Blue'
minsize(800,650)

end
Tk.root.protocol(:WM_DELETE_WINDOW)do
    if Tk.messageBox(:type=>'okcancel', :message=>'Anda Mau Keluar ?') == 'ok'
    puts  "+===========+========================================+"
    puts  "| Nama      | Parlindungan                           |"
    puts  "+-----------+----------------------------------------+"
    puts  "| Alamat    | Jl.Menteng II No.74 Medan-Sumut 20228  |"
    puts  "+-----------+----------------------------------------+"
    puts  "| Academic  | STEMIK TRIGUNADHARMA Medan-Sumut       |"
    puts  "+-----------+----------------------------------------+"
    puts  "| Academic  | BP2IP Malahayati Aceh                  |"
    puts  "+-----------+----------------------------------------+"
    puts  "| Educaion  | BLC ENGLISH INSTITUTE                  |"
    puts  "+-----------+----------------------------------------+"
    puts  "| GOOOOD BYEEEEEEEE                                  |"
    puts  "+===========+========================================+"
    exit
    else
    end
end


$nama           = TkVariable.new
$hsejati         = TkVariable.new
$keckapal     = TkVariable.new
    $jam1           = TkVariable.new
    $jam2           = TkVariable.new
    $baring1       = TkVariable.new
$baring2        = TkVariable.new
$jarak1          = TkVariable.new
$jarak2          = TkVariable.new
$hpedoman   = TkVariable.new
$cn                = TkVariable.new
$an                = TkVariable.new
$oa                = TkVariable.new
$interval       = TkVariable.new
$bagi            = TkVariable.new
$cpa             = TkVariable.new
$cpa1           = TkVariable.new
$sptarget      = TkVariable.new


TkLabel.new(Frmplot) do
text "Masukkan Nama Kapal :"
grid('row'=>0, 'column'=>0, 'padx'=>10, 'pady'=>10) 
end
TkEntry.new(Frmplot) do
textvariable $ukuran
grid('row'=>0, 'column'=>1)
end
TkLabel.new(Frmplot) do
text "Nilai Haluan Sejati :"
grid('row'=>1, 'column'=>0, 'padx'=>10, "pady"=>10)
end
TkEntry.new(Frmplot) do
textvariable $hsejati
grid('row'=>1, 'column'=>1)
end
TkLabel.new(Frmplot) do
text "Nilai Kecepatan Kapal :"
grid('row'=>1, 'column'=>2, 'padx'=>10, 'pady'=>10) 
end
TkEntry.new(Frmplot) do
textvariable $keckapal
grid('row'=>1, 'column'=>3)
end
TkLabel.new(Frmplot) do
text "Knots"
grid('row'=>1, 'column'=>4, 'padx'=>10, 'pady'=>10) 
end
TkLabel.new(Frmplot) do
text "Silahkan Entry Data Pengamatan Pada Radar"
grid('row'=>2, 'column'=>1, 'padx'=>10, 'pady'=>10) 
end

TkLabel.new(Frmplot) do
text "Jam"
grid('row'=>3, 'column'=>0, 'padx'=>10, 'pady'=>10) 
end
TkLabel.new(Frmplot) do
text "Baringan"
grid('row'=>3, 'column'=>1, 'padx'=>10, 'pady'=>10) 
end
TkLabel.new(Frmplot) do
text "Jarak"
grid('row'=>3, 'column'=>2, 'padx'=>10, 'pady'=>10) 
end

TkEntry.new(Frmplot) do
textvariable $jam1
grid('row'=>4, 'column'=>0)
end
TkEntry.new(Frmplot) do
textvariable $jam2
grid('row'=>5, 'column'=>0)
end
TkEntry.new(Frmplot) do
textvariable $baring1
grid('row'=>4, 'column'=>1)
end
TkEntry.new(Frmplot) do
textvariable $baring2
grid('row'=>5, 'column'=>1)
end

TkEntry.new(Frmplot) do
textvariable $jarak1
grid('row'=>4, 'column'=>2)
end
TkEntry.new(Frmplot) do
textvariable $jarak2
grid('row'=>5, 'column'=>2)
end
TkLabel.new(Frmplot) do
text "Mil"
grid('row'=>4, 'column'=>3, 'padx'=>10, 'pady'=>10) 
end
TkLabel.new(Frmplot) do
text "Mil"
grid('row'=>5, 'column'=>3, 'padx'=>10, 'pady'=>10) 
end

TkLabel.new(Frmplot) do
text "Nilai Haluan Pedoman"
grid('row'=>7, 'column'=>0, 'padx'=>10, 'pady'=>10) 
end
TkEntry.new(Frmplot) do
textvariable $hpedoman
grid('row'=>7, 'column'=>1)
end
TkLabel.new(Frmplot) do
text "Nilai Haluan Pedoman"
grid('row'=>7, 'column'=>0, 'padx'=>10, 'pady'=>10) 
end
TkEntry.new(Frmplot) do
textvariable $hpedoman
grid('row'=>7, 'column'=>1)
end
TkLabel.new(Frmplot) do
text "Masukkan Nilai [AN] :"
grid('row'=>7,'column'=>2, 'padx'=>10, 'pady'=>10) 
end
TkEntry.new(Frmplot) do
textvariable $an
grid('row'=>7,'column'=>3)
end

TkLabel.new(Frmplot) do
text "Panjang  Nilai [CN] "
grid('row'=>8,'column'=>0,'padx'=>10, 'pady'=>10) 
end
TkEntry.new(Frmplot) do
textvariable $cn
grid('row'=>8,'column'=>1)
end
TkLabel.new(Frmplot) do
text "Masukkan Nilai [OA] "
grid('row'=>8,'column'=>2, 'padx'=>10, 'pady'=>10) 
end
TkEntry.new(Frmplot) do
textvariable $oa
grid('row'=>8,'column'=>3)
end
TkLabel.new(Frmplot) do
text "Nilai Waktu Interval "
grid('row'=>10,'column'=>0, 'padx'=>10, 'pady'=>10) 
end
TkEntry.new(Frmplot) do
textvariable $interval
grid('row'=>10,'column'=>1)
end
TkLabel.new(Frmplot) do
text "Menit"
grid('row'=>10,'column'=>2, 'padx'=>10, 'pady'=>10) 
end
TkButton.new(Frmplot) do
text "Hitung "
command{proces}
background '#EECCCC'
activebackground "#FFEEEE"
foreground "#990000"
grid('row'=>11, 'column'=>0, 'padx'=>10, "pady"=>10)
end
TkLabel.new(Frmplot) do
text "Nilai CPA "
grid('row'=>12,'column'=>0, 'padx'=>10, 'pady'=>10) 
end
TkEntry.new(Frmplot) do
textvariable $cpa
grid('row'=>12,'column'=>1)
end
TkLabel.new(Frmplot) do
text "Menit "
grid('row'=>12,'column'=>2, 'padx'=>10, 'pady'=>10) 
end
TkLabel.new(Frmplot) do
text "Nilai TCPA "
grid('row'=>13,'column'=>0, 'padx'=>10, 'pady'=>10) 
end
TkEntry.new(Frmplot) do
textvariable $cpa1
grid('row'=>13,'column'=>1)
end
TkLabel.new(Frmplot) do
text "Jam "
grid('row'=>13,'column'=>2, 'padx'=>10, 'pady'=>10) 
end

TkButton.new(Frmplot) do
text "Proses"
command{hitung}
background '#EECCCC'
activebackground "#FFEEEE"
foreground "#990000"
grid('row'=>14, 'column'=>0, 'padx'=>10, "pady"=>10)
end

TkButton.new(Frmplot) do
  text "Keluar"  
  command { exit }  
  background '#CCEECC'
  activebackground "#EEFFEE"
  foreground "#009900"
  grid('row'=>14, 'column'=>1, 'padx'=>10, "pady"=>10)
    
end

TkLabel.new(Frmplot) do
text "Speed Target "
grid('row'=>15,'column'=>0, 'padx'=>10, 'pady'=>10) 
end
TkEntry.new(Frmplot) do
textvariable $sptarget
grid('row'=>15,'column'=>1)
end
TkLabel.new(Frmplot) do
text "Knots "
grid('row'=>15,'column'=>2, 'padx'=>10, 'pady'=>10) 
end
    def proces
    begin
    $cpa.value       = $an / ($oa ) * $interval
    $cpa1.value     = $jam2 + ($cpa / 100 )
    rescue 
    $cpa.value      = ""
    $cpa1.value    = ""
    end
    end

    def hitung
    begin
    $sptarget.value = $cn * 60 /  ($interval)
    rescue 
    $sptarget.value = ""
    end
    end

Tk.mainloop()

Alhamdulillaah

Selamat Mencoba yaa wassalam