Source Code Aplikasi Calculator Sederhana Ruby Dengan Form

Ruby merupakan bahasa yang seimbang. Pencipta Ruby, Yukihiro “Matz” Matsumoto, menggabungkan bagian-bagian dari bahasa-bahasa favorit beliau (Perl, Smalltalk, Eiffel, Ada dan Lisp) untuk membentuk bahasa baru yang seimbang antara pemrograman fungsional dengan pemrograman imperatif.

Matz sering menyebutkan bahwa beliau sedang “mencoba membuat Ruby natural, bukan sederhana,” dengan cara membuatnya mirip dengan kehidupan nyata.

Sekarang saya akan membagikan source code aplikasi calculator bahasa pemograman Ruby ini

tampilan calculator ruby dengan form

Silahkan di copy coding dibawah ini :



require 'tk'
require 'tkextlib/tile'

$angka1 =TkVariable.new
$angka2 =TkVariable.new
$hasil =TkVariable.new


frmHalo=TkRoot.new do
 title "Calculator [Ane Tamfan]"
 minsize(300,200)
 background 'maroon'
end


TkLabel.new(frmHalo) do
 text "Angka 1 : "
 grid('row'=>0,'column'=>0)
 background 'maroon'
 foreground 'white'
 font TkFont.new('arial 16')
end

txtInput1=TkEntry.new(frmHalo) do
 textvariable $angka1
 grid('row'=>0,'column'=>1)
end

TkLabel.new(frmHalo) do
 text "Angka 2 : "
 grid('row'=>1,'column'=>0)
 background 'maroon'
 foreground 'white'
 font TkFont.new('arial 16')
end

txtInput1=TkEntry.new(frmHalo) do
 textvariable $angka2
 grid('row'=>1,'column'=>1)
end

TkButton.new(frmHalo) do
 text "+"
 grid('row'=>2,'column'=>3)
 font TkFont.new('arial 16')
 command {tambah}
end

frmHalo.bind("Return") {tambah}
def tambah 
begin

 $hasil.value=$angka1+$angka2
end 
end

TkButton.new(frmHalo) do
 text "-"
 grid('row'=>2,'column'=>4)
 font TkFont.new('arial 16')
 command {kurang}
end
frmHalo.bind("Return") {kurang}
def kurang 
begin

 $hasil.value=$angka1-$angka2
end 
end

TkButton.new(frmHalo) do
 text "x"
 grid('row'=>3,'column'=>3)
 font TkFont.new('arial 16')
 command {kali}
end

frmHalo.bind("Return") {kali}
def kali 
begin

 $hasil.value=$angka1*$angka2
end 
end

TkButton.new(frmHalo) do
 text "/"
 grid('row'=>3,'column'=>4)
 font TkFont.new('arial 16')
 command {bagi}
end

frmHalo.bind("Return") {bagi}
def bagi 
begin

 $hasil.value=$angka1/$angka2
end 
end

TkLabel.new(frmHalo) do
 text "Hasilnya : "
 grid('row'=>5,'column'=>0)
 background 'maroon'
 foreground 'white'
 font TkFont.new('arial 16')
end

txtInput1=TkEntry.new(frmHalo) do
 textvariable $hasil
 grid('row'=>5,'column'=>1)
end

TkButton.new(frmHalo) do
 text "Bersih"
 grid('row'=>7,'column'=>0)
 font TkFont.new('arial 16')
 command {bersih}
end

frmHalo.bind("Return") {bersih}
def bersih
begin
 $angka1.value=''
 $angka2.value=''
 $hasil.value=''
end
end

Tk.mainloop

Baiklah mungkin untuk postingan sederhana ini cukup sampai disini saja 😄