Public Class Fo

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        KP.Items.Add("TOK-MED-100")
        KP.Items.Add("PAB-BEL-101")
        KP.Items.Add("SWA-BEL-102")
        KP.Items.Add("PAB-MED-103")
        KP.Items.Add("RUM-MED-104")
        Call buat_tabel()

    End Sub
    Sub buat_tabel()
        lv.GridLines = True
        lv.View = View.Details
        lv.FullRowSelect = True
        lv.Columns.Add("KP")
        lv.Columns.Add("Nama")
        lv.Columns.Add("Tipe")
        lv.Columns.Add("Daerah")
        lv.Columns.Add("HargaM3")
        lv.Columns.Add("BBeban")
        lv.Columns.Add("Pemakaian")
        lv.Columns.Add("TTagihan")
        lv.Columns.Add("Pajak")
        lv.Columns.Add("Pembayaran")
    End Sub

    Private Sub btnmasuk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmasuk.Click
        Dim lst As New ListViewItem
        lst.Text = KP.Text
        lst.SubItems.Add(Nama.Text)
        lst.SubItems.Add(Tipe.Text)
        lst.SubItems.Add(Daerah.Text)
        lst.SubItems.Add(HargaM3.Text)
        lst.SubItems.Add(BBeban.Text)
        lst.SubItems.Add(Pemakaian.Text)
        lst.SubItems.Add(TTagihan.Text)
        lst.SubItems.Add(Pajak.Text)
        lst.SubItems.Add(Pembayaran.Text)

        lv.Items.Add(lst)


    End Sub

    Private Sub btnhapuslistview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapuslistview.Click
        lv.Items.Clear()
    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub

    Private Sub lv_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lv.SelectedIndexChanged

    End Sub

    Private Sub KP_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KP.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Right(KP.Text, 3)



        If x = "100" Then
            nama.Text = "Muhammad Ardianto"
        ElseIf x = "101" Then
            nama.Text = "Jekson Sinaga"
        ElseIf x = "102" Then
            nama.Text = "Triani Arista"
        ElseIf x = "103" Then
            nama.Text = "Aldyan"
        End If


        x = Microsoft.VisualBasic.Left(KP.Text, 3)

        If x = "PAB" Then
            HargaM3.Text = 500
            BBeban.Text = 250000
            Tipe.Text = "Pabrik"
        ElseIf x = "TOK" Then
            HargaM3.Text = 500
            BBeban.Text = 25000
            Tipe.Text = "Toko"
        ElseIf x = "RUM" Then
            HargaM3.Text = 500
            BBeban.Text = 10000
            Tipe.Text = "Rumah"
        ElseIf x = "SWA" Then
            HargaM3.Text = 200
            BBeban.Text = 15000
            Tipe.Text = "Swalayan"
        End If

        x = Microsoft.VisualBasic.Mid(KP.Text, 5, 3)
        If x = "MED" Then
            Daerah.Text = "Medan"
        ElseIf x = "BEL" Then
            Daerah.Text = "Belawan"
        End If
    End Sub
    Private Sub Pemakaian_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Pemakaian.KeyPress
        If Asc(e.KeyChar) = 13 Then
            TTagihan.Text = HargaM3.Text * Pemakaian.Text + Val(BBeban.Text)
            Pajak.Text = 0.01 * TTagihan.Text
            Pembayaran.Text = Val(TTagihan.Text) + Val(Pajak.Text)
        End If
    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click
        KP.Text = ""
        Nama.Text = ""
        Tipe.Text = ""
        TTagihan.Text = ""
        HargaM3.Text = ""
        Pajak.Text = ""
        Pembayaran.Text = ""
        Pemakaian.Text = ""
        Daerah.Text = ""
        BBeban.Text = ""
    End Sub
End Class


 

Sekarang BlackBerry Mesenger Bisa Lewat Laptop Dan Komputer

Sekarang BlackBerry Mesenger Bisa Lewat Laptop Dan Komputer

Blackberry Messengger melalui atau menggunakan laptop,Bagai anda yang hobi BBM(BlackBerry Mesenger)sekarang sudah suport pc/dekstop loh, jadi anda bisa BBM man dengan menggunakan laptop or komputer,cara BBM melalui komputer  sangat gampang loh Untuk anda bisa BBm an dengan menggunakan laptop or komputer yang layarnya lebih besar.

CARA MENGGUNAKAN :
1. Install terlebih dahulu software
Impatica viaDock pada komputer Anda.
Berikut ini link download software
Impatica viaDock untuk komputer :
Impatica viaDock v1.1.5 (for Windows)
Impatica viaDock v1.1.5a (for Mac OS X)
Impatica viaDock untuk komputer :
Impatica viaDock v1.1.5 (for Windows)

