PENGOLAHAN CITRA TUGAS 7

0 komentar


KODE
function varargout = fuad(varargin)
% fUAD MATLAB code for fuad.fig
%      FUAD, by itself, creates a new FUAD or raises the existing
%      singleton*.
%
%      H = FUAD returns the handle to a new FUAD or the handle to
%      the existing singleton*.
%
%      FUAD('CALLBACK',hObject,eventData,handles,...) calls the local
%      function named CALLBACK in FUAD.M with the given input arguments.
%
%      FUAD('Property','Value',...) creates a new FUAD or raises the
%      existing singleton*.  Starting from the left, property value pairs are
%      applied to the GUI before fuad_OpeningFcn gets called.  An
%      unrecognized property name or invalid value makes property application
%      stop.  All inputs are passed to tuti_OpeningFcn via varargin.
%
%      *See GUI Options on GUIDE's Tools menu.  Choose "GUI allows only one
%      instance to run (singleton)".
%
% See also: GUIDE, GUIDATA, GUIHANDLES

% Edit the above text to modify the response to help tuti

% Last Modified by GUIDE v2.5 17-Mar-2020 08:57:38

% Begin initialization code - DO NOT EDIT
gui_Singleton = 1;
gui_State = struct('gui_Name',       mfilename, ...
                   'gui_Singleton',  gui_Singleton, ...
                   'gui_OpeningFcn', @fuad_OpeningFcn, ...
                   'gui_OutputFcn',  @fuad_OutputFcn, ...
                   'gui_LayoutFcn',  [] , ...
                   'gui_Callback',   []);
if nargin && ischar(varargin{1})
    gui_State.gui_Callback = str2func(varargin{1});
end

if nargout
    [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});
else
    gui_mainfcn(gui_State, varargin{:});
end
% End initialization code - DO NOT EDIT


% --- Executes just before tuti is made visible.
function fuad_OpeningFcn(hObject, eventdata, handles, varargin)
handles.peaks=peaks(35);
handles.membrane=membrane;
[x,y]=meshgrid(-8:0.5:8);
r=sqrt(x.^2+y.^2)+eps;
sinc=sin(r)./r;
handles.sinc=sinc;
handles.current_data=handles.peaks;
surf(handles.current_data);
handles.peaks=peaks(35);
handles.membrane=membrane;
[x,y]=meshgrid(-8:0.5:8);
r=sqrt(x.^2+y.^2)+eps;
sinc=sin(r)./r;
handles.sinc=sinc;
handles.current_data=handles.peaks;
surf(handles.current_data);


% This function has no output args, see OutputFcn.
% hObject    handle to figure
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
% varargin   command line arguments to tuti (see VARARGIN)

% Choose default command line output for tuti
handles.output = hObject;

% Update handles structure
guidata(hObject, handles);

% UIWAIT makes fuad wait for user response (see UIRESUME)
% uiwait(handles.figure1);


% --- Outputs from this function are returned to the command line.
function varargout = fuad_OutputFcn(hObject, eventdata, handles)
% varargout  cell array for returning output args (see VARARGOUT);
% hObject    handle to figure
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

% Get default command line output from handles structure
varargout{1} = handles.output;


% --- Executes on selection change in popupmenu1.
function popupmenu1_Callback(hObject, eventdata, handles)
% hObject    handle to popupmenu1 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
val=get(hObject,'Value');
str=get(hObject,'String');
switch str{val}
    case 'peaks'
        handles.current_data= handles.peaks;
    case 'membrane'
        handles.current_data= handles.membrane;
    case'sinc'
        handles.current_data= handles.sinc;
end
guidata(hObject,handles);
% Hints: contents = cellstr(get(hObject,'String')) returns popupmenu1 contents as cell array
%        contents{get(hObject,'Value')} returns selected item from popupmenu1


% --- Executes during object creation, after setting all properties.
function popupmenu1_CreateFcn(hObject, eventdata, handles)
% hObject    handle to popupmenu1 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    empty - handles not created until after all CreateFcns called

% Hint: popupmenu controls usually have a white background on Windows.
%       See ISPC and COMPUTER.
if ispc && isequal(get(hObject,'BackgroundColor'), get(0,'defaultUicontrolBackgroundColor'))
    set(hObject,'BackgroundColor','white');
end


