code source application coffee management

forme administrateur :








Public Class administrateur

    Dim retVal As Long

    Dim filename As String

    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As IntPtr) As Integer

 

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        On Error Resume Next

        My.Computer.Audio.Play("wav\show.wav")

        param_server.Show()

 

    End Sub

 

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        On Error Resume Next

        My.Computer.Audio.Play("wav\show.wav")

        Form1.Show()

 

    End Sub

 

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        On Error Resume Next

        My.Computer.Audio.Play("wav\show.wav")

        Form4.Show()

 

    End Sub

 

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Form5.Show()

 

    End Sub

 

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

        On Error Resume Next

        My.Computer.Audio.Play("wav\show.wav")

        param_admin.Show()

 

    End Sub

 

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

 

 

    End Sub

 

    Private Sub administrateur_Activated(sender As Object, e As System.EventArgs) Handles Me.Activated

        On Error Resume Next

        Me.TblcafeTableAdapter.Fill(Me.BdcafeDataSet.tblcafe)

    End Sub

 

    Private Sub administrateur_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        'TODO: cette ligne de code charge les données dans la table 'BdcafeDataSet.tblcafe'. Vous pouvez la déplacer ou la supprimer selon vos besoins.

        Me.TblcafeTableAdapter.Fill(Me.BdcafeDataSet.tblcafe)

 

    End Sub

 

    Private Sub Panel1_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

 

    End Sub

 

    Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click

        On Error Resume Next

        My.Computer.Audio.Play("wav\show.wav")

        frmcafe.Show()

    End Sub

 

    Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click

        Me.Close()

 

    End Sub

 

    Private Sub Button9_Click(sender As System.Object, e As System.EventArgs)

 

    End Sub

 

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click

        On Error Resume Next

        My.Computer.Audio.Play("wav\show.wav")

        forme_wifi.Show()

 

    End Sub

 

    Private Sub Button9_Click_1(sender As System.Object, e As System.EventArgs) Handles Button9.Click

        Me.Close()

    End Sub

End Class

  

forme Index :


Commentaires

Enregistrer un commentaire

Posts les plus consultés de ce blog

Tableaux en vbnet

  Les tableaux en VB.NET sont des structures de données essentielles pour stocker et manipuler des collections d'éléments du même type. Voici un aperçu de leur fonctionnement : Définition et initialisation : ·          Déclarer un tableau :  Vous pouvez préciser le type de chaque élément et la taille du tableau. Par exemple, pour un tableau d'entiers de taille 5 : vbnetPhotocopieuse Dim nombres( 4 ) As Integer ·          Initialiser un tableau :  Vous pouvez initialiser les valeurs du tableau lors de la déclaration : vbnetPhotocopieuse Dim fruits = { "Pomme" , "Banane" , "Orange" } Accéder aux éléments : ·          Les éléments d'un tableau sont accessibles à l'aide d'un indice, commençant à 0 et allant jusqu'à la taille du tableau moins 1. Par exemple : vbnetPhotocopieuse Console.WriteLine(fruits( 1 ))   ' Affiche...
Lire la suite

Date et heure sur vbnet

  En VB.NET, vous avez plusieurs options pour travailler avec les dates et les heures : 1. Obtenir la date et l'heure actuelle : vbnetPhotocopieuse ' Obtenir la date et l'heure courante Dim maintenant As DateTime = DateTime.Now   ' Afficher la date au format "jj/mm/aaaa" Console.WriteLine(maintenant.ToString( "dd/MM/yyyy" ))   ' Afficher l'heure au format "hh:mm:ss" (format 24h) Console.WriteLine(maintenant.ToString( "HH:mm:ss" )) 2. Formater la date et l'heure : La classe DateTime propose la méthode ToString qui permet de formater la date et l'heure selon vos besoins. Vous pouvez utiliser des codes de format standardisés pour préciser les différents éléments de la date et de l'heure : ·          d : Jour du mois (1 à 31) ·          M : Mois (1 à 12) ·          y : Année (2 chiffres) ·      ...
Lire la suite

Expressions régulières

Les expressions régulières (regex) sont des chaînes de caractères spéciales permettant de décrire et de rechercher des motifs spécifiques dans du texte. Elles constituent un outil puissant pour la validation de données, l'extraction d'informations et la manipulation de chaînes de caractères en VB.NET. Voici un aperçu de l'utilisation des expressions régulières en VB.NET : 1. Classe Regex                                          Le système d'expressions régulières en VB.NET est géré par la classe System.Text.RegularExpressions.Regex . Cette classe fournit des méthodes pour définir des motifs regex, rechercher des correspondances dans du texte, et extraire des sous-chaînes correspondantes. 2. Syntaxe des expressions régulières Les expressions régulières utilisent des métacaractères...
Lire la suite