http://www.impatica.com/downloads/viadock/115/
setupviadock-115.exe

Impatica viaDock v1.1.5a (for Mac OS X)
http://www.impatica.com/downloads/viadock/1.1.5a/
Impatica-viadock.dmg
Serial Number :
Name : User-090925-W11
Organisaztion : GL8
Reg Code : SLNC BZNL DZYD FWEG

2. Setelah sukses menginstall software di komputer,
kemudian selanjutnya download dan install aplikasi
Impatica Connector pada Blackberry anda.
Berikut ini link download OTA aplikasi Impatica Connector
untuk Blackberry (klik langsung dari BB) :
http://www.impatica.com/bb/1039/Impconnector.jad

Atau untuk yang tidak bisa browsing d
ari BB, bisa download aplikasi Impatica Connetor untuk BB
berikut dari PC, lalu extract dan transfer ke media card
untuk diinstal langsung dari media card ( thx to Bro
ghoest ) :)
http://www.impatica.com/bb/1039/ImpConnector1.0.39.zip

3. Hubungkan Blackberry dengan
komputer melalui kabel USB.

4. Jalankan aplikasi Impatica Connector pada Blackberry,
kemudian pilih USB CONNECTION untuk mulai
memproyeksikan tampilan Blackberry.

5. Langkah terakhir, jalankan software Impatica viaDock
pada komputer anda.

( SMS GATEWAY PHP MYSQL ) Tahap Demi Tahap Membangun SMS Gateway Dengan PHP MYSQL

( SMS GATEWAY PHP MYSQL ) Tahap Demi Tahap Membangun SMS Gateway Dengan PHP MYSQL

A. MEMBANGUN SEBUAH SERVER SMS GATEWAY

What is Gammu ? ( Apa itu Gammu? ), Gammu merupakan sebuah aplikasi/daemon yang dikhususkan untuk membangun sebuah SMS Gateway yang menghubungkan antara operator seluler ke internet dan sebaliknya. Aplikasi ini bersifat open source dibawah lisensi GPL. Sebenarnya Gammu tidak hanya berfungsi sebagai SMS Gateway saja tetap bisa juga untuk melakukan voice call. Untuk mengetahui fitur lengkap dari Gammu silahkan buka websitenya di http://wammu.eu/gammu/. Aplikasi ini tersedia dalam versi Linux dan Windows. Untuk memudahkan manajemen SMS yang ada di INBOX Gammu mempunyai sebuah aplikasi web-based yang dibangun menggunakan PHP oleh anak bangsa dari ITB yang diberi nama  Kalkun. Aplikasi ini menyediakan fitur yang lumayan lengkap untuk memanajemen Gammu. Sebenarnya setelah kita sukses membangun Gammu, maka kita bisa membangun aplikasi SMS Gateway dengan bahasa program atau platform apapun, baik itu web based dengan PHP maupun ASP atau apapun, dan juga desktop dengan menggunakan Delphi, VB atau lainnya.


Saat ini Gammu sudah support HP/Modem GSM terbaru sehingga anda tidak perlu kawatir dengan masalah kompatibilitasnya. Yang akan saya bahas kali ini adalah Gammu versi windows karena Windows sudah banyak digunakan oleh banyak user dan juga lebih familiar. Dalam artikel ini pembahasan akan sampai dengan cara instalasi service dan menjalankannya.

Langkah Pertama (Download File)

Silakan mendownload Gammu nya terlebih dahulu di
http://www.mwiacek.com/zips/gsm/gammu/gammu_win32.zip


Langkah Kedua (Install Gammu)

Secara default setelah file setup di atas diinstal, file gammu terletak di direktori C:\GAMMU.

Langkah Ketiga (Setting Konfigurasi Gammu)

Setelah file Gammu diinstall, langkah berikutnya adalah setting konfigurasi. Setting ini diperlukan guna keperluan penyesuaian jenis HP dan nomor port yang akan digunakan. Bagaimana cara settingnya? Caranya adalah silakan edit file ‘GAMMURC‘ yang ada di dalam direktori ‘C:\gammu‘. Editlah file GAMMURC tersebut menggunakan Notepad atau sejenisnya kemudian anda rubah bagian berikut :

1.[gammu]
2.port =
3.connection =

