Display Info Jadwal Dokter

Feature lengkap, tidak ada batasan data jadwal dokter, feature dapat di sesuaikan sesuai permintaan, desain bisa menyesuaikan instansi rumah sakit, harga terjangkau, dan bergaransi

Mesin Dan Software Kasir POS (Point Of Sales)

Laporan dan feature lebih lengkap, di lengkapi dengan feature auto sms untuk laporan per hari, multi user, kapasitas database lebih dari 100.000 data, mudah di gunakan, dan bergaransi

Mesin bell sekolah otomatis (Audio Distributor)

Di lengkapi dengan hardware pendukung yang sangat teruji berupa controler sound audio sehingga memungkinkan untuk mengontrol perangkat audio di setiap kelas / dapat mengelompokkannya

Monday, April 28, 2014

Display Jadwal Dokter (Display Info Dokter)




Display Informasi Jadwal Dokter
Berikut kami sediakan sebuah product yang dapat membantu petugas informasi untuk menginformasikan jadwal,status kehadiran dokter utama, dan status kehadiran dokter pendamping.

Berikut adalah feature-feature dari produk di atas
  • Nama dokter dapat di ganti / ditambah sesuai dengan dokter yang ada dan tidak terbatas jumlahnya
  • Jadwal dokter dapat di ubah setiap saat
  • Papan informasi bukan hanya menampilkan informasi jadwal dokter utama saja, melainkan data jadwal dokter pendamping juga
  • semua data yang terkait dengan informasi dokter dan dokter pendamping dapat di add,edit, dan delete tanpa pembatasan data
  • Info jadwal dokter akan secara otomatis Rooling sesuai dengan waktu yang di tentukan(Waktu Rooling dapat di edit)
  • Menampilkan Running Text yang bertujuan untuk menginformasikan sebuah informasi pada pengunjung
  • Software dapat di gunakan pada spec computer yang rendah sekalipun 
  • Resolusi Display Dapat di sesuaikan
  • Koneksi via LAN cable / wifi
  • Desain dapat di sesuaikan sesuai selera customer
Spesifikasi Hardware :
  • Menggunakan MiniPC
  • HDMI Cable
  • 32,42,62 inch LED Tv

AUDIO DISTRIBUTOR SYSTEM (Bel Otomatis)



AUDIO DISTRIBUTOR System

Audio Disteributor atau Audio Kelas/Call Room digunakan sebagai alat komunikasi di ruangan-ruangan (kelas) atau ruangan tertentu yang memerlukan informasi. Kualitas dan level suara yang didistribusikan merata di seluruh ruangan (jarak tidak berpengaruh pada suara).

FUNGSI DAN MANFAAT ANTARA LAIN:

1. PELAKSANAAN LISTENING / LATIHAN LISTENING BAHASA INGGRIS

Dapatkan...!!!
Bonus TAPE DECK + VCD
u/ Pemasangan di atas
15 Channel
 
(Pelaksanaan Listening melalui 1 (satu) sumber (CD, caset recorder, Radio, Mic, Televisi dll) di play pada satu ruangan dan akan dapat didengarkan di seluruh ruangan oleh siswa yang terhubung dengan pusat media).
Media ini efektif sehingga mengurangi kesalahan serta varian pencapaian tujuan pelaksanaan listening, karena setiap peserta akan mengikuti program dalam waktu dan output yang sama dari satu media, di sisi lain efisiensi ( penghematan) media input dan output untuk masing-masing ruang

2. PUSAT INFORMASI DAN KOMUNIKASI KESISWAAN

Media ini dapat digunakan secara selektif pada setiap ruang. Fitur : Single Room, Group, All.

3. CONNECTABLE DENGAN HARDWARE LAIN

Media ini dapat dihubungkan dengan bell music, horn, radio, tv, vcd, tape recorder.



SPESIFIKASI PRODUCT
Sistem Instalasi                       : Menggunakan Kabel

Speaker:
Model Salon/Speaker            : Wallmount
  (1 Ruang 2 Salon)
Bahan Salon                           : Hardboard Particle
Pengaman                              : Kawat harmonica
Warna                                                 : Hitam




Sentral Distributor/Master Kontrol
Warna                         : Hitam
Model                          : Push Button
Chanel                                    : Meyesuaikan dengan kebutuhan
Ampifiler                    : Built up
Kontrol                       : Chanel, Group, All,
Horn/Speaker Luar,
Speaker kontrol,
  Volume mic, Volume
Auxilary, Bass, Treble, Vomlume Master
            Input                           : Mic, Tape, VCD, Computer
            Voltage                       : AC 220V/250W

            Keterangan :
            Harga dihitung per kelas ,Setiap kelasnya Rp. 1.500.000
            Belum termasuk pajak. Untuk area malang akomodasi dan transport gratis.
            Luar  Malang :
            Area Jawa Timur > Rp. 500.000
            Area Jawa Tengah > Rp. 1.000.000
            Area Jawa Barat > Rp. 1.500.000
            Jabodetabek > Rp. 2.000.000
            Luar Jawa > Menyesuaikan waktu pemasangannya dan Tempatnya.


Client Respon Kepuasan Pelanggan


Client Respon Kepuasan Pelanggan


Spesifikasi :
Ø  Memakai PC Untuk Managemen report dan Software Interfacenya
Ø  Master Pengendali Berfungsi Sebagai Penghubung Komunkasi client Button dengan PC
Ø  Client Button Berfungsi sebagai pengirim data antara puas ataupun tidak puas dengan pelayaan Petugas Loket tersebut (Disetiap petugas ada Client Button )
Ø  Software terdapat report managemen yang lebih detail untuk setiap petugasnya

Thursday, April 24, 2014

Tutorial pemrograman bascom avr dan mikrokontroler

Sebenarnya banyak software yang bisa di gunakan dalam sebuah tehnik pemrograman, tinggal pilih kita mahir di bahasa apa, kalo kita mahir dalam bahasa basic salah satu alat/software yang bisa kita pelajari dengan cepat adalah BASCOM AVR.
Berikut adalah sedikit contoh program di bascom untuk menghidupkan led secara bergantian
1.  Pastikan anda telah mendownload dan menginstall bascom avr di komputer anda kalo belum punya download aja di sini
2.  Buka Bascom AVR nya dah nanti tampilannya kayak gini ni


3.  Click New, disini saya menggunakan IC Mikrocontroler atmega8515 jadi sourcesnya kayak gini
$regfile = "m8515.dat"
$crystal = 8000000

'Kita tentukan dulu pinout untuk menghidupkan lednya karna saya gak pakek apa" cuman led aja jadi simple aja codingnya sob
Ddra = &B11111111
Porta = &B00000000
'Kita gunakan 8 pin pada porta untuk menghidupkan 8buah led

Do
   Porta = &B00000001
   Waitms 200                                               'tunggu 2 detik
   Porta = &B00000011
   Waitms 200                                               'tunggu 2 detik
   Porta = &B00000111
   Waitms 200                                               'tunggu 2 detik
   Porta = &B00001111
   Waitms 200                                               'tunggu 2 detik
   Porta = &B00011111
   Waitms 200                                               'tunggu 2 detik
   Porta = &B00111111
   Waitms 200                                               'tunggu 2 detik
   Porta = &B01111111
   Waitms 200                                               'tunggu 2 detik
   Porta = &B11111111
   Waitms 200                                               'tunggu 2 detik
   Porta = &B00000000                                       ' output porta menjadi 0 / mati semua
   Waitms 200                                               'tunggu 2 detik

Loop

Copy poaste langsung juga boleh kok :D

4. click compile, masukkan program berextensi HEX pada micro controler dengan AVR downloader (Bisa googling kalo g tau AVR downloader)

Wednesday, April 23, 2014

Metrologic MS 7120 Matrix Line


Feature
  • Dimensi 1D Laser Scanner
  • Scan Speed 1200 Scan/sec
  • Auto Scan dan Manual Scan
  • Tipe CCD
  • Lines Matrix
  • Interface USB
  • Berat 380 gram

ARGOX AS 8000


