 |
 |
|
|
| |
| |
| |
|
Statistics |
| Unique Visitors: 14 |
| Total Unique Visitors: 93249 |
| Visitors Out: 726 |
| Total Visitors Out: 1627 |
|
|
|
| |
|
|
| |
|
| Membuat Animasi Teks dengan Visual Basic |
| 2009-08-30 09:20:44 |
Persiapan : - 1 Form - 1 buah textbox - 1 buah label - 2 buah command button Option Explicit Dim Play As Boolean Sub Sleep(Delay%) Dim Mulai% While Mulai < play =" True...
|
| |
|
| Mencari Data dengan VB.NET 2005 |
| 2009-06-25 07:54:41 |
Imports System.IO
Imports System.Data.SqlClient
Imports System.Data
Private Sub cmdSearch_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles cmdSearch.Click
Dim s As String
s = "SELECT * FROM TBLBARANG WHERE KodeBarang = B01 "
oTbl = getRecBySQL(s, "TBLBARANG").Tables(0)
grd.DataSource = oTbl
End Sub
Function getRecBySQL(ByVal sSQL As String, ByVal sTblName As String) As DataSet
Dim oconn As New SqlConnection()
oconn.ConnectionString = "Data Source=.\SQLEXPRESS;Initial Catalog=DATAKU;Integrated Security=True"
Dim ocmd As SqlCommand = New SqlCommand(sSQL, oconn)
ocmd.CommandType = CommandType.Text
Dim da As SqlDataAdapter = New SqlDataAdapter(ocmd)
Dim ds As New DataSet()
da.Fill(ds, sTblName)
getRecBySQL = ds
End Function...
|
| |
|
| Animasi Teks dengan VB |
| 2009-05-18 07:48:09 |
==> Animasi Teks Private intCount As Integer Private Const TEKS As String =_ “By @Illank Dunia Script” Private Sub Form_Load() ‘Inisialisasi Counter IntCount = 0 Me.tmr.Enabled = True End Sub Private Sub tmr_Timer() ‘Reset counter jika lebih dari panjang teks If IntCount > Len(TEKS) then IntCount = -1 ‘Increment Counter IntCount = IntCount + 1 ‘Tampilkan Teks Satu Persatu (Karakter) ‘dimulai dari karakter paling depan Me.Caption = Mid$(TEKS, 1, IntCount) End Sub...
|
| |
|
|
| Script Cetak Slip |
| 2009-05-14 09:13:06 |
Private Sub cetak()
Dim i As Integer
Close #1
Open “LPT1″ For Output As #1
‘Open “LPT1:” For Output Access Write As #1
Printer.CurrentX = 0
Printer.CurrentY = 0
‘Printer.Font = 6
Print #1, Chr$(27) + Chr$(15) + ” ” & LAlm ‘Kecil
Print #1, ” NAMA TOKO’”
Print #1, ” ALAMAT TOKO″
Print #1, ” TELP. (0352) 531700″
Print #1, “”
Print #1, “NO KWITANSI:” + nokwitansi; ” “; “Tgl:” + tgl;
Print #1, “”
Print #1, “—————————————–”
Print #1, Tab(1); “Kd Barang”; Tab(11); “Nama Barang”; Tab(24); “Jml”; Tab(28); “Harga”; Tab(36); “Total”;
Print #1, Tab(1); “—————————————–”
jumtot = 0
‘cari_tanggal = InputBox(”Masukan Tanggal Pencarian”, “Tanggal Pencarian”, “18/07/05″)
dbjual.RecordSource = “select * from jual where nokwitansi=’” & nokwitansi.Text & “‘”
dbjual.Refresh
jum = dbjual.Recordset.RecordCount For i = 1 To jum
‘no ...
|
| |
|
| |
 |
|
| |
| |
|
 |