parameter port itu nanti diisi dengan nomor port sesuai lokasi colokan HP Anda. Untuk mengetahui nomor port dimana Anda colokkan HP Anda di komputer, silakan masuk ke  Control Panel – Phone and Modem Options – Modem. Nah… bila HP Anda sudah tercolok di PC dan drivernya sudah terinstal dengan baik maka pastinya pada bagian tersebut akan muncul nomor portnya.


Tips Buat Sahabat Belajar Pintar PHP :

Sebaiknya setiap kali HP Anda dicolokkan ke PC, gunakan lokasi port USB yang sama alias jangan pindah pindah colokan, karena setiap ganti colokan maka nomor portnya akan berubah-ubah. Akibatnya Anda musti ubah setting GAMMURC nya berkali-kali pula karena harus menyesuaikan nomor portnya.

Berikut ini contoh konfigurasi GAMMURC bila saya menggunakan modem Wavecom


M1206B yang terhubung ke port com5 USB.

1.[gammu]
2.port = com5:
3.connection = at115200

(Penting: jangan lupa tanda : di belakang port)

Bila Anda gunakan lebih dari satu HP yang tercolok ke PC, maka Anda bisa menambah atau mengubah konfigurasinya pada bagian :

01.[gammu1]
02..
03..
04.
05.[gammu2]
06..
07..
08.
09.dst..


Langkah Keempat (Uji Koneksi)


Langkah terakhir untuk proses setting GAMMU ini adalah melakukan uji koneksi antara Gammu dengan HP/modem Anda. Langkah ini dilakukan setelah proses setting konfigurasi dilakukan. Caranya adalah dengan masuk folder ‘C:\gammu‘ pada direktori Gammu Anda via DOS PROMPT. Lalu ketikkan perintah ini pada command promptnya.

1.gammu identify

Apabila setelah perintah tersebut dienter lalu muncul informasi mengenai HP Anda, maka koneksi antara Gammu dengan HP Anda sukses. Bila responnya tidak seperti yang diharapkan, maka cek kembali nomor portnya atau jenis connectionnya. Berikut ini contoh tampilan yang keluar apabila proses setting berhasil dilakukan :




Langkah Kelima (Membuat Database MySQL untuk Gammu)

Langkah ini bertujuan untuk menyiapkan database MySQL untuk menampung data-dataSMS yang diperlukan Gammu untuk SMS Gateway. Sebenarnya tidak hanya MySQL yang bisa digunakan, namun bisa juga SQL Lite atau Posgre SQL. Namun… dalam artikel ini hanya untuk MySQL saja deh, karena saya tidak familiar dengan yang lainnya.

Caranya adalah buat database dengan nama ‘sms‘ atau yang lain (terserah) menggunakan phpMyAdmin Anda. Lalu buatlah tabel-tabel yang diperlukan oleh Gammu. Waduh.. tabelnya apa aja ya? Don’t worry karena Gammu sudah menyiapkan file dumpnya untuk create tabel. Letak file dumpnya ada di folder ‘C:\gammu\mysql-tabel.sql‘. Nah.. silakan gunakan file dump tersebut untuk membuat tabel-tabelnya menggunakan phpMyAdmin.

Pada Gammu sebenarnya SMS tidak hanya bisa disimpan dalam database, namun juga bisa sebagai file teks yang disimpan di PC Anda. Namun untuk keperluan SMS gateway sepertinya lebih enak menggunakan database sebagai storagenya.

Langkah Keenam (Setting Konfigurasi Untuk SMS Daemon)

Langkah ini dilakukan setelah setting database untuk Gammu. SMS daemon pada Gammu digunakan untuk proses pembacaan otomatis SMS yang diterima lalu disimpan ke database. SMS daemon juga diperlukan untuk keperluan pengiriman SMS. Untuk melakukan setting SMS daemon, bukalah file ‘SMSDRC‘ yang terletak di direktori ‘C:\gammu‘. Bukalah dengan Notepad atau sejenisnya. Bagian yang diubah adalah:

port = diisi nomor port sesuai yang ada di file GAMMURC
connection = diisi jenis connection sesuai yang ada di GAMMURC
service = mysql (diisi dengan ‘mysql’ karena kita akan menggunakan mysql sebagai storage
data SMSnya)
user = diisi user database koneksi ke mysql Anda
password = diisi password koneksi ke mysql Anda
pc = diisi nama host mysql (biasanya localhost)
database = sms (atau sesuai nama database yang tadi kita buat)


Contoh konfigurasi yang ditulis :

1.port = com5:
2.connection = at115200
3.service = mysql

4.user = root
5.password = passwordroot
6.pc = localhost
7.database = sms
Catatan: hilangkan tanda # di depan parameter-parameter di atas bila ada.


