Sani Malik Ibrahim

GAGAL LAUNCHING, TIDAK ADA DANA UNTUK PENGEMBANGAN, MOHON MAAF :)

Hi, saya punya kabar baik bagi Anda yang sedang mencari aplikasi Pengelolaan Data Karyawan. Melanjutkan project dari aplikasi yang sebelumnya (versi 1 & 2) yang dirilis beberapa tahun kebelakang, saya melakukan analisis kebutuhan secara total dan berfokus hanya pada pengelolaan data karyawan saja.

Berkat saran yang diberikan teman-teman yang berkunjung ke blog ini, setelah sekian lama akhirnya saya mendapat sedikit pencerahan hanya untuk memikirkan data apa saja yang seharusnya ada dan diperlukan pada sebuah aplikasi pengelolaan data karyawan ini. Saya sangat berterima kasih kepada teman-teman yang sudah memberi dukungan dan juga respect pada aplikasi yang saya buat meskipun kenyataan nya masih banyak kesalahan dan juga kekurangan.

Tujuan dari dibuatnya postingan ini, sebenarnya saya ingin meminta saran/kritik untuk aplikasi yang saya beri nama Data Karyawan 2017.1 Build 1.1 (Versi 3) saya selalu terbuka untuk menerima masukan apapun terkait aplikasi yang sedang saya kembangkan ini. Anda bisa menyalurkan saran/kritik Anda pada kolom komentar dibawah postingan ini, atau langsung melalui email saya (sanimalikibrahim@gmail.com) sebelumnya terima kasih banyak.

Teknologi yang digunakan pada aplikasi ini :

Visual Basic .NET
.NET Framework 4.0
Ms. Access Database
MySql

Adapun fitur-fitur yang sudah masuk catatan saya, diantaranya:

Pengaturan Nama Aplikasi (jadi Anda bisa mengubah nama aplikasi ini sesuai keinginan)
Pengaturan Akun (untuk merubah username atau password yang digunakan untuk login)
Export Data (dari database aplikasi kedalam file excel dengan format .xlsx)
Import Data (dari file excel dengan format .xlsx kedalam database aplikasi)
Pencarian Data/Filter (untuk data tertentu ex. karyawan, cuti, habis kontrak)
Sortir/Pengurutan Data Langsung Pada Tabel (dengan mengklik nama kolom)
Pagination (pada tabel hanya ditampilkan maksimal 20 baris, selebihnya Anda bisa klik pada tombol next untuk melanjutkan kehalaman selanjutnya, atau tombol prev untuk kembali kehalaman sebelumnya)

Data master yang sudah masuk catatan saya, diantaranya:

Agama
Jenjang (pendidikan)
Jabatan
Kota
Negara
Provinsi
Tunjangan (gaji/tunjangan detail item)

Menu-menu yang sudah masuk catatan saya, diantaranya:

Dasboard (menampilkan notifikasi habis kontrak, perbandingan jumlah karyawan tetap, kontrak, per jenis kelamin dalam bentuk chart)
Karyawan (data personal termasuk status karyawan tetap atau kontrak dan jabatan, kontak darurat, keluaga meliputi ibu; ayah; saudara; pasangan; anak, riwayat pendidikan formal dan non formal, riwayat pekerjaan, gaji dan tunjangan)
Cuti
Habis Kontrak (akan menampilkan notifikasi dalam bentuk data rekap tabel yang berisi data karyawan yang habis kontrak bulan ini, dua bulan lagi habis kontrak, melewati habis kontrak)

Ya, apa yang Anda baca diatas merupakan catatan saya yang apa adanya. Terlihat masih sangat sederhana bukan? karena itu saya tanpa malu meminta masukan kepada teman-teman yang kebetulan membaca postingan ini untuk memberikan ide, saran ataupun kritik pada aplikasi ini.

