27 September 2012

Hari ini saya melanjutkan tugas kelas terapi.. Sempat diajari mengenrate ID otomatis. Untuk itu saya disuruh membuat function yang saya beri nama "Auto". Kemudian didalam function tersebut berisi script pendeteksi data maximal dan nantinya akan di tambahkan 1. Tetapi type nya string sehingga tidak dapat di jumklahkan, makadari itu oleh Mas.Yondy disuruh searching materi untuk mengkonversikan "String" menjadi "Integer".

26 September 2012

Hari ini saya membuat project inisisatif sendiri.. Input data siswa ..

Project Input Data Kelas Terapi

Kali ini saya berkesempatan untuk memosting tentang project yang diberikan oleh pembimbing saya di tempat prakerin. Sebelumnya saya sudah pernah mengerjakannnya tetapi berkelompok dengan Rosiana, Angga, dan Alaudin. Kali ini saya mencoba mengerjakan sendiri dengan semua metode yang di berikan oleh programmer Lintang Kawuryan.. Project kali ini masih tentang input data kelas terapi.. Jadi saya tidak membuat database baru lagi. Sebelum membuat projectnya saya mendesain dulu user interfacenya :)  

begini tampilannya :

Database = Askes

Tabel = Terapi1

Kolom : 

Nomor Induk = induk

ID = id

Kelas Terapi = kls_terapi

Halaman = hal

server = SQL Server 2008

Pertama yg saya  lakukan adalah memasukkan script untuk berbagai tampilan. Lalu saya menggunakan metode listview otomatis , begini scriptnya :

Sub list1()

If listview(ListView1, "select * from terapi1", cn) = True Then

End If

End Sub

Sub list2()

Dim a As String, category As String

Select Case cmb_category

Case "Induk"

    category = "induk"

Case "ID"

    category = "id"

Case "Kelas Terapi"

    category = "kls_terapi"

Case "Halaman"

    category = "hal"

End Select

a = txt_search.Text

If listview(ListView1, "Select * from terapi1 where " & category & " like '%" & a & "%'", cn) = True Then

End If

End Sub

Private Sub ListView1_Click()

txtinduk.Text = ListView1.SelectedItem

txtid.Text = ListView1.SelectedItem.SubItems(1)

txtterapi.Text = ListView1.SelectedItem.SubItems(2)

txthalaman.Text = ListView1.SelectedItem.SubItems(3)

End Sub

List1 berfungsi untuk menampilkan data pada listview setelah perintah insert .. 

List2 berfungsi untuk pencarian data otomatis.. Tanpa klik ataupun enter terlebih dahulu.. 

Sebelum itu listview memang perlu di desain dahulu -->  klik kanan --> properties 

Atur kolom kolomnya sesuai data yang akan anda masukkan .

Module.nya : 

Option Explicit

Public Rs As New ADODB.Recordset

Dim Lst As ListItem

Dim cn As New ADODB.Connection

Public nm As String

Public Sub buka()

If cn.State = adStateOpen Then cn.Close

cn.Open "Provider=SQLNCLI10;Server=.;Database=askes;Trusted_COnnection=yes"

End Sub

Public Sub eksekusiSQL(SQLstr As String)

cn.Execute SQLstr

End Sub

Public Sub OpenRecordset(SQLstr As String)

If Rs.State = adStateOpen Then Rs.Close

Rs.Open SQLstr, cn, adOpenKeyset, adLockOptimistic, adCmdText

End Sub

Public Sub tutup()

If Rs.State = adStateOpen Then Rs.Close

Set Rs.ActiveConnection = Nothing

Set Rs = Nothing

If cn.State = adStateOpen Then cn.Close

Set cn = Nothing

End Sub

Function listview(lv1 As listview, Query As String, con As ADODB.Connection)

Dim i As Integer

Dim s As Integer

Dim ilv As ListItem

Dim ch As ColumnHeader

Dim j As Integer

buka

Set Rs = cn.Execute(Query)

lv1.ColumnHeaders.clear