% --- Executes on button press in pushbutton1.
function pushbutton1_Callback(hObject, eventdata, handles)
% hObject    handle to pushbutton1 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)
mesh(handles.current_data);

% --- Executes on button press in pushbutton2.
function pushbutton2_Callback(hObject, eventdata, handles)
% hObject    handle to pushbutton2 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

contour(handles.current_data);
% --- Executes on button press in pushbutton4.
function pushbutton4_Callback(hObject, eventdata, handles)
% hObject    handle to pushbutton4 (see GCBO)
% eventdata  reserved - to be defined in a future version of MATLAB
% handles    structure with handles and user data (see GUIDATA)

surf(handles.current_data);
















Read More »

TUGAS PEMINJAMAN ONLINE_ETIKA PROFESI_LINE 1TKJ

0 komentar

NAMA=FUAIDIN AMIN
KELAS= LIN 1 TKJ
NPM =17100022
1. )
Pengertian : 
Pinjaman online adalah fasilitas pinjaman uang oleh penyedia jasa keuangan yang beroperasi secara online. Penyedia pinjaman online tersebut biasa dikenal dengan sebutan fintech.

Jenis-Jenis Pinjaman Online :

1. KTA. Kredit Tanpa Agunan adalah produk pinjaman online pribadi yang tidak mensyaratkan agunan/jaminan atas kredit yang diajukan nasabah.
Pada umumnya penyedia aplikasi atau jasa pinjaman dana online menjadikan kepemilikan kartu kredit sebagai syarat utama pengajuan KTA.
2. Kredit Karyawan. Pinjaman karyawan adalah produk yang dirancang khusus bagi karyawan yang aktif bekerja di sebuah instansi, perusahaan, badan usaha maupun lembaga.
Syarat utama pinjaman ini di antaranya SK Pengangkatan PNS/Pegawai Tetap, rekomendasi pejabat/atasan yang berwenang dan slip gaji.
3. Kredit Kendaraan. Saat ini kredit mobil maupun motor dapat diajukan secara online.
Syarat utama pinjaman ini di antaranya adalah slip gaji, memiliki tempat tinggal sendiri dan uang muka (DP) sesuai ketentuan.
4. KPR. Kredit Pemilikan Rumah adalah fasilitas pinjaman bagi nasabah yang ingin membeli rumah dengan cara mencicil.
Sejumlah fintech yang bekerjasama dengan bank juga telah menyediakan fasilitas KPR online.
5. Pinjaman usaha. Kredit usaha adalah pinjaman dengan tujuan permodalan usaha.

sumber : https://www.online-pajak.com/pinjamanh-online

2. )
Dengan proses pengajuan online, Anda tidak perlu tatap muka kepada pihak lembaga keuangan atau menyiapkan dokumen fisik. Anda dapat mengisi formulir aplikasi secara online, foto dokumen persyaratan kemudian menguploadnya, serta meng-verifikasi informasi Anda lewat telepon saja.
Pinjaman online umumnya memiliki persyaratan yang sangat mudah dan ringan dibandingkan KTA dari pihak bank. Baik itu dari segi syarat umur, penghasilan bulanan, hingga dokumen yang dibutuhkan. Percaya atau tidak, tersedia lembaga keuangan yang bisa memberikan pinjaman kepada Anda dengan modal KTP saja dengan tanpa jaminan ataupun penjamin.
Jika Anda terdesak dana, maka layanan ini dapat menjadi jalan keluarnya. Mayoritas Lembaga keuangan dapat mencairkan dana pinjaman dalam waktu kurang dari 7 hari dan langsung ke rekening Anda.

sumber : https://www.aturduit.com/pinjaman-online