Saya sangat berharap adanya masukan dari teman-teman. Saya ingatkan juga kalau aplikasi ini gratis. Akhir kata terima kasih sudah meluangkan waktunya dan tentu saja ditunggu ide, saran ataupun kritiknya gan. Babaaayyyyyyy :v

Preview Form

Sedikit bernostalgia dengan Visual Basic 6.0 kali kita akan membahas seputar manipulasi string, lebih tepat nya kita akan membahas cara untuk mencari lalu mengganti teks dalam vb6. Jadi, gimana sih gan caranya membuat fungsi untuk mencari dan mengganti teks di vb6? Oke, silahkan simak baca baik-baik artikel ini dan pastikan tidak ada yang terlewat karena kita akan menambahkan satu refences wajib ada di tutorial ini.

FSO Objects? apaan nih gan? berikut ringkasan yang ane kutip dari situs Microsoft :

FileSystemObject menyediakan struktur non-hirarkis manipulasi, membaca dan membuat file teks ASCII dan Unicode. Struktur ini sangat berbeda dari struktur hierarki implementasi asli I/O berkas dalam Visual Basic. FileSystemObject tidak mendukung akses file biner, sehingga Anda masih harus menggunakan model I/O berkas asli dalam Visual Basic untuk mengakses file biner.

Gimana gan udah ngerti? kalau belum berarti kita sama awokaowkwok.

Ikuti langkah-langkah berikut ini untuk membuat fungsi Cari dan Ganti Teks di VB6 :

Pertama kita harus menyalakan Laptop kemudian colokin charger nya (kalau batre kosong) lalu buka Microsoft Visual Basic 6.0, selanjutnya kita tambahkan references yang akan kita manfaatkan untuk memanipulasi file dengan cara :

Klik menu Project, kemudian klik References...
Cari dan centang/pilih Microsoft Scripting Runtime
Klik tombol OK

Kedua kita melakukan design pada Form seperti gambar dibawah ini :

Form Design

Ketiga kita masukan script/syntak nya tepat seperti dibawah ini :

Option Explicit

Dim fs As FileSystemObject
Dim ts, rf As TextStream
Dim rh As String
Dim dataFind(3), dataReplace(3) As String
Dim keys As Integer

Function loadFile(fileSource As String)
Set fs = New FileSystemObject

'Read
If fs.FileExists(fileSource) Then
Set ts = fs.OpenTextFile(fileSource)
Do While Not ts.AtEndOfStream
rh = ts.ReadAll
Loop

'Refresh
txtHasil.Text = rh
Else
MsgBox "File " & fileSource & " not found.", vbCritical, "Error: 404"
End If

'Clear memory used by FSO objects
Set ts = Nothing
Set fs = Nothing
End Function

Function GoReplace(fileSource As String)
Set fs = New FileSystemObject

'Find teks for replace
dataFind(1) = "%XO_Nama%"
dataFind(2) = "%XO_TanggalLahir%"
dataFind(3) = "%XO_Alamat%"

'Value of replace by keys/id
'Example: dataFind(1) = dataReplace(1)
'So: %XO_Nama% = Sani Malik Ibrahim
dataReplace(1) = "Sani Malik Ibrahim"
dataReplace(2) = "30 Maret"
dataReplace(3) = "Kota Tasikmalaya"


'Check file available
If fs.FileExists(fileSource) Then
'Read
Set ts = fs.OpenTextFile(fileSource)
Do While Not ts.AtEndOfStream
rh = ts.ReadAll
Loop

'Replace
For keys = 1 To UBound(dataFind)
rh = Replace(rh, dataFind(keys), dataReplace(keys))
Next keys

'Write
Set ts = fs.OpenTextFile(fileSource, ForWriting, True)
ts.WriteLine rh
ts.Close

'refresh
txtHasil.Text = rh

MsgBox "Success, file " & fileSource & " has been updated.", vbInformation, "Yeah!"
Else
MsgBox "File " & fileSource & " not found.", vbCritical, "Error: 404"
End If

