Ngakalin Point Blank

Awalnya diminta buat nginstalin PB (Point Blank) di komputer tetangga, karena selama ini cuman taunya jadi "tukang pijet" but coding, akhirnya nyoba juga pertama kali install game online. Ternyata susah juga. Setelah dapet masternya, diinstal, tapi gak mau jalan. Nanya sama Om Google disebutin harus instal All Pacth dari gemscoll. Udah downloadnya lama banget, setelah diinstal masih juga nggak bisa jalan karena saat tekan tombol cek, banyak file yang nggak bisa ke download otomatis ke komputer. Salah satunya file SWAT_Male.I3CHR.zip. Sampe 2 hari itu game nggak bisa dimaini gara-gara nggak bisa ngambil file updatenya. Akhirnya tanya lagi sama Om Google, Akhirnya ketemu juga di situs http://fsn.web.id:82/D%3A/Update%20-%20Patch/PB%20Patcher/Gemscool/Point%20Blank/Pack Setelah dicari dan ketemu, akhirnya bisa di download secara manual, dan di copy secara manual juga buat gantiin yang versi lama. Akhirnya proses cek selesai juga, tinggal ngakalin buat HackShield aja nih supaya gamenya bisa jalan.

 

Mendapatkan Kode TeamViewer dari Komputer Client

TeamViewer adalah salah satu program Remote Desktop yang popular saat ini dikarenakan kemudahannya. Namun kekurangan (atau juga malah kelebihannya) dari TeamViewer adalah selalu berubah id yang digunakan. Baiknya, hal ini akan menyulitkan para penyusup yang mencoba untuk mengintip komputer kita, tetapi buruknya, administrator akan kesulitan untuk mendapatkan kode ini.

Hal itulah yang menyulitkan saya menggunakan TeamViewer, sehingga saya mencari cara untuk memudahkan pekerjaan saya. Akhirnya saya temukan caranya, yaitu supaya komputer mengirimkannya sendiri kepada saya saat diperlukan dengan sedikit langkah kecil.

Nomer id TeamViewer tersimpan pada file TeamViewer4_Logfile.log (mungkin versi lain akan berbeda namanya) pada direktori yang sama tempat TeamViewer diinstall. Coba buka file tersebut dan lihat baris paling akhir, kurang lebih isinya seperti ini :

11/10 20:49:51.171 03228 D CConnectionThread::CmdPingRouter(): Router Pong Received with following Hops: 444208345 307273344 20796517

Angka yang diberi warna merah adalah id dari TeamViewer. Sayangnya passwordnya saya belum bisa temukan dimana disimpannya, tetapi hal ini dapat menggunakan password statis yang bisa disetting dari program.

Nah..... Biasanya, baris terakhir dari file log tersebut saya kirim ke alamat email saya melalui program yang saya buat menggunakan VB (Source bisa dicari di Om Google). User hanya sekali klik dan datanya langsung terkirim.

Semoga trik ini dapat bermanfaat bagi semua.

Membaca dan menulis file .log atau .txt pada VB.net

Untuk memberikan report atau laporan yang berhubungan dengan berjalannya suatu program biasanya menggunakan file .log atau .txt. Bagaimana menulis dan membaca file tersebut dalam VB.Net ?

 

 

Membaca file .log

Dim nom As Object

Dim strTeks(2) As String

nom = FreeFile()

If Dir(My.Application.Info.DirectoryPath & "\re" & Format(Now, "yyMM") & ".log") <> "" Then

FileOpen(1, My.Application.Info.DirectoryPath & "\re" & Format(Now, "yyMM") & ".log", OpenMode.Binary)

strTeks(0) = InputString(1, LOF(1))

FileClose(1)

End If

TextBox1.text = strTeks(0)

 

Menulis file .log

Dim nom As Object

nom = FreeFile()

FileOpen(nom, My.Application.Info.DirectoryPath & "\re" & Format(Now, "yyMM") & ".log", OpenMode.Output)

PrintLine(nom, "Isi data teksnya disini")

FileClose(nom)

 

Semoga bermanfaat untuk semuanya.

 

 

Membaca file .INI pada VB.Net

File .ini merupakan cara standar untuk menyimpan setting program pada kebanyakan program. Tetapi bagaimana cara membaca file .ini menggunakan Vb.net ? Berikut script yang saya dapat di internet dengan sedikit modifikasi  untuk memudahkan penggunaan.

 

Option Strict On

Module INIAccess

#Region "API Calls"

Private Declare Unicode Function WritePrivateProfileString Lib "kernel32" _

Alias "WritePrivateProfileStringW" (ByVal lpApplicationName As String, _

ByVal lpKeyName As String, ByVal lpString As String, _

ByVal lpFileName As String) As Int32

