Pages

Menampilkan Nama dengan Cara Input NIM

Manampilkan Nama dengan Cara Input NIM, Gimana maksudnya ? Maksud saya adalah dengan memasukan atau mengetikan sebuah nim ke dalam sebuah  textbox lalu kita tekan enter maka jika data yang kita masukan ada maka  nama,alamat dll akan muncul pada textbox yang lain sesuai dengan data yang ada dalam tabel.

Jika sudah muncul datanya terserah anda mau diapakan data tersebut misalnya di hapus,di update atau di simpan ke tabel yang lain sesuaikan dengan kebutuhan anda. Cara ini sangat berguna saat membuat aplikasi pada proses transaksi.

Jika anda belum bisa dan belum tahu caranya silahkan simak postingan saya ini. Langkah-langkahnya sebagai berikut ini. Siapkan sebuah form seperti gambar berikut ini

Tampilkan Gambar





Sebagai contoh saya memakai database DB_MHS.mdb dengan tabel Tbl_Mhs desain tabelnya seperti yang nampak pada gambar berikut ini :

Tampilkan Gambar



Untuk selanjutnya yaitu membuat kodingnya.  Tambahkan sebuah modul dengan cara klik menu Project-Add Modul dan ketikan koding berikut ini pada modul tersebut.

Public Conn As New ADODB.Connection
Public RsMhs As ADODB.Recordset

Public Sub KonekDB()
    Set Conn = New ADODB.Connection
    Conn.CursorLocation = adUseClient
    Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
            & "Data Source=" & App.Path & "\DB_MHS.mdb"
End Sub


Jika sudah simpan, kemudian kembali ke form lalu double klik TxtNim kemudian ketikan koding berikut ini pada event Keypress (TxtNim_Keypress)

Private Sub TxtNim_KeyPress(KeyAscii As Integer)
'Jika di tekan enter (KeyAscii = 13)
If KeyAscii = 13 Then
    Call KonekDB
    Set RsMhs = New ADODB.Recordset
    RsMhs.Open "SELECT * FROM Tbl_Mhs " _
             & "WHERE nim='" & TxtNim.Text & "'", _
             Conn, adOpenDynamic, adLockOptimistic
             
    'Jika  di temukan datanya
    If Not RsMhs.EOF Then
        'tampilkan nama,alamat,jurusan pada textbox
        TxtNama.Text = RsMhs!nama
        TxtAlamat.Text = RsMhs!alamat
        TxtJurusan.Text = RsMhs!jurusan
        
    'jika tidak di temukan
    Else
        MsgBox "Data Yang Anda Cari Tidak Data...", vbInformation, "Informasi"
        TxtNama.Text = ""
        TxtAlamat.Text = ""
        TxtJurusan.Text = ""
        TxtNim.SetFocus
        Exit Sub
    End If
End If
End Sub

Silahkan di save selanjutkan silahkan dijalankan. jika berhasil maka akan tampil seperti gambar animasi seperti berikut ini.


Selesai jika anda masih kurang jelas atau kendala silahkan kasih komentar. Jika anda menginginkan source codenya silahkan download di link di akhir tulisan ini.





Tags:
Menampilkan Nama dengan Cara Input NIM, Menampilkan nama dengan cara input no anggota, cara menampilkan data, menampilkan data dengan input kata kunci, Menampilkan data yang sudah ada dengan input nim,no anggota, no transaksi,no pinjam, kode

Pencarian Data Pada MsFlexGrid Di VB Bag 2

Pada postingan sebelumnya saya pernah membahas pencarian pada MsFlexGrid dengan menggunakan option button sebagai opsi pencariannya.

Pada postinga ini saya tidak akan memakai option button untuk opsi pencariannya tapi nanti hasilnya sama dengan memakai option. Kita akan rubah koding pencariaannya sehingga menghasilkan pencarian yang sama seperti pada tutorial pertama dengan hanya memasukan kata kunci pada text box pencariaannya tanpa perlu susah-susah memilih dulu opsi pencariaannya.

Silahkan buat form seperti pada tampilan berikut ini saya menggunakan database yang sama seperti pada bag 1
 
Tampilkan Gambar



Kodingnya sama seperti pada tutorial bag 1 hanya yang membedakan pada bagian Text1_Change. Berikut kodingnya

