Click here to Skip to main content
15,900,906 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: Need advice on printing reports from Visual Basic Pin
kentuckyjoe25-May-12 8:22
kentuckyjoe25-May-12 8:22 
GeneralRe: Need advice on printing reports from Visual Basic Pin
dg6yhw1129-May-12 6:14
dg6yhw1129-May-12 6:14 
GeneralRe: Need advice on printing reports from Visual Basic Pin
kentuckyjoe29-May-12 16:42
kentuckyjoe29-May-12 16:42 
GeneralRe: Need advice on printing reports from Visual Basic Pin
dg6yhw1130-May-12 5:51
dg6yhw1130-May-12 5:51 
GeneralRe: Need advice on printing reports from Visual Basic Pin
kentuckyjoe30-May-12 6:42
kentuckyjoe30-May-12 6:42 
GeneralRe: Need advice on printing reports from Visual Basic Pin
dg6yhw1130-May-12 8:42
dg6yhw1130-May-12 8:42 
GeneralRe: Need advice on printing reports from Visual Basic Pin
kentuckyjoe30-May-12 16:31
kentuckyjoe30-May-12 16:31 
QuestionHow to semd sms more than 160 character in 0ne SMS? Pin
rusydan.khir15-May-12 4:04
rusydan.khir15-May-12 4:04 
my code already can send sms but when i want to send more than 160 character it will not work..some one help me plss..

below is my code:

VB
Sub SendSMS()

        If Modem.IsOpen = False Then
            MsgBox("Port not Open!!")
            Exit Sub
        End If
        If Me.TxtTo.Text = "" Then
            MsgBox("No recepient number!!")
            Exit Sub

        End If

        If Me.TxtSMS.Text = "" Then
            MsgBox("Blank text message are not allowed!!")
            Exit Sub

        End If

        sendbutton.Enabled = False
        Sending = True
        SendAttempt = 0
        Do
            ATSend("AT+CMGF=1")
            Result = ATRead(1000)
        Loop While Result.Contains("COMMAND NOT SUPPORT")
        Do
            ATSend("AT+CSMP=17,167,0,0")
            Result = ATRead(1000)
        Loop While Result.Contains("COMMAND NOT SUPPORT")
        Do
            Do
                ATSend("AT+CMGS=""" & TxtTo.Text & """")
                Result = ATRead(1000)
            Loop While Result.Contains("COMMAND NOT SUPPORT")
            ATSend(TxtSMS.Text & Char.ConvertFromUtf32(26) & vbCr)
            Result = ATRead(10000)
            SendAttempt += 1
        Loop While Result.Contains("COMMAND NOT SUPPORT") Or (Result.Contains("ERROR") And SendAttempt < 5)
        If Result.EndsWith(vbCrLf & "OK" & vbCrLf) Then
            TxtSMS.Text = ""
            TxtTo.Text = ""
            '  MsgBox("Message Successfully Sent")
        Else
            '  MsgBox("Message Could Not Be Sent", MsgBoxStyle.Critical, "Error")
        End If
        sendbutton.Enabled = True
        Sending = False
End Sub

AnswerRe: How to semd sms more than 160 character in 0ne SMS? Pin
Dave Kreskowiak15-May-12 4:21
mveDave Kreskowiak15-May-12 4:21 
GeneralRe: How to semd sms more than 160 character in 0ne SMS? Pin
rusydan.khir16-May-12 6:15
rusydan.khir16-May-12 6:15 
GeneralRe: How to semd sms more than 160 character in 0ne SMS? Pin
Dave Kreskowiak16-May-12 7:04
mveDave Kreskowiak16-May-12 7:04 
GeneralRe: How to semd sms more than 160 character in 0ne SMS? Pin
rusydan.khir19-May-12 5:04
rusydan.khir19-May-12 5:04 
AnswerRe: How to semd sms more than 160 character in 0ne SMS? Pin
johnjeric22-May-12 19:39
johnjeric22-May-12 19:39 
QuestionPaint Event Problem Pin
Clark Kent12315-May-12 3:52
professionalClark Kent12315-May-12 3:52 
AnswerRe: Paint Event Problem Pin
Dave Kreskowiak15-May-12 4:13
mveDave Kreskowiak15-May-12 4:13 
QuestionRe: Paint Event Problem Pin
Clark Kent12316-May-12 2:22
professionalClark Kent12316-May-12 2:22 
AnswerRe: Paint Event Problem Pin
Dave Kreskowiak16-May-12 4:54
mveDave Kreskowiak16-May-12 4:54 
GeneralRe: Paint Event Problem Pin
Clark Kent12316-May-12 4:56
professionalClark Kent12316-May-12 4:56 
GeneralRe: Paint Event Problem Pin
Dave Kreskowiak16-May-12 7:05
mveDave Kreskowiak16-May-12 7:05 
GeneralRe: Paint Event Problem Pin
Clark Kent12316-May-12 7:27
professionalClark Kent12316-May-12 7:27 
AnswerRe: Paint Event Problem Pin
Luc Pattyn15-May-12 14:31
sitebuilderLuc Pattyn15-May-12 14:31 
GeneralRe: Paint Event Problem Pin
Clark Kent1238-Nov-12 4:30
professionalClark Kent1238-Nov-12 4:30 
QuestionChanging JPG in picturebox with loop Pin
Dr David Johnson PhD14-May-12 12:02
Dr David Johnson PhD14-May-12 12:02 
AnswerRe: Changing JPG in picturebox with loop Pin
Dave Kreskowiak14-May-12 13:18
mveDave Kreskowiak14-May-12 13:18 
GeneralRe: Changing JPG in picturebox with loop Pin
Dr David Johnson PhD14-May-12 15:29
Dr David Johnson PhD14-May-12 15:29 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.