3. )
Secara umum, Undang-Undang Internet dan Transaksi Elektronik atau UU ITE Pasal 32 meyebutkan bahwa setiap orang dengan sengaja dan tanpa hak melakukan transmisi dan memindahkan informasi elektronik milik orang lain akan dipidana dengan penjara paling lama delapan tahun dan/atau denda paling banyak Rp 2 miliar.
Dalam menindak aplikasi layanan peminjaman online yang berjalan tidak sesuai dengan aturan, Kominfo telah bekerjasama dengan toko aplikasi. "Kalau memang ilegal mereka akan kami kirimi surat untuk tidak boleh diunduh lewat Apple App Store ataupun Google Play Store," ujar Semuel.
Lebih dari itu, Semuel mengatakan bahwa aplikasi yang menyalahi aturan dapat ditindak secara hukum. "Terkait penyalahgunaannya, kalau penyalahgunaan data Kominfo, kalau beroperasi tanpa izin di OJK," kata dia.
Semuel mengungkapkan bahwa Kominfo telah memiliki satuan tugas investasi bodong, juga mengenai fintech. Menurut dia, satgas tersebut telah menurunkan lebih dari 300 layanan fintech dengan total hingga saat ini 669 fintech dan investasi bodong yang telah dilakukan semenjak 2012. "Untuk memerangi ini yang paling bagus ada mengedukasi masyarakat," ujar Semuel.


sumber : https://bisnis.tempo.co/read/1144608/pinjaman-online-yang-salah-gunakan-data-terancam-denda-dan-pidana/full?view=ok



Read More »

TUGAS 3.7

0 komentar
Private Sub cmdbatal_Click()
txtnama.SetFocus
txtnik.Text = ""
txtgolongan.Text = ""
txtkode.Text = ""
txtstatus.Text = ""
txttahun.Text = ""
txtjabatan.Text = ""
txtbagian.Text = ""
txtgaji.Text = ""
txttunjangan.Text = ""
txttotal.Text = ""
txtnama.Text = ""
End Sub

Private Sub cmdlagi_Click()
txtnama.SetFocus
txtnik.Text = ""
txtgolongan.Text = ""
txtkode.Text = ""
txtstatus.Text = ""
txttahun.Text = ""
txtjabatan.Text = ""
txtbagian.Text = ""
txtgaji.Text = ""
txttunjangan.Text = ""
txttotal.Text = ""
txtnama.Text = ""
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdproses_Click()
Dim x As String
txtgolongan.Text = Mid(txtnik.Text, 5, 1)
txtkode.Text = Mid(txtnik.Text, 7, 1)
txttahun.Text = Left(txtnik.Text, 4)

x = Mid(txtnik.Text, 7, 1)
If x = "S" Or x = "s" Then
txtstatus.Text = "Single"

ElseIf x = "M" Or x = "m" Then
txtstatus.Text = "Menikah"

ElseIf x = "J" Or x = "j" Then
txtstatus.Text = "Janda"

ElseIf x = "D" Or x = "d" Then
txtstatus.Text = "Duda"

End If

x = Mid(txtnik.Text, 5, 1)
If x = "A" Or x = "a" Then
txtjabatan.Text = "Manager"
txtgaji.Text = "4000000"
txttunjangan.Text = "1025000"

ElseIf x = "B" Or x = "b" Then
txtjabatan.Text = "Ka.Seksi"
txtgaji.Text = "3500000"
txttunjangan.Text = "975000"

ElseIf x = "C" Or x = "c" Then
txtjabatan.Text = "Staff"
txtgaji.Text = "3000000"
txttunjangan.Text = "925000"

End If

x = Right(txtnik.Text, 3)
If x = "KEU" Then
txtbagian.Text = "Accounting"

ElseIf x = "ADM" Then
txtbagian.Text = "Administrasi"

ElseIf x = "SDM" Then
txtbagian.Text = "General Affair"

ElseIf x = "EDP" Then
txtbagian.Text = "IT Unit"

ElseIf x = "SPM" Then
txtbagian.Text = "Security"
End If

txttotal.Text = Val(txtgaji.Text) + Val(txttunjangan.Text)
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnik.SetFocus
End If
End Sub


Read More »

TUGAS 3.6

