Amin Darvand

Campbell Ritchie wrote:Welcome to the Ranch

I shall duplicate this discussion in one of the Jobs fora.
Please show us a little program you have written, and let us see what good programming style you use

Haha... Like I said, I'm not a real programmer, so I choose funny names for variables! )

This is a small app I wrote in VB.NET, years ago, for resizing images:
Imports System.IO Imports System.Threading Public Class Form1    Dim ShtCounter As Short    Delegate Sub Del(ByVal str As String)    Delegate Sub DISS(ByVal intt As Boolean)    Dim Thread1 As Thread    Dim WaitHandle As ManualResetEvent    Dim MyImage As Bitmap '(400, 300, 32 * 400, Imaging.PixelFormat.Format32bppArgb, System.IntPtr.Zero)    Dim RSCounter = 0    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing        Thread1.Abort()    End Sub    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        MyImage = New Bitmap(400, 300, 32 * 400, Imaging.PixelFormat.Format32bppArgb, System.IntPtr.Zero)        ListPix()        Thread1 = New Thread(AddressOf Loopz)        WaitHandle = New ManualResetEvent(False)        Thread1.Start()        WaitHandle.Reset()    End Sub    Private Sub ListPix()        ListBox1.Items.Clear()        ShtCounter = 0        For Each Filee In Directory.GetFiles(My.Application.Info.DirectoryPath)            If Not Filee.Substring(My.Application.Info.DirectoryPath.Length + 1).ToLower = "imageresizer.exe" Then                If Not Filee.ToLower.EndsWith(".jpg") Then                    ShtCounter += 1                End If                ListBox1.Items.Add(Filee.Substring(My.Application.Info.DirectoryPath.Length + 1))            End If        Next    End Sub    Private Sub DISEN(ByVal intt As Boolean)        If intt = False Then            Button2.Text = "Cancel Resizing"        Else            Button2.Text = "Resize Images"        End If    End Sub    Private Sub Loopz()        Do            For Each Filee In ListBox1.Items                WaitHandle.WaitOne()                If Filee.ToString.ToLower.EndsWith(".jpg") Then                    'Try                    Dim EveryPic As Bitmap = System.Drawing.Image.FromFile(My.Application.Info.DirectoryPath & "\" & Filee)                    'If Not (EveryPic.Width = 400 And EveryPic.Height = 300) Then                    RSCounter += 1                    For i As Double = 0 To EveryPic.Height - 1 Step EveryPic.Height / 300                        For j As Double = 0 To EveryPic.Width - 1 Step EveryPic.Width / 400                            MyImage.SetPixel(j * 400 / EveryPic.Width, i * 300 / EveryPic.Height, EveryPic.GetPixel(j, i))                        Next                    Next                    'If File.Exists(My.Application.Info.DirectoryPath & "\" & Filee) Then                    'File.Delete(My.Application.Info.DirectoryPath & "\" & Filee)                    'End If                    If Not Directory.Exists(My.Application.Info.DirectoryPath & "\Resized") Then                        Directory.CreateDirectory(My.Application.Info.DirectoryPath & "\Resized")                    End If                    Label1.Invoke(New Del(AddressOf LabelInvke), "%" & Format(100 * RSCounter / (ListBox1.Items.Count - ShtCounter), "0.00"))                    MyImage.Save(My.Application.Info.DirectoryPath & "\Resized\" & Filee, System.Drawing.Imaging.ImageFormat.Jpeg)                    Thread.Sleep(1)                    'End If                    'Catch ex As Exception                    'End Try                End If            Next            MsgBox(RSCounter & " files resized!")            RSCounter = 0            Button2.Invoke(New DISS(AddressOf DISEN), True)            WaitHandle.Reset()        Loop    End Sub    Private Sub LabelInvke(ByVal Str As String)        Label1.Text = Str    End Sub    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        ListPix()        If Not ShtCounter = 0 Then            If MsgBox("Are you sure you wanna delete " & ShtCounter & " non-jpg files?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then                For Each Filee In ListBox1.Items                    If Not Filee.ToString.EndsWith(".jpg") Then                        Try                            File.Delete(My.Application.Info.DirectoryPath & "\" & Filee)                        Catch ex As Exception                        End Try                    End If                Next            End If        Else            MsgBox("There's nothing to delete!")        End If    End Sub    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click        RSCounter = 0        WaitHandle.Reset()        If Button2.Text = "Cancel Resizing" Then            Button2.Text = "Resize Images"            WaitHandle.Reset()        Else            Button2.Text = "Cancel Resizing"            WaitHandle.Set()        End If    End Sub End Class

Hello folks.
I'm a programming hobbyist from Iran.
I have been learning VB.NET, PHP, HTML5, CSS3, JS, jQuery, etc.
I came across MVC, Laravel, Java and Scala and Play framework recently.
I have set up my first hello project in Play Framework, learned about how route works, how controllers work, how models work, how views or templates work.

I still need a lot to learn! I don't know how to make ajax work in MVC. I don't know how to add plugins and modules in my website, how to control versions, how to work with other developers in a team...
As a professional developer, do you have any instructions, or advises or sources that I can follow to become a professional team developer like you?
Thanks in advance,
-Amin