Feature
  • Dimensi 1D Laser Scanner
  • Scan Speed 100 Scan/sec
  • Jenis Scan
  • Auto Scan dan
  • Manual Scan
  • Tipe CCD
  • Lines Single
  • Interface USB
  • Berat 90 gram

Driver Acer Windows 7 Download

Berikut daftar driver acer dan link downloadnya :

  1. All Acer AO531h drivers
  2. All Acer AO532h drivers
  3. All Acer AO571h drivers
  4. All Acer AO751h drivers
  5. All Acer AO752 drivers
  6. All Acer AOA110 drivers
  7. All Acer AOA150 drivers
 Acer Aspire Drivers
  1. All Acer Aspire 1551 drivers
  2. All Acer Aspire 1600 drivers
  3. All Acer Aspire 1610 drivers
  4. All Acer Aspire 1620 drivers

Untuk driver acer yang belum terdaftar silahkan request di coment aja nanti saya bantu carikan drivernya buat temen2







Visual Basic : Mengirim SMS Menggunakan Modem GSM/HSDPA

Tulisan ini akan membahas bagaimana membuat aplikasi dari Visual Basic 6 yang dapat mengirim SMS melalui modem GSM/HSDPA. Cara yang akan dibahas pada tulisan ini, mungkin akan berguna jika anda hendak membuat aplikasi yang memiliki fitur tambahasan seperti mengirim SMS. Jika anda ingin membuat aplikasi SMS Gateway, anda dapat mengembangkannya.
Inti dari pengiriman SMS dengan modem GS/HSDPA ini adalah “AT Command”. AT Command digunakan dalam pemrograman untuk mengirimkan instruksi pada modem.
Untuk persiapan anda akan membutuhkan:
- PC dengan Sistem Operasi Windows XP
- Microsoft Visual Basic 6
- Sebuah Modem GSM/HSDPA berikut Drivernya. Pada percobaan yang dilakukan penulis, modem yang digunakan adalah modem ZTE
Sebelum tahap Coding, pastikan anda telah menginstal driver modem yang akan anda gunakan. Setelah itu cek nomor port COM tempat modem tersebut dapat diakses. Caranya adalah sebagai berikut:
1. Klik Kanan My Computr
2. Klik Properties, lalu Klik Hardware
3. Pada Tab Properties Klik Device Manager
4. Temukan Modem GSM anda pada pilihan Modem, Lalu Klik Kanan dan Klik Properties
5. Pada Form Propeties Modem, Pilih Tab Modem
6. Disini anda dapat melihat dua informasi yang anda butuhkan yaitu:
a. Nomor Port COM modem anda
b.Info Kecepatan Modem anda
Catat kedua informasi di atas!!
Sekarang anda dapat lanjut ke bagian Coding di Visual Basic, prosesnya sangat sederhana yaitu:
1. Membuka Koneksi ke Modem
2. Mengirim SMS
Oh iya, anda akan butuh Control MSComm. Letakkan MSComm di form yang akan digunakan untuk mengirim SMS.

Procedure untuk membuka koneksi ke Modem sebagai berikut:
Sub ConnectToModem()
With MSComm1
.CommPort = 10
.Settings = “9600,N,8,1″
.Handshaking = comRTS
.RTSEnable = True
.DTREnable = True
.RThreshold = 1
.SThreshold = 1
.InputMode = comInputModeText
.InputLen = 0
.PortOpen = True
End With
End Sub
Perhatikan, pada bagian .CommPort isikan nomor port yang sesuai dengan nomor port Comm modem anda. Begitupula pada .Settings, ganti angka 9600 dengan yang sesuai anda dapatkan sebelumnya.
Adapun procedure untuk mengirim SMS, sebagai berikut:
Sub Kirim_SMS()
MSComm1.Output = “AT” & vbCrLf
Sleep 500
MSComm1.Output = “AT+CMGF=1″ & vbCrLf
Sleep 500
MSComm1.Output = “AT+CMGS=” & Chr(34) & noHP & Chr(34) & vbCrLf
Sleep 1000
MSComm1.Output = isiPesan & Chr(26)
Sleep 2000
End Sub
Jangan lupa pada bagian deklarasi variabel masukkan code di bawah ini:
Private Declare Sub Sleep Lib “kernel32″ (ByVal dwMilliseconds As Long)
Jika, ada yang butuh contoh aplikasinya silakan download contohnya. Jangan lupa setelah download, ganti ekstensinya menjadi .zip

