Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
Horloge
Auteur Message
Répondre en citant
Message Horloge 
Salut tout le monde !

Je suis de retour en force avec mon plus grand logiciel, une horloge avec toutes sortes d'options.
Si il y a des bugs, contactez-moi ! Wink ATTENTION ! Il nécessite Microsoft Framework !

Bon test !

MrSolotek22

Image :






Code:
Public Class Form1

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        If ToolStripMenuItem2.Checked = True Then
            ToolStripMenuItem3.Checked = False
            ToolStripMenuItem4.Checked = False
            ToolStripMenuItem5.Checked = False
        End If
        Me.Opacity = 100 / 100
    End Sub

    Private Sub ToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem3.Click
        If ToolStripMenuItem3.Checked = True Then
            ToolStripMenuItem2.Checked = False
            ToolStripMenuItem4.Checked = False
            ToolStripMenuItem5.Checked = False
        End If
        Me.Opacity = 75 / 100
    End Sub

    Private Sub ToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem4.Click
        If ToolStripMenuItem4.Checked = True Then
            ToolStripMenuItem3.Checked = False
            ToolStripMenuItem2.Checked = False
            ToolStripMenuItem5.Checked = False
        End If
        Me.Opacity = 50 / 100
    End Sub

    Private Sub ToolStripMenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem5.Click
        If ToolStripMenuItem5.Checked = True Then
            ToolStripMenuItem3.Checked = False
            ToolStripMenuItem4.Checked = False
            ToolStripMenuItem2.Checked = False
        End If
        Me.Opacity = 25 / 100
    End Sub

    Private Sub ActivéToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ActivéToolStripMenuItem.Click
        If ActivéToolStripMenuItem.Checked = True Then
            DésactivéToolStripMenuItem.Checked = False
        End If
        Me.TopMost = True
    End Sub

    Private Sub DésactivéToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DésactivéToolStripMenuItem.Click
        If DésactivéToolStripMenuItem.Checked = True Then
            ActivéToolStripMenuItem.Checked = False
        End If
        Me.TopMost = False
    End Sub

    Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox2.Text = "" Then
            MsgBox("Veuillez remplir le champ nécessaire...")
        End If
        Label6.Text = (TextBox2.Text * 60)
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        Timer1.Enabled = False
        ProgressBar1.Value = 0
        Timer5.Stop()
        Timer5.Enabled = False
        MsgBox("Temps écoulé !")
        TextBox1.Text = ""
        GroupBox2.Enabled = True
        GroupBox3.Enabled = True
        Timer5.Stop()
        Timer5.Enabled = False
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        GroupBox2.Enabled = False
        GroupBox3.Enabled = False
        If TextBox1.Text = "" Then
            MsgBox("Veuillez remplir le champ nécessaire...")
        End If
        Timer1.Interval = TextBox1.Text * 1000
        Timer1.Enabled = True
        Timer1.Start()
        ProgressBar1.Maximum = TextBox1.Text
        Timer5.Start()
        Timer5.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        GroupBox1.Enabled = False
        GroupBox3.Enabled = False
        Button2.Visible = False
        Button4.Visible = True
        Timer2.Start()
        Timer3.Start()
        Timer4.Start()
        Timer2.Enabled = True
        Timer3.Enabled = True
        Timer4.Enabled = True
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Label15.Text += 1
        If Label15.Text = "60" Then
            Label15.Text = "00"
            Label4.Text += 1
        End If

        If Label4.Text = "60" Then
            Label4.Text = "00"
            Label10.Text += 1
        End If
    End Sub

    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
        If Label10.Text = "60" Then
            Label10.Text = "00"
            Label12.Text += 1
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Button2.Visible = True
        Button4.Visible = False
        Timer2.Stop()
        Timer3.Stop()
        Timer4.Stop()
        Timer2.Enabled = False
        Timer3.Enabled = False
        Timer4.Enabled = False
    End Sub

    Private Sub RechercherLesMisesÀJoursToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RechercherLesMisesÀJoursToolStripMenuItem.Click
        MsgBox("Cette fonction sera disponible dans une mise à jour future...")
    End Sub
    Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
        ProgressBar1.Value += 1
        If ProgressBar1.Value = TextBox1.Text + 1 Then
            Timer5.Stop()
            Timer5.Enabled = False
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        GroupBox1.Enabled = True
        GroupBox3.Enabled = True
        Label4.Text = "00"
        Label10.Text = "00"
        Label12.Text = "00"
        Label15.Text = "00"
        Timer2.Stop()
        Timer3.Stop()
        Timer4.Stop()
        Button2.Visible = True
        Button4.Visible = False
    End Sub
End Class






Visiter le site web du posteur Skype
Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Horloge 
bravo jeje ! n'hesite pas a mettre tes autres logi ! ils sont super (le convertisseur youtube en mp3 est géniale)




______________________________________________________


mon site web http://pr1c3-game.craym.eu/
aide moi a faire revivre la section vb ! (http://batch.xoo.it/f62-VB-Net.htm)

"J'ai toujours raison surtout quand j'ai tord" citation de moi même
mon niveau
batch : 40/100
vb : 60/100
Visiter le site web du posteur Skype
Message Horloge 


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch