Re: Windows Phone 7.5 - Use Background agents

alwahco — Wed, 05 Sep 2012 15:42:16 GMT

Friends

Please help .I have followed most of your tutorials ,and now I have created a mobile application in vb.net .I want it to be able to automatically sent Sms message to my friends reminding them about the meeting schedules or birthdays

Help me what do I do to make it work in my windows phone

Please find the attached source code below

001.Option Explicit On

002.Option Strict Off

003.Imports System

004.Imports System.Data

005.Imports System.Data.SqlServerCe

006.Imports Microsoft.WindowsMobile.PocketOutlook

007.Imports System.Resources

008.Imports System.IO

009.

010.Public Class frmMain

011.

012. Dim formLoadFlag As Boolean = False

013. Private Sub MenuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuExit.Click

014. Application.Exit() 'Exits the Application

015. End Sub

016.

017. Private Sub showDataInForm()

018. txtName.Text = MINUTESDataSet.MINUTES(HScrollBar.Value).Agenda

019. DateTimePicker.Value = MINUTESDataSet.MINUTES(HScrollBar.Value).dateOfMeeting

020. txtMobileNumber.Text = MINUTESDataSet.MINUTES(HScrollBar.Value).mobileNumber

021. txtNotes.Text = MINUTESDataSet.MINUTES(HScrollBar.Value).Minutes

022.

023. updateRecordCount(MINUTESDataSet.MINUTES(HScrollBar.Value).sno)

024. End Sub

025.

026. Private Sub updateRecordCount(ByVal intCurrentRecord As Integer)

027. lblRecCount.Text = "Displaying " & HScrollBar.Value + 1 & " of " _

028. & MINUTESDataSet.MINUTES.Rows.Count & " Records"

029. End Sub

030.

031. Private Sub bdTabControl_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles bdTabControl.SelectedIndexChanged

032. If formLoadFlag = False Then

033. MINUTESTableAdapter.Fill(MINUTESDataSet.MINUTES) 'Filling the data from adapter to dataset

034.

035. DateTimePicker.MaxDate = Today.AddDays(366)

036.

037. formLoadFlag = True

038. End If

039.

040. Select Case bdTabControl.SelectedIndex

041. Case 0

042. MenuModify.Enabled = True

043. MenuDelete.Enabled = True

044.

045. HScrollBar.Maximum = MINUTESDataSet.MINUTES.Rows.Count - 1 'Set the scroll bar value

046.

047. If MINUTESDataSet.MINUTES.Rows.Count > 0 Then

048. showDataInForm()

049. Else

050. txtName.Text = ""

051. txtMobileNumber.Text = ""

052. txtNotes.Text = ""

053.

054. showMessage("Database is empty. Please fill records.")

055. End If

056. Case 1

057. MenuModify.Enabled = False

058. MenuDelete.Enabled = False

059.

060. If MINUTESDataSet.MINUTES.Rows.Count < 1 Then

061. showMessage("Database is empty. Please fill records.")

062. End If

063. Case 2

064. MenuModify.Enabled = False

065. MenuDelete.Enabled = False

066. End Select

067. End Sub

068.

069. Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click

070. If validateControls() = True Then

071. If cmdAdd.Text = "Update" Then

072. addNewData()

073.

074. cmdAdd.Visible = False

075. cmdCancel.Visible = False

076. ToggleTextBoxReadOnly(True) 'Make the textboxes read only

077. ElseIf cmdAdd.Text = "Modify" Then

078. updateRecord(MINUTESDataSet.MINUTES(HScrollBar.Value).sno)

079.

080. cmdAdd.Visible = False

081. cmdCancel.Visible = False

082. ToggleTextBoxReadOnly(True) 'Make the textboxes read only

083. End If

084. End If

085. End Sub

086.

087. Private Function validateControls() As Boolean

088. If txtName.Text <> "" And txtMobileNumber.Text <> "" And txtMobileNumber.TextLength > 9 And txtMobileNumber.TextLength < 14 Then

089. validateControls = True

090. Exit Function

091. End If

092.

093. showMessage("Please enter information in mandatory fields.")

094. validateControls = False

095. End Function

096.

097. Private Sub ToggleTextBoxReadOnly(ByVal flag As Boolean)

098. tabDetView.BringToFront() 'Gives focus to Detail View screen but does not activate it