Langkah Ketujuh (Membuat Gammu Service)

Langkah ini bertujuan untuk membuat service Gammu di Windows. Dengan dibuatnya service di Windows ini kita bisa lebih mudah menjalankannya tanpa menggunakan perintah tertentu di command prompt. Untuk membuat Gammu service di Windows, ketikkan perintah ini di DOS PROMPT setelah Anda masuk ke folder ‘C:\gammu‘.

1.gammu-smsd -c smsdrc -i

Nah.. bila ada konfirmasi bahwa proses pembuatan service sukses, maka Anda akan melihatservice Gammu muncul pada daftar service yang berjalan di Windows. Service ini bisa dilihat melalui ‘CONTROL PANEL > Administrative Tools > Services’. Nah.. untuk menjalankan service Gammu ini tinggal klik START pada service Gammu tersebut.

Namun bila proses pembuatan service ini gagal, maka silakan cek kembali konfigurasi SMSDRC nya atau mungkin nama databasenya salah, atau bisa juga command yang dituliskan salah.

B. MENGHUBUNGKAN SMS GATEWAY DENGAN WEB ANDA

Langkah Pertama (Persiapan)

Untuk menghubungkan SMS Gateway dengan web anda ada 2 metode yang bisa dilakukan yaitu dengan metode direct connection (IP Publik) ataupun web service (SOAP). Kali ini yang akan kita bahas adalah metode direct connection yang membutuhkan persiapan sebagai berikut :
1. Koneksi internet stabil dan unlimited, bisa menggunakan speedy

