Maret 20, 2020 APLIKASI THRESHOLDING  TUGAS DWIKI WACHYU AJI NPM 17100104 pushbutoon1 open image[name_file1,name_path1] = uigetfile(...    {'*.bmp;*.jpg;*.tif','File of type (*.bmp,*.jpg,*.tif)';    '*.bmp','File Bitmap (*.bmp)';...    '*.jpg','File jpeg (*.jpg)';    '*.tif','File Tif (*.tif)';    '*.*','All File (*.*)'},...    'Open Image');if ~isequal (name_file1,0) ...

Read More

TUGAS 3.8

Normal 0 false false false EN-US X-NONE X-NONE Private Sub Command1_Click() Dim a As String a = Mid(Text2, 1, 4) If a = "2009" Then Text6 = "2009" End If a = Mid(Text2, 5, 1) If a = "A" Then Text7 = "Manajer" Text3 = "A" Text9 = "4000000" Text10 = "1025000" ElseIf a = "B" Then Text7 = "Ka. Seksi" Text3...

Read More

TUGAS 3.7

Normal 0 false false false EN-US X-NONE X-NONE ...

Read More

TUGAS 3.6

Normal 0 false false false EN-US X-NONE X-NONE ...

Read More

TUGAS 3.5

Normal 0 false false false EN-US X-NONE X-NONE Private Sub Form_Load() Combo1.AddItem "A-SIM-01" Combo1.AddItem "I-EDP-02" Combo1.AddItem "S-MNJ-03" End Sub Private Sub Cmdproses_Click() Dim A As String A = Mid(Combo1, 1, 1) If A = "A" Then Text4 = "Abdi Offsyet Yogyakarta" End If A = Mid(Combo1,...

Read More

TUGAS 3.4

Private Sub CboKode_Click()Dim s As String s = Mid(CboKode, 7, 5) If s = "MC965" Then txtmerk = "Apple MacBook Pro MC965" Txths = "12800000" End If If s = "MC966" Then txtmerk = "Apple MacBook Pro MC966" Txths = "15800000" End If If s = "MC968" Then txtmerk = "Apple MacBook Pro MC968" Txths = "9900000" End If If s = "MC969" Then txtmerk = "Apple MacBook Pro MC969" Txths...

Read More

TUGAS 3.3

Normal 0 false false false EN-US X-NONE X-NONE Private Sub CmdBatal_Click() Txtnama = "" Txtnpm = "" txtjur = "" txtps = "" txturut = "" Txttm = "" End Sub Private Sub Cmdproses_Click() Dim S As String Txttm.Text = "20" & Left(Txtnpm, 2) S = Mid(Txtnpm, 3, 1) If S = "1" Then txtjur = "Sistem Informasi" txtps...

Read More