0 komentar
Private Sub cmdbatal_Click()
cbokode = ""
txtjudul = ""
txtpengarang = ""
txttahun = ""
txtpenerbit = ""
txtharga = ""
cbokode.SetFocus
End Sub
Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtkode = ""
txtjudul = ""
txtpengarang = ""
txttahun = ""
txtpenerbit = ""
txtharga = ""
cbokode.SetFocus
End Sub
Private Sub cmdproses_Click()
Dim A As String
A = Left(cbokode, 3)
If A = "SIM" Then
txtjudul = "Sistem Informasi Manajemen"
txtpengarang = "Fadiya Ulfa"
txtharga = "75900"
ElseIf A = "EDP" Then
txtjudul = "Elektronik Data Processing"
txtpengarang = "Nurul Agustina"
txtharga = "62000"
ElseIf A = "MNJ" Then
txtjudul = "Manajemen"
txtpengarang = "Rian Hidayat"
txtharga = "42000"
ElseIf A = "CDR" Then
txtjudul = "Corel Draw"
txtpengarang = "Siti Nur Khotimah"
txtharga = "53000"
ElseIf A = "RPL" Then
txtjudul = "Rekayasa Perangkat Lunak"
txtpengarang = "Winda Erlianti"
txtharga = "83000"
End If
txttahun = "20" & Mid(txtkode, 5, 2)
A = Right(cbokode, 1)
If A = "A" Then
txtpenerbit = "Andi Offset Yogyakarta"
ElseIf A = "I" Then
txtpenerbit = "Indah Surabaya"
ElseIf A = "S" Then
txtpenerbit = "Salemba Empat"
ElseIf A = "E" Then
txtpenerbit = "Elek Media Komputindo"
ElseIf A = "M" Then
txtpenerbit = "Maxicom"
End If
End Sub


Read More »

TUGAS 3.5

0 komentar
Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
Txtkt = ""
txtht = ""
txtjk = ""
txtjb = ""
txtjt = ""
txttotalp = ""
Txtkt.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim B As String
B = Left(Txtkt, 3)
If B = "BIM" Then
txtht = "50000"
txtjk = "BIMA"
txtjb = "16.00"
ElseIf B = "EKO" Then
txtht = "35000"
txtjk = "EKONOMI"
txtjb = "19.00"
ElseIf B = "MUT" Then
txtht = "23000"
txtjk = "MUTIARA"
txtjb = "17.00"
ElseIf B = "SEN" Then
txtht = "15000"
txtjk = "SENJA"
txtjb = "20.00"
End If
txtjt.SetFocus
End Sub

Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttp = Val(txtht) * (txtjt)
End If
End Sub


Read More »

TUGAS 3.4 DATA BUKU STMIK

0 komentar
Private Sub cbokode_Click()
Select Case Cbokode
Case "A-SIM-01"
Case "I-EDP-02"
Case "S-MNJ-03"
Case "E-CDR-04"
Case "M-RPL-05"
End Select
End Sub

Private Sub cmdbatal_Click()
Cbokode = ""
txtjudul = ""
txtpengarang = ""
txttahun = ""
txtpenerbit = ""
txtharga = ""
Cbokode.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
Cbokode = ""
txtjudul = ""
txtpengarang = ""
txttahun = ""
txtpenerbit = ""
txtharga = ""
Cbokode.SetFocus
End Sub

Private Sub cmdproses_Click()
Dim A As String
A = Left(Cbokode, 1)
If A = "A" Then
txtpenerbit = "Andi Offset Yogyakarta"
ElseIf A = "I" Then
txtpenerbit = "Indah Surabaya"
ElseIf A = "S" Then
txtpenerbit = "Salemba Empat"
ElseIf A = "E" Then
txtpenerbit = "Elek Media Komputindo"
ElseIf A = "M" Then
txtpenerbit = "Maxicom"
End If
A = Mid(Cbokode, 3, 3)
If A = "SIM" Then
txtjudul = "Sistem Informasi Manajemen"
txtpengarang = "Yati Nur Oktavia"
txtharga = "75900"
ElseIf A = "EDP" Then
txtjudul = "Elektronik Data Processing"
txtpengarang = "Imam Tarmizi"
txtharga = "62000"
ElseIf A = "MNJ" Then
txtjudul = "Manajemen"
txtpengarang = "Valentina Mariana Adiwianti"
txtharga = "42000"
ElseIf A = "CDR" Then
txtjudul = "Corel Draw"
txtpengarang = "Riyan Suhandi"
txtharga = "53000"
ElseIf A = "RPL" Then
txtjudul = "Rekayasa Perangkat Lunak"
txtpengarang = "Sinta Umpu Singa"
txtharga = "83000"
End If
txttahun = "20" & Right(Cbokode, 2)
End Sub

Private Sub Form_Load()
Cbokode.AddItem "A-SIM-01"
Cbokode.AddItem "I-EDP-02"
Cbokode.AddItem "S-MNJ-03"
Cbokode.AddItem "E-CDR-04"
Cbokode.AddItem "M-RPL-05"
End Sub


Read More »