Seven Technology

Berikut ini saya posting contoh aplikasi SMS Gateway dengan AT Command di Microsoft Visual Fox Pro, yang didapat dari http://www.fox-id.com/ . Caranya buka Ms. VFP anda dan pilih new - program, lalu di copy paste sintak berikut ini kemudian RUN (Ctlr + E): *!* Aplikasi SMS dengan Visual FoxPro via IrDA *!* Created by : Handi Rusli *!* Member Of http://www.fox-id.com *!* Komunitas Programmer FoxPro Indonesia LOCAL oForm as Form oForm = CREATEOBJECT("FormSMS") oForm.Show(1) RETURN DEFINE CLASS FormSMS AS form DataSession = 2 Height = 440 Width = 527 AutoCenter = .T. Caption = "Aplikasi SMS dengan Visual FoxPro" ADD OBJECT sms as mysms WITH Visible = .F. ADD OBJECT pageframe1 as mypageframe1 ADD OBJECT label1 AS myLabel WITH ; Caption = "Com Port :", ; Height = 17, ; Left = 67, ; Top = 126, ; Width = 60 ADD OBJECT label2 AS myLabel WITH ; FontBold = .T., ; FontName = "Verdana", ; FontSize = 10, ; Caption = "http://www.fox-id.com (Komunitas Prog...

Pernahkan anda mengalami kesulitan untuk mencetak text/faktur pada continues form. nah jangan khawatir berikut ini adalah salah satu contoh untuk mencetak text pada continues form. Pada Module1 paste code berikut: Option Explicit Private Type DOCINFO pDocName As String pOutputFile As String pDatatype As String End Type Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal _ hPrinter As Long) As Long Private Declare Function EndDocPrinter Lib "winspool.drv" (ByVal _ hPrinter As Long) As Long Private Declare Function EndPagePrinter Lib "winspool.drv" (ByVal _ hPrinter As Long) As Long Private Declare Function OpenPrinter Lib "winspool.drv" Alias _ "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, _ ByVal pDefault As Long) As Long Private Declare Function StartDocPrinter Lib "winspool.drv" Alias _ "StartDocPrinterA" (ByVal hPrinter As Long, ByVal Level As Long, _ pDocInfo As DOCINFO) As Long Pri...

Apa yang dimaksud dengan cash drawer? Cash drawer adalah laci tempat uang yang biasanya di pakai pada swalayan. Jika anda membuat program POS (Point of sales) silahkan simak bacaan berikut. Tutorial kali ini adalah bagaimana caranya atau code untuk membuka laci atau cash drawer, yg terhubung lewat port serial [COM1] atau pararel port [LPT1] menggunakan VB6 atau bahasa lainnya. Berikut ulasannya : 1. Printer POS Samsung (port LPT) Open "LPT1:" For Output As #1 Print #1, Chr$(&H1B); "@"; 'Initializes the printer (ESC@) Print #1, Chr$(&H1B); "p"; Chr$(0); Chr$(25); Chr$(250); 'open cash drawer Close #1 2. Printer POS Start (port LPT) Open "LPT1:" For Output As #1 Print #1, Chr$(&H1B); "@"; 'Initializes the printer (ESC @) Print #1, Chr$(&H1B); "3"; Chr$(5); ' Set line spacing" Print #1, Chr$(27); Chr$(7); Chr$(11); Chr$(55); Chr$(7) 'open cash drawer Close #1 3. Printer POS Epson (port COM...

Berikut ini adalah tutorial tentang Menampilkan properties system windows. Misalkan pada program yang ingin kita buat, berisi menu utility untuk menampilkan dialog Display Properties dan fokus ke tab Screen Saver, maka cukup dengan kode berikut: Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1",vbNormalFocus) Contoh diatas adalah pemakaian pada VB6, atau anda juga bisa pakai pada bahasa pemrograman lainnya tergantung dari bahasanya: Dan berikut daftar command yang bisa digunakan : command: rundll32.exe shell32.dll,Control_RunDLL result: displays all the Control Panel icons in an Explorer view command: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5 result: displays the Accessibility General properties command: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1 result: displays the Accessibility Keyboard properties command: rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2 result: displays the Accessibility Sound properties command: rundll32.exe sh...

Pernahkan anda terpikir, bagaimana caranya membuat label barcode seperti yang tertempel pada barang-barang yang dijual di swalayan? Sebenarnya cukup gampang membuatnya yaitu cukup menggunakan font C39HDM2.TTF [BC C39 2 to 1 HD Medium]. Untuk mendapat font ini, anda bisa email saya ke ketutsapta@gmal.com, saya akan mengirimkannya atau donload di internet. Setelah anda download, instal lah font tersebut dengan membuka : Start-Control Panel - Fonts Lalu klik File - Install New Font - Cari path tempat Font C39HDM2.TTF yang anda baru download. Dengan font ini, anda bisa membuat label barcode, baik mau diprint menggunakan Micosoft Excel, Word atau lainnya yang mendukung font ini. Jika anda ingin membuat program menggunakan VB atau FoxPro atau Delphi atau bahasa program lainnya, cukup install font ini kemudian pada text field report masukkan tanda asterik * dng diikuti namafield an diakhiri asterik *, kemudian ganti font nya menjadi font C39HDM2.TTF kemudian preview Contoh : *Barang.kodebara...