Hari ini saya mencari cara supaya memperbesar ukuran font dan merubah font. . . .
dan mencobanya tapi masih belum bisa. . .
dan mencobanya tapi masih belum bisa. . .
Rabu, 26 Desember 2012
0
Senin, (24/12/2012)
Hari ini saya diskusi dengan tim dan pak candra untuk men-
diskusikan struk yang di pakai....
yang di diskusikan yang pertama :
diskusikan struk yang di pakai....
yang di diskusikan yang pertama :
- printer apa yang di pakai
- kertas ukuran berapa
- desain struk
Minggu, 23 Desember 2012
0
Jum'at, (21/12/2012)
Hari ini saya melanjutkan tugas membuat struk setelah berhasil mencoba di printer metrik. .
0
Kamis, (20/12/2012)
Hari ini saya membuat script Cetak struk. . .
Tugas saya yang kemaren membuat script hapus udah selesai . .
Tugas saya yang kemaren membuat script hapus udah selesai . .
Rabu, 19 Desember 2012
Selasa, 18 Desember 2012
0
Selasa, (18/12/2012)
Hari ini saya bertanya ke pak candra untuk meletakkan update data. .
pada waktu menginputkan no kendaraan lalu enter pertama untuk menampilkan data dan enter kedua untuk menyimpan data. .
Jumat, 14 Desember 2012
0
Jum'at, (14/12/2012)
Hari ini saya mengatur shortcut , sedikit membenahi script function untuk di pindah di module , mengatur posisi-posisi pada form transaksi keluar dan sedikit membantu teman mengcoding. .
0
Kamis, (13/12/2012)
Hari ini saya mengatur Enabled true/false dari form Keluar, membuat format tanggal supaya tidak ada PM/AM dan sedikit membantu teman mengcoding. . . .
0
Rabu, (12/12/2012)
Kemarin udah Buat function menghitung selisi waktu. . .
Hari ini saya membuat function Menghitung biaya dari selisi waktu
di bawah ini contoh functionnya. . .
-----------------------------------------------------------------
Function HitungBiaya(selisih As Double, kendaraan As String) As Double
Dim wa, ws, TS, ta, hasil As Double
Dim rst As ADODB.Recordset
Set rst = con.Execute("select * from kendaraan where kd_kendaraan = " & kendaraan & " ")
If Not rst.EOF Then
wa = rst.Fields!waktu_awal
ws = rst.Fields!waktu_selanjutnya
TS = rst.Fields!tarif_selanjutnya
ta = rst.Fields!tarif_awal
'MsgBox selisih
hasil = Round((selisih - wa) / ws) * TS + ta
'MsgBox hasil
HitungBiaya = hasil
End If
End Function
-----------------------------------------------------------------
Semoga Berhasil. . .
GOOD LUCK. . . .
Hari ini saya membuat function Menghitung biaya dari selisi waktu
di bawah ini contoh functionnya. . .
-----------------------------------------------------------------
Function HitungBiaya(selisih As Double, kendaraan As String) As Double
Dim wa, ws, TS, ta, hasil As Double
Dim rst As ADODB.Recordset
Set rst = con.Execute("select * from kendaraan where kd_kendaraan = " & kendaraan & " ")
If Not rst.EOF Then
wa = rst.Fields!waktu_awal
ws = rst.Fields!waktu_selanjutnya
TS = rst.Fields!tarif_selanjutnya
ta = rst.Fields!tarif_awal
'MsgBox selisih
hasil = Round((selisih - wa) / ws) * TS + ta
'MsgBox hasil
HitungBiaya = hasil
End If
End Function
-----------------------------------------------------------------
Semoga Berhasil. . .
GOOD LUCK. . . .
Selasa, 11 Desember 2012
0
Selasa, (11/12/2012)
Hari ini melanjutkan tugas form keluar aplikasi parkir yang sadah 70% sekarang saya mencari cara untuk menghitung selisi waktu masuk dan waktu keluar. . . .
akhirnya saya bisa membuat selisi waktu
menggunakan function seperti di bawah ini. . .
-----------------------------------------------------------------
Function SelisihHariJam(ByVal Awal As Date, _
ByVal Akhir As Date) As String
Dim Detik As Long, hari As Long, Jam As Long
Dim JamLengkap As String
If Awal > Akhir Then
MsgBox "Tanggal dan waktu awal harus lebih kecil " _
& vbCrLf & _
"dari pada tanggal dan waktu akhir", _
vbCritical, "Peringatan"
Exit Function
End If
'Tampung dalam durasi satuan terkecil, yaitu: DETIK
Detik = DateDiff("s", Awal, Akhir)
'Hitung jumlah jam dgn cara membagi 3600
'(backslash ("\") supaya menghasilkan nilai Integer
'tanpa pembulatan ke atas)
Jam = Detik \ 3600
'Kalo jumlah jam lebih besar dari 23 artinya: lebih
'dari 1 hari
If Jam > 23 Then
'Hitung jumlah hari dgn cara membaginya dengan 24
hari = Jam \ 24
'Hitung Durasi Jam dalam hh:mm:ss
JamLengkap = Format((Akhir - Awal), "hh:mm:ss")
Else 'Kalo jumlah jam <= 23
hari = 0 'maka jumlah hari = nol
'Hitung Durasi Jam dalam hh:mm:ss
JamLengkap = Format((Akhir - Awal), "hh:mm:ss")
End If
If hari = 0 Then 'Kalo jumlah hari = 0
'Tampung hasil akhirnya
SelisihHariJam = JamLengkap
Else 'Kalo jumlah hari > 0, tampilkan jumlah harinya
'Tampung hasil akhirnya
SelisihHariJam = hari & " " & JamLengkap
End If
Exit Function
End Function
-----------------------------------------------------------------
selamat mencoba semoga berhasil. . . .
GOOD LUCK....
akhirnya saya bisa membuat selisi waktu
menggunakan function seperti di bawah ini. . .
-----------------------------------------------------------------
Function SelisihHariJam(ByVal Awal As Date, _
ByVal Akhir As Date) As String
Dim Detik As Long, hari As Long, Jam As Long
Dim JamLengkap As String
If Awal > Akhir Then
MsgBox "Tanggal dan waktu awal harus lebih kecil " _
& vbCrLf & _
"dari pada tanggal dan waktu akhir", _
vbCritical, "Peringatan"
Exit Function
End If
'Tampung dalam durasi satuan terkecil, yaitu: DETIK
Detik = DateDiff("s", Awal, Akhir)
'Hitung jumlah jam dgn cara membagi 3600
'(backslash ("\") supaya menghasilkan nilai Integer
'tanpa pembulatan ke atas)
Jam = Detik \ 3600
'Kalo jumlah jam lebih besar dari 23 artinya: lebih
'dari 1 hari
If Jam > 23 Then
'Hitung jumlah hari dgn cara membaginya dengan 24
hari = Jam \ 24
'Hitung Durasi Jam dalam hh:mm:ss
JamLengkap = Format((Akhir - Awal), "hh:mm:ss")
Else 'Kalo jumlah jam <= 23
hari = 0 'maka jumlah hari = nol
'Hitung Durasi Jam dalam hh:mm:ss
JamLengkap = Format((Akhir - Awal), "hh:mm:ss")
End If
If hari = 0 Then 'Kalo jumlah hari = 0
'Tampung hasil akhirnya
SelisihHariJam = JamLengkap
Else 'Kalo jumlah hari > 0, tampilkan jumlah harinya
'Tampung hasil akhirnya
SelisihHariJam = hari & " " & JamLengkap
End If
Exit Function
End Function
-----------------------------------------------------------------
selamat mencoba semoga berhasil. . . .
GOOD LUCK....
Senin, 10 Desember 2012
0
Senin, (10/12/2012)
Hari ini saya dapat tugas di bagian transaksi keluar program aplikasi parkir...
hingga sore ini saya sudah dapat menyelesaikan 70%. .
hingga sore ini saya sudah dapat menyelesaikan 70%. .
0
Jum'at, (07/12/2012)
Hari ini saya hanya mencari tutorial untuk menambah ilmu dan sedikit membantu mengcoding
Kamis, 06 Desember 2012
0
Kamis, (06/12/2012)
Hari ini saya bisa membuat Auto Number dengan Kombinasi tanggal, bulan, tahun. . .
-----------------------------------------------------------------
Public Function Number(ByVal srcSQL As String, ByVal srcFields As String, ByVal srcFormat As String, Optional srcTrue As Boolean, Optional srcTanggal As Date)
buka
Dim rs As New Recordset
Dim noLalu, noBaru As String
Set rs = Nothing
rs.CursorLocation = adUseClient
rs.Open srcSQL, Cn, adOpenStatic, adLockReadOnly
If rs.EOF Then
If srcTrue = True Then
Number = "01" & "/" & Format(Now, "dd") & "-" & Format(Now, "MM") & Format(Now, "yy") & srcFormat
Else
Number = "01" & "/" & Format(Now, "dd") & "-" & Format(Now, "MM") & Format(Now, "yy") & srcFormat
End If
Else
If srcTrue = True Then
noLalu = Val(Left(rs.Fields(srcFields), 2) + 1)
noBaru = String(2 - Len(noLalu), "0") & noLalu
Number = noBaru & "/" & Format(Now, "dd") & "-" & Format(Now, "MM") & Format(Now, "yy") & srcFormat
'MsgBox "no berikutnya " & noBaru
Else
noLalu = Val(Left(rs.Fields(srcFields), 2) + 1)
noBaru = String(2 - Len(noLalu), "0") & noLalu
Number = noBaru & "/" & Format(Now, "dd") & "-" & Format(Now, "MM") & Format(Now, "yy") & srcFormat
'MsgBox "no berikutnya 2 " & noBaru
End If
End If
Set rs = Nothing
End Function
-----------------------------------------------------------------
Pemangilannya.. .
txtkuitansi = Number("Select top 20 no_kws from data order by no_kws desc", "no_kws", "/Ry.AdmPrakerin", False)
-----------------------------------------------------------------
semoga berhasil....
Good Luck....
-----------------------------------------------------------------
Public Function Number(ByVal srcSQL As String, ByVal srcFields As String, ByVal srcFormat As String, Optional srcTrue As Boolean, Optional srcTanggal As Date)
buka
Dim rs As New Recordset
Dim noLalu, noBaru As String
Set rs = Nothing
rs.CursorLocation = adUseClient
rs.Open srcSQL, Cn, adOpenStatic, adLockReadOnly
If rs.EOF Then
If srcTrue = True Then
Number = "01" & "/" & Format(Now, "dd") & "-" & Format(Now, "MM") & Format(Now, "yy") & srcFormat
Else
Number = "01" & "/" & Format(Now, "dd") & "-" & Format(Now, "MM") & Format(Now, "yy") & srcFormat
End If
Else
If srcTrue = True Then
noLalu = Val(Left(rs.Fields(srcFields), 2) + 1)
noBaru = String(2 - Len(noLalu), "0") & noLalu
Number = noBaru & "/" & Format(Now, "dd") & "-" & Format(Now, "MM") & Format(Now, "yy") & srcFormat
'MsgBox "no berikutnya " & noBaru
Else
noLalu = Val(Left(rs.Fields(srcFields), 2) + 1)
noBaru = String(2 - Len(noLalu), "0") & noLalu
Number = noBaru & "/" & Format(Now, "dd") & "-" & Format(Now, "MM") & Format(Now, "yy") & srcFormat
'MsgBox "no berikutnya 2 " & noBaru
End If
End If
Set rs = Nothing
End Function
-----------------------------------------------------------------
Pemangilannya.. .
txtkuitansi = Number("Select top 20 no_kws from data order by no_kws desc", "no_kws", "/Ry.AdmPrakerin", False)
-----------------------------------------------------------------
semoga berhasil....
Good Luck....
Rabu, 05 Desember 2012
0
Rabu, (05/12/2012)
Hari ini masih sama seperti kemaren meneruskan membuat Auto Number dengan kombinasi tanggal. .
Selasa, 04 Desember 2012
Senin, 03 Desember 2012
Langganan:
Postingan (Atom)