Menghubungkan USB External Serial Port Pada Virtual Computer

Niguru.com | Minggu, 31 Mar 2019 | Laptop maupun netbook generasi baru biasanya sudah tidak lagi dilengkapi dengan serial port (RS-232), yang pada komputer generasi lama biasanya digunakan untuk mengendalikan printer atau sebagai jalur input untuk mouse.

Namun bagi para praktisi rangkaian sistem pengendalian (control system) port serial sangat diperlukan sebagai interface antara komputer dengan peralatan kontrol atau sebagai media untuk melakukan upload program ke control device seperti mikrokontroler atau PLC.



Sebagai jalan keluar untuk memenuhi kebutuhan akan serial port, user biasanya menggunakan USB to serial device. Setelah driver dari peralatan USB to serial di-install, maka saat peralatan tersebut terhubung ke USB komputer akan mengenali sebagai serial port, dengan nomor COM yang biasanya adalah 3 sebagai defaultnya.

Untuk virtual computer yang dibuat dengan menggunakan Oracle Virtual Box, USB tidak akan langsung muncul pada virtual computer. Ikuti langkah-langkah berikut ini untuk memunculkan serial port pada virtual computer:

Demikianlah langkah-langkah untuk memunculkan serial port yang berasal dari external serial port device, pada virtual computer. Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)

Melakukan Pengecekan Apakah Aplikasi Sebelumnya Sudah /Belum Running (Berjalan)

Niguru.com | Sabtu, 30 Mar 2019 | Saat menjalankan sebuah aplikasi kadangkala terjadi penundaan (delay), sebelum aplikasi berjalan. Keadaan ini seringkali menyebabkan user mencoba menjalankan kembali aplikasi yang sama.

Untuk menghindari hal semacam ini terjadi, tentunya harus ada cara untuk membuat user mendapatkan kepastian bahwa aplikasi hanya dijalankan sekali saja.



Berikut ini susunan instruksinya pada VBA:

Private Sub Form_Load()
If App.PrevInstance = True Then End

.... [instruksi]

End Sub

Pilih event OnLoad pada form untuk memastikan bahwa pengecekan berlangsung di awal.
App.PrevInstance adalah kondisi yang menunjukkan apakah aplikasi yang sama sudah berjalan (running), bila hasilnya TRUE berarti sudah ada aplikasi yang sama sedang berjalan.

Demikianlah cara untuk memastikan bahwa aplikasi hanya dijalankan sekali saja. Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)

Cara Untuk Mengedit File Teks (.TXT) Lewat Visual Basic

Niguru.com | Jumat, 29 Mar 2019 | Pada 2 posting sebelumnya Niguru.com sudah menjelaskan langkah-langkah untuk melakukan koneksi file teks (.TXT) via ODBC.

Sayangnya koneksi file teks pada aplikasi front end hanya menghasilkan otoritas "read only", dimana user hanya dapat melihat dan mengambil data, tanpa otoritas untuk edit data.


Berikut ini cara untuk melakukan edit data pada file teks:   

Dim MyConn As String
Dim angka1 As Integer
Dim angka2 As Integer
Dim huruf1 As String

Private Sub ConnectToODBC()
MyConn$ = "Dsn=uji"

angka1 = 1
huruf1 = "bambang"
angka2 = 12348

Open MyConn For Output As #1 'menghapus semua dan buat record baru
Print #1, angka1 & Chr(59) & huruf1 & Chr(59) & angka2
Close #1

'note: chr(59) adalah semicolon
End Sub

Cara diatas akan menghapus isi dari file teks dan menggantinya dengan data baru.
Bila ingin menambah data, dan mempertahankan isi data yang sudah ada gunakan instruksi "Append", perhatikan pada contoh berikut:

Dim MyConn As String
Dim angka1 As Integer
Dim angka2 As Integer
Dim huruf1 As String

Private Sub ConnectToODBC()
MyConn$ = "Dsn=uji"

angka1 = 1
huruf1 = "bambang"
angka2 = 12348

Open MyConn For Output As #1 'menghapus semua dan buat record baru
Open MyConn For Append As #1 'nambah record
Print #1, angka1 & Chr(59) & huruf1 & Chr(59) & angka2
Close #1

'note: chr(59) adalah semicolon
End Sub