Private Sub Text1_Change()
MSFlexGrid.Clear
Call AktifGrid

MSFlexGrid.Rows = 2
Baris = 0
'memmanggil koneksi database
Call KonekDB
Set RsMhs = New ADODB.Recordset
'Pencarian berdasarkan nim,nama,alamat dan jurusan
RsMhs.Open "SELECT * FROM Tbl_Mhs " _
         & "WHERE nim LIKE '%" & Text1.Text & "%' " _
         & "OR nama LIKE '%" & Text1.Text & "%' " _
         & "OR alamat LIKE '%" & Text1.Text & "%' " _
         & "OR jurusan LIKE '%" & Text1.Text & "%'", _
Conn, adOpenDynamic, adLockOptimistic
'---------------------
If RsMhs.BOF Then
    Exit Sub
Else
    With RsMhs
        .MoveFirst
        Do While Not .EOF
            Baris = Baris + 1           'no urut
            MSFlexGrid.Rows = Baris + 1
            MSFlexGrid.TextMatrix(Baris, 0) = Baris
            MSFlexGrid.TextMatrix(Baris, 1) = !nim
            MSFlexGrid.TextMatrix(Baris, 2) = !nama
            MSFlexGrid.TextMatrix(Baris, 3) = !alamat
            MSFlexGrid.TextMatrix(Baris, 4) = !jurusan
            .MoveNext
        Loop
    End With
End If
RsMhs.Close
End Sub

Untuk koding menampilkan data dan lainnya silahkan download source codenya, karena pada postingan ini tidak asaya jelaskan karena sudah saya jelaskan pada bagian 1 yang membedakan hanya pada bagian pencariannya saya yaitu Text1_Change.

Jika berhasil maka akan tampak seperti gambar animasi berikut ini



Kalau anda menginginkan source codenya silahkan download source codenya di link berikut ini.







Tags:
 Pencarian Data Pada MsFlexGrid,Pencarian data, Trik Pencarian data, Filter data pada vb,penyaringan data pada vb,Pencarian Data Pada MsFlexGrid Di VB

Komponen KButton (KxButton.ocx)

Saya akan berbagi sebuah komponen ocx, dengan komponen ini bisa menambah apik tampilan aplikasi yang kita buat. Nama komponen ocx nya adalah KButton.

Komponen ocx KButton ini adalah sebuah tombol button yang tampilannya berbentuk flat. Jika anda ingin membuat tombol flat pada form vb silahkan pakai komponen KButton. Berikut gambar screenshot nya




Menarik bukan..? :) silahkan download komponen KButton.ocx di link di bawah ini :






Tags :
Download KxButton.ocx,Komponen KButton (KxButton.ocx), Tombol Flat Di VB,Komponen Tambahan,Memperindah Tampilam Form

Membuat Laporan Dengan Crystal Report Yang Databasenya Diberi Password

Pada postingan sebelumnya saya sudah membahas cara koneksi vb dengan database berpassword. Jika belum baca silahkan baca terlebih dulu postingan saya sebelumnya. Terus bagaimana membuat laporan Crystal Report dengan database access berpassword ? Tentunya jika kita membuat laporan crystal report dengan cara biasa pastinya tidak bisa jalan ketika di run.

Supaya laporannya bisa jalan dan datanya bisa tampil kita memerlukan sedikit tambahan kode, cuma satu baris kode saja gak usah banyak-banyak. Ingin tahu caranya silahkan ikuti langkah-langkah berikut ini :


  • Buka crystal reportnya
  • Buatlah laporan dari salah satu tabel yang anda inginkan
  • Pada tahapan tertentu akan di minta memasukan password khususnya pada saat memilih database dan tabel, silahkan di masukan password databasenya
  • Jika membuat laporannya sudah selesai silahkan simpan laporannya
  • Buka VB
  • Kemudian desainlah sebuah form tambahkan komponen ke dalam form sebuah command button dan crystal report control seperti gambar berikut ini :


  • Kemudian gantilah komponen crystal report controlnya menjadi CR supaya dalam penulisan kode program menjadi lebih simple
  • Kemudian double klik command button nya lalu ketikan koding berikut ini :
 
