This is default featured slide 1 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

Jumat, 20 Maret 2020

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) ...

Rabu, 13 Desember 2017

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...

TUGAS 3.7

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

TUGAS 3.6

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

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,...

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...

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...