Note:
Selain instruksi PRINT, instruksi untuk menuliskan data pada file teks adalah WRITE.
Bila anda tidak mengetahui benar mengenai fungsi WRITE sebaiknya hindari saja, karena instruksi ini akan membuat data yang tersimpan menjadi STRING, dengan tambahan double apostrophe ("").

Demikianlah cara untuk melakukan edit data pada file teks. Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)

Menghubungkan Aplikasi Front End Dengan File Teks (.TXT) Yang Sudah Terhubung Ke ODBC

Niguru.com | Kamis, 28 Mar 2019 | Bila pada posting kemarin Niguru.com sudah menjelaskan mengenai langkah-langkah untuk menghubungkan file teks (.TXT) ke ODBC, maka pada posting kali ini Niguru.com menjelaskan mengenai langkah-langkah untuk menghubungkan aplikasi front end pada file teks yang sudah terhubung ke ODBC.

Keuntungan dari menggunakan ODBC sebagai penghubung adalah kesederhaan dalam melakukan koneksi. User tidak perlu lagi menuliskan secara lengkap nama file dan path (lokasi file /direktori /folder) pada saat melakukan koneksi, cukup dengan menuliskan nama DSN-nya saja sudah cukup.


Berikut ini langkah-langkah untuk menghubungkan aplikasi front end pada dsn pada ODBC, sebagai contoh DSN = uji dan file teks-nya bernama=ujiCoba01.txt:

Dim MyConn As String
Dim cn1 As ADODB.Connection
Dim rs1 As ADODB.Recordset

Private Sub ConnectToODBC()
MyConn$ = "Dsn=uji"

Set cn1 = New ADODB.Connection
Set rs1 = New ADODB.Recordset

cn1.Open MyConn
rs1.Open "SELECT * FROM ujiCoba01.txt", cn1

Text0 = rs1(1)

rs1.Close
cn1.Close

End Sub

Berikut ini langkah-langkah untuk menghubungkan aplikasi front end pada file teks yang sudah terhubung pada ODBC. Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)

Menghubungkan File Teks (.TXT) Ke ODBC

Niguru.com | Rabu, 27 Mar 2019 | Beberapa waktu yang lalu Niguru.com telah membahas cara untuk menghubungkan file database MS (Microsoft) Access ke ODBC (open database connectivity), kali ini Niguru.com akan menjelaskan cara menghubungkan file teks (.TXT) ke ODBC.

File teks bukanlah sebuah database, tentunya bukan tempat untuk menyimpan data dalam jumlah besar. Selain tidak praktis, peluang terjadinya kesalahan (error) dalam penyimpanan jauh lebih besar dibandingkan menggunakan media lainnya. Namun banyak user menggunakan file teks hanyalah sebagai sarana untuk berkirim /terima data.

Misalnya saja data untuk melakukan setting pada suatu aplikasi atau data dari parameter mesin, yang isinya hanya berupa beberapa data berukuran kecil, seringkali disimpan dan dikirimkan dalam bentuk file teks. Hal ini terutama karena kemudahan edit pada file teks. Hampir semua komputer maupun gadget sudah dilengkapi dengan editor untuk file teks.

Berikut ini cara untuk menghubungkan file teks ke ODBC:

Demikianlah cara untuk menghubungkan file teks ke ODBC. Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)

Inilah 16 Fungsi VBA Untuk Tanggal Dan Waktu

Niguru.com | Selasa, 26 Mar 2019 | Dalam pekerjaan membuat aplikasi seringkali kita membutuhkan fungsi program yang mampu mengolah tanggal dan waktu. Seperti misalnya menghitung perbedaan tanggal, mencari bulan yang sekarang, menambahkan 3 bulan dari waktu yang sekarang (biasanya untuk menghitung jatuh tempo), mencatat hari (Senin, Selasa, Rabu, dst).

Beruntunglah VBA mempunyai fungsi fungsi yang dapat dipergunakan untuk pengelolaan tanggal dan waktu. Berikut ini adalah fungsi tanggal dan waktu yang sering dipergunakan:



1. DATESERIAL
Mengisi/menginput tanggal kedalam suatu variabel
Format:
DateSerial («tahun», «bulan», «tanggal»)

Contoh:

Dim tgl As Date
tgl = DateSerial(14,11,5)