Private Sub Command1_Click()
CR.ReportFileName = App.Path & "\report1.rpt"
CR.Password = Chr(10) & "12345678" '(ketik password database anda)
CR.WindowState = crptMaximized
CR.RetrieveDataFiles
CR.Action = 0
End Sub

Jika sudah simpan dan silahkan di run programnya, semoga berhasil dan bermanfaat. Jika ada yang kurang jelas silahkan kasih komentar.

Silahkan download source codenya yang telah saya sediakan di link di bawah ini.






Tags:
Membuat Laporan Dengan Crystal Report Yang Databasenya Diberi Password, Laporan dengan database berpassword,Tutorial membuat laporan crystal report dengan database berpassword,trik mengatasi database berpassword

Koneksi VB Dengan Database Access Berpassword

Untuk melindungi database kita dari sesuatu yang tidak diinginkan alangkah baiknya databasenya diberi password. Yang menjadi pertanyaan adalah bagimana mengkoneksikan VB dengan Database Access berpassword ? Jika anda ingin tahu simak tulisan ini sampai selesai.

Saya anggap semuanya sudah bisa cara memberi password pada database ms access. Disini saya memaki database dengan nama db_mhs.mdb yang telah saya beri password '12345678'.
Sebagai contoh saya akan mencoba menampilkan data dari database yang telah di beri password tersebut ke dalam komponen msflexgrid. Siapkan sebuah form seperti gambar berikut ini.




Untuk koneksinya saya menggunakan sebuah modul, tambahkan modul dengan cara klik menu project-Add Modul dan ketikan koding berikut ini yang berguna menghubungkan database dengan aplikasi vb:

Public Conn As New ADODB.Connection
Public RsMhs As ADODB.Recordset

Public Sub KonekDB()
    Set Conn = New ADODB.Connection
    Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
            & "Data Source=" & App.Path & "\Db_Mhs.mdb;" _
            & "Jet OLEDB:Database Password='12345678'"
    Conn.CursorLocation = adUseClient
End Sub

Untuk lebih jelanya silahkan lihat screenshotnya seperti gambar berikut


koding yang  di dalam kotak merah ada tulisan 12345678 itu merupakan password databasenya. Selanjutnya yaitu koding untuk menampilkan data ke msflexgrid. sebenarnya koding sama seperti kita menampilkan data ke msflexgrid dengan menggunakan database tanpa password pada tutorial-tutorial saya sebelumnya. Berikut kodingnya :

Option Explicit

Sub AktifGrid()
    MSFlexGrid.Cols = 5
    MSFlexGrid.RowHeightMin = 300
    '-------------------------------------------------
    MSFlexGrid.Col = 0
    MSFlexGrid.Row = 0
    MSFlexGrid.Text = "NO"
    MSFlexGrid.CellFontBold = True
    MSFlexGrid.ColWidth(0) = 500
    MSFlexGrid.AllowUserResizing = flexResizeColumns
    MSFlexGrid.CellAlignment = flexAlignCenterCenter
    '-------------------------------------------------
    MSFlexGrid.Col = 1
    MSFlexGrid.Row = 0
    MSFlexGrid.Text = "NIM"
    MSFlexGrid.CellFontBold = True
    MSFlexGrid.ColWidth(1) = 700
    MSFlexGrid.AllowUserResizing = flexResizeColumns
    MSFlexGrid.CellAlignment = flexAlignCenterCenter
    '-------------------------------------------------
    MSFlexGrid.Col = 2
    MSFlexGrid.Row = 0
    MSFlexGrid.Text = "NAMA MAHASISWA"
    MSFlexGrid.CellFontBold = True
    MSFlexGrid.ColWidth(2) = 2000
    MSFlexGrid.AllowUserResizing = flexResizeColumns
    MSFlexGrid.CellAlignment = flexAlignCenterCenter
    '-------------------------------------------------
    MSFlexGrid.Col = 3
    MSFlexGrid.Row = 0
    MSFlexGrid.Text = "ALAMAT"
    MSFlexGrid.CellFontBold = True
    MSFlexGrid.ColWidth(3) = 2000
    MSFlexGrid.AllowUserResizing = flexResizeColumns
    MSFlexGrid.CellAlignment = flexAlignCenterCenter
    '---------------------------------------------------
    MSFlexGrid.Col = 4
    MSFlexGrid.Row = 0
    MSFlexGrid.Text = "JURUSAN"
    MSFlexGrid.CellFontBold = True
    MSFlexGrid.ColWidth(4) = 2300
    MSFlexGrid.AllowUserResizing = flexResizeColumns
    MSFlexGrid.CellAlignment = flexAlignCenterCenter