Pembuatan Aplikasi Pendaftaran siswa Full sources code

Berikut adalah contoh pembuatan form pendaftaran siswa yah itung" belajar dulu meskipun belum laku di jual tapi pasti berguna buat temen" yang pengan belajar pemrograman vb6 juga

Pembuatan animasi coluor mouse pada label :
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
      Label10.ForeColor = &HE0E0E0
      Label10.BackStyle = 0
      Label10.BorderStyle = 0
      Label11.ForeColor = &HE0E0E0
      Label11.BackStyle = 0
      Label11.BorderStyle = 0
      Label12.ForeColor = &HE0E0E0
      Label12.BackStyle = 0
      Label12.BorderStyle = 0
End Sub

Private Sub Label10_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
      Label10.ForeColor = &H0&
      Label10.BackStyle = 1
      Label10.BackColor = &H80FFFF
      Label10.BorderStyle = 1
End Sub

Private Sub Label11_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
      Label11.ForeColor = &H0&
      Label11.BackStyle = 1
      Label11.BackColor = &H80FFFF
      Label11.BorderStyle = 1
End Sub

nah untuk temen" yang pengen belajar lebih detail downlod aja sources codenya disini
oya kalo brmanfaat jgan lupa coment yaaa..... :D

Cara Membuat Generate NoUrut Alphabetic (Huruf A-Z) VBNET

bagaimana cara membuat nourut huruf (A sampai Z), contoh yang saya buat adalah dengan format yyyyMMdd-Huruf, jadi setiap berganti hari/tanggal maka akan kembali ke "A" lagi
Saya juga sudah tambahkan validasi jika nourut sudah habis (sudah sampai "Z")
Silahkan anda kembangkan lagi sesuai dengan kebutuhan, enjoy the code!

Download Sources Code Di Sini

Conection String All Database with vb6 / vb.net (Koneksi Database)

Sebenarnya banyak cara untuk koneksi ke database, salah satunya adalah dengan via ODBC (Open Database Connectivity) yang menurut saya paling mudah (berdasarkan pengalaman sendiri). Adapun tahapannya adalah sebagai berikut :
1.Harus mempunyai ODBC, jika belum punya harus download dulu, cari saja di  google, contoh keyword nya : ODBC sqlserver atau ODBC mysql atau ODBC sqlite atau ODBC firebird atau ODBC oracle atau yang lainnya.
2.Untuk mengetahui ODBC apa saja yang terinstal di kompuer kita, bisa di cek di control panel --> Administrative Tools --> Data Sources (ODBC)
3.OK, selanjutnya langsung ke codingnya.Untuk Membuat Connection String, yang perlu diingat dan diperhatikan adalah kata DRIVER,SERVER,UID,PWD,DATABASE. Driver diisi dengan Driver Name seperti pada gambar diatas. Berikut ini contoh penggunaanya :

Dim ConStr As String
'Contoh Koneksi Ke SQLServer 2008
ConStr= "DRIVER=SQL Server Native Client 10.0;SERVER=djie_server\sql2008;UID=sa;PWD=123;DATABASE=djie_db"

'Contoh Koneksi Ke MySQL Server
ConStr= "DRIVER=MySQL ODBC 5.1 Driver;SERVER=djie_server;UID=root;PWD=123;DATABASE=djie_db"

 'Contoh Koneksi Ke SQLite 3
ConStr= "DRIVER=SQLite3 ODBC Driver;DATABASE=C:\djie_db.db3"

Jika kita ingin melakukan koneksi tanpa user dan password (Windows Authentication) maka cukup tambahkan  "Trusted_Connection=yes"

Untuk VB.6 Codingnya Adalah :
Dim djie_con As New ADODB.Connection
With djie_con
    .CursorLocation = adUseClient
    .Open ConSrt
    MsgBox "Connection OK", vbInformation, "Message"
