vendredi 13 avril 2012

Calcul du nombre de chiffres d'un entier

Soit X est un entier. Ce code permet de calculer le nombre de chiffres composant X.

int x, i, q;
x = 13; i = 0; q = x;
do
{ i++; q = q / 10; }
while (q != 0);
Console.WriteLine(i);

Entier cubique en C#

Un entier naturel de trois chiffres est dit cubique s’il est égal à la somme des cubes de ses trois chiffres.
Exemple : 153 est cubique.

int n, u, d, c;
n = 153;
c = n / 100;
d = (n - c * 100) / 10;
u = (n - (c * 100 + d * 10));
if (n == (c * c * c) + (d * d * d) + (u * u * u))
Console.WriteLine ("le nombre est cubique ");
else
Console.WriteLine ("non cubique");

jeudi 29 mars 2012

Rendre radioButton en lecture seule

Pour rendre un RadioButton en lecture seule, mettez la propriété AutoCheck à False.

Charger un datatable à partir d'un datareader

Le code suivant vous montre comment charger un datareader dans un datatable :


Dim cnx As New OleDbConnection(strCnx)
cnx.Open()

Dim cmd As New OleDbCommand("select * from ....", cnx)
Dim dr As OleDbDataReader = cmd.ExecuteReader

Dim dt As New DataTable
dt.Load(dr)

samedi 24 mars 2012

Définir le fenêtre à propos d'une application

Si vous voulez ajouter une fenêtre à propos à votre application qui ressemble à celle-ci :



il faut d'abord renseigner les informations de la fenêtre Inforations de l'assembly disponible à partir de la fenêtre Propriétés du projet :

Ensuite dans le form_load de la fenêtre à propos ajoutez le code suivant :

Dim ApplicationTitle As String
If My.Application.Info.Title <> "" Then
ApplicationTitle = My.Application.Info.Title
Else
ApplicationTitle = System.IO.Path.GetFileNameWithoutExtension(My.Application.Info.AssemblyName)
End If

Me.Text = String.Format("À propos de {0}", ApplicationTitle)
Me.LabelProductName.Text = My.Application.Info.ProductName
Me.LabelVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
Me.LabelCopyright.Text = My.Application.Info.Copyright
Me.LabelCompanyName.Text = My.Application.Info.CompanyName
Me.TextBoxDescription.Text = My.Application.Info.Description


Utilisation du contrôle TreeView en VB.Net

Le code suivant permet d'ajouter des nœuds dans un contrôle TreeView :
With TreeView1
            .BeginUpdate()
            .Nodes.Add("Node0")
            .Nodes(0).Nodes.Add("Node1")
            .Nodes(0).Nodes.Add("Node2")
            .Nodes.Add("Node3")
            .Nodes(1).Nodes.Add("Node4")
            .Nodes(1).Nodes.Add("Node5")
            .Nodes.Add("Node6")
            .Nodes(2).Nodes.Add("Node7")
            .EndUpdate()
End With

Le résultat sera :




Pour afficher le texte du nœud sélectionné,utilisez :
MessageBox.Show(TreeView1.SelectedNode.Text)

dimanche 11 mars 2012

Programme en c# qui afficher le triangle suivant :
1
232
34543
4567654
567898765
67890109876
7890123210987
890123454321098
90123456765432109
0123456789876543210

int i, j, n, s;
            s = 0; n = 9;
        for (i = 0;i<= n;i++)
            {
            for (j = 0;j<=  2 * i;j++)
                {
                if (j <= i)
                    {
                        s += 1;
                        if (s == 10) s = 0;
                    Console.Write(s);
                    }
                    else
                    {
                    s -= 1;
                    Console.Write(s);
                    if (s == 0)  s = 10;
                    }
                }
            Console.WriteLine();
            }