'Clear memory used by FSO objects
Set ts = Nothing
Set fs = Nothing
End Function

Private Sub btnLoadFile_Click()
loadFile "Test.txt"
txtHasil.SetFocus
End Sub

Private Sub btnStartReplace_Click()
GoReplace "Test.txt"
txtHasil.SetFocus
End Sub

Private Sub Form_Load()
loadFile "Test.txt"
End Sub

Ke empat kita simpan dulu Project nya, lalu kita buat satu file dengan nama "Test.txt" (perhatikan huruf besar kecil nya, tanpa kutip). Kemudian simpan satu folder dengan file Project ini. Isi file Test.txt seperti dibawah ini :

Nama saya %XO_Nama%, saya lahir pada tanggal %XO_TanggalLahir%. Sekarang saya tinggal di %XO_Alamat%.

Selesai. Seharunya saat kita jalankan tidak akan terjadi error, dan jika terjadi error mungkin ente kurang minum dan silahkan ulangi/baca lagi tutorial ini dari awal! Ente juga bisa menggunakan cara malas ketika terjadi error dengan cara membuat komentar dibawah artikel ini.

Contoh project download disini gan.

Sekian, salam anak ganteung!

Pagi gan, ceritanya ane punya aplikasi nih. Kali ini dengan Pascal, aplikasi ini sebenernya bekas tugas UAS ane gan. Ini khusus untuk Perkalian Matrik 2D dengan variasi animasi sederhana. Untuk penampakan aplikasinya agan bisa lihat gambar diatas.

Gimana gan tertarik untuk membuatnya? Jika agan tertarik silahkan lanjutkan baca artikel ini, kalau tidak tertarik saran ane agan close aja page ini gan :D

program uas_sederhana;
uses crt;

var i, j, a, b, x : integer;
    ma, mb, mh : array[1..100,1..100] of integer;

const gv  = #186;
      gh  = #205;
      gai = #201;
      gbi = #200;
      gak = #187;
      gbk = #188;
      x1  = 5;
      x2  = 16;
      x3  = 21;
      x4  = 27;
      x5  = 32;
      x6  = 43;