For i = 0 To Rs.Fields.Count - 1 'menentukan perulangan kolom header

Set ch = lv1.ColumnHeaders.Add(, , Rs.Fields(i).Name, 2000) 'menampilkan nama field pada table

Next i

'isi Data

lv1.ListItems.clear

lv1.GridLines = True

While Not Rs.EOF

For j = 0 To Rs.Fields.Count - 1

If j = 0 Then

Set ilv = lv1.ListItems.Add(, , Rs.Fields(j))

Else

ilv.SubItems(j) = Rs.Fields(j)

End If

Next j

Rs.MoveNext

Wend

End Function

Selanjutnya silahkan berkreasi :)

Semoga bermanfaat .. 

25 September 2012

Hari ini saya ditugasi oleh Mas.Yondy untuk mengulang Project Kelas Terapi dengan metode dasar yang sebelumnya pernah dibahas. Alhamdulilah projectnya sudah bisa di jalankan, tetapi saya menemui kesulitan di pengisian listview otomatis. Karena teman-teman sudah banyak yg bisa, saya di ajarkan :)
Saat ini Print Buttonnya yang masih bermasalah.
Nanti di rumah saya perbaiki. Besok, tutorial nya sudah bisa di lihat..

24 September 2012

Senin ini guru saya datang ke Lintang Kawuryan :) Setelah sekian lama tidak dikunjungi ..
Hari ini saya banyak mendapat pelajaran dari Bu Ros, dan yang lainnya.. Kami siswa prakerin taruhan 100 ribu untuk dapat mengerjakan project yang diberikan supaya di selesaikan tepat waktu. Hari ini saya mencoba download contoh program absensi siswa dan karyawan.. Belum mengerjakan program hari ini..

21 September 2012

Maaf diary hari Jumat saya posting baru hari ini.. Hari Jumat kemarin saya hanya browsing saja tentang flowchart program absensi yang menjadi planning saya kedepannya. Sebelumnya saya belum mengerti alur absensi yang akan saya buat agar dapat bermanfaat di Lintang ..

Membatasi Karakter Input Pada Text Box

Mungkin Anda pernah menginginkan agar sebuah TextBox hanya boleh atau bisa diisi dengan karakter input tertentu, seperti hanya karakter "R" dan "A" saja, atau mungkin hanya karakter "I" dan karakter angka saja, atau yang lain.

Berikut ini satu baris kode yang bisa Anda gunakanuntuk melakukannya. Sebagai contoh, buatlah sebuah kontrol TextBox di dalam Form. Lalu  ketikkan kode berikut di bagian 'TextBox1_KeyPress' -nya :

[VB 6.0]

If (InStr("SRADST", Chr(KeyAscii)) = 0) And (KeyAscii <> 8) Then KeyAscii = 0

[ VB .NET ]

If (InStr("SRADST", e.KeyChar) = 0) And (e.KeyChar <> Chr(8)) Then e.KeyChar = Chr(0)

Contoh diatas menunjukkan bagaimana TextBox hanya bisa diisi karakter "S", "R", "A",”D”,”S”, dan "T" saja. Jika Anda menginginkan karakter yang lain, tinggal menggati teks yang berwarna merah dengan karakter-karakter yang hanya boleh diinputkan. Misalnya Anda ingin hanya krakter "J" dan karakter angka saja, tinggal menggantikannya dengan "J0123456789".

Membatasi Text Box Terisi Angka Saja

Terkadang error bisa saja terjadi kita menjalakan program kita.. Kadang karena kita menginput data di text box tidak sesuai dengan kriteria pada database. Kali ini saya akan menjelaskan cara membatasi text box di visual basic agar hanya bisa diketikkan angka saja. Scriptnya berhubungan dengan ASCII (American Standard Code for Information Interchange). Pertama-tama buat text box di project vb

If Not ((KeyAscii >= 48) And (KeyAscii <= 57) Or KeyAscii = 8) Then
    KeyAscii = 0

End If

