Sent a string to LPT1 VB.NET

Private textToPrint As String
Private Sub PrintSomeText(ByVal text As String)
        Dim pd As New Printing.PrintDocument()
        Dim pDialog As New PrintDialog()
        If pDialog.ShowDialog() = DialogResult.Cancel Then Exit Sub
        pd.PrinterSettings = pDialog.PrinterSettings
        AddHandler pd.PrintPage, AddressOf PrintDocument_Print
        textToPrint = text
        pd.Print()
End Sub

Private Sub PrintDocument_Print(ByVal sender As Object, ByVal e As Printing.PrintPageEventArgs)
    e.Graphics.DrawString(textToPrint, Me.Font, Brushes.Black, e.MarginBounds)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Me.PrintSomeText("Hello world, this is my text...")
End Sub

Tips Print DOS Mode/Direct ke printer EPSON LX dengan Visual Basic 6

Sumber : http://astawan.wordpress.com/2007/11/07/tips-print-dos-modedirect-ke-printer-epson-lx-dengan-visual-basic-6/

Mencetak data dengan metode DOS Mode pada jaman sekarang ini memang terasa kurang populer dengan semakin ditinggalkannya sistem operasi DOS, akan tetapi bagi para programmer aplikasi metode ini masih cukup dibutuhkan, terutama untuk programmer yang membuat aplikasi sejenis POS (Point of Sales) atau bahasa awamnya Aplikasi Kassa yang menggunakan printer Epson Lx.  Mungkin akan timbul pertanyaan “mengapa aplikasi tidak menggunakan printer POS saja?”,  untuk hasil yang maksimal Memang sebaiknya kita menggunakan printer POS saja (Epson TMU…., Samsung, Start Micronic, dll), akan tetapi terkadang kita dihadapkan pada suatu permasalahan dimana kita harus menggunakan printer sejenis Epson Lx (dot matrix) sebagai pengganti printer POS tersebut.
Kelebihan metode DOS Mode ini adalah mempunyai kecepatan yang tinggi dan setelah selesai mencetak tidak akan menggulung kertas seperti mencetak keprinter menggunakan driver. Tentunya metode cetak ini adalah metode yang akan dibutuhkan oleh aplikasi POS untuk mencetak nota.
Nah berikut beberapa sintak yang dapat digunakan untuk mengatur hasil cetakan printer Epson Lx dengan bahasa Visual Basic 6 :
chr(27) & chr(33) & chr(0) –> mencetak skala 10 cpi
chr(27) & chr(33) & chr(1) –> mencetak skala 12 cpi, 12 cpi akan lebih kecil dari pada 10 cpi.
chr(27) & chr(33) & chr(8) –> mencetak tebal
Print #1, chr(27) & chr(33) & chr(0) –> membatalkan cetak tebal
Print #1, chr(27) & chr(33) & chr(16) –> double strike (head printer akan bekerja secara bolak balik)
Print #1, chr(27) & chr(33) & chr(0) –> cancel double strike
Print #1, chr(27) & chr(33) & chr(32) –> font double width, biasanya digunakan untuk mencetak header.
Print #1, chr(27) & chr(33) & chr(64) –> font italic (huruf miring)
Print #1, chr(27) & chr(33) & chr(128) –> font underline
Print #1, chr(27) & chr(97) & chr(0) –> rata kanan (default)
Print #1, chr(27) & chr(97) & chr(1) –> rata tengah
Print #1, chr(27) & chr(97) & chr(2) –> rata kanan
Print #1, chr(27) & chr(33) & chr(4) –> memilih mode draft condenses (menghasilkan huruf yang berukuran kecil

Standard Command For EPSON Printer LX and FX Series

