membuat kode otomatis pada vb 6

aduh udah lama tidak posting tutorial jadi bingung lagi deh, sampe2 Rank Alexa nya juga jadi NO DATA :( hufh..
pada postingan ini saya akan mencoba membuat kode otomatis menggunakan VB 6. kode otomatis itu sendidi biasanya digunakan untuk ID atau kode yang bersifat unik, dan disini saya akan mencoba membuat kode otomatis dengan cara mengecek terlebih dahulu pada database. saya akan mencontohkan dalam sebuah form dengan validasi dan penanganan error atau mencegah terjadinya kesalahan pada saat penginputan data oleh pengguna/user. ok kita langsung aja membuat databasenya terlebih dahulu, oia disini saya menggunakan Microsoft Office Access sebagai databasenya biar aga simple dikit .hhehe
databasenya simpan dengan nama kode_otomatis.mdb

id_konsumen (Text) 5
nm_konsumen (Text) 15 
alamat (Text) 25
telp (Text) 13

selanjutnya kita buat project baru, dan membuat 1 buah form dengan nama Form1, dan tambahkan komponen berikut:

image

berikut adalah kodenya:

' mendeklarasikan ID_KONSUMEN
Dim ID_KONSUMEN As String

' membuat kode otomatis berdasarkan isi dari tabel tb_konsumen
Private Sub ID_OTO()
Dim JUMLAH_REC As Integer
    
    BUKADATABASE
        REC.CursorLocation = adUseClient
        REC.Open "select * from tb_konsumen", CON, 1, 2
            If REC.RecordCount > 0 Then
                REC.MoveLast
                JUMLAH_REC = Val(Right(REC("id_konsumen"), 3) + 1)
            Else
                JUMLAH_REC = "01"
            End If

            If JUMLAH_REC < 10 Then
               txtKode.Text = "KS00" & CInt(JUMLAH_REC)
            ElseIf JUMLAH_REC < 100 Then
               txtKode.Text = "KS0" & CInt(JUMLAH_REC)
            ElseIf JUMLAH_REC < 1000 Then
               txtKode.Text = JUMLAH_REC
            End If
        REC.Close
        Set REC = Nothing
    TUTUPDATABASE
End Sub

' kode status objek sebagai validasi
Private Sub STATUS_OBJEK(NAVIGASI As String)
    Select Case UCase(NAVIGASI)
        Case UCase("NONE"):
            cmdSimpan.Enabled = True
            cmdTambah.Enabled = True
            cmdHapus.Enabled = False
        Case UCase("KLIK"):
            cmdSimpan.Enabled = False
            cmdTambah.Enabled = True
            cmdHapus.Enabled = True
    End Select
End Sub

' kode untuk menghapus data
Private Sub cmdHapus_Click()
If MsgBox("Apa anda yakin untuk menghapus Data ini ??", vbYesNo + vbQuestion, JUDUL) = vbYes Then
    
    BUKADATABASE
        REC.Open "DELETE from tb_konsumen where [id_konsumen] = '" & ID_KONSUMEN & "'", CON, 1, 2
    TUTUPDATABASE
    
    TAMPIL_DATA
    STATUS_OBJEK "none"
End If
End Sub

' kode untuk menyimpan data
Private Sub cmdSimpan_Click()
Dim PESAN As String

' mengecek apakah data belum terisi, dan jika belum terisi maka akan muncul pesa pemberitahuan
    If txtKode.Text = "" Then
        PESAN = PESAN & "Kode konsumen" & vbCrLf
    End If
    If txtNama.Text = "" Then
        PESAN = PESAN & "Nama konsumen" & vbCrLf
    End If
    If txtAlamat.Text = "" Then
        PESAN = PESAN & "Alamat konsumen" & vbCrLf
    End If
    If txtTelp.Text = "" Then
        PESAN = PESAN & "Telepon konsumen" & vbCrLf
    End If
    
    If Len(PESAN) > 3 Then
        MsgBox "Harap lengkapi data berikut:" & vbCrLf & vbCrLf & PESAN, vbInformation + vbOKOnly, JUDUL
        Exit Sub
    End If
    
    BUKADATABASE
        REC.Open "SELECT * FROM tb_konsumen", CON, 1, 2
        REC.AddNew
            REC("id_konsumen") = Trim(txtKode.Text)
            REC("nm_konsumen") = Trim(txtNama.Text)
            REC("alamat") = Trim(txtAlamat.Text)
            REC("telp") = Trim(txtTelp.Text)
        REC.Update
        REC.Close
    TUTUPDATABASE
    
    TAMPIL_DATA
    MsgBox "Data telah berhasil disimpan", vbInformation + vbOKOnly, "Info"
    BERSIH
End Sub

' kode untuk menambah data abru
Private Sub cmdTambah_Click()
    BERSIH
    TAMPIL_DATA
End Sub

Private Sub Form_Load()
    TAMPIL_DATA
    ID_OTO
    STATUS_OBJEK "NONE"
End Sub

' kode untuk menampilkan data
Private Sub TAMPIL_DATA()
I = 1

    LsKonsumen.ListItems.Clear
    
    BUKADATABASE
        REC.Open "select * from tb_konsumen ", CON, 1, 2
        Do While Not REC.EOF
            LsKonsumen.ListItems.Add I, , REC("id_konsumen")
            LsKonsumen.ListItems(I).ListSubItems.Add 1, , REC("nm_konsumen")
            LsKonsumen.ListItems(I).ListSubItems.Add 2, , REC("alamat")
            LsKonsumen.ListItems(I).ListSubItems.Add 3, , REC("telp")
            REC.MoveNext
            I = I + 1
        Loop
    TUTUPDATABASE
    
    BERSIH
End Sub

' untuk membersihkan form
Private Sub BERSIH()
    txtKode.Text = ""
    txtNama.Text = ""
    txtAlamat.Text = ""
    txtTelp.Text = ""
    ID_OTO
    STATUS_OBJEK "NONE"
End Sub

' kode untuk memilih data yang sudah tersimpan dalam database(tb_konsumen)
Private Sub LsKonsumen_ItemClick(ByVal Item As MSComctlLib.ListItem)
    STATUS_OBJEK "Klik"
    If Item.Selected = True Then
        txtKode.Text = Item.Text
        txtNama.Text = Item.ListSubItems(1).Text
        txtAlamat.Text = Item.ListSubItems(2).Text
        txtTelp.Text = Item.ListSubItems(3).Text
        
        ID_KONSUMEN = txtKode.Text
    End If
End Sub

buat 1 module dengan nama Module1.bas

Public CON As New ADODB.Connection
Public REC As New ADODB.Recordset

Sub BUKADATABASE()
On Error GoTo SOLUSI
    CON.Open "DSN=dsnKode", "", ""
SOLUSI:
    Select Case Err.Number
        Case 3705:
        CON.Close
        Exit Sub
    End Select
End Sub

Sub TUTUPDATABASE()
    CON.Close
End Sub

sebelum menjalankannya pastikan anda sudah membuat DSN nya dengan nama dsnKode. jika ada yg belum tau berikut step by stepnya:
masuk ke Control Panel lalu pilih Administrative Tools dan pilih Data Sources (ODBC), dan pilih Add maka akan muncul tampilan seperti dibawah ini:

lalu isi Data Source Name dengan nama dsnKode, lalu Pilih database dengan meng-klik Select dan cari lokasi database yang telah anda buat sebelumnya. jika sudah klik OK.
artikel ini serba minimalis, jadi silahkan anda kembangkan sesuai kebutuhan dan keinginan anda. good luck !!
anda bisa download contoh projectnya disini.

Read more...

teknik seleksi mudah dengan photoshop (bag 2)

postingan ini adalah lanjutan dari postingan sebelumnya yang berjudul seleksi mudah pada Photoshop bagian 1. setelah sebelumnya telah dibahas bagaimana menyeleksi menggunakan Lasso Toll dan menggunakan Filter, pada artikel ini saya akan coba bahas bagaimana menyeleksi teks pada Photoshop dan menyeleksi dengan menggunakan Magic Wand Tool.
seperti biasa.. kita langsung aja coba, karna klo ga nyoba ga akan bisa2 .hhihi

menyeleksi Teks

buka sebuah file yang akan diedit

pilih Horizontal Type Mask Tool untuk tulisan horizontal atau Vertical Type Mask Tool untuk tulisan Vertikal pada toolbox.

buat tulisan pada gambar, maka tulisan tersebut akan menjadi seleksi pada gambar.

teknik seleksi teks dapat digunakan untuk membuat tulisan gaya seperti contoh berikut:

seleksi dengan Magic Wand Tool
untuk gambar yang mempunyai perbedaan warna yang kontras, cara paling mudah untuk menyeleksi area yang sewarna adalah dengan Magic Wand Tool.

pilih Magic Wand Tool pada ToolBox

atur nilai tolerance pada toolbar. nilai tolerance berkisar antara 0 – 255, makin besar nilainya maka makin banyak warna-warna yang mirip/senada yang akan terpilih.

klik pada area yang dikehendaki.

source: ilmukomputer.com

Read more...

perulangan atau looping dalam javascript

perulangan atau looping digunakan untuk mengulang beberapa kejadian/event. jenis dari perulangan tersebut yaitu ada tiga, perulangan For, While, dan Do While. oke, langsung aja kita coba lihat perbedaan dari setiap looping tersebut.
sebelumnya maaf klo kurang jelas, maklum lagi males ngetik .hhihi

perulangan For

perulangan For digunakan jika sudah mengetahui akhir dari perulangan tersebut.

for (nilai awal;kondisi;penambahan){
  ulang pernyataan ini;
}

contoh:

<HTML>
<HEAD><TITLE>Perulangan For</TITLE></HEAD>
<SCRIPT LANGUAGE="JavaScript">
<!-- menyembunyikan script dan browser non-JS
document.writeln("<H2>Latihan Perulangan For</H2>");
document.writeln("------------------------------------------------");
for (i=1; i<=7; i++){
  sq=i*i;
  document.writeln("<PRE>");
  document.write("Angka: " + i + " -----> Kuadrat: " + sq + "<BR>");
  document.writeln("</PRE>");
}
document.writeln("------------------------------------------------");
// akhir dari penyembunyian -->
</SCRIPT>
</HEAD>
<BODY>
</BODY>
</HTML>

tampilan:

perulangan While

aperulangan While digunakan untuk perulangan yang tidak diketahui berapa kali roses pengulangan dilakukan. perintah While terus mengulang/looping selama kondisi memiliki nilai True.

while (kondisi){
  ulang pernyataan ini;
}

contoh:

<HTML>
<HEAD><TITLE>Perulangan While</TITLE></HEAD>
<SCRIPT LANGUAGE="JavaScript">
<!-- menyembunyikan script dan browser non-JS
var deret = prompt('Masukkan Jumlah Deret :','');
document.writeln("<H2>Latihan Perulangan While</H2>");
document.writeln("------------------------------------------------");
document.writeln("<BR>");
var jml = 0.0;
var angka = 1;

while (angka <= deret){
  jml= jml+angka;
  angka++
}

document.writeln("<BR>");
document.writeln("Jumlah Deret dari 1 sampai "+ deret +" adalah = "+ jml);
document.writeln("<BR>");
document.writeln("------------------------------------------------");
// akhir dari penyembunyian -->
</SCRIPT>
</HEAD>
<BODY>
</BODY>
</HTML>

tampilan:

perulangan Do While

aperulangan ini hampir sama dengan perulangan While, digunakan jika kita belum tau berapa kali pengulangan harus dilakukan. namun perbedaannya perulangan Do While pernyataannya dilakukan diakhir pernyataan.

Do{
  //pernyataan1 dieksekusi
}
while (kondisi);

contoh:

<HTML>
<HEAD><TITLE>Perulangan Do-While</TITLE></HEAD>
<BODY>
<SCRIPT LANGUAGE="JavaScript">
<!-- menyembunyikan script dan browser non-JS
function pass(){
  var coba = 1;
  do{
    p = prompt("Tuliskan password dengan benar","");
    if (p=="softphobia"){
      alert("Selamat Datang Friends");
      window.open("welcome.html");
      break;
    }else{
      alert("Password Salah !!! Ulangi lagi.");
    }

    if (coba==3){
      alert("maaf, kesempatan anda hanya 3 kali");
      history.go(-1);
    }
    coba=coba+1;
  }
  while (coba<=3)
}
// akhir dari penyembunyian -->
</SCRIPT>
<FORM METHOD="post">
<INPUT TYPE="button" VALUE="Password" ONCLICK="pass()">
</FORM>
</BODY>
</HTML>

tampilan:

silahkan download contoh scriptnya disini.

Read more...

teknik seleksi mudah dengan photoshop (bag 1)

untuk mengedit gambar dengan Photoshop, kita perlu mengenal teknik seleksi. teknik seleksi digunakan untuk membatasi area tertentu dari gambar untuk selanjutnya di cut, di copy, atau dipindahkan ke layer lain untuk proses editing selanjutnya. penggunaan dari teknik seleksi misalnya untuk proses montase foto, yaitu penggantian bagian tertentu dari sebuah gambar untuk digantikan dengan bagian dari gambar lain untuk menghasilkan foto yang diinginkan. disini akan dijelaskan langkah-langkah mudah dari empat buah teknik seleksi, yaitu dengan Lasso Tool, Filter, Text Mask Tool dan Magic Wand Tool.

seleksi dengan Lasso Tool
sebenarnya ada 3 option dalam lasso tool, yaitu lasso tool, polygonal lasso tool dan magnetic lasso tool. yang paling mudah digunakan yaitu magnetic lasso tool, karena tool ini mengikuti pola gambar secara otomatis. langkah-langkahnya yaitu sebagai berikut:

buka sebuah file gambar yang akan diedit.

pilih Magnetic Lasso Tool pada Toolbox.

mulailah menyeleksi. klik pada titik awal seleksi, lalu gerakkan mouse perlahan mengikuti pola gambar yang akan kita seleksi. Area seleksi akan otomatis terbentuk mengikuti pola gambar. untuk membuat titik belok secara manual, klik pada mouse.

untuk mengakhiri seleksi, tinggal klik pada titik awal Anda melakukan seleksi. Area yang telah diseleksi akan dikelilingi oleh garis putus-putus.

untuk menyeleksi gambar yang rumit atau bila Anda menghendaki seleksi yang lebih presisi, gunakan polygonal lasso tool. Semakin banyak titik belok yang Anda buat, semakin bagus pula hasilnya.

seleksi dengan Filter

buka sebuah file gambar yang akan diedit.

pilih menu Filter > Extract, maka akan muncul jendela Extract.

pada jendela Extract, gunakan Highlighter untuk mengelilingi tepi gambar yang akan diseleksi hingga menjadi area tertutup (pastikan tidak ada yang bolong). atur besar brush size sesuai keinginan Anda. sebaiknya aktifkan "smart highlighting" untuk mempermudah.

pilih Fill, lalu klik pada bagian tengah area yang telah anda Highlight.

klik OK, maka hasilnya akan seperti ini:

bersambung..
source: ilmukomputer.com

Read more...