Private Declare Unicode Function GetPrivateProfileString Lib "kernel32" _

Alias "GetPrivateProfileStringW" (ByVal lpApplicationName As String, _

ByVal lpKeyName As String, ByVal lpDefault As String, _

ByVal lpReturnedString As String, ByVal nSize As Int32, _

ByVal lpFileName As String) As Int32

#End Region

Public Overloads Function INIRead(ByVal INIPath As String, _

ByVal SectionName As String, ByVal KeyName As String, _

ByVal DefaultValue As String) As String

Dim n As Int32

Dim sData As String

sData = Space$(1024)

n = GetPrivateProfileString(SectionName, KeyName, DefaultValue, _

sData, sData.Length, INIPath)

If n > 0 Then

INIRead = sData.Substring(0, n)

Else

INIRead = ""

End If

End Function

#Region "INIRead Overloads"

Public Overloads Function INIRead(ByVal INIPath As String, _

ByVal SectionName As String, ByVal KeyName As String) As String

Return INIRead(INIPath, SectionName, KeyName, "")

End Function

Public Overloads Function INIRead(ByVal INIPath As String, _

ByVal SectionName As String) As String

Return INIRead(INIPath, SectionName, Nothing, "")

End Function

Public Overloads Function INIRead(ByVal INIPath As String) As String

Return INIRead(INIPath, Nothing, Nothing, "")

End Function

#End Region

Public Sub INIWrite(ByVal INIPath As String, ByVal SectionName As String, _

ByVal KeyName As String, ByVal TheValue As String)

Call WritePrivateProfileString(SectionName, KeyName, TheValue, INIPath)

End Sub

Public Overloads Sub INIDelete(ByVal INIPath As String, ByVal SectionName As String, _

ByVal KeyName As String)

Call WritePrivateProfileString(SectionName, KeyName, Nothing, INIPath)

End Sub

Public Overloads Sub INIDelete(ByVal INIPath As String, ByVal SectionName As String)

Call WritePrivateProfileString(SectionName, Nothing, Nothing, INIPath)

End Sub

Public Function BacaIni(ByVal Section As String, ByVal Kunci As String, ByVal IsiDefault As String) As String

Dim Sisi As String

Sisi = INIRead(My.Application.Info.DirectoryPath & "\set.conf", Section, Kunci, IsiDefault)

BacaIni = Sisi

End Function

Public Sub TulisIni(ByVal Section As String, ByVal Kunci As String, ByVal Datanya As String)

INIWrite(My.Application.Info.DirectoryPath & "\set.conf", Section, Kunci, Datanya)

End Sub

End Module

 

Pada Form sisipkan script berikut untuk membaca file

 

Dim IsiIni as string

IsiIni = BacaIni("Section", "Kunci", "NGGAK ADA")

 

Pada Form sisipkan script berikut untuk menulis file

TulisIni("Section", "Kunci", "Isi datanya disini")

 

Semoga tulisan ini bermanfaat

 

Pengendalian Penjualan dan Persediaan (Bagian 1)

Tujuan utama dibuka sebuah toko adalah untuk berjualan. Oleh karena itulah hal ini menjadi bahasan pertama saya mengenai pengendalian toko. Apa dan bagaimana tentang pengendalian Punjualan dan Persediaan ?

- Pengendalian Penjualan.

Apa saja yang harus dikendalikan dalam penjualan dan mengapa? Sebagai seorang penjual, Anda harus sering menempatkan diri Anda sebagai konsumen yang akan berbelanja. Apa yang ingin Anda dapatkan dari penjual adalah sama dengan hal yang diinginkan oleh konsumen kepada Anda. Jika Anda menginginkan bahwa suasana berbelanja nyaman, maka konsumen Andapun sudah pasti menginginkan juga. Anda dapat membayangkan jika Anda berbelanja pada sebuah toko dimana toko tersebut panas, lantainya kotor, barang di raknya berdebu serta pelayanannya lambat dan tidak ramah. Apakah Anda akan kembali berbelanja ditempat tersebut, sedangkan ditoko sebelah lebih sejuk, barangnya rapi dan tertata serta bersih, pelayanannya cepat dan memuaskan walaupun harganya sedikit lebih mahal. Mana yang akan Anda pilih?

Saat ini dimana persaingan usaha minimarket, konsumen bebas memilih dimana mereka akan berbelanja. Tidak ada yang mengikat dan mengharuskan mereka berbelanja di tempat tertentu. Jadi kendalikan nilai jual toko Anda untuk menjaring konsumen sebanyak-banyaknya. Buat mereka selalu nyaman dan mendapatkan lebih dari yang mereka harapkan. Buatlah transaksi penjualan Anda secepat mungkin, jika ada dana lebih usahakan gunakan komputer dan sistem barcode untuk mempercepat transaksi penjualan Anda.

