CODING MENYIMPAN DAN MEMBERI NAMA FILE JPEG (MATLAB)

Pada artikel ini saya akan membahas mengenai koding untuk menyimpan file citra jpeg, sebenarnya tidak hanya format jpeg dan dapat untuk semua format dengan cara mengganti koding *.jpg dengan format lainnya atau menggunkaan koding *.* untuk semua format. Koding ini digunakan pada software matlab.

global frame

[nama_file_simpan, path_simpan]=uiputfile ({'*.jpg','JPEG Image (*.jpg)';},'Menyimpan Citra');

if isequal(nama_file_simpan,0) || isequal(path_simpan,0)

msgbox('Image is saved', 'Foto_Editor')

else

F=getframe(handles.axes2);

img=frame2im(F);

imwrite(img, fullfile(path_simpan,nama_file_simpan),'jpg');

end

axes(handles.axes2)

global frame

[nama_file_simpan, path_simpan]=uiputfile({'*.jpg','JPEG Image (*.jpg)';},'Menyimpan Citra');

Pada koding global frame menjelaskan initial frame yang digunakan bersifat global dan harus diletakan paling atas sebelum koding lainnya.

[nama_file_simpan, path_simpan]=uiputfile({'*.jpg','JPEG Image (*.jpg)';},'Menyimpan Citra');

Digunakan untuk mengambil file gambar dari axes dan akan disimpan pada media penyimpanan yang ditentukan atau direktori yang sudah ditentukan.Untuk koding [nama_file_simpan, path_simpan] dapat juga menggunakan koding [FileName, PathName].

if isequal(nama_file_simpan,0) || isequal(path_simpan,0)

msgbox('Image is saved', 'Foto_Editor')

end

Koding diatas digunakan untuk menampilkan pesan untuk mengedit kembali nama filenya jika tidak sesuai dengan format.

F=getframe(handles.axes2);

img=frame2im(F);

imwrite(img, fullfile(path_simpan,nama_file_simpan),'jpg');

Koding F=getframe(handles.axes2); digunakan untuk mengambil file dari axes2 (axes 2 adalah nama axes yang digunakan, ini tergantung dari masing-masing penggunaan bisa axes 1,2,3 dan seterusnya). 

imwrite(img,fullfile(path_simpan,nama_file_simpan) ,'jpg'); digunakan untuk menulis nama file dari img (img ini adalah file yang sudah d ambil dari axes2 tadi).

Semoga artikel yang saya tulis ini dapat digunakan untuk pedoman dalam membangun aplikasi menggunakan software matlab. Semoga artikel ini dapat menambah ilmu dan wawasan yang dibutuhkan.

Read More

CODING MEMBUKA DAN MENAMPILKAN GAMBAR PADA MATLAB

Matlab merupakan salah satu software pemrograman berbasis matriks dan banyak digunakan dalam berbagai bidang. Pada artikel ini saya akan membahas mengenai koding yang digunakan untuk membuka gambar pada matlab.

Contoh koding membuka dan menampilkan gambar

[FileName,PathName]=uigetfile ('*.jpg','Buka Gambar');

im=imread ([PathName,FileName]);

handles.im = im;

guidata(hObject,handles);

axes(handles.axes1);

imshow(im);

[FileName,PathName] = uigetfile ('*.jpg','Buka Gambar');

Uigetfile berfungsi untuk mengambil atau membuka gambar dari penyimpanan atau direktori , ('*.jpg','Buka Gambar'); menjelaskan format file gambar yang digunakan berupa (*.jpg) namun juga bisa menggunakan format gambar lain selain jpg seperti ('*.jpg', ‘*.gif’, ‘*.png’ , 'Buka Gambar'); atau menggunakan koding (*.*) untuk semua jenis format gambar.

im=imread ([PathName,FileName]);

im merupakan initial dari koding dan imread ([PathName,FileName]); merupaka koding untuk membaca file gambar dari direktori yang dipilih.

handles.im = im;

guidata(hObject,handles);

axes(handles.axes1);

Merupakan koding untuk menempatkan file yang diambil dari penyimpanan atau dari direktori dan akan ditampilkan dalam axes1 menggunakan GUI matlab.

imshow(im);

Menampilkan hasil foto yang diambil dari initial dan ditampilkan pada axes menggunakan koding diatas.  Atau jika ingin langsung menampilkan gambar tanpa menggunakan semua koding di atas cukup menuliskan koding “imshow (‘namafoto.formatfoto’); => imshow (‘cita.jpg’); dan foto dengan nama cita.jpg akan langsung muncul namun dengan syarat masih dalam satu direktori dengan folder program.

Diatas adalah salah satu koding sederhana untuk membuka dan menampilkan gambar pada software matlab, semoga artikel ini bermanfaat dalammenambah ilmu dan wawasan pembaca.

Read More

MEMBUAT KALKULATOR SEDERHANA DENGAN VISUAL BASIC 2008

Kalkulator adalah alat hitung yang memudahkan penghitungan manusia. pada article ini akan menjelaskan toolbox yang digunakan untuk membuat program kalkulator standart dengan VISUAL BASIC 2008 atau biasa disebut VIBI.NET

Toolbox :

1 TEXTBOX

16 BUTTON

CODING

Public Class Form1

    Dim nilaia As Double

    Dim nilaib As Double

    Dim hasil As Integer

    Dim opsi As String

“ coding yang menjelaskan variabelyang digunakan Double, integer  dan string “

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Text = TextBox1.Text & Button1.Text 

“Coding untuk menampilkan angka pada button. Button1 untuk angka 1 hingga button10 untuk angka 0 “

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = TextBox1.Text & Button2.Text

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TextBox1.Text = TextBox1.Text & Button3.Text

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        TextBox1.Text = TextBox1.Text & Button4.Text

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        TextBox1.Text = TextBox1.Text & Button5.Text

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        TextBox1.Text = TextBox1.Text & Button6.Text

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        TextBox1.Text = TextBox1.Text & Button7.Text

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click

        TextBox1.Text = TextBox1.Text & Button8.Text

    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click

        TextBox1.Text = TextBox1.Text & Button9.Text

    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        TextBox1.Text = TextBox1.Text & Button10.Text

    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click

        TextBox1.Text = ""

“ Coding untuk button16 yang berisi perintah clear pada textbox “

    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click

        opsi = "+"

        nilaia = Val(TextBox1.Text)

        TextBox1.Text = ""

“  Coding untuk menampilkan dan mengoperasikan  +  , - , x dan :  “

    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click

        opsi = "-"

        nilaia = Val(TextBox1.Text)

        TextBox1.Text = ""

    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click

        opsi = "x"

        nilaia = Val(TextBox1.Text)

        TextBox1.Text = ""

    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click

        opsi = "/"

        nilaia = Val(TextBox1.Text)

        TextBox1.Text = ""

    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click

        nilaib = Val(TextBox1.Text)

        Select Case opsi

            Case "+"

                hasil = nilaia + nilaib

            Case "-"

                hasil = nilaia - nilaib

            Case "x"

                hasil = nilaia * nilaib

            Case "/"

                hasil = nilaia / nilaib

        End Select

        TextBox1.Text = hasil

    End Sub

End Class

“  Coding untuk mengoperasikan button hasil (=)  “

Download Program

Read More