This is a simple looping exercise. PL used : C#, VB.Net , VB6.

This is one of those exercises given to me when i was in my first year in programming.  :D

VB 6

C Sharp

VB. Net

Public Class Form1
    Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click
        If txtInput.Text > 0 Then
            Dim i As Double
            Dim j As String : Dim str As String
            j = "*"
            For i = 1 To txtInput.Text
                For xx = 1 To i
                    If xx <> i Then
                        str = str & j
                    Else
                        str = str & j & vbNewLine
                    End If

                Next
                txtDisplay.Text = str
            Next
        Else
            Dim i As Double
            Dim j As String : Dim str As String
            j = "*"
            For i = 1 To (txtInput.Text * (-1))
                Dim jj As Double
                jj = ((txtInput.Text * (-1)) - i) + 1
                For xx = 1 To jj
                    If xx <> jj Then
                        str = str & j
                    Else
                        str = str & j & vbNewLine
                    End If

                Next
                txtDisplay.Text = str
            Next
        End If
    End Sub

    Private Sub txtInput_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtInput.TextChanged
        'If IsNumeric(txtInput.Text) = False Then
        '    txtInput.Text = String.Empty
        '    'MsgBox("Numeric only!")
        'End If
    End Sub

    Private Sub btnRevert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRevert.Click

        If txtInput.Text > 0 Then
            Dim i As Double
            Dim j As String : Dim str As String
            j = "*"
            For i = 1 To txtInput.Text
                Dim jj As Double
                jj = (txtInput.Text - i) + 1
                For xx = 1 To jj
                    If xx <> jj Then
                        str = str & j
                    Else
                        str = str & j & vbNewLine
                    End If

                Next
                txtDisplay.Text = str
            Next
        Else
            Dim i As Double
            Dim j As String : Dim str As String
            j = "*"
            For i = 1 To (txtInput.Text * (-1))
                For xx = 1 To i
                    If xx <> i Then
                        str = str & j
                    Else
                        str = str & j & vbNewLine
                    End If

                Next
                txtDisplay.Text = str
            Next
        End If
    End Sub

End Class

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.IO;

namespace Exercise1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void btnGo_Click(object sender, EventArgs e)
        {
            double i;
            string j;
            string str = "";
            double val = Convert.ToDouble(txtInput.Text);

            j ="*";

            if (val > 0)
            {
                for (i = 1; i <= val; i++)
                {
                    double xx;
                    for (xx = 1; xx <= i; xx++)
                    {
                        if (xx != i)
                        {
                            str = str + j;
                        }
                        else
                        {
                            str = str + j + Environment.NewLine;
                        }
                    }
                    txtDisplay.Text = str;
                }
            }
            else
            {
                for (i = 1; i <= (val * (-1)); i++)
                {
                    double jj = ((val * (-1)) - i) + 1;
                    double xx;
                    for (xx = 1; xx <= jj; xx++)
                    {
                        if (xx != jj)
                        {
                            str = str + j;
                        }
                        else
                        {
                            str = str + j + Environment.NewLine;
                        }
                    }
                    txtDisplay.Text = str;
                }
            }
        }

        private void btnRevert_Click(object sender, EventArgs e)
        {
            double i;
            string j = "*";
            string str = "";
            double val = Convert.ToDouble(txtInput.Text);

            if (val > 0)
            {
                for (i = 1; i <= val; i++)
                {
                    double jj = (val - i) + 1;
                    double xx;
                    for (xx = 1; xx <= jj; xx++)
                    {
                        if (xx != jj)
                        {
                            str = str + j;
                        }
                        else
                        {
                            str = str + j + Environment.NewLine;
                        }
                    }
                    txtDisplay.Text = str;
                }
            }
            else
            {
                for (i = 1; i <= (val * (-1)); i++)
                {
                    double xx;
                    for (xx = 1; xx <= i; xx++)
                    {
                        if (xx != i)
                        {
                            str = str + j;
                        }
                        else
                        {
                            str = str + j + Environment.NewLine;
                        }
                    }
                    txtDisplay.Text = str;
                }
            }
       }

    }
}

Please leave a comment or suggestion about this post. Thank you. :D Cheers.

My friend ask me about this if this is possible and i said yes it is possible to read an unread email using IMAP then it's up to you if you want to save the mail in your Database or you just want to read it. This simple sample program uses VB.net, .net framework 4 and chilkat imap.dll for .net 4 . If you want to use C#, just visit  http://converter.telerik.com/ for easy conversion. But not all conversions are correct especially on syntax so its better for you to convert it manually anyway syntax are all on the web. Just learn to use google but if you can't do that, then just leave a comment so that i can convert the codes for you. Dont forget to leave a comment after download. Thank you :) 

This is for those beginners who want to learn programming using Csharp (C#) language. If you have knowledge in desktop programming using vb.net then it is an advantage to you. The logic of programming is important and the only difference between c# and vb.net for me is only the syntax. Just learn to love programming. 

I hope this simple sample program of mine will help you with your dream to become a computer programmer. This simple phonebook system has the basic functions like add,update,delete and search. The database used for this is MySql and uses infragistics, and mysql data 6.4. Download and leave a comment if you want. Thank you.