Jumat, 28 September 2012

Kamis,27 September 2012

Hari ini saya mendesain program askes kelas terapi.Saya mendesain dengan Photoshop CS5.
Berikut adalah gambar hasil desain saya :


Rabu, 26 September 2012

Selasa, 25 September 2012

Selasa,25 September 2012

Hari ini saya membuat project kelas terapi yang baru , dengan koneksi menggunakan parameter dan query yang tidak menggunakan coding terlalu banyak.

Senin,24 September 2012

Hari senin ini saya mendapatkan banyak pelajaran dari  Direktur saya yaitu ibu Ros , saya dan teman" saya mendapat banyak tantangan dan pertanyaan mengenai jurusan yang saya jalani.Mulai sekarang kami dituntut untuk selalu tepat waktu dalam mengerjakan tugas yang telah diperintahkan :) terimakasih :D

Senin, 24 September 2012

Jumat,21 September 2012

Hari ini saya browsing tutorial tentang jenis-jenis WEB Programming di google.Bila anda ingin melihat bisa Klik Disini

Jumat, 21 September 2012

19 September 2012

Hari ini saya mendapat tugas mencari debug pada aplikasi Linkar apotek paru.Anda dapat melihat postingan saya Disini. Terima kasih :) Ditunggu komennya ya :D

Mencari Debug pada aplikasi Linkar Apotek Paru


Pertama  pilih transaksi lalu muncul gudang utama setelah itu pilih penerimaan barang dari PBF  seperti  gambar di bawah ini :
Setelah di klik akan muncul tampilan , lalu pilih tambah seperti gambar di bawah ini :


Lalu inputkan data seperti contoh dibawah :




Nahh , setelah diinputkan data , coba klik tombol cari pada Detail Penerimaan Akan muncul message box error pada tampilan tersebut :


Rabu, 19 September 2012

Selesa,18 September 2012

Selasa ini saya browsing tentang macam" gadget android. Jika anda ingin melihatnya silahkan Klik Disini

Senin,17 September 2012

Hari senin ini saya membantu teman saya membenahi program askes kelas terapi , disini saya dan teman saya alaudin membenahi pencarian pada listview.

Senin, 17 September 2012

Jumat,14 September 2012

Hari jumat ini saya mendapat tugas untuk mengkoreksi bug pada aplikasi linkar apotek paru.Saya masih mencoba mengerjakannya.

Kamis,13 September 2012

Hari kamis ini saya menyelesaikan listview otomatis , lalu pak candra memberikan setup linkar apotek kemudian menginstallnya :D

Kamis, 13 September 2012

Rabu,12 September 2012

Hari ini kegiatan saya presentasi hasil produk kelompok yaitu form kelas terapi pada ASKES dan penyuluhan oleh pembimbing perusahaan tentang dunia kerja. :) Terimakasih :D

Rabu, 12 September 2012

Selasa,11 September 2012

Hari selasa ini saya membuat form tes koneksi menggunakan parameter pada modul.Tes koneksi parameter ini dibuat untuk memperkecil kesalahan pada coding dan memudahkan membuat coding.
Anda bisa melihat tugas saya , cukup Klik Disini
Trimakasih :D

Membuat Parameter di dalam form koneksi

- Buka VB 6.0 pilih standart exe.
- Tambahkan 2 Command : Test Koneksi dan ListView , serta tambahkan Listview seperti gambar di bawah ini :
- Lalu masukkan Source Coding Berikut :
Private Sub Command1_Click()
Dim con As New ADODB.Connection
If koneksidb("ROSIANANOVITA", "mobil", "", "", con) = False Then
Unload Me
End If
End Sub

- Lalu di dalam form ini terdapat modul untuk mengkoneksikan ke SQL 2008.Berikut adalah codingnya :
Option Explicit

Function koneksidb(server As String, database As String, user As String, password As String, con As ADODB.Connection) As Boolean
On Error GoTo a
If con.state = adstateopen Then con.Close
con.Open "Provider=SQLNCLI10;Server=" & server & ";Database=" & database & ";Trusted_COnnection=yes"
MsgBox "Koneksi sukses"
koneksidb = True
Exit Function

a:
koneksidb = False
MsgBox "Koneksi Gagal"
End Function

- Project sudah selesai , silahkan dicoba yaa :D



Selasa, 11 September 2012

Senin , 10 September 2012

Hari ini saya dan teman prakerin lainnya mendapat tugas membuat form yang di Enable secara mudah dan lebih efisien.tujuan dibuatnya form seperti ini adalah mempermudah cara kerja dan menyederhanakan project VB 6.0.
Jika anda ingin melihatnya ada dapat Klik Disini