End Sub

Sub TampilGrid()
    Dim Baris As String
    MSFlexGrid.Clear
    Call AktifGrid

    MSFlexGrid.Rows = 2
    Baris = 0
    Call KonekDB
    Set RsMhs = New ADODB.Recordset
    RsMhs.Open "SELECT * FROM tbl_mhs ORDER BY nim ASC", Conn, adOpenDynamic, adLockOptimistic

    If RsMhs.BOF Then
        Exit Sub
    Else
        RsMhs.MoveFirst
        Do While Not RsMhs.EOF
            Baris = Baris + 1
            MSFlexGrid.Rows = Baris + 1
            MSFlexGrid.TextMatrix(Baris, 0) = Baris
            MSFlexGrid.TextMatrix(Baris, 1) = RsMhs!nim
            MSFlexGrid.TextMatrix(Baris, 2) = RsMhs!nama
            MSFlexGrid.TextMatrix(Baris, 3) = RsMhs!alamat
            MSFlexGrid.TextMatrix(Baris, 4) = RsMhs!jurusan
            RsMhs.MoveNext
        Loop
    End If
End Sub

Private Sub Command1_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Call Buka
    Call TampilGrid
End Sub


jika sudah selesai silahkan dijalankan. semoga berhasil dan bermanfaat. Jika anda menginginkan source codenya silahlan download pada link di bawah ini.






Tags:
Koneksi VB Dengan Database Access Berpassword,VB Dengan Database Access Berpassword,Cara Koneksi VB 6 Dengan Database Access Berpassword,Password Database,Memberi Password Pada Database Access

Fungsi Option Explicit Pada Visual Basic 6

Pernahkah anda memakai option explicit dalam koding visual basic dan apa kegunaannya.? penulisan option explicit terletak pada baris paling atas pada penulisan sebuah koding dalam visual basic 6. Bagi anda yang belum tahu fungsinya silahkan simak tulisan berikut ini.

Fungsi option explicit adalah untuk  mendeklarasikan semua variabel sebelum variabel tersebut digunakan. dengan option explicit akan sangat membantu programmer dalam mengurangi kesalahan dan mengetahui letak kesalahan atau debug.contoh keuntungan ketika kita menggunakan option explicit :


Private Sub CommandPesan_Click()
Dim PesanKu As String

Pesan = "Hello VB....." '<-- ada="" code="" kata="" kurang="" pada="" u="" variabel="" yg="">
MsgBox PesanKu

End Sub



Ketika program di run maka MessageBox tidak akan menampilkan pesan sesuai pada coding tetapi menampilkan MessageBox kosong. Kemudian ketikan Option Expilicit di atas Private Sub CommandPesan_Click(). Setelah itu runing lagi programnya maka akan muncul pesan kesalahan “Variable not defined” yang berarti bahwa variabel tidak atau belum didefinisikan….

ini adalah salah satu keuntungan menggunakan Option Explicit, Jadi programmer  mengetahui letak kesalahan. Mungkin ketika coding belum rumit masih mudah mencari kesalahan namun ketika coding program sudah banyak dan rumit maka keuntungan dari option explicit sangat terasa.





Tags:
Variable not defined,Fungsi Option Explicit, mengatasi error Variable not defined

Tutorial Membuat Laporan Dengan Active Report Bag 2

Pada pembahasan tutorial kali ini adalah pembuatan format laporan yang sering digunakan yaitu grouping. Contoh laporan yang akan kita buat adalah seperti yang nampak pada gambar berikut :

Tampilkan Gambar



Masih menggunakan database yang sama pada tutorial pertama, kita akan tambahkan 2 buah tabel lagi yaitu kelas dan kelas_siswa
Tampilkan Gambar







Sebelum membuat laporannya, kita liat dulu query yang digunakan untuk menampilkan data siswa berikutnya kelasnya.

SELECT kelas.id AS kelas_id, kelas.keterangan AS kelas, siswa.nomor_induk, siswa.nama
FROM siswa INNER JOIN (kelas INNER JOIN kelas_siswa ON kelas.id = kelas_siswa.kelas_id) ON siswa.nomor_induk = kelas_siswa.nomor_induk

