Page 13 of 17

Re: +++ BREAKING NEWS: XY Switches Programming Language +++

Posted: 17 Aug 2020 13:06
by GitCoder
Another suggestion would be make it open source and let the community do the conversion :D

It's all in good fun :titter:

Re: +++ BREAKING NEWS: XY Switches Programming Language +++

Posted: 17 Aug 2020 13:27
by Gandolf
On the subject of life:
"Life is like a sewer — what you get out of it depends on what you put into it."
Tom Lehrer.

Re: +++ BREAKING NEWS: XY Switches Programming Language +++

Posted: 17 Aug 2020 14:44
by admin
Well, I exaggerated a bit with the load time, unless you shower very fast. And it's more lines, maybe 400,000 due some intermediate code that has been added thru the automatic conversion.

***

I think we can close this now.

Re: +++ BREAKING NEWS: XY Switches Programming Language +++

Posted: 17 Aug 2020 16:21
by kger
I have not read every post in this thread but did see at least one that was less than friendly. I applaud you for the effort, and want to say that I really enjoy XYplorer in its current state. Once in awhile over my programming career I have thought "I could make one of those programs that does X and release it", but then relent when I consider the sheer magnitude of user support that would be required, not to mention the abuse that inevitably gets hurled. (I am reminded of the saying, "No good deed goes unpunished.")

Keep up the great work, and know that plenty of us out here are paying, grateful customers.

Re: +++ BREAKING NEWS: XY Switches Programming Language +++

Posted: 17 Aug 2020 16:24
by kger
admin wrote: 16 Aug 2020 20:51 Thanks, but no thanks. I need fun. .NET is no fun.
I thought I was the only one feeling that way.

Re: +++ BREAKING NEWS: XY Switches Programming Language +++

Posted: 17 Aug 2020 20:08
by admin
kger wrote: 17 Aug 2020 16:21Keep up the great work, and know that plenty of us out here are paying, grateful customers.
Thanks! :D :tup:

Re: +++ BREAKING NEWS: XY Switches Programming Language +++

Posted: 19 Aug 2020 13:33
by pleiades
xy123 wrote: 16 Aug 2020 20:57 I thought VB6 coders are switching to Xojo? Not similar enough, or something else?
https://docs.xojo.com/UserGuide:Migrati ... sual_Basic
will this might work instead?

Re: +++ BREAKING NEWS: XY Switches Programming Language +++

Posted: 19 Aug 2020 15:59
by admin
Damn, I could not really stop myself from trying again, and this time I got a good step further and it would actually load the main window (before crashing right away). So you cannot do that much with it, but hey, it's 64-bit and it looks cool in a purist way! So, here it is, 64-bit XYplorer, the first shot:

Re: +++ BREAKING NEWS: XY Switches Programming Language +++

Posted: 19 Aug 2020 16:26
by lian00
admin wrote: 19 Aug 2020 15:59 Damn, I could not really stop myself from trying again, and this time I got a good step further and it would actually load the main window (before crashing right away). So you cannot do that much with it, but hey, it's 64-bit and it looks cool in a purist way! So, here it is, 64-bit XYplorer, the first shot:
I admire your dedication to this program and cannot image the time you spent on it. Thanks again (it saves me a lot of time) and cool first view :-)

Re: +++ BREAKING NEWS: XY Switches Programming Language +++

Posted: 19 Aug 2020 18:11
by MBaas
Hey - what an encouraging, great first step! This may appear like "simple" to the uninitiated, but I guess we can't even fathom the amount of passion (and sweat and coffee) that went into this! Keep going, Don! :appl: :appl:

Re: +++ BREAKING NEWS: XY Switches Programming Language +++

Posted: 19 Aug 2020 20:31
by Filehero
Pure excitement! :appl: :D

Re: +++ BREAKING NEWS: XY Switches Programming Language +++

Posted: 19 Aug 2020 20:57
by admin
Don't get too excited. I just made some performance tests: Simple printing of text to a surface (there is LOT of this happening in XYplorer all the time). VB6 is 7 times faster than .NET.

That's it for me. I have seen enough. Should have done this testing earlier. :roll:

Re: +++ BREAKING NEWS: XY Switches Programming Language +++

Posted: 19 Aug 2020 21:14
by Filehero
admin wrote: 19 Aug 2020 20:57 VB6 is 7 times faster than .NET.
Managed or unmanaged? Concatenated strings?

Neverteless, I would like to help but I better shut up, because I don't have any real .Net experience. I would have expected the gap to be smaller, though.

Re: +++ BREAKING NEWS: XY Switches Programming Language +++

Posted: 19 Aug 2020 21:23
by paludis
admin wrote: 19 Aug 2020 20:57 Don't get too excited. I just made some performance tests: Simple printing of text to a surface (there is LOT of this happening in XYplorer all the time). VB6 is 7 times faster than .NET.

That's it for me. I have seen enough. Should have done this testing earlier. :roll:
Well it was to be expected that there would be some performance hit when it comes to drawing speed, afterall WinForms is just a higher abstraction layer over pure WinAPI.

How exactly was this measured? Also did the code conversion actually produce proper WinForms controls or were the WinAPI calls simply translated 1:1 to VB.NET?

Re: +++ BREAKING NEWS: XY Switches Programming Language +++

Posted: 19 Aug 2020 21:35
by admin
Nothing fancy, just like this:

In .NET I used:

Code: Select all

   Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        ' 20200819: text on PictureBox using internal commands
        Dim gDst As Graphics = PictureBox2.CreateGraphics
        Dim font As New Font("Segoe UI", 9)
        Dim brush As Brush = Brushes.Black
        ' little speed test -- ca 14 secs for 100000 (in IDE and in COMPILED)
        For i = 1 To 100000
            gDst.DrawString(i.ToString, font, brush, 20, 20)
        Next
        gDst.Clear(PictureBox2.BackColor)

    End Sub
In VB6 I used DrawText API (which I also use a lot in XY) (did not even optimize Picture1.hDC). but the internal command Picture1.Print had similar speed :

Code: Select all

Private Sub Command1_Click()
  Dim i As Long
  Picture1.ScaleMode = vbPixels

  ' API
  With rct
      .Left = 0
      .Right = Picture1.ScaleWidth
      .Top = 0
      .Bottom = Picture1.ScaleHeight
  End With
  ' little speed test -- ca 2 secs for 100000 (in IDE and in COMPILED)
  For i = 1 To 100000
    DrawText Picture1.hDC, CStr(i), -1, rct, 0&
  Next
  Picture1.Cls
  
End Sub