Membuat Form yang commandnya di Enable dan konek yg lebih efisien

Pertama buka Vb 6.0 lalu pilih standart exe.
Lalu tambahkan Properties yaitu : Label , Textfield  , listview dan command.Sehingga desain telah jadi seperti dibawah ini :
Lalu atur propertiesnya dan beri source coding berikut :
Dim stsimpan As Integer


Sub posisiawal()
Call control_active(False)

ListView1.Enabled = True
cmdadd.Enabled = True
cmdsave.Enabled = False
cmdedit.Enabled = True
cmdbatal.Enabled = False
cmddelete.Enabled = True
kosong

End Sub

Sub posisitambah()
Call control_active(True)

ListView1.Enabled = False
cmdadd.Enabled = False
cmdsave.Enabled = True
cmdedit.Enabled = False
cmdbatal.Enabled = True
cmddelete.Enabled = False
End Sub
Sub posisiedit()

Call control_active(True)

ListView1.Enabled = False
cmdadd.Enabled = False
cmdsave.Enabled = True
cmdedit.Enabled = False
cmdbatal.Enabled = True
cmddelete.Enabled = False


End Sub
Sub posisisimpan()
Call control_active(False)

ListView1.Enabled = True
cmdadd.Enabled = True
cmdsave.Enabled = True
cmdedit.Enabled = True
cmdbatal.Enabled = True
cmddelete.Enabled = True


End Sub

Sub posisibatal()
Call control_active(False)

ListView1.Enabled = True
cmdadd.Enabled = True
cmdsave.Enabled = True
cmdedit.Enabled = True
cmdbatal.Enabled = True
cmddelete.Enabled = True
End Sub

Private Sub cmdadd_Click()
Call posisitambah
stsimpan = 0

End Sub

Private Sub cmdbatal_Click()
Call posisibatal
Call kosong
End Sub


Private Sub cmdedit_Click()
Call cek_kosong
Call posisiedit
Call kosong
stsimpan = 1

End Sub

Private Sub cmdsave_Click()
If cek_kosong = True Then
Exit Sub
End If
Call posisiawal
If stsimpan = 0 Then
strsql = "insert into tabel"
MsgBox ("Data Telah Ditambah")
ElseIf stsimpan = 1 Then
strsql = "update into "
MsgBox ("Data Telah Diedit")
End If


End Sub

Private Sub Form_Load()
Call posisiawal
End Sub

Sub kosong()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""

End Sub

Sub control_active(x As Boolean)
Text1.Enabled = x
Text2.Enabled = x
Text3.Enabled = x
End Sub

Function cek_kosong() As Boolean
If (Text1.Text = "") Then
MsgBox "Isikan Kode Anda !"
Text1.SetFocus
cek_kosong = True
ElseIf (Text2.Text = "") Then
MsgBox "Isikan Nama Anda !"
Text2.SetFocus
cek_kosong = True
ElseIf (Text3.Text = "") Then
MsgBox "Isikan Alamat Anda !"
Text3.SetFocus
cek_kosong = True
Else
cek_kosong = False
End If
End Function

Finish , Program sederhana yang efisien ini bisa di jalankan :)
Silahkan mencoba yaa :DD 


Jumat , 7 September 2012

Hari ini saya menyelesaikan project askes kelas terapi rumah sakit.Tetapi saya belum selesai menginputkan Induk , ID , Kelas terapi maupun halamannya.
Mungkin akan saya inputkan besok lusa.Anda bisa Melihat hasilnya , Jika ingin melihatnya Lihat disini :D

Form Kelas Terapi (ASKES) VB 6.0

Saya membuat Form secara berkelompok , form yang saya buat adalah form kelas terapi didalam ASKES (Asuransi Kesehatan).
Nahh , dibawah ini adalah tampilan form beserta Coding yang telah selesai.

Di bawah ini adalah Source Codingnya :
Private Sub nomor()
Dim no As String
With DataBarang
  If .Recordset.RecordCount <> 0 Then
  .Recordset.MoveLast
  no = Val(Right(.Recordset!kdbarang, 4)) + 1
  If Len(Trim(no)) = 1 Then
  txtinduk.Text = "B" + "000" + no
  End If
  If Len(Trim(no)) = 2 Then
  txtkinduk.Text = "B" + "00" + no
  End If
  If Len(Trim(no)) = 3 Then
  txtinduk.Text = "B" + "0" + no
  End If
  If Len(Trim(no)) = 4 Then
  txtinduk.Text = "B" + no
  End If
Else
  txtinduk.Text = "B0001"