- Pengendalian Persediaan

Konsumen datang ke toko adalah untuk memenuhi kebutuhan mereka. Mereka menginginkan barang yang menjadi kebutuhan mereka. Usahakan barang dagangan di toko Anda tidak sampai kosong dan segera penuhi barang-barang yang kosong tersebut. Jika barang dagangan di toko Anda sampai kosong dan tidak terdapat barang pengganti yang dipilih konsumen, maka kemungkinan besar mereka akan membeli di kompetitor Anda. Jangan remehkan hal ini, karena saat mereka berbelanja pada kompetitor Anda dan mendapatkan kesan baik, maka bisa dipastikan mereka tidak akan berbelanja kembali di toko Anda. Pilih barang yang paling sering dibutuhkan oleh konsumen-konsumen Anda, pelajari pola belanja mereka dan sediakan segala kebutuhan mereka saat mereka membutuhkan.

Lihat masyarakat disekitar lokasi toko Anda. Mereka adalah target pasar Anda. Jika Anda dapat mempelajari dan menyediakan apa yang mereka butuhkan, maka mereka akan memberikan uang mereka untuk Anda.

Pada dasarnya, pengendalian penjualan dan pengendalaian persediaan tidak dapat dipisahkan. Transaksi penjualan terjadi karena ada persediaan, dan persediaan dapat disesuaikan dengan data penjualan. Nantikan pengendalian lainnya yang akan saya ulas pada kesempatan berikutnya.

Andrie Baskara

Franchise atau Mandiri

Saat ini banyak sekali jasa yang menawarkan untuk investasi. Tak terkecuali pada bidang jasa penjualan mulai dari kelas kecil dengan modal kutang dari 5 Juta sampai kelas besar dengan modal diatas 500 juta. Dari sekian banyak penawaran jasa-jasa seperti diatas, saya membagi dalam 3 golongan yaitu Usaha Mandiri, Kesempatan Usaha dan Franchise / waralaba. Apa dan bagaimana ketiga golongan diatas?

 

- Usaha Mandiri

Seperti namanya, usaha mandiri adalah membangun usaha secara mandiri pada bisnis yang ditekuni dimana Anda sendiri yang menjalankan usaha tersebut. Anda harus menentukan sendiri jenis usaha, promosi sampai hal-hal kecil seperti gambar leaflet. Kelebihan usaha ini adalah Anda dapat berkreasi sesuai dengan kemauan dan kemampuan Anda dalam menjalankan usaha. Anda dapat merdeka tanpa ada yang mengatur Anda dalam menjalankan usaha Anda. Kekurangannya adalah jika Anda sebagai pemula dalam usaha tersebut, maka akan sangat sulit berkembang pada awal berdiri. Pengalaman sangat berpengaruh dalam menjalankan usaha pada golongan ini. Tetapi jangan khawatir, banyak sekali situs yang menyediakan tutorial untuk hal tersebut, asal Anda mau berusaha dan tekun, pasti dapat berkembang.

 

- Kesempatan Usaha

Hampir sama dengan usaha mandiri, hanya perbedaannya adalah pada golongan ini kita tidak menentukan usaha apa yang akan kita jalankan. Anda dihadapkan pada pilihan produk apa yang akan Anda jual. Biasanya pada golongan ini modalnya tidak terlalu besar. Beberapa contoh yang sudah sukses adalah Edam Burger, Teh Poci, Ikki Bento dan masih banyak lagi. Anda tinggal memilih dengan siapa Anda akan bermitra, segala bahan kebutuhan sudah disiapkan oleh pihak produsen dengan standar tertentu dan Anda hanya menjual produk tersebut. Semua keuntungan menjadi milik Anda dan anda tidak dikenakan biaya royalti dari transaksi yang terjadi. Kelebihan usaha ini adalah modal yang diperlukan relatif kecil, bahan mudah didapat dan Anda berhak menggunakan nama yang dimiliki oleh Mitra anda selama menjalankan usaha Anda. Kekurangannya adalah biasanya Anda hanya dapat menjual produk tertentu pada satu outlet sehingga produk kurang bervariasi.

 

- Franchise / Waralaba