5CPI Chr(27) + '!' + Chr(32) // Select 10 CPI Double Width
6CPI Chr(27) + '!' + Chr(33) // Select 12 CPI Double Width
8CPI Chr(27) + '!' + Chr(36) // Select 10 CPI Condensed
Double
10CPI Chr(27) + '!' + Chr(0) // Select 10 CPI Normal
12CPI Chr(27) + '!' + Chr(1) // Select 12 CPI Normal
17CPI Chr(27) + '!' + Chr(4) // Select 10 CPI Condensed
20CPI Chr(27) + '!' + Chr(5) // Select 12 CPI Condensed
Bold Chr(27) + '!' + Chr(8)
Double Chr(27) + '!' + Chr(16)
Italic Chr(27) + '!' + Chr(64)
UnderLine Chr(27) + '!' + Chr(128)
Draft Chr(27) + 'x' + Chr(0)
Roman Chr(27) + 'x' + Chr(1) + Chr(27) + 'k' + Chr(0)
SanSerif Chr(27) + 'x' + Chr(1) + Chr(27) + 'k' + Chr(1)


Contoh penerapan dengan visual basic 6
sub cetak
   open “lpt1″ for output as #1
        Print #1, chr(27) & chr(33) & chr(32); ‘ cetak double width
        print #1,”SINAR HARAPAN”
        Print #1, chr(27) & chr(33) & chr(0); cancel cetak double width
        Print #1, chr(27) & chr(33) & chr(4); ‘ draft condensed
        Print #1, “Item 1″
        Print #1, “Item 2″
        Print #1, “Item 3″
        Print #1, chr(27) & chr(33) & chr(0) ‘ cancel draft condensed
   close #1
end sub

Fungsi-fungsi Date/Time

Sumber : http://putravb.blogspot.com/2012/01/fungsi-fungsi-datetime.html
Berikut ini merupakan Fungsi-fungsi dasar untuk mengolah data jenis Date/Time atau Tanggal/Waktu di Visual Basic

• Now, digunakan untuk mendapatkan Tanggal dan Waktu sekarang.
  d = Now , hasilnya 13/01/2012 1:22:42


• Date, digunakan untuk mendapatkan Tanggal sekarang.
  [ VB 6.0 ] d = Date , hasilnya 13/01/2012
  [ VB .NET ] d = Now.Date , hasilnya 13/01/2012


• Time, digunakan untuk mendapatkan Waktu sekarang.
  [ VB 6.0 ] d = Time , hasilnya 1:22:42
  [ VB .NET ] d = Now.ToLongTimeString , hasilnya 1:22:42