procedure layout;
begin
     for j := 0 to 24 do begin
         delay(55); gotoxy(48, j+1); write(gv);
     end;

     delay(200); gotoxy(52, 3);  write('NIM   : 123456789');
     delay(200); gotoxy(52, 5);  write('Name  : Sani Malik Ibrahim');
     delay(200); gotoxy(52, 7);  write('Class : TI (Regular)');
     delay(200); gotoxy(61, 14); write('699   330');
     delay(200); gotoxy(61, 15); write('303   140');
     delay(200); gotoxy(61, 16); write('690301341');
     delay(200); gotoxy(61, 17); write('239847563');
     delay(200); gotoxy(61, 18); write('302   195');
     delay(200); gotoxy(61, 19); write('033   761');
     delay(200); gotoxy(61, 21); write('H A D E S');

     gotoxy(15, 3); write('PERKALIAN - MATRIK 2D');

     delay(400);
     {-- kiri - start --}
     gotoxy(x1, 5); write(gai, gh);
     gotoxy(x1, 6); write(gv);
     gotoxy(x1, 7); write(gv);
     gotoxy(x1, 8); write(gv);
     gotoxy(x1, 9); write(gbi, gh);
     {-- kiri - end --}

     delay(400);
     {-- kanan - start --}
     gotoxy(x2, 5);   write(gh, gak);
     gotoxy(x2+1, 6); write(gv);
     gotoxy(x2+1, 7); write(gv);
     gotoxy(x2+1, 8); write(gv);
     gotoxy(x2, 9);   write(gh, gbk);
     {-- kanan - end --}

     delay(400);
     gotoxy(x2+3, 7); write('x');

     delay(400);
     {-- kiri - start --}
     gotoxy(x3, 5);  write(gai, gh);
     gotoxy(x3, 6);  write(gv);
     gotoxy(x3, 7);  write(gv);
     gotoxy(x3, 8);  write(gv);
     gotoxy(x3, 9);  write(gv);
     gotoxy(x3, 10); write(gv);
     gotoxy(x3, 11); write(gbi, gh);
     {-- kiri - end --}

     delay(400);
     {-- kanan - start --}
     gotoxy(x4, 5);    write(gh, gak);
     gotoxy(x4+1, 6);  write(gv);
     gotoxy(x4+1, 7);  write(gv);
     gotoxy(x4+1, 8);  write(gv);
     gotoxy(x4+1, 9);  write(gv);
     gotoxy(x4+1, 10); write(gv);
     gotoxy(x4, 11);   write(gh, gbk);
     {-- kanan - end --}

     delay(400);
     gotoxy(x4+3, 7); write('=');

     delay(400);
     {-- kiri - start --}
     gotoxy(x5, 5); write(gai, gh);
     gotoxy(x5, 6); write(gv);
     gotoxy(x5, 7); write(gv);
     gotoxy(x5, 8); write(gv);
     gotoxy(x5, 9); write(gbi, gh);
     {-- kiri - end --}

     delay(400);
     {-- kanan - start --}
     gotoxy(x6, 5);   write(gh, gak);
     gotoxy(x6+1, 6); write(gv);
     gotoxy(x6+1, 7); write(gv);
     gotoxy(x6+1, 8); write(gv);
     gotoxy(x6, 9);   write(gh, gbk);
     {-- kanan - end --}

     delay(400);
     for i := 1 to 2 do begin
         for j := 1 to 3 do begin
             gotoxy(5, 14); write('Input data for ma[', i, ',', j, '] := '); readln(ma[i,j]);
             gotoxy(5, 14); write('Input data for ma[', i, ',', j, '] :=   ');
             for x := 1 to 40 do begin
                 delay(10); gotoxy(j*4+3, i*2+4); write(ma[i,j]);
                 delay(10); gotoxy(j*4+3, i*2+4); write(' ');
             end;
             delay(x); gotoxy(j*4+3, i*2+4); write(ma[i,j]);
         end;
     end;

     delay(400);
     for i := 1 to 3 do begin
         for j := 1 to 2 do begin
             gotoxy(5, 14); write('Input data for mb[', i, ',', j, '] := '); readln(mb[i,j]);
             gotoxy(5, 14); write('Input data for mb[', i, ',', j, '] :=   ');
             for x := 1 to 40 do begin
                 delay(10); gotoxy(j*3+20, i*2+4); write(mb[i,j]);
                 delay(10); gotoxy(j*3+20, i*2+4); write(' ');
             end;
             delay(x); gotoxy(j*3+20, i*2+4); write(mb[i,j]);
         end;
     end;

     delay(400);
     gotoxy(5, 14); write('Rumus :                    ');
     gotoxy(5, 15); write('mh[i,j] = ma[i,j] * mb[j,i]');

     delay(400);
     for i := 1 to 2 do begin
         for j := 1 to 3 do begin
             mh[i,j] := ma[i,j] * mb[j,i];

             for x := 1 to 40 do begin
                 delay(10); gotoxy(j*4+30, i*2+4); write(mh[i,j]);
                 delay(10); gotoxy(j*4+30, i*2+4); write(' ');
             end;
             delay(10); gotoxy(j*4+30, i*2+4); write(mh[i,j]);
         end;
     end;

     gotoxy(5, 23); write('Finish.');
end;

begin
    clrscr;

    layout;

    readln;
end.

Sangat simpel kan gan? Silahkan dicoba aplikasinya, jika perlu sesuatu yang menyangkut dengan artikel ini, silahkan agan tinggalkan jejak di komentar, ada kemungkinan ane bales ko gan.

Pages

Lha, ini siapa?

Sani Malik Ibrahim

Populer

Kategori