Generator Qr Code Memakai Vb6

Dalam pengkodean suatu barang ada beberapa metode yaitu Barcode dan QR Code, untuk barcode memang sudah tidak ajaib lagi bagi kita semuanya, setiap barang yang kita beli dari suatu toko-toko atau perusahaan kebanyakan sudah tertera isyarat barcode atau QR Code. Dalam hal pengkodean barang baik memakai barcode ataupun QR Code setiap perusahaan telah mempunyai standar masing-masing dan setiap isyarat barang yang satu dengan barang yang berlainan brand tidak akan mungkin sama.
Generator Qr Code Memakai Vb6
Interface Tampilan 
Source Code Generator QR CODE Menggunakan VB6
Definisi dari QR Code ialah suatu jenis isyarat matriks atau isyarat batang dua dimensi yang dikembangkan oleh Denso Wave, sebuah divisi Denso Corporation yang merupakan sebuah perusahaan Jepang dan dipublikasikan pada tahun 1994 dengan fungsionalitas utama yaitu sanggup dengan gampang dibaca oleh pemindai QR merupakan akronim dari quick response atau respons cepat, yang sesuai dengan tujuannya ialah untuk memberikan informasi dengan cepat dan mendapat respons yang cepat pula. Berbeda dengan isyarat batang, yang hanya menyimpan informasi secara horizontal, isyarat QR bisa menyimpan informasi secara horizontal dan vertikal, oleh alasannya ialah itu secara otomatis Kode QR sanggup menampung informasi yang lebih banyak daripada isyarat batang. (sumber wiki)
Kali ini admin akan sedikit share ihwal sourcode dalam pembuatan  Generator QR CODE Menggunakan VB6. Buka Microsoft Visual Basic 6.0 – StandartEXE lalu dilanjutkan dengan buat form dan tambahkan beberapa komponen pendung dibawah ini
1. PictureBox
2. TextBox
3. CommanButton
4. ClassModule

Untuk cara kerjanya pun sangatlah gampang RUN/F5 sourcode diatas lalu inputkan huruf ke TextBox sehabis itu klik tombol Proses, maka isyarat QR Code akan muncul pada PictureBox. Bagi yang berminat untuk mendownload sourcodenya bisa di klik pada LINK INI. Semoga artikel Generator QR CODE Menggunakan VB6 sanggup bermanfaat bagi pembaca sekalian.

Loading Progressbar Di Statusbar

Pada artikel sebelum untuk ProgressBar telah admin uraikan dengan judul Loading Progressbar Berdasarkan Record, akan tetapi untuk kali ini sedikit berbeda dan tetap memakai komponen PorgressBar dengan perhiasan StatusBar. Komponen StatusBar dan ProgressBar masih termasuk satu kesatuan dari Microsoft Windows Common Controls 6.0 (SP6). 

Loading Progressbar Di Statusbar

Buka Microsoft Visual Basic 6.0 dan tambahkan komponen : 
1. ProgressBar
2. StatusBar
3. Timer

Tambahkan komponen ProgressBar, StatusBar dan Timer pada form, untuk StatusBar klik kanan lalu pilih sajian Properties lalu pilih tab Panels klik tombol InsertPanels. Untuk panels yang pertama pada kolom Text kita beri caption Proses : kemudian klik kembali tombol InsertPanels, akan tetapi pada kolom Text dibiarkan kosong saja.