• Day(x), digunakan untuk mengambil nilai Tanggal saja dari x.
  [ VB 6.0 ] d = Day(#1/13/2012#) , hasilnya 13
  [ VB .NET ] d = #1/13/2012#.Day , hasilnya 13


• Month(x), digunakan untuk mengambil nilai Bulan saja dari x.
  [ VB 6.0 ] d = Month(#1/13/2012#) , hasilnya 1
  [ VB .NET ] d = #1/13/2012#.Month , hasilnya 1


• Year(x), digunakan untuk mengambil nilai Tahun saja dari x.
  [ VB 6.0 ] d = Year(#1/13/2012#) , hasilnya 2012
  [ VB .NET ] d = #1/13/2012#.Year , hasilnya 2012


• Hour(x), digunakan untuk mengambil nilai Jam saja dari x.
  [ VB 6.0 ] d = Hour(#1:22:42 AM#) , hasilnya 1
  [ VB .NET ] d = #1:22:42 AM#.Hour , hasilnya 1


• Minute(x), digunakan untuk mengambil nilai Menit saja dari x.
  [ VB 6.0 ] d = Minute(#1:22:42 AM#) , hasilnya 22
  [ VB .NET ] d = #1:22:42 AM#.Minute, hasilnya 22


• Second(x), digunakan untuk mengambil nilai Detik saja dari x.
  [ VB 6.0 ] d = Second(#1:22:42 AM#) , hasilnya 42
  [ VB .NET ] d = #1:22:42 AM#.Second, hasilnya 42


• DateSerial(x, y, z), digunakan untuk menghasilkan Tanggal dari kombinasi x, y, z.
  d = DateSerial(2012, 1, 13) , hasilnya 13/01/2012


• TimeSerial(x, y, z), digunakan untuk menghasilkan Waktu dari kombinasi x, y, z.
  d = TimeSerial(1, 22, 42) , hasilnya 1:22:42


• MonthName(x), digunakan untuk mendapatkan nama Bulan dari x.
  d = MonthName(2) , hasilnya Februari


• WeekdayName(x), digunakan untuk mendapatkan nama Hari dari x.
  d = WeekdayName(2, , vbSunday) , hasilnya Senin

 Untuk menambah dan mengurangi data bertipe Date/Tanggal tidak semudah dengan data bertipe Angka yang hanya menggunakan operator + dan -. Karena itu ada fungsi khusus untuk melakukannya, berikut contoh penggunaannya :

Tutorial Starduino: Mengontrol 4 Relay Dari Komputer Via Komunikasi Serial RS232 Dengan Perantaraan Starduino Board

Sumber : http://telinks.wordpress.com/category/softwareprogramming/vb-net/
Sumber : http://teknikelektrolinks.com/
Pada tutorial Starduino kali ini, kita akan membahas tentang bagaimana mengontrol relay dari komputer melalui port komunikasi serial RS232 dengan menggunakan Starduino Board.
Gambar di samping adalah foto pengujian Starduino Board untuk mengontrol relay dan menampilkan statusnya di LCD 16×2.
Starduino Board, Modul Relay DRV04, dan Modul LCD 16×2 dapat dipesan melalui email ke info@teknikelektrolinks.com atau SMS ke 081231784018 atau BB ke 24B15B64.
Untuk pembelian paket Starduino + Modul DRV04 akan mendapatkan source code sketch Arduino pengontrolan relay melalui port serial + source code program VB.NET lengkap dengan Installer VB.NET 2005 Express Edition.
Untuk memudahkan eksperimen,  berikut adalah tabel perintah pengontrolan relay.

Perintah	Aksi
‘A’	RELAY 1 ON
‘1’	RELAY 1 OFF
‘B’	RELAY 2 ON
‘2’	RELAY 2 OFF
‘C’	RELAY 3 ON
‘3’	RELAY 3 OFF
‘D’	RELAY 4 ON
‘4’	RELAY 5 OFF

Berikut adalah looping utama program yang berfungsi menerima data dari port serial dan mengeksekusi perintah sesuai data yang diterima dari komputer.

if (Serial.available())
{
  char inChar = Serial.read();
  if (inChar==’A')
    digitalWrite(RL1, HIGH);
  else if (inChar==’1′)
    digitalWrite(RL1, LOW);
  else if (inChar==’B')
    digitalWrite(RL2, HIGH);
  else if (inChar==’2′)
    digitalWrite(RL2, LOW);
  else if (inChar==’C')
    digitalWrite(RL3, HIGH);
  else if (inChar==’3′)
    digitalWrite(RL3, LOW);
  else if (inChar==’D')
    digitalWrite(RL4, HIGH);
  else if (inChar==’4′)
    digitalWrite(RL4, LOW);
}

Fungsi Serial.available() berfungsi mengembalikan jumlah karakter yang ada di dalam buffer port serial. Jika fungsi Serial.available() bernilai 0 (nol), maka tidak ada karakter dalam buffer. Jika fungsi Serial.available() > 0, maka ada karakter yang diterima dalam buffer port serial.
Fungsi Serial.read() berfungsi membaca/mengambil data karakter dari buffer port serial. Perintah char inChar = Serial.read() berfungsi mendeklarasikan variable inChar sebagai penampung data karakter hasil pembacaan fungsi Serial.read().
Selanjutnya, karakter dibandingkan dengan konstanta karakter sesuai dengan tabel perintah di atas untuk mengetahui perintah apa yang harus dieksekusi oleh kontroler.
Jika inChar==’A’, maka aktifkan RELAY-1 dan jika inChar==’1’, maka matikan RELAY-1. Pembandingan yang sama juga berlaku untuk perintah ‘B’, ‘2’, ‘C’, ‘3’, ‘D’, dan ‘4’.
Setelah program di upload ke Starduino, maka pengujian dapat dilakukan dengan mengirimkan karakter ‘A’, ‘1’, ‘B’, dan seterusnya dari komputer.
Untuk mengirimkan data secara manual bisa menggunakan terminal bawaan IDE Arduino atau program terminal seperti Hyperterminal.
Dapat juga pengontrolan dilakukan dengan menggunakan program aplikasi yang dapat Anda peroleh jika membeli paket Starduino Board + Modul DRV04. Berikut adalah tampilan program aplikasi Starduino+DRV04 yang dibuat menggunakan VB.NET 2005 Express Edition.

Demikian sekelumit penjelasan mengenai pengontrolan relay dari komputer melalui port esrial RS232 dengan perantaraan Starduino Board.
Selamat belajar dan selamat berkarya!

Mengetahui UserName dan ComputerName

Sumber : http://putravb.blogspot.com/2011/01/mengetahui-username-dan-computername.html
UserName dan ComputerName biasanya digunakan untuk melengkapi Form registrasi suatu aplikasi / software berbayar. Untuk mengetahui / mendapatkan UserName maupun ComputerName, hanya dibutuhkan 1 baris kode, berikut ini kodenya :

UserName :

s = Environ("UserName")

ComputerName :

s = Environ("ComputerName")

Selain itu, Anda juga bisa menggantikan teks yang berwarna merah untuk mendapatkan informasi yang lain. Seperti : UserDomain, OS, LogOnServer, ClientName, dll.

Operasi Angka VB.Net

Sumber : http://tidipia-comp.blogspot.com/2011/12/operasi-angka-vbnet.html

Berikut ini adalah fungsi-fungsi yang sering digunakan untuk mengolah data bertipe angka (integer, long, double, dll). Sebelumnya ketikkan kode berikut dibagian paling atas dari jendela kode dari Form yang merupakan Namespace Math dari .Net.

Imports System.Math

Berikut nama dan penggunaan fungsinya :

Nama	Fungsi
Sin	a = Sin(n * Angle)
Cosin	a = Cos(n * Angle)
Tangen	a = Tan(n * Angle)
Inv. Sin	a = Asin(n) / Angle
Inv. Cosin	a = Acos(n) / Angle
Inv. Tangen	a = Atan(n) / Angle
Sin Hyp.	a = Sinh(n)
Cosin Hyp.	a = Cosh(n)
Tangen Hyp.	a = Tanh(n)
Inv. Sin Hyp.	a = Log(n + Sqrt(n * n + 1))
Inv. Cosin Hyp.	a = Log(n + Sqrt(n * n - 1))
Inv. Tangen Hyp.	a = Log((1 + n) / (1 - n)) / 2

Dalam beberpa fungsi diatas terdapat variabel dengan nama Angel, yang bisa digantikan dengan nilai berikut :

Degress (DEG), gantikan dengan (3.14159265358979 / 180)

Radians (RAD), gantikan dengan 1

Grads (GRAD), gantikan dengan (3.14159265358979 / 200)

Contoh menghitung Sin dari 5 dengan ukuran DEG :

a = Sin(5 * (3.14159265358979 / 180))

Operasi String VB.Net

Sumber : http://tidipia-comp.blogspot.com/2011/12/operasi-string-vbnet.html

Maksud dari Operasi String diatas adalah terkait dengan method-method pada .Net untuk memanipulasi string. Berikut adalah beberapa contoh dasar operasi string tersebut :

Fungsi : Len

Deskripsi : Menghasilkan panjang string

Syntax: Len(string)

Contoh :

1. lngLen = Len("Visual Basic")

Hasil: lngLen = 12

Fungsi : Mid$ (or Mid)

Deskripsi : Menghasilkan potongan string mulai dan panjangnya dapat ditentukan

Syntax: Mid$(string, start[, length]) string

String yang ingin dipotong.

start Start pemotongan.

length Optional; panjang pemotongan.

Contoh :

strSubstr = Mid$("Visual Basic", 3, 4)

Hasil: strSubstr = "sual"

Fungsi : Left$ (or Left)

Deskripsi : Memotong string dari kiri

Syntax: Left$(string, length)

string String yang ingin dipotong length

Required; Panjang pemotongan

Contoh :

1. strSubstr = Left$("Visual Basic", 3)

Hasil: strSubstr = "Vis"

Diatas sama jika kita menggunakan Mid$:

strSubstr = Mid$("Visual Basic", 1, 3)