Nomor Otomatis Gabungan Kata + Tahun + Nomor urut Vb 6

Cara buat nomor otomatis :

Ketik kodenya :

Sub GetNumber()
adoAgt.RecordSource = "select * from Anggota Where KodeAnggota In(Select Max(KodeAnggota)From Anggota)Order By KodeAnggota Desc"
adoAgt.Refresh
    Dim Urutan As String * 9
    Dim Hitung As Long
    With adoAgt.Recordset
        If .EOF Then
            Urutan = "AG" + Right(Date, 2) + "0001"
            KodeAnggota = Urutan
        Else
            If Mid(!KodeAnggota, 3, 2) <> Right(Date, 2) Then
                Urutan = "AG" + Right(Date, 2) + "0001"
            Else
            Hitung = Mid(!KodeAnggota, 3, 7) + 1
                Urutan = "AG" + (Right(Date, 2)) + Right("0000" & Hitung, 4)
        End If
        End If
        Text1.Text = Urutan
    End With
End Sub

Panggil kode GetNumber didalam tombol Tambah,, lalu ketik kodenya:
 Private Sub cmdinput_Click()
      GetNumber
 end sub










Sekian, semoga bermanfaat . . . ^_^

Cara Memindahkan Kursor di Datagrid Vb 6

Hay.. Guys.. dah lama gak posting lg. kebetulan ane dapat masalah pas ngerjain tugas vb dari dosen. masalahnya pada saat mau pindahkan kursor ke cel row, eeh malah program debug kya gambar dibawah ini. Puyeng pening :( .... 

Eittss tapi dah ktemu kok, berkat mbah google yang ajaibnya bisa mengatasi masalah dengan solusi beraneka ragam. berikut coding sourcenya:

 

ok3y guys selemat mencoba.....

Cara Memformat Angka pada VB6

Berikut ini adalah cara memformat angka menjadi style Indonesia, yaitu antara  kelipatan ribuan dipisahkan dengan karakter titik, dan menambahkan dua digit bilangan nol di belakang koma. Jika Regional Setting di PC menggunakan setting US atau English atau default Internasional, maka jika menggunakan fungsi Format(50000, "#,#") atau jika menggunakan fungsi FormatNumber(50000, 2) hasilnya bisa menjadi:

50,000.00 atau jika setting PC Indonesia maka menjadi 50.000,00.
Fungsi buatan di bawah ini mengubahnya secara fix menjadi setting Indonesia, yaitu: 50.000,00 dan tidak terpengaruh dengan Regional Settings, apakah Internasional atau setting Indonesia di visual basic 6, untuk mempraktekannya siapkan :

1. Buat 1 Project baru dengan 1 Form, 1 Commandbutton, dan 1 TextBox
2. Copy-kan coding berikut ke dalam editor form yang bertalian.

          'Masukkan bilangan di Text1, lalu tekan Enter untuk

          'menampilkan angka dalam format Indonesia
          Private Sub Command1_Click()
            MsgBox FormatAngka(Text1.Text)
            Text1.SetFocus

            SendKeys "{Home}+{End}"
          End Sub

          Private Sub Text1_KeyPress(KeyAscii As Integer)

            Command1.Default = True
          End Sub

          'Parameter Angka bertipe Variant, untuk mengatasi
          'apakah input dalam tipe data apapun

          Public Function FormatAngka(Angka) As String

          'Variabel yang digunakan di fungsi
          Dim Jumlah As Integer, Jumlah1 As Integer

          Dim i As Integer, j As Integer, k As Integer
          Dim strAngka As String, strAngka1 As String
          Dim strAngkaFull As String
          Dim strTemp As String, strTemp1 As String

            
             'Tampung nilai angka ke dalam variabel string
             strAngka = CStr(Trim(Angka))
            
             'Karena parameternya bertipe angka bulat, maka tidak boleh

             'ada karakter lainnya (termasuk titik dan koma)
             'selain karakter angka saja...
             If InStr(1, strAngka, ".") > 0 Or _
                InStr(1, strAngka, ",") > 0 Or _

                Not IsNumeric(Angka) Then
                MsgBox "Harus bilangan bulat dan tidak" & vbCrLf & _
                       "boleh mengandung karakter" & vbCrLf & _
                       "titik atau koma.", _

                       vbCritical, "Bukan Bilangan Bulat"
                Exit Function
             End If
            
             'Tambahkan dua angka nol di belakang string strAngka

             strAngkaFull = strAngka & "00"
               
             'Tampung jumlah digit
             Jumlah = Len(Trim(strAngkaFull))

             'Inisialisasi untuk counter menghitung per karakter

             j = 0
             strTemp = ""
            
             'Ulangi setiap karakter mulai dari kanan ke kiri
             For i = Jumlah To 1 Step -1  'Step -1 = berkurang 1            
                j = j + 1   'Counter untuk semua karakter
                k = k + 1   'Counter untuk letak tanda titik
               
                'Tampung setiap satu karakter ke strTemp
                strTemp = strTemp & Mid(strAngkaFull, i, 1)
               
                'Jika counter = 2 (untuk letak tanda koma desimal)

                If j = 2 Then
                  
                   'Tambahkan karakter koma
                   strTemp = strTemp & ","
                  
                   'Inisialisasi kembali counter untuk titik
                   k = 0
                End If
               
                'Jika counter utk titik = 3 dan
                'belum mencapai digit akhir paling kiri (awal).
                'Hal ini untuk menghindari karakter titik di akhir...
                If k = 3 And i <> 1 Then

                   'Tambahkan karakter titik
                   strTemp = strTemp & "."
                  
                   'Inisialisasi kembali counter untuk

                   'menentukan posisi titik
                   k = 0
                  
                End If

             Next i  'Maju ke karakter berikutnya
            
             'Tampung jumlah karakter strTemp yang berasal
             'dari iterasi di atas ini

             Jumlah1 = Len(Trim(strTemp))
            
             'Iterasi berikut untuk membalikkan posisi bilangan
             For i = Jumlah1 To 1 Step -1
                strTemp1 = strTemp1 & Mid(strTemp, i, 1)
             Next i
            
             'Kembalikan nilai string yg fix ke fungsi FormatAngka
             FormatAngka = strTemp1
          End Function

Visual Basic 6

Visual Basic adalah software pemrograman yang diciptakan oleh Microsoft, orientasi VB

digunakan untuk pemrograman database. Microsoft meluncurkan dua versi yaitu versi

ENTERPRISE dan PROFESIONAL. Sebelum VB diluncurkan terdapat software pendahulunya

yaitu Basica, Turbo Basic dan QBasic (Quick Basic). Ketiga software tersebut bekerja under

DOS (Disk Operating System). Seiring dengan perkembangan OS dengan munculnya Windows

(operating system berbasis visual) maka diciptakanlah Visual Basic.

Mengaktifkan VB
1. Klik Start
2. All porgrams
3. Microsoft Visual Studio 6.0
4. Microsoft Visual Basic 6.0
5. Standart Exe
6. Open

Pengenalan Komponen Dasar

1. Menu Bar

                        Menu bar dalam VB seperti yang biasa kita lihat dalam Microsoft Office. Di dalamnya
                        terdafat menu File, Edit, View, Project, Format dan sejenisnya

2. Standart Bar

                        Standart Bar adalah sebuah window yang berisi ikon-ikon yang fungsinya sama dengan
                        menu, tetapi dapat digunakan dengan lebih cepat karena sebuah ikon mewakili satu
                        perintah tertentu. Contohnya adalah ikon Open, Save, Copy, , Paste,  Undo dan sejenisnya
.

3. ToolBox

                     ToolBox adalah window yang berisi objek-objek untuk ditempatkan dalam form.
                     Contohnya objek Label, TextBox, ListBox, ComboBox, Frame, dan sejenisnya
4. Form

                    Form sering disebut dengan GUI (Graphical User Interface), adalah sebuah objek yang
                    digunakan untuk menempatkan objek-objek dari ToolBox.



5. Project Window

                    Project Window adalah sebuah window yang menampung project dan Form. Di dalamnya
                    juga terdapat ikon View Code (untuk menampilkan area text editor) dan ikon View Object
                    (untuk menampilkan GUI). Dengan menggunakan project window ini kita juga dapat
                    menambah form, menghapus, mengganti nama form, memilih startup project dan lain-lain.
6. Properti Window

                    Properti window adalah sebuah window yang digunakan untuk memodifikasi objek berupa
                    mengubah Caption, memberi nama objek, mengubah warna, ukuran, model dan sejenisnya.


PROJECT DAN FORM 
Jika Anda telah mengenal salah satu software produk Microsoft, (misalnya MS. Word), maka
bekerja dengan project dan form tidak akan mengalami kesulitan, karena tampilan dan fungsifungsinya
hampir sama.

Membuat Project Baru

1. Klik menu File
2. New Project
3. Standart EXE
4. Open


Membuka Project

1. Klik menu File
2. Open Project
3. Pilih project di direktori tertentu
4. Open

Menyimpan Project

1. Klik menu File
2. Pilih Save Project
3. Tentukan direktori
4. Tulis nama project
5. Klik Save

Menyimpan project dengan nama yang berbeda

1. Klik menu File
2. Pilih Save Project As
3. Tentukan direktori
4. Tulis Nama Project
5. Enter

Menambah Form

1. Klik menu Project
2. Add Form
3. Open
4. atau klik pada ikon Add Form

Menghapus Form

1. Klik kanan form yang akan dihapus (di project window)
2. Pilih remove form ???

Cara lain menghapus form adalah:

1. Pilih form
2. Klik menu Project
3. Klik Remove Form1

Memberi Nama Form

1. Aktifkan form yang akan diberi nama
2. Pindahkan kursor ke properti window
3. Tulis nama pada properti name
4. Tekan enter

Cara lain memberi nama form adalah:

1. Klik form

2. Klik menu File

3. Pilih Save Form1

4. Tulis nama form (tentukan posisi direktori)

5. Enter

Mengubah Nama Form

1. Klik kanan form yang akan diubah namanya

2. Pilih save form ??? As …

3. Tulis nama baru

4. Pilih save (enter) 

Cara lain memberi nama berbeda pada form adalah: 

1. Aktifkan form 

2. Klik menu File

3. Pilih Save Form1 As

4. Tulis nama form

5. Enter 

Menyisipkan Form Yang Sudah Ada 

1. Klik menu project

2. Add form

3. Klik tab existing 

4. Pilih form

5. Open

Memilih Startup Project

1. Klik kanan nama project

2. Project properties

3. Di bawah startup project, pilih form

4. Ok

Cara lain memilih startup project adalah:

1. Klik menu project

2. Project properties 

3. Di bawah startup project pilih form

4. Ok

Merancang Menu

Menu adalah sebuah GUI yang digunakan untuk mengintegrasikan seluruh GUI dalam sebuah

project. Cara pembuatannya adalah sebagai berikut:

1. Klik menu Tools

2. Pilih Menu Editor (CTRL + E)

3. Ketik &File (dikotak Caption)

4. Ketik mnfile (dikotak Name)

5. Lakukan seterusnya hingga tampil seperti gambar berikut

6. Untuk mengubah posisi menu secara horizontal, klik ikon tanda panah ke kanan atau ke

    kiri. 

7. Untuk mengubah posisi menu secara vertikal, klik ikon bergambar tanda panah ke atas atau

    bawah. 

8. Untuk menyisipkan menu di posisi tertentu, klik Insert

9. Untuk melanjutkan ke menu berikutnya, klik Next

10. Untuk menghapus menu klik Delete

11. Setelah rancangan menu selesai klik OK

Hasil :

                                   

 

Integrasi GUI Dengan Menu

1. Klik menu File 

2. Klik sub menu Barang

3. Tulis kode program berikut

Private Sub mnbarang_Click()

Barang.Show

End Sub

 

Maximized Menu

 

Untuk memaksimalkan fungsi menu, lakukanlah langkah-langkah berikut:

1. Pilih sebagai startup project

2. Tampilkan dalam kondisi satu layar penuh

3. Klik Form Menu (di project window)

4. Klik WindowState (di properti window)

5. Pilih 2 – Maximized