artinya jika bukan keyascii lebih besar sama dengan 48 dan keyascii kurang sama dengan 57 (keyascii bukan antara 48 sampai 57)  atau keyascii = 8 maka keyascii = 0

hasilnya pada textbox hanya bisa diinput angka 0 sampai 9 dan backspace, sehingga dapat mencegah terjadinya error akibat user (human error).

keyascii 48 sampai 57 adalah angka (0-9), sedangkan keyascii 8 adalah backspace.

semoga bermanfaat :)

20 September 2012

Hari ini saya mencari kesalahan kesalahan pada program Linkar Apotek Paru.. Banyak pelajaran yang saya peroleh dari mengecek data.. Bekal untuk mengerjakan program selanjutnya.

19 September 2012

Rabu ini saya berhasil menemukan script untuk membatasi character .. Selain itu saya melanjutkan tugas saya untuk mengecek data di program aplikasi Linkar Apotek Paru. Saya di suruh mengecek human error dan mencatatnya..Di sela-sela itu saya memosting artikel tentang Membatasi Character Text Box Hanya Berisi Angka Besok saya lanjutkan kodingnya :)

18 September 2012

Hari ini (Selasa) saya masih mencari koding script membatasi character. Maksudnya bila didalam database tertulis panjang datanya tetapi ketika di jalankan programnya lalu dibuat panjangnya melebihi panjang data yang telah di tentukan akan terjadi kesalahan. Makadari itu untuk menghindari human error dibutuhkan script untuk membatasi character tersebut.

17 September 2012

Senin ini saya hanya memosting tentang sejarah  The Beatles. Siang harinya Pak Chandra menelpon kata Beliau disuruh melanjutkan project sub Terapi minggu lalu. Planning saya pada bagian text box bisa dibatasi characternya.

Perfilman The Beatles

The Beatles memiliki karir film sukses, dimulai dengan A Hard Day’s Night (1964), komik lelucon scripted longgar, kadang-kadang dibandingkan dengan Marx Brothers dalam gaya -dan-putih film hitam, itu difokuskan pada Beatlemania dan sibuk tur gaya hidup yang band dan diarahkan oleh-dan-datang Lester Richard , yang dikenal memiliki diarahkan versi televisi dari sukses BBC serial radio Tampilkan Goon sebagai serta-off mengalahkan film pendek The Lari, Jumping dan Bergerak Film , dengan Peter Sellers dan Spike Milligan . A Hard Day’s Night adalah mockumentary dari empat anggota saat mereka membuat jalan mereka untuk sebuah program televisi di London. Film, yang dirilis pada ketinggian Beatlemania, telah diterima dengan baik oleh para kritikus, dan tetap salah satu yang paling berpengaruh musikal jukebox .

Sejarah The Beatles

The Beatles  adalah kelompok pemusik Inggris beraliran rock, dibentuk di Liverpool pada tahun 1960, seringkali dianggap sebagai pemusik tersukses secara komersial dan paling banyak mendapat pujian dalam musik populer. Sejak tahun 1962, kelompok ini terdiri dari John Lennon (gitar ritem, vokal), Paul McCartney (gitar bass, vokal), George Harrison (gitar utama, vokal), Ringo Starr (drum, vokal). Bermula dari aliran skiffle dan rock and roll 1950-an, kelompok ini nantinya memainkan musik dalam berbagai genre mulai dari folk rock sampai rock psikedelik, memasukkan juga unsur musik klasik dan elemen lain dengan cara inovatif. The Beatles dipandang sebagai perwujudan ide-ide progresif, berpengaruh terhadap revolusi sosial budaya dekade 60-an.

14 September 2012

