Numéroteur téléphonique

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 303 fois - Téléchargée 47 fois

Contenu du snippet

Une image vous présente les controles a placer.

Source / Exemple :


Public Max
Dim Numtel(30)
Dim Nomtel(30)

Private Sub COM1_Click()
MSComm1.CommPort = 1
COM1.Checked = True
COM2.Checked = False
COM3.Checked = False
COM4.Checked = False
End Sub

Private Sub COM2_Click()
MSComm1.CommPort = 2
COM1.Checked = False
COM2.Checked = True
COM3.Checked = False
COM4.Checked = False
End Sub

Private Sub COM3_Click()
MSComm1.CommPort = 3
COM1.Checked = False
COM2.Checked = False
COM3.Checked = True
COM4.Checked = False
End Sub

Private Sub COM4_Click()
MSComm1.CommPort = 4
COM1.Checked = False
COM2.Checked = False
COM3.Checked = False
COM4.Checked = True
End Sub

Private Sub Command1_Click()

' Définition des paramétres du port
MSComm1.Settings = "300,N,8,1"

'ouverture du port
On Error Resume Next
MSComm1.PortOpen = True
If Err Then
    st = "COM" + Str(MSComm1.CommPort) + " n'est pas disponible."
    st = st + "Utilisez le menu Port pour séléctionner un autre port de communication."
        MsgBox st
        Exit Sub
End If

' Purge du tampon d'entrée
cde = "ATDT " + Numéro.Text + ";" + Chr$(13)
MSComm1.Output = cde

' Attente de la chaine OK en provenance du modem
ok = False
Do
    ' S'il y a des données dans le tampon , les lit.
    If MSComm1.InBufferCount Then
    modem = modem + MSComm1.Input
        If InStr(modem, "OK") <> 0 Then
        MsgBox "Décrochez le téléphone et appuyez sur le bouton OK."
        ok = True
        End If
    End If
Loop Until ok = True

'déconnexion
MSComm1.Output = "ATH" + Chr$(13)

'Fermeture du port
MSComm1.PortOpen = False

End Sub

Private Sub Form_Load()
Open "c:\agend.dat" For Input As #1
i = 1
Do
Line Input #1, Nomtel(i)
Line Input #1, Numtel(i)
Nom.AddItem Nomtel(i)
i = i + 1
Loop Until EOF(1)
Max = i - 1
CommPort = 1
close #1
If COM1.Checked Then MSComm1.CommPort = 1
If COM2.Checked Then MSComm1.CommPort = 2
If COM3.Checked Then MSComm1.CommPort = 3
If COM4.Checked Then MSComm1.CommPort = 4
End Sub

Private Sub Nom_Change()
For i = 1 To Max
If Nomtel(i) = Nom.Text Then
Numéro.Text = Numtel(i)
End If
Next i
End Sub

Conclusion :


"Code éducatif"

@+

A voir également

Ajouter un commentaire

Commentaires

Tgrafik
Messages postés
8
Date d'inscription
vendredi 3 mars 2006
Statut
Membre
Dernière intervention
19 septembre 2006
-
Pourquoi quand je compile ce programme qu'il me dis toujours que la variable MSComm1 n'est pas défini ?

Est-ce que il me manque des librairies ?

J'utilise VB v6.

Merci.
fawit2005
Messages postés
18
Date d'inscription
dimanche 2 octobre 2005
Statut
Membre
Dernière intervention
3 octobre 2005
-
thanks
lol ,

j'avais oublier la source du boutton command1

voila c'est mis à jour

pour le zip , je vais le compresser pour la prochaine visite


@+
Itou pr moi!!! LOL

Allez ts ensemble!!!:

"VIVE LE ZIIIIIIIIIIIIIIP! ALLÉLUIAAAAAAAAAAA!!!"

LOL

Allez bone prog'!!!!!!!!!

Gogogogogogogooooooooooo
vas-y, mets un zip stp, chuis trop paresseux pour placer tout les contrôles...

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.