Tampilkan Gambar



Oke sampai disini persiapannya sudah cukup, saatnya kita membuka project pada tutorial pertama klik kanan di nama project - Add -Data Dynamics ActiveReport 2.0

Tampilkan Gambar



jika berhasil akan ditambahkan sub node baru dengan nama ActiveReport1 seperti yang nampak pada gambar berikut.

Tampilkan Gambar



kemudian ganti properties namenya menjadi arLapSiswaPerKelas dan caption menjadi Laporan Data Siswa Per Kelas seperti yang nampak pada gambar berikut ini

Tampilkan Gambar



Selanjutnya kita akan menambahkan section Group dengan cara mengklik kanan salah satu section (PageHeader atau Detail) -> Insert -> Group Header/Footer. Seperti yang nampak pada gambar berikut.

Tampilkan Gambar



Jika berhasil akan ditambahkan 2 section baru yaitu GroupHeader1 dan GroupFooter1 seperti gambar berikut.

Tampilkan Gambar




kemudian ganti properties namenya menjadi grpKelasID untuk lebih jelasnya lihat gambar di bawah ini.

Tampilkan Gambar




field kelas_id mengacu pada query diatas
untuk format laporannya sesuai dengan contoh diatas

Tampilkan Gambar



bagaimana cara mendesainnya sudah saya bahas tuntas disini.
Setelah desain reportnya jadi, kita akan menambahkan beberapa baris kode di event Detail_Format

Tampilkan Gambar



kemudian ketik kode berikut :

Private Sub Detail_Format()
    With adoSiswaPerKelas.Recordset
        If Not .EOF Then
            txtNo.Text = Val(txtNo.Text) + 1
            txtNoInduk.Text = .Fields("nomor_induk").Value
            txtNama.Text = .Fields("nama").Value
        End If
    End With
End Sub

selanjutnya kita akan menambahkan kode di event Detail_BeforePrint

Tampilkan Gambar



Private Sub Detail_BeforePrint()
    txtNo.Height = Detail.Height
    txtNoInduk.Height = Detail.Height
    txtNama.Height = Detail.Height
End Sub

terakhir event grpKelasID_Format

Private Sub grpKelasID_Format()
    With adoSiswaPerKelas.Recordset
        If Not .EOF Then
            txtKelas.Text = .Fields("kelas").Value
        End If
    End With
End Sub

kemudian aktifkan form yang sudah ada setelah itu tambahkan 1 buah tombol untuk menampilkan laporan siswa per kelas seperti gambar berikut ini :

Tampilkan Gambar



adapun untuk kodenya seperti berikut :

Private Sub cmdPreviewSiswaPerKelas_Click()
    Dim strCon  As String
    Dim strSql  As String

    strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sampleDb.mdb"
    strSql = "SELECT kelas.id AS kelas_id, kelas.keterangan AS kelas, siswa.nomor_induk, siswa.nama " & _
             "FROM siswa INNER JOIN (kelas INNER JOIN kelas_siswa ON kelas.id = kelas_siswa.kelas_id) ON siswa.nomor_induk = kelas_siswa.nomor_induk"

    With arLapSiswaPerkelas
        .adoSiswaPerKelas.ConnectionString = strCon
        .adoSiswaPerKelas.Source = strSql

        .lblHeader1.Caption = "SEKOLAH MENGENGAH ..."
        .lblHeader2.Caption = "Laporan Data Siswa Per Kelas"

        .Show
    End With
End Sub

Jalankan program kemudian klik tombol “Tampilkan Report Siswa Per Kelas”

Tampilkan Gambar




Ada yang aneh pada laporan diatas, nomor urut untuk kelas VII B (UNGGULAN) harusnya dimulai dari 1 bukan 12 (melanjutkan nomor urut kelas sebelumnya).
Untuk menyelesaikan masalah ini kita harus kembali ke desain reportnya kemudian aktifkan event grpKelasID_Format setelah itu tambahkan kode berikut :

txtNo.text = "0"

untuk kode lengkapnya seperti berikut :