Hari ini saya menjalankan program Linkar Apotek Paru.. Untuk menjalankannya harus koneksi dengan server. Kebetulan servernya adalah Mas.Yondy. Sebelum itu pak Chandra maenjelaskan alur dari program itu. yang pertama gudang. Gudang terisi atas 2 gudang. Gudang farmasi yaitu gudang yang menyediakan peralatan kesehatan. Lalu ada gudang umum juga. Gudang umum berisi di luar gudang farmasi. Ada peralatan tulis, peralatan kesehatan atau semacamnya. Dibawah gudang ada otlet farmasi. Maksudnya pemasaran barang-barang dari gudang, dipasarkan kesini. Barulah sampai ke tangan konsumen/pasien karna ini program apotek. Disini Pak Chandra menyimulasikan saya sebagai karyawan gudang yang melayani pengiriman barang langsung atau tanpa melalui pemesanan terlebih dahulu. Karena keterbatasan koneksi jadi dilanjutkan Senin besok.

13 September 2012

Kamis 13 September 2012 saya tetap mencari cara untuk membuat function menambahkan listview otomatis. Lalu Pak.Chandra memberikan master Linkar Apotek Paru dan disuruh menginstallmya.

Es Kering, Apa itu ?

PERNAH lihat bagaimana orang men”dinginkan” makanan dalam satu kotak, tapi es yang digunakan seperti lebih “berasap”? atau pernah melihat aksi panggung dengan kepulan asap yang “segar”? atau mungkin kamu pernah melihat bagaimana seculik “es” yang melesat ketika kamu lemparkan ke permukaan air?. Benda apakah itu? Apa kegunaannya? Dan berbahayakan bagi kamu?

Membuat Module Sendiri di VB

Hari ini saya ditugasi untuk membuat module sendiri , maksudnya agar vb bisa terkoneksikan ke dalam database. Hehe setelah 1 tahun ini saya membuat project selalu saja copas module yang diberi oleh guru saya. Sekarang saya akan menjelaskan bagaimana cara mengkoneksikan vb ke database.
Pertama-tama saya membuat project baru, sediakan 2 command : test koneksi, dan listview.
Di dalam module saya membuat function  :


Option Explicit
Function koneksi(server As String, database As String, user As String, password As String, con As ADODB.Connection) As Boolean
On Error GoTo x
If con.State = adStateOpen Then con.Close
con.Open "Provider=SQLNCLI10;Server=" & server & ";Database=" & database & ";Trusted_COnnection=yes;encript=yes"
koneksi = True
MsgBox "koneksi sucsess"
Exit Function
x:
koneksi = False
MsgBox "koneksi gagal"
End Function

Sub isilist()

End Sub

nah didalam command test koneksi :
scripnya :


Private Sub Command1_Click()
Dim con As New ADODB.Connection
If koneksi("DIIGNASEVIIRAPC\SQLEXPRESS", "askes", "", "", con) = False Then
Unload Me
End If
End Sub

Sekian ..
Semoga bermanfaat yah :)
Maaf bila terbatas ..

12 September 2012

Rabu September 12th 2012 test koneksi saya telah bisa dijalankan. Alhamdulilah.. Setelah itu saya kembali melanjutkan tugas ke 2 yaitu mengisi listview otomatis dengan menggunakan script. Disela-sela mengerjakan Pak.Chandra datang untuk menagih tugas. Tugas askes.. Akhirnya kelompok saya presentasi kloter ke 2. Banyak masukan yang saya dapat dari Pak.Chandra. Mulai dari type data dan panjang data, database, sampai ke desain form. Form yang saya buat bersama-sama kelompok saya sudah bagus tetapi masih banyak yang harus direfisi. Seperti penempatan command/tombol ..
Biasanya urutannya Add, Save, Batal, Hapus, Edit, Print, Keluar. Dalam tata bahasa juga harus diperhatikan. Hehe project kami bahasanya campur aduk .. Ya ini untuk pelajaran bagi saya dan teman-teman. Sorenya ada tambahan dari Pak.Chandra dijelaskan ttg Tips Praktis Masuk Dunia Kerja dari Astra. Banyak sekali yang saya dapat dari itu..

11 September 2012

Hari Selasa ini saya masih mencari cara untuk membuat test koneksi. Disamping itu saya menulis artikel ttg pembuatan ES KERING PEMBUATAN ES KERING