2. IP Publik statik dari ISP (untuk hal ini IP publik harus masuk ke router supaya bisa diakses dari internet, untuk lebih jelasnya silahkan baca artikel Membuat server hosting sendiri dengan speedy dan mikrotik dan Setting Mikrotik PPPoE sebagai gateway speedy

3. Mikrotik Router (PC Router/RouterBoard)

Langkah Kedua (Membuat script PHP untuk mengirim SMS)

OK.. sekarang kita akan mencoba membuat script PHP sederhana untuk mengirim pesan SMS yang terintegrasi dengan Gammu ini.


Langkah pertama kita buat form untuk mengirim pesan SMS nya terlebih dahulu.

form_sms.php


1.<form method="post" action="send.php">
2.No. HP Tujuan : <input type="text" name="nohp" value="+62"><br>
3.Pesan : <textarea name="msg"></textarea><br>
4.<input type="submit" name="submit" value="Kirim SMS">
5.</form>

Langkah kedua, kita buat script php untuk mengirim pesannya. send.php
1.<?php
2.$noTujuan = $_POST['nohp'];
3.$message = $_POST['msg'];
4.
5.exec('c:\gammu\gammu-smsd-inject.exe -c c:\gammu\smsdrc EMS '.$noTujuan.' -text
"'.$message.'"');
6.
7.?>

Perintah exec() dalam PHP digunakan untuk menjalankan perintah command DOS dalam hal ini adalah perintah command inject nya Gammu.

Karena command inject Gammu pada script di atas menggunakan format EMS maka memungkinkan kita mengirim SMS dengan jumlah karakter lebih dari 160 buah. Oya… sebelum Anda menjalankan script di atas, pastikan bahwa service Gammu nya telah Anda jalankan, dan HP Anda tercolok ke PC Sekarang… bagaimana bila pengiriman SMS dari script di atas menggunakan query INSERT? Ini dia scriptnya.

send.php

01.<?php
02.mysql_connect("dbhost", "dbuser", "dbpass");
03.mysql_select_db("sms");
04.
05.$noTujuan = $_POST['nohp'];
06.$message = $_POST['msg'];
07.
08.$query = "INSERT INTO outbox (DestinationNumber, TextDecoded, CreatorID)
VALUES ('$noTujuan', '$message', 'Gammu')";
09.$hasil = mysql_query($query);

10.if ($hasil) echo "SMS berhasil dikirim";
11.else echo "SMS gagal dikirim";
12.
13.?>


Langkah Ketiga (Mengakses script PHP diatas via internet)

Setelah anda membaca dan mempraktekkan langkah kedua di tahap persiapan anda sudah bisa mengakses form pengiriman SMS anda dari internet, contoh  : bila script PHPdiatas pada waktu anda mengaksesnya lewat localhost menggunakan URL  http://localhost/form_sms.php maka untuk mengaksesnya dari internet URL berubah menjadi http://IP_Publik_ISP/form_sms.php. Bila anda ingin URL menggunakan subdomain anda misal http://sms.domainanda.com/form_sms.php, anda tinggal menambahkan A Record di DNS Record hosting anda yang mengarah ke IP Publik dari ISP anda.

Demikianlah Tutorial SMS Gateway  yang saya sampaikan, semoga bermanfaat bagi yang membacanya. Jika ada pertanyaan tentang artikel ini silahkan tinggalkan komentar anda.

Belajar VISUAL BASIC

Yuk,, Belajar Konsep Pemrograman Visual Basic:

 1.Buatlah Form seperti gambar dibawah ini.

2.Ketiklah listing seperti berikut ini:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        NPM.Items.Add("12110104")

        NPM.Items.Add("12111001")

        NPM.Items.Add("12111011")

        Me.Text = " FORM NILAI "

        Me.BackColor = Color.Green

        kode_dosen.Items.Add("01")

        kode_dosen.Items.Add("02")

        kode_dosen.Items.Add("03")

        kode_matakuliah.Items.Add("001")

        kode_matakuliah.Items.Add("002")

        kode_matakuliah.Items.Add("003")

        nilai_kehadiran.Items.Add("50")

        nilai_kehadiran.Items.Add("60")

        nilai_kehadiran.Items.Add("70")

        nilai_kehadiran.Items.Add("80")

        nilai_kehadiran.Items.Add("90")

        nilai_tugas.Items.Add("50")

        nilai_tugas.Items.Add("60")

        nilai_tugas.Items.Add("70")

        nilai_tugas.Items.Add("80")

        nilai_tugas.Items.Add("90")

        nilai_UTS.Items.Add("50")

        nilai_UTS.Items.Add("60")

        nilai_UTS.Items.Add("70")

        nilai_UTS.Items.Add("80")

        nilai_UTS.Items.Add("90")

        nilai_UAS.Items.Add("50")

        nilai_UAS.Items.Add("60")

        nilai_UAS.Items.Add("70")

        nilai_UAS.Items.Add("80")

        nilai_UAS.Items.Add("90")

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged

        Select Case NPM.Text

            Case "12110104"

                Nama.Text = "fernando"

                Jenjang.Text = "S1"

                jurusan.Text = "Tehnik Informatika"

                matakuliah.Text = "arsitektur"

            Case "12111001"

                Nama.Text = "mesran"

                Jenjang.Text = "D3"

                jurusan.Text = "Manajemen Informatika"

                matakuliah.Text = "vb"

            Case Else

                Nama.Text = "toni"

                Jenjang.Text = "D1"

                jurusan.Text = "teknik komputer"

                matakuliah.Text = "program "

        End Select

       

    End Sub

    Private Sub kode_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged

        If kode_dosen.Text = "01" Then

            nama_dosen.Text = "Mesran"

        ElseIf kode_dosen.Text = "02" Then

            nama_dosen.Text = "Toni Limbong"

        ElseIf kode_dosen.Text = "03" Then

            nama_dosen.Text = "Sinar Sinurat"

        End If

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        NPM.Text = ""

        Nama.Text = ""

        Jenjang.Text = ""

        jurusan.Text = ""

        kode_dosen.Text = ""

        nama_dosen.Text = ""

        kode_matakuliah.Text = ""

        matakuliah.Text = ""

        nilai_kehadiran.Text = ""

        nilai_tugas.Text = ""

        nilai_UTS.Text = ""

        nilai_UAS.Text = ""

        nilai_akhir.Text = ""

        nilai_huruf.Text = ""

        keterangan.Text = ""

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        Me.Close()

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        nilai_akhir.Text = 0.1 * nilai_kehadiran.Text + 0.15 * nilai_tugas.Text + 0.3 * nilai_UTS.Text + 0.45 * nilai_UAS.Text

        If nilai_akhir.Text >= 80 Then

            nilai_huruf.Text = "A"

            keterangan.Text = "sangat memuaskan"

        ElseIf nilai_akhir.Text >= 70 Then

            nilai_huruf.Text = "B"

            keterangan.Text = "memuaskan"

        ElseIf nilai_akhir.Text >= 60 Then

            nilai_huruf.Text = "C"

            keterangan.Text = "cukup memuaskan"

        ElseIf nilai_akhir.Text >= 50 Then

            nilai_huruf.Text = "D"

            keterangan.Text = " buruk"

        Else

            nilai_akhir.Text = "E"

            keterangan.Text = "sangat buruk"

        End If

    End Sub

End Class

 3. Tekan F5, maka hasilnya seperti gambar dibawah ini :