099.

100. txtName.ReadOnly = flag

101. txtName.Text = ""

102.

103. DateTimePicker.Enabled = IIf(flag = True, False, True)

104. cmdAdd.Visible = IIf(flag = True, False, True) 'Add Record button is enabled

105. cmdCancel.Visible = IIf(flag = True, False, True)

106.

107. txtMobileNumber.ReadOnly = flag

108. txtMobileNumber.Text = ""

109.

110. txtNotes.ReadOnly = flag

111. txtNotes.Text = ""

112.

113. MenuItem.Enabled = flag

114. HScrollBar.Enabled = flag 'Scroll bar is also toggled to avoid data loss

115.

116. 'Fires the initialization of Detail View

117. If flag = True Then bdTabControl.SelectedIndex = 0

118. End Sub

119.

120. Private Sub MenuAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuAdd.Click

121. ToggleTextBoxReadOnly(False) 'Enable textboxes for data entry

122. txtName.Focus() 'Gives focus to First text box (txtname)

123. cmdAdd.Text = "Update"

124. DateTimePicker.Value = Now().ToShortDateString()

125. End Sub

126.

127. Private Sub cmdCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancel.Click

128. cmdAdd.Visible = False

129. cmdCancel.Visible = False

130. ToggleTextBoxReadOnly(True) 'Make the textboxes read only

131. End Sub

132.

133. Private Sub showMessage(ByVal strMsg As String)

134. MsgBox(strMsg, MsgBoxStyle.Information, Me.Text)

135. End Sub

136.

137. Private Sub txtMobileNumber_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtMobileNumber.KeyPress

138. 'Convert.ToInt16(e.KeyChar) <> 8 is for ignoring backspace key

139. If txtMobileNumber.ReadOnly = False And IsNumeric(e.KeyChar) = False And Convert.ToInt16(e.KeyChar) <> 8 Then

140. txtMobileNumber.Text = ""

141. showMessage("Please enter numbers only for mobile number.")

142. End If

143. End Sub

144.

145. Private Sub addNewData(Optional ByVal sno As Integer = 0)

146. MINUTESTableAdapter.Insert(txtName.Text, DateTimePicker.Value, _

147. txtMobileNumber.Text, txtNotes.Text)

148.

149. MINUTESTableAdapter.Fill(MINUTESDataSet.MINUTES) 'Refill the table with new row

150.

151. If sno = 0 Then showMessage("Entry added successfully.")

152. HScrollBar.Value = 0

153. End Sub

154.

155. Private Sub HScrollBar_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HScrollBar.ValueChanged

156. showDataInForm()

157. End Sub

158.

159. Private Sub MenuModify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuModify.Click

160. ToggleTextBoxReadOnly(False) 'Enable textboxes for data entry

161. showDataInForm()

162. txtName.Focus() 'Gives focus to First text box (txtname)

163. cmdAdd.Text = "Modify"

164. End Sub

165.

166. Private Sub MenuDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuDelete.Click

167. Dim ans As Integer = MsgBox("Are you sure you wish to delete the current record?", MsgBoxStyle.YesNo, Me.Text)

168.

169. If ans = 6 Then

170. MINUTESTableAdapter.Delete(MINUTESDataSet.MINUTES(HScrollBar.Value).sno)

171.

172. MINUTESTableAdapter.Fill(MINUTESDataSet.MINUTES)

173. bdTabControl.SelectedIndex = 0

174. End If

175. End Sub

176.

177. Private Sub MenuCheckBD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuCheckMn.Click

178. checkminutes()

179. End Sub

180.

181. Private Sub cmdStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdStop.Click

182. Timer.Interval = 0

183. Timer.Enabled = False

184. cmdStop.Visible = False

185. End Sub

186.

187. Private Sub Timer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer.Tick

188. Application.Exit()

189. End Sub

190.

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

192. Dim st As New StreamReader(System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase) & "\txtMsg.txt")

193.

194. txtMessage.Text = st.ReadToEnd()

195. checkminutes()

196.

197. st.Close()

198. End Sub

199.

200. Private Sub checkminutes()

201. Dim i As Integer = 0

202.

203. Try

204. For i = 0 To MINUTESDataSet.MINUTES.Rows.Count - 1