10 September 2012

Senin ini saya di ajarkan oleh Mas.Yondy dan Mas.Eko tentang bagaimana mengatur Posisi Dasar Pada Form VB. Seperti tampilan awal, Tampilan Add, Atau Tampilan Koreksi/edit. Hehe, biasanya bila akan membuat project saya selalu copas module yang dulu diberikan oleh guru saya. Sore ini juga, saya diberi tugas membuat module sendiri.Seperti yang sudah dijelaskan oleh Mas.Eko, di formnya, diberi command/tombol yang berisikan test koneksi. Pertama saya sediakan project baru di vb yang di formnya saya beri 2 command dan 1 listview. Tugas yang kedua, masih berhubungan dengan module. command ditambah lagi untuk menambahkan fungsi isi list view otomatis melalui script. Insha Allah besok saya bisa menyelesaikannya.

Posisi Dasar Pada Form Visual Basic

Sebenarnya sudah 3 hari yang lalu saya belum memosting apapun di blog. Sekarang saya akan menjelaskan posisi-posisi awal pada form. Karena project yang saya buat ini tidak  membutuhkan koneksi, jadi langsung saja saya memulai desain interface di form. Pertama saya membuat label yang berisi : id, nama, dan alamat. Textbox 3 buah dan tambahkan command/isbutton sebanyak 7 : Add, Save,Batal Edit, Delete, Keluar, Print. Namenya sudah saya ganti.

Tombol Add = cmdad

Tombol Save = cmdsave

Tombol Batal = cmdbatal

Tombol Edit = cmdedit

Tombol Delete = cmddelete

Tombol Keluar = cmdkeluar

Tombol Print = cmdprint

Tombol-tombol ini belum diberi script sama sekali (koneksi).
Disini saya buat 3 posisi .
Posisi awal, posisi add, posisi koreksi

Posisi awal seperti ini desainnya :

07 September 2012

Jumat ini saya melakukan perbaikan terhadap project saya. Sebelumnya project input data sub kelas terapi sudah selesai tetapi masih banyak yang harus diperbaiki. Pak Chandra mengkonfirmasi apakah project telah selesai. Ternyata presentasi ditunda.

06 Sepetember 2012

Hari Kamis ini saya belajar query.. Lalu untuk besok saya di beri tugas untuk membuat project input data dengan vb 6.0 . Dibagi 2 kelompok dan kelompok saya beranggotakan 4 orang. Yaitu Saya, Rosi, Angga, Alaudin. Sebelumnya saya di pinjami buku yang berjudul "ASKES". Di dalamnya ada halaman kuning yang indeksnya adalah "Kelas Terapi". Kata Pak Chandra tujuan Beliau meminjami buku itu adalah untuk mengisi datanya. Projectnya simpel.

05 September 2012

Hari ini saya mencari artikel tentang macam-macam relasi antar table ..  mau tau, klik disini
Lalu Mas Yondy memberi pelajaran tentang query pada sql .
urutan syntaknya :
Select --> From --> Where --> Group by --> Having --> Order by

misal data saya :

 kemudian Mas Yondy memberi pertanyaan ..
Bagaimana query menampilkan data sehingga sepertiini tampilannya :

Scripnya adalah :

select distinct left(companyname ,1),COUNT(*) as jumlah from Customers where left (companyname,1) <> 'c'  group by left(CompanyName,1)  having count(*)> 4 and count(*) < 7 order by 1 

04 September 2012

Hari ini saya ditugasi oleh pak Chandra untuk mengupdate website milik kerabat beliau. Web Panti Asuhan KH Mas Mansyur . Lalu saya browsing tentang struktur program yang akan saya buat untuk kedepannya.. Yang pasti bertemakan "KESEHATAN". Untuk itu saya harus menargetkan program apa yang akan saya kerjakan dan mempelajari struktur yang ada di dalamnya.

03 September 2012

Hari ini saya tidak masuk prakerin karena SAKIT .