Getting the ball rolling. Which VB6 projects are you working on?

[yereverluvinuncleber]

Looks superb.

Don't worry about putting something on github before it is ready, very little on github is ever ready, much less complete. When you place it up there you gain a lot of benefits in source control, visitors will see the state of it by your full and frank description - and you can always guide them to a recent release rather than your current code.

Sounds like you could be a potential TwinBasic user very soon.

We are always interested and your screenshots will be appreciated.

[Dan_W]

Thank you!

I am also an admirer of all things TwinBasic, and have dabbled in it a bit. It's a gamechanger for extending the life and usefulness of VBA (insofar as MS will let us use it).

I don't know if animated GIFs will work here, but this is another demo I wrote - the physics of which is sourced from a VB6 project from one of the PSC repos.

[xiaoyao]

That is SO cruel.




Nor me! I only do it for my own contrived interfaces.

You are in the clear.

So Van, what do you suggest? What 'should' we be doing to implement such lovely controls/events in VB6?

webview2,webbrower
It may take only two minutes to achieve such a function.

[yereverluvinuncleber]

webview2,webbrower
It may take only two minutes to achieve such a function.

Go away please xiao, if you have nothing to offer here then you should not be posting.

[yereverluvinuncleber]

I am actually getting close to finishing it. Honestly, I can't believe it. It has taken far longer than I expected.



I have a release here: https://github.com/yereverluvinuncle...0.0.1build2556

Please note: barely tested. This release is now old and an update will come soon.

[yereverluvinuncleber]

Dan, this is good, where is the code?

[Shaggy Hiker]

This thread is about projects you have worked on, not about things you'd like to see.

[xiaoyao]

I am developing a project xiaoyao web IDE, scripting tool.
The goal is to achieve cross-platform.
Language: VB6, twinbasic, VB. Net. C , JS, Python

At present, it mainly solves the problem of vector diagram.
Transparent PNG, infinitely enlarged SVG vector map, web page management background, foreground. Vb used to do background service center. Can be run on the wine above the foreground with the direct operation of the web page

It is planned to develop a mobile version of visual form designer, which can control the management and maintenance of computers.Simple screenshot mode of remote desktop, mouse, finger click screen once screenshot once.

[yereverluvinuncleber]

This thread is about projects you have worked on, not about things you'd like to see.

Thankyou Shaggy, forgive my frustration and thanks for the moderation, and for getting xiao on track.

[yereverluvinuncleber]

xiaoyao we would like to hear about your cross platform web IDE, scripting tool. Just please keep on track, don't chat about stuff unrelated and if you can, keep it brief - and always add a picture of your progress - and not too often, thanks!

[Dan_W]

Dan, this is good, where is the code?

Sorry - I didn't see your question until just now. This is originally a PSC VB6 project that I've just managed to find again now - here is how iit began: https://github.com/Planet-Source-Cod...ysics__1-56134



The rest of it is a bit of a frankenstein that I need to rewrite.

[yereverluvinuncleber]

We always need to rewrite everything. Honestly, if most looked at my code they would be likely to scream and tear their hair out. Don't hide your code due to embarrassment. As soon as I manage to get my code working I intend to thoroughly overhaul it but I still have plenty to do to finish the functionality.

I just implemented a new method of playing sounds asynchronously that writes the wav files (previously stored in a memory buffer) and feeds that buffer to the waveOutWrite API. Means that my clock now plays the major sounds, chimes, ticks &c in an overlapping manner as they should sound, as per the old YWE version of the clock.

[xiaoyao]

xiaoyao web ideevelopment progress. api drawtext,The text label control is automatically enlarged and centered vertically.
Gets the height and width of the drawing area occupied by multiple lines of text. I used to study this problem for several years, and there were always some minor problems, but now it has finally been solved.Now a look at the web page, CSS color has 400 functions. The degree of freedom is very high, but the difficulty is also increased by hundreds of times.

