CARA KONEKSI INTERNET DENGAN HANPHONE

{ November 15, 2009 @ 7:29 am } · { cara koneksi internet dengan menggunakan hp sebagai modem }
{ Tags: } · { Leave a Comment }

PERSIAPKAN PERALATANNYA

  1. KOMPUTER
  2. BLUETOOTH/INFRARED/CABEL DATA
  3. HANPHONE

DISINI KITA AKAN COBA DENGAN VIA INFRARED DENGAN TIPE HP nokia 5070

LANGKAH-LANGKAHNYA :

  • LANGKAH 1

dengan keadaan komputer kita aktif/keadaan menyala dan alat penghubung yaitu infrared dalam keadaan sudah di pasang

2

aktifkan infrared di hp anda lalu dekatkan ke alat infrared maka akan muncul seperti diatas, ini muncul untuk menginstal modem hp yang ada di handphone anda ke pc tinggal next-next sampai finish

LANGKAH 2

mensetting modem di pc dengan cara start > control panel  maka akan tampil seperti ini

6

pilih phone and modem seperti diatas, lalu akan tampil seperti ini

7

lalu klik properti di pojok kanan bawah. maka akan tampil seperti ini

9

lalu klik diagnotict maka akan muncul seperti dibawah lalu klik juga Query modem

12

lalu anda pilih Advance maka akan muncul

yyyy

diatas saya memakai kartu axis(gsm)maka cara ngisiinya :

ketik :   AT+CGDCONT=1,”IP”,”axis” ini utuk gsm

ketik :  AT+CRM=1;CSO=33 ini untuk CDMA

lalu OK

LANGKAH 3

anda membuat jaringan baru dengan cara:

start > control panel > network connection lalu buat network baru dengan create a new connection lalu next


maka akan muncul seperti ni…

18

lalu next lagi maka akan muncul…

19

lalu next maka akan muncul…

20

lalu next maka akan munucul

ISP name isi dengan karena saya pake axis maka saya isi dengan  axisgprs lalu next maka akan muncul

PHONE NOMBER isi dengan *99#1***

sedangkan kalo pake cdma isi dengan #777

lalu next maka akan muncul

23

untuk username,pasword,confirm pasword di kosongkan saja

lalu next lalu finish

lalu untuk conect ke internet tekan dial di form di bawah ini

dial

setelah dial anda bisa konek ke internet. selamat mencoba semoga blog ini dapat membantu anda u

cara membuat database dengan visual basic

{ November 12, 2009 @ 3:49 pm } · { Uncategorized }
{ Tags: } · { Comments (2) }

untitled

PROGRAMNYA

Sub textmati()

Text1.Enabled = False

Text2.Enabled = False

Text3.Enabled = False

Text4.Enabled = False

End Sub

Sub texthidup()

Text1.Enabled = True

Text2.Enabled = True

Text3.Enabled = True

Text4.Enabled = True

End Sub

Sub kosongtext()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

End Sub

Private Sub cmdadd_Click()

On Error Resume Next

Text5.Text = Date

Call texthidup

Dim cari

cari = InputBox(“Masukan kode supplier”)

Adodc1.Recordset.MoveFirst

Adodc1.Recordset.Find “kode_suplier= ‘” & cari & “‘”

If Not Adodc1.Recordset.EOF Then

MsgBox “kode supplier sudah ada”

Call cmdadd_Click

Else

Adodc1.Recordset.AddNew

Text1.Text = cari

End If

Text2.SetFocus

cmdsimpan.Enabled = True

cmdadd.Enabled = False

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

End Sub

Private Sub cmdcari_Click(Index As Integer)

Adodc1.Recordset.MoveFirst

Adodc1.Recordset.Find “kode_suplier=’” & Text6.Text & “‘”

cmdedit.Enabled = True

cmddelete.Enabled = True

cmdadd.Enabled = False

If Adodc1.Recordset.EOF Then

MsgBox “data not found”

Text6.Text = “”

Text6.SetFocus

cmddelete.Enabled = False

cmdadd.Enabled = True

End If

End Sub

Private Sub cmddelete_Click()

Dim hapus

hapus = MsgBox(“yakin hapus ?”, vbOKCancel)

If hapus = vbOK Then

Adodc1.Recordset.Delete

Adodc1.Recordset.MovePrevious

cmdedit.Enabled = False

cmddelete.Enabled = False

cmdadd.Enabled = True

End If

End Sub

Private Sub cmdedit_Click()

If cmdedit.Caption = “edit” Then

Call texthidup

Text1.SetFocus

cmdedit.Caption = “update”

Else

Adodc1.Recordset.Update

cmdedit.Caption = “edit”

Call textmati

cmdedit.Enabled = False

cmddelete.Enabled = False

cmdadd.Enabled = True

End If

End Sub

Private Sub cmdexit_Click()

Unload Me

End Sub

Private Sub cmdfirst_Click(Index As Integer)

Adodc1.Recordset.MoveFirst

End Sub

Private Sub cmdnext_Click(Index As Integer)

Adodc1.Recordset.MoveNext

If Adodc1.Recordset.EOF Then

MsgBox “akhir record”

End If

End Sub

Private Sub cmdprev_Click()

Adodc1.Recordset.MovePrevious

If Adodc1.Recordset.BOF Then

MsgBox “awal record”

End If

End Sub

Private Sub cmdsimpan_Click()

Dim simpan

simpan = MsgBox(“simpan data”, vbOKCancel)

If simpan = vbOK Then

Adodc1.Recordset.Update

cmdadd.Enabled = True

cmdsimpan.Enabled = False

Call textmati

Else

Adodc1.Recordset.CancelBatch

Call kosongtext

cmdsimpan.Enabled = False

cmdadd.Enabled = True

Call textmati

cmdadd.SetFocus

End If

End Sub

Private Sub Command7_Click()

Adodc1.Recordset.MoveLast

If Adodc1.Recordset.EOF Then

MsgBox “data sudah paling akhir”

Adodc1.Recordset.MoveLast

End If

End Sub

Private Sub Form_Load()

Call textmati

cmdsimpan.Enabled = False

cmddelete.Enabled = False

cmdedit.Enabled = False

End Sub

Follow

Get every new post delivered to your Inbox.