Maybe... - What is .NET? - Computer Learning Zone


	Back to What is .NET? Comments List

Upload Images @Reply Bookmark Link Email Next Unseen

Maybe...

Thomas Gonder

5 months ago

Perhaps a simple demo of what .Net and it's components look like once installed. Maybe making a "form" that has a command button to run and counts to 1000 in a textbox? Show the date and time it started/completed and how many milliseconds it ran? Maybe in the different languages in the development and debugging environments?

	Kevin Robertson @Reply 5 months ago
I used a List Box to count to 1,000 and I am displaying the Time Taken in milliseconds.

	Kevin Robertson @Reply 5 months ago

	Kevin Robertson @Reply 5 months ago
I added Start Time and End Time

	Thomas Gonder OP @Reply 5 months ago
Now make a video of what you did from A-Z so we can see .Net differs from Access?

	Alex Hedley @Reply 5 months ago
Thomas Have you watched any of the other .NET Tech Helps? These stand alone videos are for a specific purpose, only showing an individual concept. Did you ever watched Beginner Level 1? That covers exactly what you are wanting. I've also just grouped some of the Tech Helps into VB.NET Beginner 0 to address your previous comments.

	Thomas Gonder OP @Reply 5 months ago
Over time, as they've appeared, I've watched them. Putting it all together is another matter.

	Alex Hedley @Reply 5 months ago
Has the grouping I've made helped? Anything else you need?

	Thomas Gonder OP @Reply 5 months ago
I only watched the Intro to Beginner 0, I think it's making a bit more sense now. Thanks for doing that. The order of "next" things seems a bit confusing though. Why is 2 before 1?

	Alex Hedley @Reply 5 months ago
That's just the list page, because of date, the actual individual pages point in order. (Seeing if I can change the default)

	Alex Hedley @Reply 5 months ago
Click Options

Kevin Robertson @Reply

4 months ago

I asked ChatGPT to speed this up for me and at least 5 seconds was shaved off the time the list box was populated.

Details

Imports System.Threading.Tasks



Public Class FrmMain



    Private Async Sub BtnLoop_Click(sender As Object, e As EventArgs) Handles BtnLoop.Click



        ' --- Parse inputs safely ---

        Dim minNum As Long

        Dim maxNum As Long



        If Not Long.TryParse(TxtMin.Text, minNum) Then

            MessageBox.Show("Min must be a whole number.")

            TxtMin.SelectAll()

            TxtMin.Focus()

            Exit Sub

        End If



        If Not Long.TryParse(TxtMax.Text, maxNum) Then

            MessageBox.Show("Max must be a whole number.")

            TxtMax.SelectAll()

            TxtMax.Focus()

            Exit Sub

        End If



        If maxNum < minNum Then

            MessageBox.Show("Max must be greater than or equal to Min.")

            TxtMax.SelectAll()

            TxtMax.Focus()

            Exit Sub

        End If



        ' --- Prep UI ---

        LstNumbers.Items.Clear()

        TxtStartTime.Text = ""

        TxtEndTime.Text = ""

        txtTimeTaken.Text = ""



        ' Let the UI paint (non-blocking)

        Await Task.Delay(1)



        ' --- Timing ---

        Dim watch As Stopwatch = Stopwatch.StartNew()

        Dim startTime As Date = Date.Now

        TxtStartTime.Text = startTime.ToString("HH:mm:ss")



        ' --- Build data OFF the UI thread ---

        Dim numbers As List(Of Long) = Await Task.Run(Function()



                                                          Dim list As New List(Of Long)(CInt(Math.Min(Integer.MaxValue, (maxNum - minNum + 1))))

                                                          For x As Long = minNum To maxNum

                                                              list.Add(x)

                                                          Next

                                                          Return list



                                                      End Function)



        ' --- Update UI in a tight batch ---

        LstNumbers.BeginUpdate()

        Try

            For Each n As Long In numbers

                LstNumbers.Items.Add(n)

            Next

        Finally

            LstNumbers.EndUpdate()

        End Try



        watch.Stop()

        Dim endTime As Date = Date.Now



        ' --- Output ---

        TxtEndTime.Text = endTime.ToString("HH:mm:ss")

        txtTimeTaken.Text = watch.ElapsedMilliseconds & " ms"



    End Sub

End Class

This thread is now CLOSED. If you wish to comment, start a NEW discussion in What is .NET?.

Next Unseen

New Feature: Comment Live View