[yereverluvinuncleber]

It needs to be directly VB6-related xiao

[xiaoyao]

My core is an IDE written with VB6. Use web pages as UI. Events can be triggered directly in a web page or in a program.
It is very difficult to find windows text boxes that are vertically centered up and down.
I am now using the windows API and the web page at the same time.
If you can do something with the windows API, use it first.

[cafeenman]

Still working on my game engine.

All the core stuff is in place and working very well.

So now I'm doing a lot of detail work.

I plan to eventually have all settings and multipliers available to the user but for now most of that stuff is internal and you get what I give you.

And what I'm giving you is a 40% multiplier: 1 + (0.40 * current value / max value).

[yereverluvinuncleber]

Fascinating UI.

[cafeenman]

Here's more.

The left window has been significantly updated to improve readability since the version I'm uploading.

I'm leaving it running to check the game-balance because I haven't made any changes to how the scoring works since compiling the one shown here.

[yereverluvinuncleber]

Too small, can't see a thing, upload it using imgur and add a link instead. Looking forward to see it.

[cafeenman]

I've never used it but my friends at the Googles gave me an upload link. Hopefully it works.

https://imgur.com/a/EzuPROa

[cafeenman]

One of the things I did that I think is kind of funny, is that you can right-click anything and you'll get info about it in the left window.

If you look in the bottom right of the right-window you'll see "Net Worth".

Instead of giving you an explanation of how it works, it's just posts the formatted code in the left window.

If you can't read code then you won't get it but it's Visual Basic so mostly human-readable for anyone who cares enough to do it.

[yereverluvinuncleber]

Hopefully it works.

Not quite, you just need to wrap img tags before and after. [ img ] and [ /img ] - without the spaces.

[cafeenman]

Thanks.

Now if I could just change the color of those scrollbars I'd be really super-happy.

[cafeenman]

Every time you ask how much you're worth, your value gets re-rolled.

Positive Attribute points are rolled one at a time and worth random x $1.00 each. So average to about $0.505

On the other hand, negative points are worth random x $15,000 each. So having any negative points at all is kind of bad.

Levels are worth $10k each.