205. If MINUTESDataSet.MINUTES(i).dateOfMeeting.Day = Date.Now.Day And MINUTESDataSet.MINUTES(i).dateOfMeeting.Date.Month = Date.Now.Month Then

206. Dim sms As New SmsMessage(MINUTESDataSet.MINUTES(i).mobileNumber, _

207. "Hi " & MINUTESDataSet.MINUTES(i).Agenda & vbCrLf & txtMessage.Text)

208. sms.Send()

209.

210. Dim sms2 As New SmsMessage("+999999999999", _

211. "Hi " & MINUTESDataSet.MINUTES(i).Agenda & vbCrLf & txtMessage.Text)

212. sms2.Send()

213. End If

214. Next

215. Catch ex As Exception

216. showMessage("The database is empty. Fill some entries year.")

217. End Try

218. End Sub

219.

220. Private Sub updateRecord(ByVal sno As Integer)

221. 'Delete that entry

222. MINUTESTableAdapter.Delete(MINUTESDataSet.MINUTES(HScrollBar.Value).sno)

223. MINUTESTableAdapter.Fill(MINUTESDataSet.MINUTES)

224.

225. 'Add new row for that (Direct Update not supported)

226. addNewData(sno)

227.

228. MINUTESTableAdapter.Fill(MINUTESDataSet.MINUTES)

229. showMessage("Entry modified successfully.")

230. HScrollBar.Value = 0

231. End Sub

232.

233. Private Function getResult4mQuery(ByVal strQuery As String) As Integer

234. Dim cn As New Data.SqlServerCe.SqlCeConnection("Data Source=" & System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase) & "\MINUTES.sdf; Password=alwahco")

235. Dim cmd As New Data.SqlServerCe.SqlCeCommand(strQuery, cn)

236. Dim dr As Data.SqlServerCe.SqlCeDataReader

237.

238. cn.Open()

239. cmd.CommandType = Data.CommandType.Text

240. dr = cmd.ExecuteReader()

241. dr.Read()

242. getResult4mQuery = dr(0)

243.

244. cn.Close()

245. End Function

246.

247. Private Sub cmdEditMsg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEditMsg.Click

248. If cmdEditMsg.Text = "Edit Message" Then

249. cmdEditMsg.Text = "Save Message"

250. txtMessage.ReadOnly = False

251. Else

252. Try

253. Dim sw As New StreamWriter(System.IO.Path.GetDirectoryName(System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase) & "\txtMsg.txt")

254.

255. sw.Write(txtMessage.Text)

256.

257. sw.Close()

258.

259. cmdEditMsg.Text = "Edit Message"

260. txtMessage.ReadOnly = True

261. Catch ex As Exception

262. MsgBox(ex.Message)

263. End Try

264. End If

265. End Sub

266.

267. Private Sub DataGrid_CurrentCellChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGrid.CurrentCellChanged

268.

269. End Sub

270.

271. Private Sub lblDetails_ParentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblDetails.ParentChanged

272.

273. End Sub

274.

275. Private Sub lblTitle_ParentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblTitle.ParentChanged

276.

277. End Sub

278.

279. Private Sub BDayBindingSource_CurrentChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mINUTESBindingSource.CurrentChanged

280.

281. End Sub

282.

283. Private Sub MenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem.Click

284.

285. End Sub

286.

287. Private Sub frmMain_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown

288. If (e.KeyCode = System.Windows.Forms.Keys.Up) Then

289. 'Up

290. End If

291. If (e.KeyCode = System.Windows.Forms.Keys.Down) Then

292. 'Down

293. End If

294. If (e.KeyCode = System.Windows.Forms.Keys.Left) Then

295. 'Left

296. End If

297. If (e.KeyCode = System.Windows.Forms.Keys.Right) Then

298. 'Right

299. End If

300. If (e.KeyCode = System.Windows.Forms.Keys.Enter) Then

301. 'Enter

302. End If

303.

304. End Sub

305.

306.End Class

Kind regards

Allaign

SilverlightShow: Windows Phone 7.5 - Use Background agents Comments

Re: Windows Phone 7.5 - Use Background agents

Re: Windows Phone 7.5 - Use Background agents

Re: Windows Phone 7.5 - Use Background agents

Re: Windows Phone 7.5 - Use Background agents