fmrphonebook.frm

SMS sender Source to nokia

VERSION 5.00
Object = "{997F88E9-8CA8-4FD7-A3C6-F411CF22CD7C}#43.0#0"; "MFBUS15.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form phonebook 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "MyPhoneBook"
   ClientHeight    =   4455
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5265
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4455
   ScaleWidth      =   5265
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame Frame1 
      Caption         =   "Data Baru"
      Height          =   2175
      Left            =   2400
      TabIndex        =   10
      Top             =   840
      Width           =   2775
      Begin VB.TextBox txtnama 
         Height          =   375
         Left            =   720
         TabIndex        =   13
         Top             =   360
         Width           =   1815
      End
      Begin VB.TextBox txtnomor 
         Height          =   375
         Left            =   720
         TabIndex        =   12
         Top             =   840
         Width           =   1815
      End
      Begin VB.CommandButton cmdSimpan 
         Caption         =   "Simpan"
         Height          =   375
         Left            =   720
         TabIndex        =   11
         Top             =   1320
         Width           =   1815
      End
      Begin VB.Label Label1 
         Caption         =   "Nama"
         Height          =   255
         Left            =   120
         TabIndex        =   15
         Top             =   360
         Width           =   615
      End
      Begin VB.Label Label2 
         Caption         =   "Alamat"
         Height          =   255
         Left            =   120
         TabIndex        =   14
         Top             =   840
         Width           =   615
      End
   End
   Begin MSComctlLib.ProgressBar bar 
      Height          =   255
      Left            =   120
      TabIndex        =   7
      Top             =   4200
      Width           =   4935
      _ExtentX        =   8705
      _ExtentY        =   450
      _Version        =   393216
      Appearance      =   1
   End
   Begin VB.ComboBox Combo1 
      Height          =   315
      Left            =   840
      TabIndex        =   6
      Text            =   "COM1"
      Top             =   120
      Width           =   1335
   End
   Begin VB.CommandButton cmdLoad 
      Caption         =   "List Phone Number"
      Height          =   375
      Left            =   120
      TabIndex        =   5
      Top             =   480
      Width           =   2055
   End
   Begin VB.TextBox txtDial 
      Height          =   375
      Left            =   2880
      TabIndex        =   4
      Top             =   3120
      Width           =   1815
   End
   Begin VB.CommandButton cmdDial 
      Caption         =   "Dial"
      Height          =   375
      Left            =   3000
      TabIndex        =   3
      Top             =   3720
      Width           =   1815
   End
   Begin VB.CommandButton cmdExport 
      Caption         =   "Export"
      Height          =   375
      Left            =   240
      TabIndex        =   2
      Top             =   3720
      Width           =   1815
   End
   Begin VB.ListBox List1 
      Height          =   2595
      Left            =   120
      Sorted          =   -1  'True
      TabIndex        =   1
      Top             =   960
      Width           =   2055
   End
   Begin MFBUS15.MFBUS15Control Fbus 
      Height          =   480
      Left            =   120
      TabIndex        =   0
      Top             =   2640
      Width           =   480
      _ExtentX        =   847
      _ExtentY        =   847
   End
   Begin VB.Label lblstatus 
      Alignment       =   2  'Center
      BackColor       =   &H00FFC0C0&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Not Connected"
      Height          =   255
      Left            =   2400
      TabIndex        =   9
      Top             =   120
      Width           =   2775
   End
   Begin VB.Label Label3 
      Caption         =   "COM"
      Height          =   375
      Left            =   240
      TabIndex        =   8
      Top             =   120
      Width           =   615
   End
End
Attribute VB_Name = "phonebook"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdDial_Click()
Fbus.VoiceCall txtDial.Text
End Sub

Private Sub cmdExport_Click()
tujuan = InputBox("Masukkan Nama dn Lokasi File", "Export")
FileCopy App.Path & "\alamat.txt", tujuan

Open tujuan For Output As #1
For i = 0 To List1.ListCount
   Print #1, List1.List(i)
Next i
Close #1
MsgBox "Export berjalan lancar"
End Sub

Private Sub cmdLoad_Click()
List1.Clear
With Fbus
For i = 1 To 255
 a = .phonebook(i, fbSimMemory).Name
 b = .phonebook(i, fbSimMemory).Number
 If a <> "" And b <> "" Then
   List1.AddItem a & "-" & b
 End If
   bar.Value = i
Next i
End With

End Sub

Private Sub cmdSimpan_Click()
Fbus.phonebook(1, fbSimMemory).WriteData txtnama.Text, txtnomor.Text, 1
cmdLoad_Click
End Sub
Private Sub Combo1_Click()
Fbus.Connect Combo1.Text
If Fbus.Connected Then
  lblstatus.Caption = "Connected"
Else
 lblstatus.Caption = "not Connected"
End If
End Sub


Private Sub Command1_Click()

End Sub

Private Sub Export_Click()

End Sub

Private Sub Form_Load()
Combo1.AddItem "COM1"
Combo1.AddItem "COM2"
Combo1.AddItem "COM3"
Combo1.AddItem "COM4"
bar.Max = 255
bar.Min = 0
End Sub

Private Sub List1_Click()

dial = List1.Text
For i = 1 To Len(dial)
  If Mid(dial, i, 1) = "-" Then
   panjang = i
   Exit For
  End If
Next i
dialno = Right(dial, Len(dial) - panjang)
txtDial.Text = dialno

End Sub