End If
End With
End Sub
Sub isilist()
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
Dim ch As ColumnHeader, lv As ListItem
ListView1.View = lvwReport
Set ch = ListView1.ColumnHeaders.Add(, , "No Induk", 1000)
Set ch = ListView1.ColumnHeaders.Add(, , "ID", 1000)
Set ch = ListView1.ColumnHeaders.Add(, , "Kelas Terapi", 9500)
Set ch = ListView1.ColumnHeaders.Add(, , "Halaman", 1000)
ListView1.GridLines = True
ListView1.Enabled = True
OpenRecordset "Select * from terapi_1;"
If Not Rs.EOF Then
Do Until Rs.EOF
Set lv = ListView1.ListItems.Add(, , Rs.Fields!induk)
lv.SubItems(1) = Rs.Fields!id
lv.SubItems(2) = Rs.Fields!kls_terapi
lv.SubItems(3) = Rs.Fields!hal
Rs.MoveNext
Loop
End If
End Sub
Sub kosong()
txtinduk.Text = ""
txtid.Text = ""
txtterapi.Text = ""
txthalaman.Text = ""

txtinduk.BackColor = vbWhite
End Sub

Private Sub cmdadd_Click()
cmdbatal.Visible = True
cmdadd.Enabled = False
cmdsave.Enabled = True
cmddalate.Enabled = True
cmdedit.Enabled = True
cmdprint.Enabled = True
txtinduk.Enabled = True
txtid.Enabled = True
txtterapi.Enabled = True
txthalaman.Enabled = True
txtinduk.SetFocus
txtinduk.BackColor = &H80000000
ListView1.Enabled = True
End Sub

Sub TampilData()
If txtCari.Text = "" Then
Rs.Open "SELECT * FROM terapi_1 ORDER BY induk ASC", Cn, adOpenKeyset, adLockPessimistic
Exit Sub
End If
OpenRecordset " SELECT * from terapi_1 " & _
" where induk like '" & txtCari.Text & "'"
txtCari.SetFocus
If Rs.RecordCount > 0 Then
ListView1.ListItems.Clear
Do While Not Rs.EOF
Set lv = ListView1.ListItems.Add(, , Rs.Fields!induk)
With lv
lv.SubItems(1) = Rs.Fields!id
lv.SubItems(2) = Rs.Fields!kls_terapi
lv.SubItems(3) = Rs.Fields!hal
End With
Rs.MoveNext
Loop
End If
Rs.Close
Set Rs = Nothing
End Sub

Private Sub cmdbatal_Click()
cmdadd.Visible = True
cmdbatal.Visible = False
cmdadd.Enabled = True
ListView1.Enabled = False
cmdsave.Enabled = False
cmddalate.Enabled = False
cmdedit.Enabled = False
cmdprint.Enabled = False
txtinduk.Enabled = False
txtid.Enabled = False
txtterapi.Enabled = False
txthalaman.Enabled = False

txtinduk.BackColor = vbWhite
kosong
End Sub

Private Sub cmdcari_Click()
If txtCari.Text = "" Then
MsgBox " Data Tidak Ditemukan", , "Info"
Exit Sub
End If
If Trim(txtCari.Text) <> "" Then
TampilData
Else
ListView1.ListItems.Clear
End If
End Sub

Private Sub cmddalate_Click()
If txtinduk.Text = "" And txtid.Text = "" And txtterapi.Text = "" And txthalaman.Text = "" Then
MsgBox "silakan cari data yang ingin di hapus", vbCritical
Else
MsgBox "Data Berhasil Di Hapus..", vbInformation, "Insert Data"
eksekusiSQL "Delete from terapi_1 " & _
" where id = '" & txtid.Text & "';"

kosong
isilist
txtid.SetFocus
End If
End Sub

Private Sub cmdedit_Click()
If txtinduk.Text = "" And txtid.Text = "" And txtterapi.Text = "" And txthalaman.Text = "" Then
MsgBox "silakan cari data yang ingin di edit", vbCritical
Else
MsgBox "Data Berhasil Di Edit..", vbInformation
eksekusiSQL "Update terapi_1" & _
" set induk = '" & txtinduk.Text & "', " & _
" kls_terapi = '" & txtterapi.Text & "'," & _
" hal = '" & txthalaman.Text & "'" & _
" where id = '" & txtid.Text & "';"

kosong
isilist
txtinduk.SetFocus
End If
End Sub

Private Sub cmdprint_Click()
With Crpt1
    .ReportFileName = "F:\Serba VB\ASKES\Laporan_Terapi.rpt"
    .Destination = crptToWindow
    .WindowState = crptMaximized
    .RetrieveDataFiles
    .Action = 1
    End With
