Pense bête

Télécharger le projet
Commenter

Description

Ce programme est un petit pense bête en vb on entre le message dont on doit se rappeler et on note l'heure et la minute a la quelle le message doit s'afficher

Au depart j'ai fait ce programme parce que je devait réveiller papa à 17h30 mais quand je suis a l'ordinateur je regarde rarement l'heure et donc j'ai fait le programme et j'ai mis que je dois reveiller papa et l'heure j'ai mis 17h30.

Cette source est courte mais j'espère qu'elle vous plaira.

Source / Exemple : 


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Not IsNumeric(TextBox2.Text) Then
            MsgBox("Heure incorrecte", vbCritical, "Erreur")
            End
        End If
        If Not IsNumeric(TextBox3.Text) Then
            MsgBox("Minutes incorrectes", vbCritical, "Erreur")
            End
        End If
        If TextBox3.Text > 60 Then
            MsgBox("Minutes incorrectes", vbCritical, "Erreur")
            End
        End If
        If TextBox2.Text > 23 Then
            MsgBox("Heure incorrecte", vbCritical, "Erreur")
            End
        End If
        If TextBox2.Text = "" Then
            MsgBox("Heure incorrecte", vbCritical, "Erreur")
            End
        End If
        If TextBox3.Text = "" Then
            MsgBox("Minutes incorrectes", vbCritical, "Erreur")
            End
        End If
        If TextBox2.Text < 23 Then

            If TextBox3.Text < 60 Then

                Me.Visible = False
                Dim heures
                heures = 0
                Do
                    If My.Computer.Clock.LocalTime.Hour = TextBox2.Text Then
                        heures = 1
                    End If
                    If My.Computer.Clock.LocalTime.Minute = TextBox3.Text Then
                        If heures = 1 Then
                            MsgBox(TextBox1.Text, vbExclamation, "Memo")
                            heures = 0
                            End
                        End If
                    End If
                Loop
            End If
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox2.MaxLength = 2
        TextBox3.MaxLength = 2
    End Sub

Conclusion :


Normalement il n'y a pas de bugs...
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (djgab21)