Private Sub grpKelasID_Format()
    With adoSiswaPerKelas.Recordset
        If Not .EOF Then
            txtNo.Text = "0" ' reset nomor urut kelas
            txtKelas.Text = .Fields("kelas").Value
        End If
    End With
End Sub

coba dijalankan lagi programnya kemudian klik tombol “Tampilkan Report Siswa Per Kelas”




Yupz nomor urut untuk kelas berikutnya sudah dimulai dari 1

Untuk postingan kali ini rasanya cukup sampai disini, postingan berikutnya insya Allah kita masih akan membahas kasus yang sama (menampilkan daftar siswa per kelas) tetapi dengan memanfaatkan Sub Report.

dikutip dari : http://coding4ever.net


 Saya akan memberikan link download tutorial dan source codenya di akhir tulisan ini silahkan di download dan semoga dapat bermanfaat.


DOWNLOAD :

1. Tutorial
2. Source Code



Tags:
Tutorial Membuat Laporan Dengan Active Report,Membuat Grup pada Laporan,Cara membuat grup pada active report,bagaimana membuat grup pada laporan active report,Membuat Grouping pada active report

Menampilkan Gambar Atau Foto Pada VB 6

Di sela-sela kesibukan saya sebagai seorang buruh saya akan membagikan sebuah tutorial cara menampilkan foto atau gambar pada visual basic 6. Tutorial ini dapat anda kembangkan sendiri sesuai dengan imajinasi kalian masing-masing.

Ikutilah langkah-langkahnya sebagai berikut ini :
Buka visual basic 6 Kemudian siapkan sebuah form kemudian tambahkan komponen command dialog dengan cara klik menu project-komponen setelah itu anda cari dan centang “Microsoft Common Dialog Control 6.0 “ seperti yang gambar dibawah lalu tekan OK

Tampilkan Gambar



Jika sudah desainlah fomnya tambahkan komponen label,textbox,comman button,image box dan command dialog seperti  yang nampak pada gambar berikut ini

Tampilkan Gambar



Kemudian gantilah nilai properties image box nya  Stretch : True
Selanjutnya koding, silahkan double klik tombol command button nya lalu tulislah koding berikut ini

Private Sub Command1_Click()
    With CommonDialog1
        .DialogTitle = "Pilih Gambar (.JPG)"
        .Filter = "SQL Files (*.JPG)|*.JPG"
        .ShowOpen
    End With
    'menampilkan nama filenya di textbox
    Text1.Text = CommonDialog1.FileName
    'menampilkan file gambar/foto
    Image1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub

Jika sudah semua silahkan dijalankan dengan menekan tombol F5, jika semua berjalan baik maka hasilnya akan seperti gambar berikut ini.


Kalau kurang jelas silahkan di tanyakan lewat kolom komentar.Kalau anda menginginkan source codenya silahkan download di link yang berada pada akhir tulisan ini. Semoga bermanfaat.







Tags:
Menampilkan Gambar Atau Foto Pada VB 6,Trik Menampilkan Gambar Atau Foto Pada VB 6,Cara Menampilkan Gambar Atau Foto Pada VB 6,Tutorial Menampilkan Gambar Atau Foto Pada VB 6

Membuat Jam Digital Pada VB 6

Pada kesempatan ini saya akan membahas cara membuat jam digital pada vb. Bagi yang belum bisa silahkan simak tutorial ini.
Cara membuatnya sangat mudah dan kodingnya pun sangat pendek cuma satu baris koding saja dan aplikasi jam digital pun jadi.

Siapkan sebuah form dan tambahkan label dan timer ke dalam form tersebut. kemudian ubah nilai properties dari timer tersebut :

1.  Enabled   : True
2.  Interval    : 1000

Desain formnya nampak seperti pada gambar berikut ini :



Kemudian doubli klik komponen timernya dan tulislah koding berikut ini

Private Sub Timer1_Timer()
    Label1.Caption = Format(Now, "HH:MM:SS")
End Sub

Kemudian simpan dan jalankan dengan menekan tombol F5 pada tombol keyboard anda. Jika berhasil maka akan nampak seperti pada gambar berikut ini





Demikianlah postingan pada kesempatan kali ini semoga bermanfaat. Jika kurang jelas silahkan tinggalkan komentar.




Tags:
 Membuat Jam Digital Pada VB 6,Jam Digital Di VB,Cara Membuat Jam Digital