End Sub

Private Sub cmdsave_Click()
OpenRecordset "SELECT induk, id, kls_terapi, hal from terapi_1 " & _
" where id = '" & txtid.Text & "'"
If Not Rs.EOF Then
txtid = Rs.Fields!id
MsgBox "Kode Sudah Ada Dalam Database !!..", vbInformation, "Perhatian"
txtid = ""
Else

If txtinduk.Text = "" And txtid.Text = "" And txtterapi.Text = "" And txthalaman.Text = "" Then
MsgBox "silakan isi data dulu", vbCritical

ElseIf txtinduk.Text = "" Then
MsgBox "Ada Data Yang Belum Di isi", vbCritical

ElseIf txtid.Text = "" Then
MsgBox "Ada Data Yang Belum Di isi", vbCritical

ElseIf txtterapi.Text = "" Then
MsgBox "Ada Data Yang Belum Di isi", vbCritical

ElseIf txthalaman.Text = "" Then
MsgBox "Ada Data Yang Belum Di isi", vbCritical
Else
MsgBox "Data Sudah Tersimpan"
eksekusiSQL "INSERT INTO terapi_1 values ('" & _
txtinduk.Text & "', " & _
"'" & txtid.Text & "', " & _
"'" & txtterapi.Text & "', " & _
"'" & txthalaman.Text & "');"

kosong
isilist
txtinduk.SetFocus
End If
End If
End Sub

Private Sub Form_Load()
buka 'module
TampilData
isilist
cmdbatal.Visible = False
ListView1.Enabled = False
cmdsave.Enabled = False
cmddalate.Enabled = False
cmdedit.Enabled = False
cmdprint.Enabled = False
txtinduk.Enabled = False
txtid.Enabled = False
txtterapi.Enabled = False
txthalaman.Enabled = False
End Sub

Private Sub isButton1_Click()
If txtCari.Text = "" Then
MsgBox " Data Tidak Ditemukan", , "Info"
Exit Sub
End If
If Trim(txtCari.Text) <> "" Then
TampilData
Else
ListView1.ListItems.Clear
End If
End Sub

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
txtinduk.Text = ListView1.SelectedItem
txtid.Text = ListView1.SelectedItem.SubItems(1)
txtterapi.Text = ListView1.SelectedItem.SubItems(2)
txthalaman.Text = ListView1.SelectedItem.SubItems(3)
End Sub

Private Sub Timer1_Timer()
lbltime.Caption = Time
lbltanggal.Caption = Date
End Sub

Private Sub txthalaman_Click()
txthalaman.BackColor = &H80000000
txtid.BackColor = vbWhite
txtterapi.BackColor = vbWhite
txtinduk.BackColor = vbWhite
End Sub

Private Sub txtid_Click()
txtid.BackColor = &H80000000
txtinduk.BackColor = vbWhite
txtterapi.BackColor = vbWhite
txthalaman.BackColor = vbWhite
End Sub

Private Sub txtinduk_Change()
txtinduk.BackColor = &H80000000
txtid.BackColor = vbWhite
txtterapi.BackColor = vbWhite
txthalaman.BackColor = vbWhite
End Sub

Private Sub txtterapi_Click()
txtterapi.BackColor = &H80000000
txtid.BackColor = vbWhite
txtinduk.BackColor = vbWhite
txthalaman.BackColor = vbWhite
End Sub



Jumat, 07 September 2012

Kamis , 6 September 2012

Hari ini saya mendapat tugas kelompok yaitu membuat project 1 form dan satu database yang terdiri dari satu tabel.
Form tersebut adalah from untuk jenis kelas terapi yang terdiri dari 4 field yaitu :
No Induk , ID , Kelas terapi dan Halaman.
Tetapi form tersebut masih belom rampung secara total.

Rabu, 05 September 2012

Rabu , 5 September 2012

Hari ini saya latihan syntax code d sql server 2008..
Tapi saya masih mempelajari SELECT saja. Selanjutnya saya browsing tentang macam-macam join dan where pada sql 2008.Anda bisa melihatnya Disini !

Selasa, 04 September 2012

Selasa , 4 September 2012

Hari ini saya melanjutkan tugas yang di beri oleh Pak Candra yaitu melanjutkan mencetak (print) proposal program sakit Lintang Kawuryan.
Semoga hari esok saya dapat menjalani prakerin saya dengan baik . Amiin :)

Senin , 3 September 2012

Hari ini saya browsing dan Download tentang cara-cara menghilangkan Genuine pada Windows dan Windows Loader.
Sorenya saya di tugaskan untuk mencetak (print) Proposal Linkar untuk Rumah Sakit.