Aider mois svp [Résolu]

Messages postés
71
Date d'inscription
mercredi 3 octobre 2012
Statut
Membre
Dernière intervention
6 octobre 2019
-
Bonjour,
sa s'est une commande pour vérifier le solde de gsm atacher vb.net
comme j’utilise le BackgroundWorker ne répond pas au le programme afficher :no more port
aider mois svp et merci


Imports AxMmCtlLib 
Imports System.ComponentModel 

Public Class Form1 
Dim strResponse As String = "" 
Dim strCommand As String = "" 
Dim strFields As String() 
Dim Counter1 As Integer = 0 
Dim objGsm As Gsm = New Gsm 
Dim objSmsConstants As SmsConstants = New SmsConstants 

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
chercheports() 

End Sub 
Sub chercheports() 
Dim strDevice As String 
Dim strPort As String 
' Fill devices Combo 
cbxDevices.Items.Clear() 


' Gets first TAPI device 
strDevice = objGsm.FindFirstDevice() 

While (objGsm.LastError = 0) 

cbxDevices.Items.Add(strDevice) 


' Gets next TAPI device. 
strDevice = objGsm.FindNextDevice() 
End While 

' Add COM ports. 
' Gets first COM port. 
strPort = objGsm.FindFirstPort() 
While (objGsm.LastError = 0) 
' LESPORT.cbxDevices3.Items.Add(strPort) 
cbxDevices.Items.Add(strPort) 


'Gets next COM port. 
strPort = objGsm.FindNextPort() 
End While 

If (cbxDevices.Items.Count > 0) Then 
'LESPORT.cbxDevices3.SelectedIndex = 0 
cbxDevices.SelectedIndex = 0 


Else 
' Remove previous text from cbx (happens when a user reopens this forms 
' and removed all devices and COM ports) 
cbxDevices.Text = String.Empty 


End If 

'Fill deviceSpeed combo 
cbxDeviceSpeed.Items.Clear() 

cbxDeviceSpeed.Items.Add(objSmsConstants.GSM_BAUDRATE_115200) 

cbxDeviceSpeed.SelectedIndex = 0 

End Sub 
Sub UpdateResult(ByVal nResult As Integer) 

TextBox4.Text = (String.Format("{0}: {1}", nResult, objGsm.GetErrorDescription(objGsm.LastError))) 
End Sub 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 

BGW.RunWorkerAsync() 

End Sub 

Private Sub solde() 

strCommand = String.Format("AT+CUSD=1," & Chr(34) & "{0}" & Chr(34) & ",15", "*" & "710" & "#") 

Dim strName As String = cbxDevices.Text 
Dim iDeviceSpeed As Integer 

If (Not Integer.TryParse(cbxDeviceSpeed.Text, iDeviceSpeed)) Then 
End If 
objGsm.Open(strName, "0000", iDeviceSpeed) 
If (objGsm.LastError <> 0) Then 
If (objGsm.LastError = 36103) Then 
MessageBox.Show("Invalid Pin entered: SIM card can be blocked after a number of false attempts in a row.", Text, MessageBoxButtons.OK, MessageBoxIcon.Error) 
End If 
End If 
If (objGsm.LastError = 0) Then 
objGsm.SendCommand(strCommand) 
End If 
' Reads the response from the GSM Modem 
If (objGsm.LastError = 0) Then 
strResponse = objGsm.ReadResponse(10000) 
End If 

If (objGsm.LastError = 0) Then 
If (strResponse.Contains("OK")) Then ' Response should be OK 
objGsm.SendCommand(String.Empty) 
strResponse = objGsm.ReadResponse(10000) 

If (objGsm.LastError <> 0) Then 
UpdateResult(objGsm.LastError) 
Return 
End If 


If (strResponse.Contains("+CUSD:")) Then 

strFields = strResponse.Split(Char.Parse(Chr(34))) 

If (strFields.Length > 1) Then 
strResponse = strFields(0) 
Else 
strResponse = strFields(1) 
End If 
End If 
End If 
End If 
TextBox5.Text = strResponse 
UpdateResult(objGsm.LastError) 
objGsm.Close() 
End Sub 

Private Sub BGW_DoWork(sender As Object, e As DoWorkEventArgs) Handles BGW.DoWork 
solde() 
End Sub 

Private Sub BGW_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BGW.RunWorkerCompleted 
MsgBox("Mission complete") 
End Sub 
End Class


EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici : ICI

Merci d'y penser dans tes prochains messages.
Afficher la suite 

1 réponse

Messages postés
1985
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
14 décembre 2019
79
0
Merci
Salut
Ton BackGround veut bien travailler mais il faut mettre du code dans le DoWork de celui-ci !
C'est ce code là qui se fait en tâche de fond
dadibarca23
Messages postés
71
Date d'inscription
mercredi 3 octobre 2012
Statut
Membre
Dernière intervention
6 octobre 2019
-
merci pour la réponse mais je mi l'exemple et j’espère que tu me envoyer la solution par code source
Private Sub solde()

strCommand = String.Format("AT+CUSD=1," & Chr(34) & "{0}" & Chr(34) & ",15", "*" & "710" & "#")

Dim strName As String = cbxDevices.Text
Dim iDeviceSpeed As Integer

If (Not Integer.TryParse(cbxDeviceSpeed.Text, iDeviceSpeed)) Then
End If
objGsm.Open(strName, "0000", iDeviceSpeed)
If (objGsm.LastError <> 0) Then
If (objGsm.LastError = 36103) Then
MessageBox.Show("Invalid Pin entered: SIM card can be blocked after a number of false attempts in a row.", Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End If
If (objGsm.LastError = 0) Then
objGsm.SendCommand(strCommand)
End If
' Reads the response from the GSM Modem
If (objGsm.LastError = 0) Then
strResponse = objGsm.ReadResponse(10000)
End If

If (objGsm.LastError = 0) Then
If (strResponse.Contains("OK")) Then ' Response should be OK
objGsm.SendCommand(String.Empty)
strResponse = objGsm.ReadResponse(10000)

If (objGsm.LastError <> 0) Then
UpdateResult(objGsm.LastError)
Return
End If


If (strResponse.Contains("+CUSD:")) Then

strFields = strResponse.Split(Char.Parse(Chr(34)))

If (strFields.Length > 1) Then
strResponse = strFields(0)
Else
strResponse = strFields(1)
End If
End If
End If
End If
TextBox5.Text = strResponse
UpdateResult(objGsm.LastError)
objGsm.Close()
End Sub

Private Sub BGW_DoWork(sender As Object, e As DoWorkEventArgs) Handles BGW.DoWork
solde()
End Sub


mais aucune réponse
vb95
Messages postés
1985
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
14 décembre 2019
79 > dadibarca23
Messages postés
71
Date d'inscription
mercredi 3 octobre 2012
Statut
Membre
Dernière intervention
6 octobre 2019
-
bonjour
A lire avec attention et surtout la partie traitant des Threads avec un BackGroundWorker
http://plasserre.developpez.com/cours/vb-net/
et tu as oublié http://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
Quant à la solution on ne fait pas dans le "tout-cuit" ( voir les règles de ce forum
vb95
Messages postés
1985
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
14 décembre 2019
79 > vb95
Messages postés
1985
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
14 décembre 2019
-
Et de plus le titre ne révèle nullement le problème que tu as
Commenter la réponse de vb95