Double klik pada form lalu pilih mekanisme (General) dan copykan syntak variabel-variabel function dibawah ini
Private Declare Function SetParent Lib “user32” (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Declare Function GetSystemMetrics Lib “user32” (ByVal nIndex As Long) As Long
Const SM_CXBORDER = 5
Const SM_CYBORDER = 6
Masih didalam mekanisme (General) dilanjutkan pilih Form dengan mekanisme Form_Load dan copykan syntak setting posisi tata letak ProgressBar berada dibawah ini
Dim lngBorderX As Long
Dim lngBorderY As Long
lngBorderX = GetSystemMetrics(SM_CXBORDER) * Screen.TwipsPerPixelX
lngBorderY = GetSystemMetrics(SM_CYBORDER) * Screen.TwipsPerPixelY
SetParent ProgressBar1.hWnd, StatusBar1.hWnd
With StatusBar1
  ProgressBar1.Move .Panels(2).Left + lngBorderX, 3 * lngBorderY, .Panels(2).Width – (2 * lngBorderX), .Height – (4 * lngBorderY)
End With

Untuk komponen Timer gunakan interval sesuai dengan selera agan sendiri, disini admin memakai Interval = 1 dan copykan juga syntak dibawah ini

Static intProg As Integer
intProg = intProg + 10
ProgressBar1.Value = intProg
If intProg = 1000 Then Timer1.Enabled = False: MsgBox “Loading database complate !”, 64, “Informasi”

Simpan dan lalu RUN/F5, progressbar pun akan mulai proses dan berada sempurna pada panels ke dua pada statusbar pada form. Sourcode sanggup didownload di LINK INI

Loading Progressbar Di Statusbar

Memindahkan Form Tanpa Judul Atas

Untuk artikel pada kesempatan kali ini admin akan membahas cara Memindahkan Form Tanpa Judul Atas. Buatlah sebuah form pada Microsoft Visual Basic 6.0 lalu tambahkan 1 buah module yang akan kita pergunakan sebagai deklarasi variabel-variabel dan function dan PictureBox sebagai pengganti TitleBar. Untuk BorderStyle pada form kita ganti dengan nilai 0 (none)

Memindahkan Form Tanpa Judul Atas
Copykan syntak dibawah ini ke module 

Declare Function SendMessage Lib “user32” Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Sub ReleaseCapture Lib “user32” ()
Public Const WM_NCLBUTTONDOWN = &HA1
Public Const HTCAPTION = 2

Untuk selanjutnya double klik juga pada picturebox diatas dan pilih mekanisme Mouse Down

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
If Button = 1 Then
   Call ReleaseCapture
   ReturnValue = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End If
End Sub

Setelah sudah semuanya simpan dan coba RUN/F5. Klik dan tahan pada picturebox lalu pindahkan form tersebut. Maka form akan berpindah mengikuti kemana arah mouse digerakan.

Startup Form Berada Di Kanan Bawah Screen Ketika Dengan Visual Basic 6.0

Pada tutorial kali ini admin akan share sourcode kecil wacana bagaimana cara menciptakan penempatan form ketika run sempurna dikanan pojok bawah screen pada layar komputer anda dengan menyesuaikan setingan resolusi screen.
Startup Form Berada Di Kanan Bawah Screen Ketika Dengan Visual Basic 6.0

Buka Microsoft Visual Basic 6.0 – StandartEXE – Form lalu tambahkan module sebagai daerah untuk mempublikasikan atau declarasikan variabel-variabel atau function-function pendukung pada sourcode ini. Copykan coding variabel dan function dibawah ini kedalam module yang gres kita buat. 

Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Declare Function SystemParametersInfo _
Lib “user32” Alias “SystemParametersInfoA” ( _
ByVal uAction As Long, ByVal uParam As Long, _
lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_GETWORKAREA As Long = 48

Setelah jawaban dilanjutkan dengan double klik pada form pilih mekanisme Form_Load dan copykan coding ini pada mekanisme Form_Load diatas
Dim R As RECT
Call SystemParametersInfo(SPI_GETWORKAREA, 0, R, 0)
Me.Top = (R.bottom * Screen.TwipsPerPixelX) – Me.Height
Me.Left = (R.Right * Screen.TwipsPerPixelY) – Me.Width
Simpan dan RUN/F5 dan lihat hasilnya, Form akan muncul sempurna berada disudut kanan bawah pada screen anda dengan menyesuaikan resolusi pada layar pc

Simpan, Update, Delete Dan Cetak Vb6 Mysql Direct

Pada kesempatan postingan kali ini admin akan share sedikit sourcode Microsoft Visual Basic 6.0 tentang Simpan, Update, Delete dan Cetak VB6 MySQL Direct. Pada umumnya sourcode Simpan, Update, Delete dan Cetak sudah tidak aneh lagi bagi kita semuanya, baik untuk user interface ataupun programmer itu sendiri. Pada artikel sebelumnya pernah admin singgung sedikit perihal koneksi ke database MySQL Server Microsoft Visual Basic 6.0 dengan memakai metode MySQL Direct (Perbedaan Koneksi MySQL Server ODBC dan MySQL Server Direct) pada kesempatan kali ini admin akan melanjutkan pembahasan tersebut.

Komponen-komponen yang dibutuhkan dalam sourcode ini ialah : 
3. Form
4 TextBox
5. CommanButton
6. Microsoft Windows Common Controls 6.0 (SP6)
7. Crystal Report Control
8. Module
9. ClassModule

Untuk Komponen (1) MySQL Direct bagi agan-agan yang belum punya sanggup didownload di ini, lalu untuk komponen (2) juga sanggup didownload disini dan sehabis didownload file tersebut dicopykan ke directori windows (C:\Windows\System32) gres lalu kita aktifkan pada Microsoft Visual Basic 6.0 Project – References, menyerupai gambar dibawah ini

Simpan, Update, Delete Dan Cetak Vb6 Mysql Direct


Buatlah 3 buah form dengan name form (Form1, Form2 dan Form3)

Form1 (Tambah, Koreksi, Hapus dan Cetak MySQL Direct)

Pada form ini tambahkan juga komponen-komponen sebagai berikut 

No
Nama Komponen
Name
Caption
1
Form1
Form1
Tambah, Koreksi, Hapus dan Cetak MySQL Direct
2
CommanButton
cmdTambah
Tambah Data
3
CommanButton
cmdKoreksi
Koreksi  Data
4
CommanButton
cmdHapus
Hapus Data
5
CommanButton
cmdCetak
Cetak Data
6
CommanButton
cmdKeluar
Keluar
7
TextBox
txtCari
8
Listview
Listview1
9
Label
Label1
Filter Nama, Alamat, NIS
10
Crystal Report Control
CrystalReport1


Rancangnlah tata letak komponen pada form1 menyerupai tampilan interface gambar dibawah ini

Simpan, Update, Delete Dan Cetak Vb6 Mysql Direct

Form2 (TAMBAH SISWA)

Tambahkan juga beberapa komponen pada form2 ini menyerupai pada tabel berikut :
No
Komponen
Name
Caption
1
TextBox
txtNIS
2
TextBox
txtNAMA
3
ComboBox
cboJK
4
TextBox
txtAlamat
5
CommanButton
cmdSimpan
Simpan Data
6
CommanButton
cmdKeluar
Keluar

Rancangnlah tata letak komponen pada form2 menyerupai tampilan interface gambar dibawah ini


Simpan, Update, Delete Dan Cetak Vb6 Mysql Direct

Form3 (KOREKSI DATA)

Untuk komponen-komponennya sebagai berikut : 
No
Komponen
Name
Caption
1
TextBox
txtNAMA
2
ComboBox
cboJK
3
TextBox
txtAlamat
4
CommanButton
cmdSimpan
Simpan Data
5
CommanButton
cmdKeluar
Keluar

Untuk tampilan interface pada form ini menyerupai gambar dibawah ini

Simpan, Update, Delete Dan Cetak Vb6 Mysql Direct


Setelah perancangan form tamat maka dilanjutkan kembali dengan pembuatan reportnya memakai Crystal Report, untuk koneksi yang dipakai dengan metode files ttx, caranya menyerupai pada pembahasan artikel CARA KONEKSI CRYSTAL REPORT KE TTX FILES.

Dalam penggunaan koneksi MySQL Server secara direct berdasarkan dari pengalaman admin, lebih gampang dan ringkas dalam penulisan syntaknya khususnya pada syntak koneksi ke databasenya. Disamping itu juga untuk koneksi crystal report tidak mengalami kesulitan dan tetap stabil. Untuk lebih jelasnya bagi yang ingin mencoba dan berminat untuk mendownload sourcode Simpan, Update, Delete dan Cetak VB6 MySQL Direct ini, admin persilahkan dengan klik LINK INI secara free. Semoga artikel Simpan, Update, Delete dan Cetak VB6 MySQL Direct sanggup memperlihatkan manfaat dan menambah wawasan bagi pembaca sekalian.

Sourcode Bel Sekolah Otomatis Dengan Vb6

Semasa sekolah dulu niscaya kita semua ingat akan suara bel pada ketika pergantian jam, upacara, masuk pelajaran dan pulang dan semuanya dilakukan secara manual. Pada postingan kali ini admin akan share perihal Sourcode Bel Sekolah Otomatis dengan VB6 yang pernah admin buat tempo dulu. Komponen yang admin gunakan pada Microsoft Visual Basic 6.0 ialah sebagai berikut 
1. Microsoft Multimedia Control 6.0
2. Microsoft Windows Common Control 6.0 (SP6)
3. Microsoft Windows Common Control-26.0 (SP4)
4. Komponen References Microsoft ActiveX Data Objects 2.8 Library

Untuk database yang admin gunakan kali ini Microsoft Acces 2000. Buka Microsoft Visual Basic 6.0 dan tambahkan komponen-komponen dari 1 – 4 ibarat diatas lalu buat form designlah komponen-komponen pada form ibarat gambar dibawah ini
Sourcode Bel Sekolah Otomatis Dengan Vb6

Untuk merubah jam, pilih hari pada ListBox lalu atur jam mata pelajaran sesuai dengan kebutuhan. Pada sourcode ini ada akomodasi Minimize to Tray sehingga jikalau diklik tombol Hidde maka aplikasi akan Minimize secara try pada pojok kanan (gambar emoticon) bawah screen agan dan untuk mengaktifkan kembali klik (gambar emoticon) pilih sajian Tampilkan Form
Bagi yang berminat dipersilahkan untuk mendownload di LINK INI secara free, akan tetapi file sourcodenya agak besar karna ada didalam folder ada file-file bel sebagai pendukung dari sourcode ini.

Cara Menciptakan Arahan Faktur Randomize | Vb6

Pada kesempatan kali ini admin akan membahas Cara Membuat Kode Faktur Randomize | vb6, metode syntak yang dipakai kali ini menurut randomize huruf KodeTrans-YYMMDD-KarakterRandom pribadi saja silahkan buka Microsoft Visual Basic 6.0 – StandartEXE dilanjutkan buat sebuah Form, TextBox dan CommanButton.
Syntaknya pun sangat sederhana akan tetapi setiap huruf yang diproses tidak pernah ada yang sama dengan data-data yang telah tersimpan terdahulu. Biasanya metode ini admin gunakan dalam pembuatan sebuah aplikasi yang memerlukan isyarat Unix misalkan Faktur, Kode dari suatu barang dan lain sebagainya.
Cara Menciptakan Arahan Faktur Randomize | Vb6
Untuk syntaknya menyerupai dibawah ini : 
Text1.Text = vbNullString
Randomize
Text1.Text = “INV-” & Format(Date, “yyMMdd”) & “-” & Round(Rnd() * 9999999999#) & Text1.Text + Chr(Round(Rnd() * 25) + 65)
Cukup gampang bukan, dengan syntak menyerupai diatas telah sanggup membantu kita dalam penyelesaian satu permasalahan pembuatan Kode Nomor Faktur secara unik. Semoga artikel kali ini sanggup bermanfaat

Cara Hitung Total Jumlah Pada Subitems Listview Vb6

Pada kesempatan kali ini admin akan menyebarkan wacana cara menghitung (sum) data pada subitems dilistview control dengan judul artikel Cara Hitung Total Jumlah Pada Subitems Listview VB6.

Cara Hitung Total Jumlah Pada Subitems Listview Vb6

Pada kesempatan kali ini database yang admin gunakan Ms. Access dan komponen perhiasan berupa LIstview Control, Label dan CommanButton. Langkah pertama ialah buat function koneksi database berikut variabel-variabel pendukungnya ibarat dibawah ini
Public CN As New ADODB.Connection
Public RsADM As New ADODB.Recordset
Sub Koneksi()
If CN.State Then
CN.Close
CN.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\JumlahSubitems.mdb;Persist Security Info=False”
CN.CursorLocation = adUseClient
Else
CN.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\JumlahSubitems.mdb;Persist Security Info=False”
CN.CursorLocation = adUseClient
End If
End Sub

Pada Form_Load panggil Function Sub koneksi database dan tambahkan juga syntak untuk pembuatan Column Header pada Listview ibarat dibawah ini

Call Koneksi
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add , , “Nama Anggota”, 2200
ListView1.ColumnHeaders.Add , , “ADM Rp.”, 2500
Call Books_TampilkanData
Label1.Caption = “0.00” 

Kemudian buat juga Sub Function untuk menampilkan data record ke Listview dan menghitung (sum) data pada subitems listview memakai syntak dibawah ini
Sub Books_TampilkanData()
Dim LI As ListItem
Dim sqlCommand As String
ListView1.ListItems.Clear

Set RsADM = New ADODB.Recordset
sqlCommand = “SELECT * FROM ANGGOTA”
RsADM.Open sqlCommand, CN, 1, 3
If RsADM.RecordCount = 0 Then
   ListView1.ListItems.Clear
Else
   RsADM.MoveFirst
   While Not RsADM.EOF
   Set LI = ListView1.ListItems.Add(, , RsADM.Fields!NAMA)
       LI.SubItems(1) = RsADM.Fields!ADM
       RsADM.MoveNext
   Wend
End If
End Sub

Sub TOTALHARGA()
If ListView1.ListItems.Count > 0 Then
   Dim Total As Double
   For i = 1 To ListView1.ListItems.Count
   Total = Total + Int(ListView1.ListItems(i).ListSubItems(1).Text)
   Next i
   Label1.Caption = Format(Total, “#,##0”)
Else
   Label1.Caption = “0.00”
End If
End Sub
Panggil sub function hitung (sum) data pada listview pada mekanisme klik CommandButton ibarat dibawah ini
Private Sub Command1_Click()
Call TOTALHARGA
End Sub 
Kemudian simpan dan RUN/F5 klik tombol CommanButton maka akan menjumlahkan total data pada column header ADM Rp. ibarat gambar diawal artikel ini. Untuk sourcodenya sanggup didownload di LINK INI. Semoga artikel postingan ini sanggup bermanfaat bagi pembaca sekalian.

Tampilan Sajian Ribbon Dynamic Dari Database Mysql Server Vb6

Pada postingan kali masih bekerjasama dengan ActiveX Ribbon hanya saja sedikit berbeda, pada artikel sebelum telah admin bahas perihal bagaimana menciptakan hidangan tampilan dari ActiveX Ribbon Membuat Menu Ribbon pada Visual Basic 6.0, Sistem Informasi SMS Gateway | Gammu MySQL Direct VB6 hanya saja pada artikel sebelumnya hidangan yang admin buat pada Ribbon merupakan hidangan yang bersifat tetap (static) tetapi kali ini admin akan mencoba menciptakan Menu Ribbon Dynamic berasal dari database. Pada umumnya hidangan yang bersifat dynamic dikembangkan menjadi hidangan hak jalan masuk level user dan untuk database yang admin gunakan ialah MySQL Server 5.2.

Tampilan Sajian Ribbon Dynamic Dari Database Mysql Server Vb6
Interface Tampilan
Source Code Tampilan Menu Ribbon Dynamic Dari Database MySQL Server VB6

Buatlah terlebih dahulu databasenya untuk nama terserah dari selera agan-agan saja diteruskan dengan pembuatan tabel memakai script MySQL Server ibarat dibawah ini:

CREATE DATABASE `BelajarSqlDirect`CHARACTER SET ‘latin1’COLLATE ‘latin1_swedish_ci’;

CREATE TABLE `menuinduk` (  `KdMenuInduk` varchar(10) DEFAULT NULL,  `mnInduk` varchar(30) DEFAULT NULL) ENGINE=InnoDB DEFAULT CHARSET=latin1; 

CREATE TABLE `mnanak` (  `kdMnAnak` int(11) DEFAULT NULL,  `Menu_ANAK` varchar(30) DEFAULT NULL,  `mnInduk` varchar(10) DEFAULT NULL) ENGINE=InnoDB DEFAULT CHARSET=latin1;

Setelah pembuatan database dan script akibat inputkan beberapa data pada tabel menuinduk dan mnanak. Perlu diingat Field yang berrelasi antara tabel menuinduk dan mnanak ialah tabel menuinduk : KdMenuInduk dan Primary Key tabel mnanak  : mnInduk. Kalau malas menginputkan record satu persatu sanggup memakai script dibawah ini

INSERT INTO `menuinduk` (`KdMenuInduk`, `mnInduk`) VALUES   (‘1′,’File Master’),  (‘2′,’Proses Data’),  (‘3′,’Setting’),  (‘4′,’Laporan’);


INSERT INTO `mnanak` (`kdMnAnak`, `Menu_ANAK`, `mnInduk`) VALUES   (1,’Entry Data Suplier’,’1′),  (2,’Entry Data Barang’,’1′),  (3,’Entry Data Satuan’,’1′),  (4,’Entry Data Barang Hilang’,’1′),  (5,’Entry Data Barang Rijeck’,’1′),  (6,’Penjualan Barang’,’2′),  (7,’Piutang Barang’,’2′),  (8,’Hutang Customer’,’2′),  (9,’Entry Data Customer’,’1′),  (10,’Laporan Suplier’,’4′),  (11,’Laporan Barang Masuk’,’4′),  (12,’Laporan Barang Rijeck’,’4′),  (13,’Laporan Customer’,’4′),  (14,’Setting PPN’,’3′);

Selanjutnya buka Microsoft Visual Basic 6.0 – StandartEXE buat form dan tambahkan ke dalam form ActiveX Ribbon dan ImageList Control (Microsoft Windows Common Controls 6.0 (SP4). Klik kanan pada ImageListControl lalu pilih hidangan properties dan pilihlah icon-icon sejumlah record pada tabel mnanak, dikarenakan index image pada ImageListControl mengikuti index field kdMnAnak. Tambahkan juga 1 buah module untuk mendeklarasikan variabel dan pembuatan sub function koneksi ke database, ibarat dibawah ini : 

Public CN As New MYSQL_CONNECTION
Public xRs As New MYSQL_RS

Sub Koneksi()
Dim NServer, NUser, NPass, NDatabase As String
NServer = “localhost”
NUser = “root”
NPass = “”
NDatabase = “BelajarSQLDirect”
CN.CommandTimeout = 0
If CN.State = MY_CONN_OPEN Then
   CN.CloseConnection
   Set CN = New MYSQL_CONNECTION
   CN.OpenConnection NServer, NUser, NPass, NDatabase
   CN.CursorLocation = adUseClient
Else
   Set CN = New MYSQL_CONNECTION
   CN.OpenConnection NServer, NUser, NPass, NDatabase
   CN.CursorLocation = adUseClient
End If
End Sub

Double klik pada form dan pilih mekanisme Form_Load dan copykan syntak untuk menampilkan hidangan dari record-recpod tabel database MySQL Server 5.2 dibawah ini 

Call Koneksi
Left = Screen.Width / 2 – Width / 2
Top = Screen.Height / 2 – Height / 2
Theme = 1
ACPRibbon1.Theme = Theme
‘ 0 – Black
‘ 1 – Blue
‘ 2 – Silver

ACPRibbon1.ImageList = ImageList1
ACPRibbon1.ButtonCenter = True
Dim xRsAnak As New MYSQL_RS
Dim xRsInduk As New MYSQL_RS
Set xRsInduk = New MYSQL_RS
xRsInduk.OpenRs “select * from menuinduk group by KdMenuInduk”, CN, 1, 3
If xRsInduk.RecordCount > 0 Then
xRsInduk.MoveFirst

While Not xRsInduk.EOF
ACPRibbon1.AddTab xRsInduk.Fields(“KdMenuInduk”), _
xRsInduk.Fields(“mnInduk”)
ACPRibbon1.AddCat xRsInduk.Fields(“KdMenuInduk”), _
xRsInduk.Fields(“mnInduk”), _
xRsInduk.Fields(“mnInduk”), False
Set xRsAnak = New MYSQL_RS
xRsAnak.OpenRs “select * from mnanak where mnInduk='” & xRsInduk.Fields(“KdMenuInduk”) & “‘”, CN, 1, 3

If xRsAnak.EOF = False Then
xRsAnak.MoveFirst
While Not xRsAnak.EOF
ACPRibbon1.AddButton xRsAnak.Fields(“kdMnAnak”), _
xRsInduk.Fields(“mnInduk”), _
xRsAnak.Fields(“Menu_ANAK”), _
Int(xRsAnak.Fields(“kdMnAnak”)), False, xRsAnak.Fields(“Menu_ANAK”)
xRsAnak.MoveNext
Wend
End If
xRsInduk.MoveNext
Wend
End If

‘# Repaint Ribbon
Me.BackColor = ACPRibbon1.BackColor
ACPRibbon1.Refresh

Untuk lebih terperinci dan detailnya sourcode Tampilan Menu Ribbon Dynamic Dari Database MySQL Server VB6 ini sanggup didownload di LINK INI. Kemudian RUN/F5 maka hidangan ribbon akan tampil sesuai dengan data-data record tabel didalam database MySQL Server 5.2, metode ini biasa admin gunakan untuk menciptakan hak jalan masuk dari setiap user yang berlevel berbeda. Semoga artikel kali ini sanggup bermanfaat bagi pembaca-pembaca yang budiman

Cara Drag Drop Multi Subitems Pada Listview Dengan Vb6

Fungsi komponen Listiview pada Microsoft Visual Basic 6.0 (VB6) untuk views atau menampilkan data yang terdiri dari baris dan kolom, source code cara memindahkan baris pada tabel Listiview dengan memakai Mouse atau lebih kita kenal dengan istilah Drag Drop pada artikel sebelumnya mengenai pembahasan drag drop pernah admin bahas pada judul artikel Contoh Membuat Drag dan Drop File ke ListBox akan tetapi memakai componen ListBox, secara garis besar cara kerja dari syntak ini hampir sama hanya saja sedikit berbeda dengan komponen yang dipakai dan metode drag drop nya.

Cara Drag Drop Multi Subitems Pada Listview Dengan Vb6

Untuk pertama kalinya buka Microsoft Visual Basic 6.0 – StandartEXE dilanjutkan buat sebuah form dan tambahkan satu buah module sebagai daerah pendeklarasian variabel-variabel pendukung dari sourcode ini. Tambahkan komponen Listiview Control (Microsoft Windows Common Control 6.0 (SP6) lalu tambahkan ke form. Kemudian copykan syntak berikut ini kedalam sebuah module 

Public Sub LVDragDropMulti(ByRef lvList As ListView, ByVal x As Single, ByVal y As Single)
Dim objDrag As ListItem
Dim objDrop As ListItem
Dim objNew As ListItem
Dim objSub As ListSubItem
Dim intIndex As Integer
Dim intLoop As Integer
Dim intCount As Integer
Dim intSelected As Integer
Dim arrItems() As ListItem

Set objDrop = lvList.HitTest(x, y)
Set objDrag = lvList.SelectedItem
If (objDrop Is Nothing) Or (objDrag Is Nothing) Then
   Set lvList.DropHighlight = Nothing
   Set objDrop = Nothing
   Set objDrag = Nothing
   Exit Sub
End If
    
intIndex = objDrop.Index
intCount = lvList.ListItems.Count
intSelected = 0
Set lvList.DropHighlight = Nothing
For intLoop = 1 To intCount
    If lvList.ListItems(intLoop).Selected Then
       intSelected = intSelected + 1
       ReDim Preserve arrItems(1 To intSelected) As ListItem
       Set arrItems(intSelected) = lvList.ListItems(intLoop)
    End If
Next

For intLoop = UBound(arrItems) To LBound(arrItems) Step -1
    lvList.ListItems.Remove arrItems(intLoop).Index
Next

For intLoop = UBound(arrItems) To LBound(arrItems) Step -1
    Set objDrag = arrItems(intLoop)
    Set objNew = lvList.ListItems.Add(intIndex, objDrag.Key, objDrag.Text, objDrag.Icon, objDrag.SmallIcon)
    If objDrag.ListSubItems.Count > 0 Then
       For Each objSub In objDrag.ListSubItems
           objNew.ListSubItems.Add objSub.Index, objSub.Key, objSub.Text, objSub.ReportIcon, objSub.ToolTipText
       Next
    End If
objNew.Selected = True
Next

ReDim arrItems(1)
Set arrItems(1) = Nothing
Set objNew = Nothing
Set objDrag = Nothing
Set objDrop = Nothing
End Sub

Dilanjutkan dengan syntak berikutnya, copykan syntak dibawah ini sesuai dengan mekanisme dan komponen pada form (tulisan cetak warna biru)

Private Sub Form_Load()
ListView1.ColumnHeaders.Clear
ListView1.ColumnHeaders.Add , , “Column (1)”, 1700
ListView1.ColumnHeaders.Add , , “Column (2)”, 1700
ListView1.ColumnHeaders.Add , , “Column (3)”, 1700
ListView1.ColumnHeaders.Add , , “Column (4)”, 1700

Dim intLoop As Integer
Dim objItem As ListItem
With ListView1
For intLoop = 1 To 20
    Set objItem = .ListItems.Add(, , “Column ” & intLoop)
    objItem.ListSubItems.Add , , “Column ” & intLoop
    objItem.ListSubItems.Add , , “Column ” & intLoop
Next
Set objItem = Nothing
End With
End Sub

Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, _
Effect As Long, Button As Integer, _
Shift As Integer, x As Single, y As Single)

Call LVDragDropMulti(ListView1, x, y)
    
End Sub

Private Sub ListView1_OLEDragOver(Data As MSComctlLib.DataObject, _
Effect As Long, Button As Integer, _
Shift As Integer, x As Single, y As Single, State As Integer)

Set ListView1.DropHighlight = ListView1.HitTest(x, y)

End Sub

Simpan dan RUN/F5. Klik salah satu data pada listiview lalu tarik pindahkan ke bab pertama atau paling bawah sesuai impian agan, secara otomatis subitems yang terblok akan berpindah ke kolom sesuai dengan arah mouse agan. Untuk lebih jelasnya sourcode ini sanggup didownload di LINK INI. Semoga artikel kali ini sanggup bermanfaat bagi pembaca-pembaca sekalian.

Validasi Format Tanggal Di Control Panel Dengan Vb6

Format tanggal atau date niscaya tidak absurd lagi di pendengaran kita, menyerupai format dd/mm/yyyy, d/m/yy dan masih banyak lagi jenisnya pada Regional Setting di Control Pannel Windows, begitu juga di dalam bahasa pemrograman Visual Basic 6.0 menyediakan banyak aneka macam format tanggal. Adakalanya pada ketika kita membangun dalam sebuah sistem yang terdapat didalamnya bekerjasama dengan function date, kita hanya menerapkan satu jenis format dari majemuk foramt tanggal yang ada. 
Untuk mengaplikasikan dalam Microsoft Visual Basic 6.0 pertama-tama buatlah satu buah Project lalu tambahkan form. Buat sub function dengan nama PeriksaTanggal dan untuk syntaknya menyerupai dibawah ini
Sub PeriksaTanggal()
Dim CekTanggal As String
Dim J, Pesan As Byte
Ulangi:
CekTanggal = Date
If CekTanggal <> Format(Date, “yyyy/mm/dd”) Then
   J = MsgBox(“Ubah Format tanggal jadi yyyy/mm/dd di Control Panel, Regional Settings”, 64 + vbYesNo, “Cek Tanggal”)
      If J = vbYes And CekTanggal <> Format(Date, “yyyy/mm/dd”) Then
         Shell “rundll32.exe shell32.dll,” & “Control_RunDLL INTL.CPL,,4”, 1
      Else
        End
      End If
 Pesan = MsgBox(“Format Tanggal Sudah diganti..?”, vbYesNo + 64, “Konfirmasi”)
 If Pesan = vbYes Then
    If CekTanggal <> Format(Date, “yyyy/mm/dd”) Then
       GoTo Ulangi
    Else
       GoTo Ulangi
    End If
 Else
    GoTo Ulangi
 End If
End If
End Sub
Kemudian double klik pada form dan panggil sub function yang gres kita buat diatas, memakai syntak dibawah ini

Private Sub Form_Load()
Call PeriksaTanggal
End Sub 

Simpan lalu RUN/F5. Jika format tanggal pada PC sama dengan format tanggal yang ditentukan pada sourcode maka tidak ada notifikasi pemberitahuan, jikalau tidak sesuai maka ada notifikasi pesan menyerupai dibawah ini : 

Validasi Format Tanggal Di Control Panel Dengan Vb6

Jika  di klik Yes maka akan muncul Regional and Language menyerupai gambar dibawah ini.

Validasi Format Tanggal Di Control Panel Dengan Vb6
Rubahlah format Regional and Language tersebut diadaptasi dengan format tanggal pada sourcode dengan cara klik Additional Settings lalu klik tab Date. Semoga pembahasan posting Validasi Format Tanggal di Control Panel dengan VB6 sanggup bermanfaat bagi pembaca-pembaca sekalian

Function String Hilangkan Seluruh Spasi Kalimat | Vb6

Function string tentunya pagi agan-agan yang bergelut di Microsoft Visual Basic 6.0 sudah tidak abnormal lagi khususnya penghilang spasi (LTrim, RTrim, Trim) bahkan aku rasa sudah diluar kepala. Terkadang dalam pembuatan suatu aplikasi kita memerlukan penggabungan kalimat/kata (string) tanpa spasi sama sekali, tujuan dari script function yang admin share kali ini yakni membahas cara menghilangkan seluruh spasi pada kalimat atau paragraf. 
Untuk cara kerjanya pun sama dengan function LTrim, RTrim, Trim string. Misalkan kita mendapati data No. HP dengan format 0813 699 30 155, kalau data tersebut kita pakai sebagai no tujuan pengiriman dari SMS Gateway secara otomatis pesan akan gagal, satu-satunya jalan kita harus menciptakan script yang memformat data No HP tersebut menjadi 085769930155. Untuk script functionnya ibarat dibawah ini :

Public Function HilangkanSpasi(strKalimat As String) _
As String
Dim i As Integer
Dim Temp As String
Dim Huruf As String * 1

Temp$ = “”: Huruf = “”
For i% = 1 To Len(strKalimat)
    Huruf = Chr(Asc(Mid(strKalimat, i%, 1)))
    If Len(Trim(Huruf)) >= 1 Then
      Temp$ = Temp$ + Chr(Asc(Mid(strKalimat, i%, 1)))
    End If
Next i
HilangkanSpasi = Temp$
End Function

Untuk cara penerapannya di Microsoft Visual Basic ibarat ini. Buatlah project lalu form dan tambahkan komponen TextBox dan CommanButton. Copykan function diatas terlebih dahulu pada form. Kemudian double klik pada CommanButton dan panggil function diatas dengan syntak ibarat ini 
MsgBox HilangkanSpasi(Text1.Text)
Kemudian RUN/F5. Inputkan kalimat pada TextBox bila perlu yang banyak, lalu klik tombol (CommanButton) maka akan tampil pesan yang berisi kalimat diTextBox dengan format kalimat yang sudah tidak berspasi lagi.
Function String Hilangkan Seluruh Spasi Kalimat | Vb6
Cukup gampang bukan, biar script function mungil diatas sanggup membantu menuntaskan permasalah dalam memformat string khususnya pada Microsoft Visual Basic 6.0 dan bermanfaat bagi pembaca sekalian.

Cara Menghitung Jumlah Kata Dan Membalikan Goresan Pena Vb6

Pada kesempatan kali admin akan membuatkan wacana function yang masih bekerjasama dengan string. Pada artikel sebelumnya pernah admin bahas permasalahan wacana function string dengan judul artikel Function String Hilangkan Seluruh Spasi Kalimat | VB6 untuk kali ini agak sedikit berbeda dalam pembahasannya, bagaimana cara menciptakan syntak pada Microsoft Visual Basic 6.0 untuk menghitung jumlah kata pada suatu goresan pena dan cara membalikan tulisan. 
Buatlah project Microsoft Visual Basic 6.0 lalu form dan tambahkan komponen TextBox dan 2 buah CommanButton, copykan syntak function yang pertama adalah menghitung jumlah kata.

Public Function GetWordCount(ByVal Text As String) _
As Long
    Text = Trim(Replace(Text, “-” & vbNewLine, “”))
    Text = Trim(Replace(Text, vbNewLine, ” “))
    Do While Text Like “*  *”
        Text = Replace(Text, ”  “, ” “)
    Loop
    GetWordCount = 1 + UBound(Split(Text, ” “))

End Function

Untuk selanjutnya adalah syntak function membalikan tulisan

Function BalikkanString(strKalimat As String) As String
Dim i As Integer, Panjang As Integer
Dim strTampung As String
  Panjang = Len(strKalimat)
   For i = Panjang To 1 Step -1
      strTampung = strTampung & Mid(strKalimat, i, 1)
   Next i
   BalikkanString = strTampung

End Function

Setelah selesai, pada commanbutton yang pertama double klik dan panggil syntak function menghitung jumlah kata

MsgBox GetWordCount(Text1.Text), 64, “Hitung Jumlah Suku Kata”

Kemudian diteruskan pada CommanButton yang kedua function untuk membalikan tulisan

MsgBox BalikkanString(Text1.Text), 64, “Membalikan Tulisan” 

Setelah simpulan simpan lalu RUN/F5. Inputkan beberapa kata pada textbox yang telah kiat buat pada form lalu klik pada commanButton untuk function menghitung jumlah suku kata dan akan tampil sebuah pesan dengan jumlah suku kata yang dipisahkan menurut spasi ibarat gambar dibawah ini
Cara Menghitung Jumlah Kata Dan Membalikan Goresan Pena Vb6
Kemudian klik juga pada commanbutton yang berisi function membalikan goresan pena dan akan tampil sebuah pesan dengan berisi goresan pena terbalik per suku kata, ibarat gambar dibawah ini : 
Cara Menghitung Jumlah Kata Dan Membalikan Goresan Pena Vb6

Cukup terperinci bukan dari kedua buah function yang gres kita bahas tadi, untuk lebih detailnya sourcode sanggup didownload di LINK INI. Semoga pembahasan kedua buah function ini sanggup memperlihatkan manfaat bagi pembaca sekalian.

Cara Menciptakan Tooltip Gaya Balloon Dengan Visual Basic 6.0

Untuk penulisan artikel kali ini admin akan menyebarkan source code perihal ToolTip Gaya Balloon dengan memakai Visual Basic 6.0 (VB6). ToolTip merupakan layout display tampilan kecil sanggup berupa keterangan dari komponen sewaktu pointer mengarah pada komponen tersebut. Misalkan commanbutton, label, listview dan lain-lain. Jika suatu agenda dengan menggunakan layout display keterangan komponen memakai metode ini, akan terasa lebih terang daripada memakai ToolTips yang standar. Layout tampilan dari ToolTip Gaya Baloon menyerupai gambar dibawah ini

Cara Menciptakan Tooltip Gaya Balloon Dengan Visual Basic 6.0

Biasanya tampilan ToolTip dipakai pada tombol-tombol kecil pada sebuah form yang tidak memungkinkan untuk diberikan caption. Cara pengaktifan dari ToolTip ini pun sangat mudah, dengan panggil functionnya pada mekanisme Form_Load menyerupai ini

CreateBalloon Me.Command1, Command1.hwnd, Command1.Caption, szBalloon, False, “Error System!”, etiInfo, vbBlue, vbYellow

Coba perhatian kata yang admin cetak tebal

szBalloon : merupakan bentuk tampilan dari balloon untuk menyerupai yang diatas, szClassic : dengan bentuk tampilan persegi. False : merupakan posisi tampilan dari Balloon diatas, True : berada ditengah-tengah. “Error System” : merupakan title caption. etiInfo : merupakan jenis-jenis pemberitahuan (etiInfo, etiError, etiWarning, etiNone). vbBlue, vbYellow : vbBlue merupakan warna dari latar, sedangkan vbYellow merupakan warna dari font atau tulisan.

Video Tutorial Pembuatan
Cara menciptakan ToolTip Gaya Balloon dengan Visual Basic 6.0


Untuk lebih detailnya sourcode ini sanggup didownload di LINK INI secara free. Semoga penulisan artikel ini sanggup bermanfaat bagi pembaca-pembaca sekalian.

Cara Merubah Atribut File Dengan Visual Basic 6.0

Pada kesempatan postingan kali ini admin akan share perihal pengolahan atribut file dengan Microsoft Visual Basic 6.0 sebelum kita masuk ke pembahasan, admin akan menguraikan sedikit perihal atribut file yang berada pada sistem operasi Windows, yakni :
(A) Archive
Untuk fiile yang beratribut jenis ini akan ditampilkan pada windows explorer menyerupai halnya file dengan atribut yang lain. Atribut ini berkhasiat sebagai penanda bahwa file ini merupakan backup copy dari file yang asli.

(H) Hidden
File dengan atribut Hidden akah disembunyikan atau tidak ditampakkan secara pribadi pada windows explorer. Untuk menampilkannya kita harus merubah setting folder options untuk menampilkan file tersembunyi pada windows explorer. Kemudian gres kita klik kanan properties pada file yang terhidden barulah rubah atributnya.

(R) Read Only
File dengan atribut Read Only merupakan tipe atribu yang hanya memperbolehkan untuk melihat saja tanpa sanggup merubah data tersebut. Atribut ini berkhasiat untuk melindungi keaslian file biar tidak sanggup dimodifikasi.

(S) System
File dengan atribut system akan disembunyikan dengan prioritas yang lebih diutamakan daripada file dengan atribut hidden. Biasanya file menyerupai ini dipakai pada file-file sistem operasi pada windows, untuk mencegah ada penghapusan, perubahan data sehingga sanggup menciptakan sistem operasi menjadi error dan untuk jenis atribu ini biasanya dikenal dengan sebutan Super Hidden.

Cukup terperinci bukan dengan sistem atribut file yang ada pada sistem operasi windows dan kali ini admin coba menerapkan cara merubah atribut file tersebut memakai Microsoft Visual Basic 6.0. Buatlah project – StandartEXE lalu buat juga Form dilanjutkan menambahkan beberapa komponen ke dalam sebuah form seperti

1. Label
2. TextBox
3. CheckBox
4. CommanButton
5. VScrollBar
6. Microsoft Common Dialog Control
Untuk lebih jelasnya menyerupai interface dibawah ini

Cara Merubah Atribut File Dengan Visual Basic 6.0
Untuk lebih detailnya sourcode diatas sanggup didownload di LINK INI. Untuk cara kerja dari sorucode diatas cari dan pilih file lalu akan tampil atribut bawaan dari file tersebut tinggal pilih atribut atau hilangkan atribut sesudah itu klik tombol OK

Cara Melihat Koordinat (X,Y) Kursor Pada Mouse Dengan Vb6

Tanpa kita sadari tiap kali memegang mouse pada PC dan mengarahkannya ke bagian-bagian sajian di windows ternyata kursor tersebut mempunyai koordinat posisi X, Y. Pada pembahasan kali ini admin akan menguraikan sebuah sourcode Cara Melihat Koordinat (X,Y) Kursor pada Mouse. Function yang dipakai Windows API.

Windows API
Windows API ialah serangkain file-file yang berekstensi *.dll yang berada pada folder windows (C:\Windows\System32) yang berfungsi sebagai pendukung bagi para programmer untuk menciptakan sebuah script atau kode-kode perintah dalam bentuk, tombol perintah dan sajian dari script atau kode-kode tersebut yang sesuai di Windows API dan lalu diteruskan oleh Sistem Operasi itu sendiri dalam pembuatan komponennya.

Langsung masuk ke pokok pembahasan, buatlah sebuah project – form, module dan tambahkan komponen timer dengan interval 1 dan 2 buah label. Disini admin menambahkan komponen progressbar supaya kelihatan lebih bagus.

Cara Melihat Koordinat (X,Y) Kursor Pada Mouse Dengan Vb6

Copykan Syntak dibawah ini ke module 

Public Type POINTAPI
    X As Long
    Y As Long
End Type
Public Declare Function GetCursorPos Lib “user32” (lpPoint As POINTAPI) As Long
Public Declare Function WindowFromPoint Lib “user32” (ByVal xPoint As Long, ByVal yPoint As Long) As Long

Kemudian dilanjutkan double klik dan copykan juga syntak berikut akan tetapi sesuai dengan mekanisme dan komponen yang terdapat pada form

Dim tPA As POINTAPI

Private Sub Form_Load()
GetCursorPos tPA
lhWnd = WindowFromPoint(tPA.X, tPA.Y)
End Sub

Private Sub Timer1_Timer()
    Dim tPA As POINTAPI
    GetCursorPos tPA
    lblX.Caption = “X : ” & tPA.X
    lblY.Caption = “Y : ” & tPA.Y
    On Error Resume Next
    Me.ProgressBar2.Value = tPA.X
    Me.ProgressBar1.Value = tPA.Y
End Sub

Kemudian simpan dan RUN/F5, posisi dari kursor yang kita gerakan maka akan terhitung pada label X dan Y yang terdapat pada form diatas. Untuk sorucodenya sanggup didownload pada LINK INI. Semoga artikel ringan ini sanggup bermanfaat bagi pembaca-pembaca sekalian.

Cara Mencari Posisi Sebuah Karakter/String Dengan Vb6

Pada postingan kali ini admin akan membahas sourcode ihwal Cara Mencari Posisi Sebuah Karakter/String Dengan VB6. Katakanlah kita kini sedang dihadapkan sebuah textBox dengan isi  

Cara Mencari Posisi Sebuah Karakter/String Dengan Vb6

Dan kita akan mencari sebuah kata kunci pada textbox tersebut, untuk memastikan ada atau tidaknya kata kunci tersebut. Buatlah project – Form dan tambahkan 2 buah TextBox pada form dan satu buah commanButton menyerupai gambar dibawah ini : 


Cara Mencari Posisi Sebuah Karakter/String Dengan Vb6

Double klik pada form dan silahkan pilih mekanisme Form_Load dan copykan syntak dibawah ini : 

Cara Mencari Posisi Sebuah Karakter/String Dengan Vb6

Kemudian double juga pada CommanButton dan copykan syntak berikut ini : 
Dim nLokasi
nLokasi = InStr(Text1.Text, Text2)
If nLokasi Then
   Text1.SetFocus
   Text1.SelStart = nLokasi – 1
   Text1.SelLength = Len(Text2)
Else
    MsgBox “Kata tidak ditemukan!”
End If
Simpan sourcode tersebut dan RUN/F5. Sekarang coba inputkan huruf pada textbox pencarian lalu klik tombol tersebut, kalau kata kunci yang diinputkan ada disalah satu huruf pada textbox paling atas, secara otomatis akan terblok sesuai dengan string pada textbox pencarian, menyerupai gambar dibawah ini 
Cara Mencari Posisi Sebuah Karakter/String Dengan Vb6
Cukup gampang bukan dan supaya postingan kali ini sanggup bermanfaat bagi pembaca sekalian.

Contoh Dasar Penggunaan Fungsi String/Karakter Visual Basic 6.0 (Vb6)

Pada kesempatan kali ini admin akan share sedikit perihal Fungsi dan pengolahan data String/Karakter secara dasar pada Microsoft Visual Basic 6.0 yang kerap kali kita jumpai dalam membangun sebuah sistem khususnya memakai Microsoft Visual Basic 6.0, pada artikel sebelumnya telah admin singgung mengenai pengolahan data bertype string yaitu pada posting  Cara Mencari Posisi Sebuah Karakter/String Dengan VB6, Cara Menghitung Jumlah Kata dan Membalikan Tulisan VB6, Function String Hilangkan Seluruh Spasi Kalimat | VB6 untuk lebih jelasnya sebagai berikut : 
LCase(x), fungsi string ini dipergunakan untuk merubah karakter (x) menjadi abjad kecil.
nKarakter = LCase(“AKU Ganteng”) , maka nilai nKarakter ialah “aku ganteng”

UCase(x), fungsi string ini dipergunakan untuk merubah karakter (x) menjadi abjad besar.
nKarakter = UCase(“AKU Ganteng”) , maka nilai nKarakter ialah “AKU GANTENG”

Left(x,n), dipakai untuk mengambil karakter dari string x yang dimulai dari kiri sejumlah n.
s = Left(“Aku Ganteng”, 3) maka nilai s ialah “Aku”

Right(x,n), fungsi string ini dipakai untuk mengambil karakter dari string x yang dimulai dari kanan sebanyak n.
s = Right(“Aku Ganteng”, 3) maka nilai s ialah “eng”

Mid(x,m,n), fungsi string ini dipakai untuk mengambil karakter dari string x yang dimulai dari karakter ke m sebanyak n.
s = Mid(“Aku Ganteng”, 2, 2) , maka nilai s ialah “ku”

LTrim(x) , fungsi string ini dipakai untuk menghapus karakter spasi di bab kiri dari string x.
s = LTrim(“     Aku Ganteng     “), maka nilai s ialah “Aku Ganteng     “

RTrim(x) , fungsi string ini dipakai untuk menghapus karakter spasi di bab kanan dari string x.
s = RTrim(“     Aku Ganteng     “) , maka nilai s ialah “     Aku Ganteng”

Trim(x) , fungsi string ini  dipakai untuk menghapus karakter spasi di bab kiri dan kanan dari string x.
s = Trim(“     Aku Ganteng     “) , maka nilai s ialah “Aku Ganteng”

Len(x) , fungsi string ini dipakai untuk menghitung jumlah karakter dari string x.
s = Len(“Aku Ganteng”) , maka nilai s ialah 8.

String(n,x) , fungsi string ini dipakai untuk menciptakan karakter x sebanyak n.
s = String(10, “A”)
maka nilai s ialah “AAAAAAAAAA”

Space(n) , fungsi string dipakai untuk menciptakan karakter spasi sebanyak n.
s = Space(10) , maka nilai s ialah “          “

Asc(x) , fungsi string dipakai untuk mengetahui nilai ASCII dari karakter x.
s = Asc(“A”) , maka nilai s ialah 65

Chr(x) , fungsi string dipakai untuk mengetahui karakter dari nilai ASCII x.
s = Chr(65) , maka nilai s ialah “A”

InStr(x,n) , fungsi string  dipakai untuk mengetahui posisi karakter n didalam string x.
Contoh s = InStr(“Aku Ganteng”, “u”) , maka nilai s ialah 3

StrConv(x,n) , fungsi string  dipakai untuk mengubah abjad dalam string x menurut nilai n.
s = StrConv(“Aku Ganteng”, 1) , maka nilai s ialah “AKU GANTENG”
s = StrConv(“Aku Ganteng”, 2) , maka nilai s ialah “Aku Ganteng”
s = StrConv(“Aku Ganteng”, 3) , maka nilai s ialah “aku ganteng”

StrReverse(x) , fungsi string  dipakai untuk membalikkan posisi abjad dalam string x.
s = StrReverse(“Aku Ganteng”) , maka nilai s ialah “gnetnaG ukA”

Replace(x,m,n) , fungsi string  dipakai untuk menggantikan karakter m dalam string x dengan karakter n.
s = Replace(“Aku Ganteng”, “Jelek”, “Ganteng”), maka nilai s ialah “Aku Ganteng”

Split(x,n)(i) , fungsi string dipakai untuk memecah string x menurut karakter n dengan penomoran i.
s=Split(“REG#04020022#DIAN#LAKI-LAKI#JEPARA”, “#”)(0), maka nilai s ialah “REG”
s=Split(“REG#04020022#DIAN#LAKI-LAKI#JEPARA”, “#”)(1), maka nilai s ialah “04020022”
s=Split(“REG#04020022#DIAN#LAKI-LAKI#JEPARA”, “#”)(2), maka nilai s ialah “DIAN”
s=Split(“REG#04020022#DIAN#LAKI-LAKI#JEPARA”, “#”)(3), maka nilai s ialah “LAKI-LAKI”
s=Split(“REG#04020022#DIAN#LAKI-LAKI#JEPARA”, “#”)(4), maka nilai s ialah “JEPARA”

Menghitung jumlah kata dalam string. Misalnya Anda ingin menghitung jumlah kata dalam string Aku Ganteng Tenan, maka kodenya ialah :
s = UBound(Split(“Aku#Ganteng#Tenan”, “#”)) + 1
maka nilai s ialah 3

Menghilangkan karakter tertentu dalam string. Misalnya Anda ingin menghilangkan karakter “a” dalam string “Aku Ganteng Tenan”, maka kodenya ialah :
s = Replace(“Aku Ganteng Tenan”, “a”, ““)
maka nilai s ialah “Aku Gnteng Tenn”
Semoga contoh-contoh fungsi dasar pengolahan data bertype string/karakter sanggup bermanfaat bagi pembaca sekalian

Tombol Elegan Dengan Visual Basic 6.0

Pasa kesempatan kali ini admin akan share perihal sourcode Tombol Elegan dengan Visual Basic 6.0 tanpa harus menggunakan/menginstal file-file ocx terlebih dahulu, selain daripada itu juga tooltips yang ditampilkan berbentuk ballonTips sehingga menambah ke-eleganan dari komponen ini.
Jika bagi yang ingin ditambahkan icon, tinggal kita lihat pada jendela properties sebelah kanan dan cari hidangan PictureNormal kemudian cari gambar berformat ico yang ingin ditampikan. Bagi yang berminat untuk mendowload sourcode ini sanggup di klik pada LINK INI dan supaya artikel Tombol Elegan dengan Visual Basic 6.0 sanggup bermanfaat bagi pembaca sekalian.

Tombol Elegan Dengan Visual Basic 6.0

Save Dan Open File Tanpa Common Obrolan Control Vb6

Pada umumnya setiap kali kita akan membuka dan menampilkan file kita dihadapkan dengan jendela obrolan control khususnya pada Visual Basic 6.0 komponen ocx yang dipakai berjulukan Microsoft Windows Common Dialog Control. Sekarang kita akan mencoba menampilkan obrolan control ialah Save dan Open file tanpa menambahkan komponen ocx tersebut.

Save Dan Open File Tanpa Common Obrolan Control Vb6
Buatlah sebuah project pada Microsoft Visual Basic 6.0 selanjutnya buat form dan tambahkan 1 buah module lalu tambahkan 2 CommandButton pada form. Copykan Syntak dibawah ini ke module

Option Explicit

Private Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End Type

Public Const OFN_READONLY = &H1
Public Const OFN_OVERWRITEPROMPT = &H2
Public Const OFN_HIDEREADONLY = &H4
Public Const OFN_NOCHANGEDIR = &H8
Public Const OFN_SHOWHELP = &H10
Public Const OFN_ENABLEHOOK = &H20
Public Const OFN_ENABLETEMPLATE = &H40
Public Const OFN_ENABLETEMPLATEHANDLE = &H80
Public Const OFN_NOVALIDATE = &H100
Public Const OFN_ALLOWMULTISELECT = &H200
Public Const OFN_EXTENSIONDIFFERENT = &H400
Public Const OFN_PATHMUSTEXIST = &H800
Public Const OFN_FILEMUSTEXIST = &H1000
Public Const OFN_CREATEPROMPT = &H2000
Public Const OFN_SHAREAWARE = &H4000
Public Const OFN_NOREADONLYRETURN = &H8000
Public Const OFN_NOTESTFILECREATE = &H10000
Public Const OFN_NONETWORKBUTTON = &H20000
Public Const OFN_NOLONGNAMES = &H40000
Public Const OFN_EXPLORER = &H80000
Public Const OFN_NODEREFERENCELINKS = &H100000
Public Const OFN_LONGNAMES = &H200000

Public Const OFN_SHAREFALLTHROUGH = 2
Public Const OFN_SHARENOWARN = 1
Public Const OFN_SHAREWARN = 0

Private Declare Function GetOpenFileName Lib “comdlg32.dll” Alias “GetOpenFileNameA” (pOpenfilename As OPENFILENAME) As Long
Private Declare Function GetSaveFileName Lib “comdlg32.dll” Alias “GetSaveFileNameA” (pOpenfilename As OPENFILENAME) As Long

Function SaveDialog(Form1 As Form, Filter As String, Title As String, InitDir As String) As String
 Dim ofn As OPENFILENAME
    Dim A As Long
    ofn.lStructSize = Len(ofn)
    ofn.hwndOwner = Form1.hWnd
    ofn.hInstance = App.hInstance
    If Right$(Filter, 1) <> “|” Then Filter = Filter + “|”
    For A = 1 To Len(Filter)
        If Mid$(Filter, A, 1) = “|” Then Mid$(Filter, A, 1) = Chr$(0)
    Next
    ofn.lpstrFilter = Filter
        ofn.lpstrFile = Space$(254)
        ofn.nMaxFile = 255
        ofn.lpstrFileTitle = Space$(254)
        ofn.nMaxFileTitle = 255
        ofn.lpstrInitialDir = InitDir
        ofn.lpstrTitle = Title
        ofn.flags = OFN_HIDEREADONLY Or OFN_OVERWRITEPROMPT Or OFN_CREATEPROMPT
        A = GetSaveFileName(ofn)

        If (A) Then
            SaveDialog = Trim$(ofn.lpstrFile)
        Else
            SaveDialog = “”
        End If
End Function

Function OpenDialog(Form1 As Form, Filter As String, Title As String, InitDir As String) As String
Dim ofn As OPENFILENAME
    Dim A As Long
    ofn.lStructSize = Len(ofn)
    ofn.hwndOwner = Form1.hWnd
    ofn.hInstance = App.hInstance
    If Right$(Filter, 1) <> “|” Then Filter = Filter + “|”
    For A = 1 To Len(Filter)
        If Mid$(Filter, A, 1) = “|” Then Mid$(Filter, A, 1) = Chr$(0)
    Next
    ofn.lpstrFilter = Filter
        ofn.lpstrFile = Space$(254)
        ofn.nMaxFile = 255
        ofn.lpstrFileTitle = Space$(254)
        ofn.nMaxFileTitle = 255
        ofn.lpstrInitialDir = InitDir
        ofn.lpstrTitle = Title
        ofn.flags = OFN_HIDEREADONLY Or OFN_FILEMUSTEXIST
        A = GetOpenFileName(ofn)

        If (A) Then
            OpenDialog = Trim$(ofn.lpstrFile)
        Else
            OpenDialog = “”
        End If
End Function

Untuk selanjutnya copykan juga syntak dibawah ini dengan memperhatikan nama komponen yang terdapat pada form.

Public A As String
Private Sub cmdCommand1_Click()
A = OpenDialog(Me, “*.jpeg|*.jpeg*.jpg|*.jpg|*.bmp|*.bmp|*.ico|*.ico”, “Load Gambar”, App.Path)
If A <> vbNullString Then
   MsgBox “Anda menentukan file : ” & A, 64, “informasi”
End If
End Sub

Private Sub cmdCommand2_Click()
A = SaveDialog(Me, “*.txt|*.txt”, “Simpan File”, App.Path)
If A <> vbNullString Then
   MsgBox “Anda menyimpan file di : ” & A, 64, “informasi”
End If
End Sub

Jika telah tamat simpan project dan lalu RUN/F5. Klik Commandbutton dengan Caption Open maka akan tampil obrolan Open File. Begitu juga dengan CommandButton Caption Save akan keluar obrolan Save file. Untuk lebih detailnya sourcode diatas sanggup didownload di LINK INI
Semoga bermanfaat