And you can silo up to 111,111,000 McGuffins (that's the planned win condition)

They're worth a flat $0.24 each.

This is the code to display the code that does that:

Public Sub InquiryMcGuffinCreds()
Dim s As String

CONSOLE "Your value leaves a lot to chance.", -1, idx_PlayerMessage_Aux

Sleep 1000

s = "Public Property Get McGuffinCreds() As Double"
s = s & vbCrLf & "Const ATTRIBUTE_CREDIT_VALUE As Double = 99"
s = s & vbCrLf & "Const LEVEL_CREDIT_VALUE As Double = 10000"
s = s & vbCrLf & "Const NEGATIVE_CREDIT_VALUE As Double = 15000"
s = s & vbCrLf & "Const SILO_MCGUFFIN_MULTIPLIER As Double = 0.024"
s = s & vbCrLf & "Dim rValue As Double"
s = s & vbCrLf & "Dim n As Long"
s = s & vbCrLf & "Dim j As Long"

s = s & DBL_RETURN & "For n = 1 To m_Attributes.Count"

s = s & DBL_RETURN & "  If m_Attributes(n).Value > 0 Then"

s = s & DBL_RETURN & "    For j = 1 To m_Attributes(n).Value"

s = s & DBL_RETURN & "      If n = idx_Player_Attribute_Developments Then"

s = s & DBL_RETURN & "        rValue = rValue + (0.01 * (RollDie(ATTRIBUTE_CREDIT_VALUE + 1, ATTRIBUTE_CREDIT_VALUE + 1) - 2))"

s = s & DBL_RETURN & "      Else"

s = s & DBL_RETURN & "        rValue = rValue + (0.01 * (RollDie(ATTRIBUTE_CREDIT_VALUE + 1) - 1))"

s = s & DBL_RETURN & "      End If"

s = s & DBL_RETURN & "    Next j"

s = s & DBL_RETURN & "  ElseIf m_Attributes(n).Value < 0 Then"

s = s & DBL_RETURN & "    For j = -1 To m_Attributes(n).Value Step -1"

s = s & DBL_RETURN & "      If n = idx_Player_Attribute_Developments Then"

s = s & DBL_RETURN & "'        rValue = rValue - RollDie(NEGATIVE_CREDIT_VALUE, NEGATIVE_CREDIT_VALUE)"

s = s & DBL_RETURN & "      Else"

s = s & DBL_RETURN & "        rValue = rValue - RollDie(NEGATIVE_CREDIT_VALUE)"

s = s & DBL_RETURN & "      End If"

s = s & DBL_RETURN & "    Next j"

s = s & DBL_RETURN & "  End If"

s = s & DBL_RETURN & "Next n"

s = s & DBL_RETURN & "If Level > 0 Then"

s = s & DBL_RETURN & "  For n = 1 To Level"

s = s & DBL_RETURN & "    rValue = rValue + RollDie(LEVEL_CREDIT_VALUE)"

s = s & DBL_RETURN & "  Next n"

s = s & DBL_RETURN & "End If"

s = s & DBL_RETURN & "McGuffinCreds = rValue + (SILO_MCGUFFIN_MULTIPLIER * SiloedMcGuffins) + (0.01 * (RollDie(ATTRIBUTE_CREDIT_VALUE + 1) - 1))"

s = s & DBL_RETURN & "End Property"

PrepareInquiry s

End Sub

And the actual code which is probably redundant.

Public Property Get McGuffinCreds() As Double
Dim rValue As Double
Dim n As Long
Dim j As Long

'Public Const ATTRIBUTE_CREDIT_VALUE As Double = 99
'Public Const LEVEL_CREDIT_VALUE As Double = 10000
'Public Const NEGATIVE_CREDIT_VALUE As Double = 15000
'Public Const SILO_MCGUFFIN_MULTIPLIER As Double = 0.024


For n = 1 To m_Attributes.Count

  If m_Attributes(n).Value > 0 Then

    For j = 1 To m_Attributes(n).Value

      If n = idx_Player_Attribute_Developments Then

        rValue = rValue + (0.01 * (RollDie(ATTRIBUTE_CREDIT_VALUE + 1, ATTRIBUTE_CREDIT_VALUE + 1) - 2))

      Else

        rValue = rValue + (0.01 * (RollDie(ATTRIBUTE_CREDIT_VALUE + 1) - 1))

      End If

    Next j

  ElseIf m_Attributes(n).Value < 0 Then

    For j = -1 To m_Attributes(n).Value Step -1

      If n = idx_Player_Attribute_Developments Then

        rValue = rValue - RollDie(NEGATIVE_CREDIT_VALUE, NEGATIVE_CREDIT_VALUE)

      Else

        rValue = rValue - RollDie(NEGATIVE_CREDIT_VALUE)

      End If

    Next j

  End If

Next n

If Level Then

  For n = 1 To Level

    rValue = rValue + RollDie(LEVEL_CREDIT_VALUE)

  Next n

End If

McGuffinCreds = rValue + (SILO_MCGUFFIN_MULTIPLIER * SiloedMcGuffins) + (0.01 * (RollDie(ATTRIBUTE_CREDIT_VALUE + 1) - 1))

End Property

[gaouser]

There have been some discussions about the benefits of using VB6 over VB.NET and vice versa which just piqued my interest into what we are all actually doing with VB6. So I thought I'd just try to test the water on the current state of VB6 and its usage in real life.

So, if you wouldn't mind posting here, could you please let the community know what you are currently working on using VB6 in any form or manner whatsoever, especially if it is interesting and so we can view the continued potential of this language that we use.

I know what my projects are and I'd be happy to post mine but I am hoping someone else can get the ball rolling, I don't want this to be my thread alone.

To qualify, the project must have VB6 at the core but can use other components of course but it must be a recognisable VB6 project at its heart. A brief description as you like and as many pictures as you can muster. I generally host my images at imgur.com. A link to a project or a download link is also perfectly acceptable. Shameless plugging is fine, at least on this thread.

A picture speaks a thousand words and all posts of your project must include at least a picture (of the project) and a project name. Some notes on the project status, state of completion, technical problems you have encountered, what you have learnt would all be grist to our mill. If we received lots of replies on a specific project then we may take those to another thread (I ask for understanding on the part of the moderators).

So, please humour me in this thread and show me what you are working on, big or small, fat or thin, tall or short. It might also be good to see your working environment. In a short while I will post an image of one of my mini-projects that I am intending to complete but I hope someone else will assist me in getting the ball rolling.

Not trying to replace the code bank, I just thought it might be a nice way to see just what is going now in VB6 land.

PS. We could even create one for VB.NET a little later.

THREAD RULES:

1. An image per post per application
2. A name to each application
3. A link, if such exists - optional
4. Summary description about each app.
5. Description of the environment and tools used to develop (eg Win11, Dell omnibrain 12ghz)

EveryDiscord, A FOSS Discord client for Windows XP based on VB6.

Relies on Discord Tokens(Ok may sound shady. but how are you going to pass OAuth2? You need a modern browser[Supermium is excluded] to interpret the links that Discord emails you to vertificate)
I sent my first ever message from it, currently working on a way to fetch them, ComCtl32(CC 5) ListView is closest to a text-bubble view. It's visually smilar as Discord has no drawn-bubbles on the view.
Based on wqweto's TLS 1.3 AsyncSocket. Alot of thanks to him for making this project happen.

Made in a VM(XP Professional x86 SP3), Tiny11 24H2 as host. 27" Monitor, and a desktop with 32 GBs of RAM(though doesn't matter here due to x86)

[gaouser]

My core is an IDE written with VB6. Use web pages as UI. Events can be triggered directly in a web page or in a program.
It is very difficult to find windows text boxes that are vertically centered up and down.
I am now using the windows API and the web page at the same time.
If you can do something with the windows API, use it first.

Idk if you would really like doing a project that isn't fully yours, but maybe you can use your "inspiring" GUI skills for VBForumCompiler's IDE.

[yereverluvinuncleber]

EveryDiscord, A FOSS Discord client for Windows XP based on VB6.

I look forward to seeing that. Could be useful.

[gaouser]

I look forward to seeing that. Could be useful.

The reason was that I kinda did not like how DiscordMessenger was built. It either used old versions of libraries or libraries that have like a second left to EOSing NT5, for just opening Discord web version(desktop client is just an electron app loading the web version) with Supermium, I just don't like web apps, they don't fit in with native Windows software, and they just work weirdly.
And another reason is that I really love XP and the NT5 Kernel. It is when Windows peaked stability, which it has never recovered that since Vista.

[yereverluvinuncleber]

Anyone else working on anything interesting that they care to share?

[-Franky-]

I'm still working on the Windows App SDK and WinUI 3 project. Progress is slow though. I just don't have the time to try out more and find errors. Apart from that: XAML controls don't always have to be square.

[xiaoyao]

3d buttons,and 3d Game chess by vb6

[fafalone]

I'm still working on the Windows App SDK and WinUI 3 project. Progress is slow though. I just don't have the time to try out more and find errors. Apart from that: XAML controls don't always have to be square.

Do they always have to be plain and flat though? Hate this "Fluent UI" crap where everything is flat with little to no borders and various other UI sins from art students too far up their own ass and managers implementing change for the sake of change to justify their pay.

Windows UI design really peaked in 7 and it's been a steep decline since, with 11 dipping into the 'actively painful to use ' realm.

Those VB buttons just look so much better than the "is that a button or a label" WinUI buttons.

It's impressive technical work but a lot to go through for a worse UI.

[yereverluvinuncleber]

It's impressive technical work but a lot to go through for a worse UI.

My thoughts exactly.


It is good to see what people are working upon though, keep it up chaps. This thread is a great example of what can be done using VB6/TB.

[-Franky-]

Do they always have to be plain and flat though? Hate this "Fluent UI" crap where everything is flat with little to no borders and various other UI sins from art students too far up their own ass and managers implementing change for the sake of change to justify their pay.

Windows UI design really peaked in 7 and it's been a steep decline since, with 11 dipping into the 'actively painful to use ' realm.

Those VB buttons just look so much better than the "is that a button or a label" WinUI buttons.

It's impressive technical work but a lot to go through for a worse UI.

But then you can't switch to Win11. I mean, you can stay with Win7 if you like the UI better. And who says that a XAML button has to be flat? That's just the default template. You don't know, or you don't even have a clue, about the possibilities that can be achieved with XAML. And I've already written about it here. XAML is just one of many ways to create your UI. You don't have to use it and nobody is forcing you to.

Edit: Just do a Google image search for "xaml button style template". I think that will give you a small overview of what is possible with XAML.

[xiaoyao]

Each of web UI, xmal, WPF, and winform has its own characteristics and shortcomings.
I currently prefer the web version of the IDE, the control style.

[yereverluvinuncleber]

Well, you know what I prefer...


Right Click and view image to see in more detail.

Let the XML discussion continue elsewhere, my apologies for contributing...

The above shows what I am working on. Dragging up an old project to avoid boredom setting in.

[Episcopal]

But then you can't switch to Win11. I mean, you can stay with Win7 if you like the UI better. And who says that a XAML button has to be flat? That's just the default template. You don't know, or you don't even have a clue, about the possibilities that can be achieved with XAML. And I've already written about it here. XAML is just one of many ways to create your UI. You don't have to use it and nobody is forcing you to.

Edit: Just do a Google image search for "xaml button style template". I think that will give you a small overview of what is possible with XAML.

I particularly like this UI. However, what differs is the taste for something. I myself am fascinated by the color blue and my highlights are in blue tones.

[yereverluvinuncleber]

Blue is a 'good' colour. I think I understand your fascination. Sexy little beast isn't it? Oooops sorry.

I am currently going through my code and "Tidying it up". Fixing all the things I was too lazy to do during the coding. You only realise how much effort you avoided when you have to go through your code and fix your myriad mistakes. It would be good if there were additional options such as OPTION EXPLICIT.

OPTION COMMENT
OPTION NOTLAZY
OPTION DOCUMENT
OPTION PROPERVARIABLENAMING
OPTION DONTBEATWIT

Might be useful.

[SearchingDataOnly]

Each of web UI, xmal, WPF, and winform has its own characteristics and shortcomings.
I currently prefer the web version of the IDE, the control style.

Hi xiaoyao,

Could you upload a clear version of this image in zip format? I'd like to try to generate/create this web page with my desktop UI framework. In this way, I can test and compare the development efficiency of my UI framework.

[LorinM]

Writing several app at the same time. That is why I am so confused all the time.
Party Cam Kiosk - takes a sequence of webcam photos, applies effects and prints out a photo strip, 2-up, 4-up and one-up pages color or B&W plus many fun options. 45K + code, more of comments. about 99% complete (runs but adding features)
DesignCAD - a user friendly CAD program that generates g-Code to operate a desktop CAD machine for cutting out and carving. 50K + lines of code + more of comments. About 80% complete. runs but adding features.
Story Teller - user programmable using bookmarks. reads text aloud selectable voices, plays music of many formats, open multiple picture windows with effects and/or movie screens. With many more options. 80K+ lines of code, more of comments. about 95% complete (runs but adding features)

Keep finding code from my snippet library that I do not recognize. Memory problems setting in.

Learning all the time.

Just keep on keeping on !