sms.frm

SMS sender Source to nokia

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{997F88E9-8CA8-4FD7-A3C6-F411CF22CD7C}#43.0#0"; "MFBUS15.OCX"
Begin VB.Form sms 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "SMS Sender"
   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 MFBUS15.MFBUS15Control FBUS 
      Height          =   480
      Left            =   2400
      TabIndex        =   11
      Top             =   3600
      Width           =   480
      _ExtentX        =   847
      _ExtentY        =   847
   End
   Begin MSComctlLib.ProgressBar Bar 
      Height          =   255
      Left            =   120
      TabIndex        =   10
      Top             =   4200
      Width           =   5055
      _ExtentX        =   8916
      _ExtentY        =   450
      _Version        =   393216
      Appearance      =   1
      Max             =   255
   End
   Begin VB.TextBox txtTujuan 
      Height          =   375
      Left            =   3360
      TabIndex        =   9
      Top             =   3000
      Width           =   1695
   End
   Begin VB.CommandButton cmdKirim 
      Caption         =   "K i r i m S M S"
      Height          =   375
      Left            =   3360
      TabIndex        =   8
      Top             =   3480
      Width           =   1695
   End
   Begin VB.TextBox txtSMS 
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   2415
      Left            =   2400
      MaxLength       =   160
      MultiLine       =   -1  'True
      TabIndex        =   5
      Top             =   480
      Width           =   2775
   End
   Begin VB.ComboBox Combo1 
      Height          =   315
      Left            =   840
      TabIndex        =   2
      Text            =   "COM1"
      Top             =   120
      Width           =   1335
   End
   Begin VB.CommandButton cmdLoad 
      Caption         =   "List Phone Number"
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   480
      Width           =   2055
   End
   Begin VB.ListBox List1 
      Height          =   2985
      Left            =   120
      Sorted          =   -1  'True
      TabIndex        =   0
      Top             =   960
      Width           =   2055
   End
   Begin VB.Label lblKetsisa 
      Caption         =   "Sisa Text"
      Height          =   255
      Left            =   2400
      TabIndex        =   7
      Top             =   3360
      Width           =   735
   End
   Begin VB.Label lblSisa 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "160"
      Height          =   375
      Left            =   2400
      TabIndex        =   6
      Top             =   3000
      Width           =   735
   End
   Begin VB.Label lblstatus 
      Alignment       =   2  'Center
      BackColor       =   &H00FFC0C0&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "Not Connected"
      Height          =   255
      Left            =   2400
      TabIndex        =   4
      Top             =   120
      Width           =   2775
   End
   Begin VB.Label lblKetCOM 
      Caption         =   "COM"
      Height          =   375
      Left            =   240
      TabIndex        =   3
      Top             =   120
      Width           =   615
   End
End
Attribute VB_Name = "sms"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdKirim_Click()
If FBUS.RfLevel > 0 Then
 If txtTujuan.Text <> "" Then
   FBUS.SendSMSMessage txtTujuan.Text, txtSMS.Text
   MsgBox "SMS terkirim dengan SUKSES"
 Else
   MsgBox "Masukkan dulu tujuan anda"
 End If
Else
 MsgBox "Handphone di luar jangkauan servis area"
End If
End Sub

Private Sub cmdLoad_Click()
List1.Clear
With FBUS
For i = 1 To 255
 List1.Refresh
 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 Combo1_Click()
FBUS.Connect Combo1.Text
If FBUS.Connected Then
  lblstatus.Caption = "Connected"
Else
 lblstatus.Caption = "not Connected"
End If
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()

tujuan = List1.Text
For i = 1 To Len(tujuan)
  If Mid(tujuan, i, 1) = "-" Then
   panjang = i
   Exit For
  End If
Next i
kirimtuj = Right(tujuan, Len(tujuan) - panjang)
txtTujuan.Text = kirimtuj

End Sub

Private Sub txtSMS_Change()
jum = Len(txtSMS.Text)
lblSisa.Caption = 160 - jum
End Sub