Anda pasti pernah mendengar nama Indomaret, Alfamart, McDonald, KFC dan CFC. Mereka adalah perusahaan-perusahaan besar yang menyediakan jasa franchise. Dalam usaha franchise, Anda dapat membangun outlet baru atau membeli outlet yang sudah berjalan. Anda tidak perlu banyak memikirkan segala hal agar usaha Anda berjalan, semua sudah diurus oleh manajemen perusahaan. Biasanya berinvestasi dalam golongan ini membutuhkan dana yang cukup besar Untuk sekelas Indomaret atau Alfamart, rata-rata membutuhkan dana sekitar 500 Juta. Keuntungan dari waralaba adalah Anda tidak perlu campur tangan terlalu dalam dalam usaha Anda karena segala hal sudah berjalan. Anda juga dapat memantau usaha Anda dari laporan-laporan yang diberikan oleh Mitra Anda. Kekurangannya adalah besarnya modal yang dibutuhkan, dan juga biaya administrasi yang harus Anda bayar kepada Mitra Anda setiap bulannya sesuai dengan perjanjian.

 

Jika Anda ingin memulai sebuah usaha, pilihan ada di tangan Anda. Berapa modal yang akan Anda investasikan dan seberapa dalam Anda ingin mengelola usaha Anda :-)

<<<<<Andrie Baskara >>>>>
Kebersamaan Untuk Kemajuan Bersama

mailto:andriebaskara@gmail.com

Phone : 0812 963 4901
Phone : 0812 963 4901

mailto:andriebaskara@gmail.com

Kebersamaan Untuk Kemajuan Bersama

 

Mencetak Dengan Escape Code

Bagi para jawara programer, mungkin artikel ini sudah terasa basi atau bahkan mungkin sudah diluar kepala karena sudah merupakan santapan sehari-hari. Tapi tidak ada salahnya saya menulis artikel ini, siapa tau ada rekan-rekan pemula yang belum mengetahui.

Escape Code. Dahulu kala, ketika saya baru mengenal komputer dengan sistem operasi DOS yang tampilannya hanya hitam putih, escape code dapat digabungkan dengan perintah prompt untuk meletakkan dos promt pada titik tertentu dilayar, dan jika ditambahkan device Ansi.sys, dos prompt dapat juga diberi warna bahkan efek kelap-kelip.

Ternyata, escape code juga dipakai untuk printer dot matrik untuk mengatur jenis font maupun jarak antar baris sampai panjang kertas yang dipakai.

Memang fungsi tersebut setalah era Windows maupun Linux sudah tidak begitu penting lagi dalam bidang pemrogaman komputer, karena sudah dapat dilakukan dengan sangat mudah bahkan akan memberi efek yang sama pada semua jenis printer (dengan baris perintah yang sama) dengan bantuan Driver pada sistem operasi sedangkan dengan menggunakan tehnik escape code, harus disesuaikan dengan printer yang akan dipakai dan data yang ditujukan ke printer dilakukan dengan open port, sehingga jika port printer durubah printer tidak akan dapat mencetak.

Akan tetapi, dengan segala kekurangan yang ada dalam menggunakan tehnik percetakan menggunakan open port, ada hal-hal yang tidak dapat diganti dengan menggunakan fasilitas driver pada windows. Contoh kecilnya adalah penggunaan printer dalam program POS kasir dimana kertas yang tercetak harus berhenti tepat saat struk selesai dicetak. Dan juga, dengan menggunakan tehnik open port waktu cetak yang diperlukan lebih cepat dengan hasil cukup jelas.

Berikut beberapa escape code yang digunakan pada printer Epson Lx-300.

Chr(18) Merubah font printer jadi Draft

Chr(13) Akan menimbulkan efek percetakan pada bari yang sama.

chr(14) Akan menimbulkan efek tebal

chr(15) Merubah Font Printer menjadi draft Condensed

Chr(27)+Chr(51)+Chr(xx) Untuk mengatur spasi atas dan bawah dari cetakan. Jarak tergantung dari nilai(xx)

Chr(27)+Chr(50) Akan mengatur printer kembali ke spasi normal.

Chr(27)+Chr(87)+Chr(48) Akan mematikan fungsi huruf lebar.

Chr(27)+Chr(87)+Chr(49) Akan mengaktifkan printer untuk mencetak huruf lebih lebar.

Chr(27)+Chr(120)+Chr(48) Akan mengatur printer menggunakan huruf Roman.

Chr(27)+Chr(120)+Chr(49) Akan mematikan printer menggunakan huruf Roman dan kembali ke Draft.

Chr(27)+Chr(97) Akan mengatur printer ke margin kanan.

Chr(27)+Chr(107)+Chr(48) Akan mematikan fungsi NLQ.

Chr(27)+Chr(107)+Chr(49) Akan mengaktifkan fungsi NLQ.

Demikian beberapa escape code yang saya kumpulkan, semoga bermanfaat bagi rekan-rekan, jika rekan-rekan menemukan code yang lainnya atau untuk printer yang lainnya, silahkan ditambahkan dengan memberikan kepada saya. Semoa Bermanfaat.

Andrie Baskara
Cibuluh 20-02-2009

Phone : 08129634901