hasilnya > tgl = 5/11/2014

2. TIMESERIAL
Mengisi/menginput waktu kedalam suatu variabel
Format:
TimeSerial («jam», «menit», «detik»)

Contoh:

Dim wkt As Date
wkt = TimeSerial(18, 21, 52)

hasilnya > wkt = 18:21:52

3. DATEDIFF
Menghitung selisih tanggal atau selisih waktu, diperlukan interval untuk menyatakan object yang dihitung selisihnya
Format:
DateDiff («interval», «tanggal1», «tanggal2»)
DateDiff («interval», «waktu1», «waktu2»)

catatan interval:
tahun = yyyy
bulan = m
tanggal = d

jam = h
menit = n
detik = s

Contoh:

Dim tgl1, tgl2,tgl3 As Date
tgl1 = DateSerial(11,9,5)
tgl2 = DateSerial(14,11,5)

tgl3 = DateDiff("yyyy", tgl1, tgl2)

hasilnya > tgl3 = 3

4. WEEKDAY
Mencatat hari sesuai dengan tanggal, dimana hari dinyatakan dengan angka
1 = Minggu
2 = Senin
3 = Selasa
4 = Rabu
5 = Kamis
6 = Jumat
7 = Sabtu

Format:
Weekday («tanggal»)

Contoh:

Dim tgl1 As Date
Dim tgl2 As Integer

tgl1 = DateSerial(14, 4, 19)
tgl2 = Weekday(tgl1)

hasilnya > tgl2 = 7

5. DAY
Menampilkan tanggal
Format:
Day(«tanggal»)

Contoh:
tgl = Day("1/31/99")

hasilnya > tgl = 31

6. MONTH
Menampilkan bulan
Format:
Month(«tanggal»)

Contoh:
tgl = Month("1/31/99")

hasilnya > tgl = 1

7. YEAR
Menampilkan tahun
Format:
Year(«tanggal»)

Contoh:
tgl = Year("1/31/99")

hasilnya > tgl = 99

8. HOUR
Menampilkan jam
Format:
Hour(«waktu»)

Contoh:
wkt = Hour("8:21:53")

hasilnya > wkt = 8

9. MINUTE
Menampilkan menit
Format:
Minute(«waktu»)

Contoh:
wkt = Minute("8:21:53")

hasilnya > wkt = 21

10. SECOND
Menampilkan menit
Format:
Second(«waktu»)

Contoh:
wkt = Second("8:21:53")

hasilnya > wkt = 53

11. DATE
Menampilkan tanggal saat ini

Contoh:
tgl = Date

hasilnya > tgl = tanggal saat ini, misalnya 19/04/2014


12. TIME
Menampilkan waktu saat ini

Contoh:
wkt = Time

hasilnya > tgl = waktu saat ini, misalnya 8:40:53

13. NOW
Menampilkan tanggal dan waktu saat ini

Contoh:
x = Now

hasilnya > x = tanggal dan waktu saat ini, misalnya 26/03/2019 5:01:53

14. DATEADD
Menjumlahkan tanggal atau waktu, diperlukan interval untuk menyatakan object yang dijumlahkan
Format:
DateAdd («interval», «angka», «tanggal»)

catatan interval:
tahun = yyyy
bulan = m
tanggal = d

jam = h
menit = n
detik = s

Contoh:

Dim tgl As Date
tgl = DateSerial(11,9,5)
tgl = DateAdd("yyyy", 7, tgl)

hasilnya > tgl = 05/09/2018

Contoh 2:

Dim wkt As Date
wkt = TimeSerial(8,5,26)
wkt = DateAdd("n", 25, wkt)

hasilnya > wkt = 8:30:26

15. DATEVALUE
Merubah text menjadi tanggal
Format:
DateValue («text»)

Contoh:
tgl = DateValue("5/9/2014")  

hasilnya > tgl = 05/09/2014

16. TIMEVALUE
Merubah text menjadi waktu
Format:
TimeValue («text»)

Contoh:
wkt = TimeValue("9:0:26")  

hasilnya > wkt = 9:00:26

Demikianlah penjelasan mengenai fungsi VBA untuk tanggal dan waktu. Semoga posting kali ini dapat menambah pengetahuan dan wawasan bagi para pembaca sekalian.
Selamat beraktifitas .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)