Thursday, January 22, 2004

MSN Hotmail - Message: "yes its very much possible to send sms from a vb application.
there two ways
1) from a vb appliaction and a gsm moble phone
attached to the computer
2)directly via web thru a sms gateway provider
even that also from a vb application.

sms service providers in india are also available
i've found one
http://www.smsjunction.com

from a client server or a web application
may be its in vb or vb.net or asp.net ...
its legal to send users or end users connected
to the specific business process."

Tuesday, January 20, 2004

Imports System

will make it work. Other than this everything is the ok. Maybe the '\n' in the Colsole.WriteLine(...) can be replaced with vbCrLf (again the line "Imports Microsoft.VisualBasic" is required for vbCrLf), then the console output would be as desired.

MSN Hotmail - Message

Wednesday, January 07, 2004

Creating a Back List Enumerator Class in VB.net
-------------------------------------------

Imports System.Collections

Public Class BackListEnumerator
Implements IEnumerator

Private _baseList As IList
Private _currentIndex As Integer

'we can choose to start iteration from a particular index instead of the last
Public Sub New(ByVal baseList As IList, ByVal startAt As Integer)
_baseList = baseList
_currentIndex = startAt
End Sub

'by default start at the last item
Public Sub New(ByVal baseList As IList)
Me.New(baseList, baseList.Count)
End Sub

'this returns the object at the present position
Public ReadOnly Property Current() As Object Implements IEnumerator.Current
Get
Return _baseList(_currentIndex)
End Get
End Property

Public Function MoveNext() As Boolean Implements IEnumerator.MoveNext
'if we are at the beginning
'then return false, since we can't move back anymore,
'else decrement the index and return true
If _currentIndex = 0 Then
Return False
Else
_currentIndex -= 1
Return True
End If
End Function

Public Sub Reset() Implements IEnumerator.Reset
_currentIndex = _baseList.Count
End Sub
End Class

Public Class BackListEnumerable
Implements IEnumerable
Implements IEnumerator

Private _list As IList

Public Sub New(ByVal list As IList)
_list = list
End Sub

Public Function GetEnumerator() As IEnumerator Implements IEnumerable.GetEnumerator
Return New BackListEnumerator(_list)
End Function
End Class