End With

Untuk VB.NET Codingnya Adalah :
        Dim djie_con As New Odbc.OdbcConnection
        With djie_con
            .ConnectionString = ConStr
            .Open()
            MessageBox.Show("Connection OK", "Message", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End With

Koneksi ADODB VB6 dan Acces

Mungkin bagi anda yang sudah lama terjun di dunia pemrograman tidak asing lagi dengan aplikasi yang terhubung dengan database, tapi beberapa dari anda mungkin masih bingung. Atau mungkin anda sedang belajar koneksi database secara otodidak dan masih bingung fungsi dari script yang telah diketikkan. Saya pun dulu pernah mengalaminnya, karena saya sendiri belajar koneksi database dengan visual basic 6.0 secara otodidak. Hampir 10 jam saya otak atik mempraktekkan apa yang di jelaskan dibeberapa blog, tapi sayang beberap rata blog tidak menerangkan secara detail fungsi dari script tersebut.
       Koneksi Database Access dengan Visual Basic 6.0 yang saya ketahui ada 3 macam cara koneksinya, yang pertama menggunkan Data Environtment atau biasa saya menyebutnya DE, kedua ADO dengan Object atau Adodc dan yang terakhir adalah ADO tanpa Object atau Adodb. Pada pembahasan kita kali ini, yang akan kita bahas adalah ADO tanpa Object atau Adodb dan mungkin untuk 2 lainnya akan kita bahas pada postingan yang akan datang. Adodb mempunyai ciri khas yang saya sukai yaitu full syntak artinya kita harus mengetikkan semuannya script tidak seperti Data Environtment yang tinggal klik ini dan klik itu. Oke langsung kita praktekkan:
  • Pertama siapkan terlebih dahulu databasenya
  • Buatlah databesa Acces dengan nama dbMahasiswa.mdb ,kita memakai ekstensi 2003
  •  pembuatan database bisa download ebook nya disini 
  • kemudian kita buka program Microsoft Visual Basic 6.0
  • Pilih Standar EXE dan klik Tombol Open.
  • klik Project pada MenuBar kemudian pilih Refrences
  • Setelah itu akan muncul dialog
  • Cari Microsoft ActiveX Data Object 2.8 Library, kemudian centang dan pilih OK.
  ActiveX Data Object 2.8 Library sendiri merupakan sebuah library yang berisi file-file yang digunakan untuk koneksi database.

Setelah semuanya telah selesai sekarang waktunya untuk menuliskan script di jendela kode pada visual basic 6.0.

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset


Private Sub Form_Activate()
If cn.State = adStateOpen Then
    cn.Close
End If
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0 ; Data Source=" & App.Path & "\dbMahasiswa.mdb"
    MsgBox "Koneksi Berhasil"
End Sub


  • Kemudain Save program ini dalam satu folder dimana database dbMahasiswa tadi kita buat.
  • Koneksi database selesai tinggal kita jalankan
  • Penjelasan Script:
  • Dim cn As New ADODB.Connection 
membuat variabel/object  cn yang diinisialisai/isinya merefrensikan pada adodb.connection yang berfungsi untuk koneksi.
  • Dim rs As New ADODB.Recordset
membuat variabel rs yang akan digunakan untuk memanggil record pada database
  •   If cn.State = adStateOpen Then
        cn.Close
    End If
 Artinya Jika koneksi dalam keadaan terbuka maka koneksi di tutup

  •   cn.Open
Fungsinya untuk membuka koneksi
  • Provider=Microsoft.Jet.OLEDB.4.0
Merupakan driver untuk koneksi access ke visual basic 6.0, seperti halnya jika kita install pc atau laptop kita pasti akan install juga driver seperti driver untuk sound,dll.
  • Data Source
Menunjukkan lokasi dimana database disimpan

  • App.Path
menunjukkan file yang dicari berada dalam satu folder
  •  dbMahasiswa.mdb
merupakan nama database yang tadi telah kita buat
  • MsgBox "Koneksi Berhasil"
merupakan sebuah messeger Box yang digunakan hanya untuk mengetahui apakah script diatasnya dijalankan.