Tag Archives: Visual Basic

Developing a game by yourself.

Back when I was 14 years old I developed a game by myself using visual basic. Now I’ve read this on wikipedia:

However, approaching the 21st century, ever-increasing computer processing power and heightened consumer expectations made it difficult for a single developer to produce a mainstream console or PC game. The average price of producing a video game slowly rose from US$1–4 million in 2000 to over $5 million in 2006, then to over $20 million by 2010. However, mobile, web-based and indie games can cost much less.[1]

Well, that explains why I have failed in repeating the same feat ever since. Though if I were to infringe copyrights like I did back then I’m pretty sure I could gather a few players.

Leave a comment

Filed under Uncategorized

Ein Gedi MP3 Player

Screenshot:

Image

Download: http://yourlinkyourad.co.nf/EinGediMp3Player.7z

Leave a comment

Filed under Uncategorized

Creating an AxWindowsMediaPlayer programmatically

below Public Class Form1:

Dim AxWindowsMediaPlayer1 As New AxWMPLib.AxWindowsMediaPlayer

 

Inside Form1_Load:

Me.Controls.Add(AxWindowsMediaPlayer1)

AxWindowsMediaPlayer1.Show()

Leave a comment

Filed under Uncategorized

How to draw a hexagram

    Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

        Dim myPen1 As New Pen(New SolidBrush(Color.FromArgb(255, 0, 0, 0)), 10)

        Dim Tri1Point1 As New Point((Me.Width / 2) – Me.Height / 6, (Me.Height / 3) + (Me.Height / 18))
        Dim Tri1Point2 As New Point((Me.Width / 2) + Me.Height / 6, (Me.Height / 3) + (Me.Height / 18))
        Dim Tri1Point3 As New Point((Me.Width / 2), ((Me.Height / 3) * 2) + (Me.Height / 18))

        e.Graphics.DrawPolygon(myPen1, {Tri1Point1, Tri1Point2, Tri1Point3})

        Dim Tri2Point1 As New Point((Me.Width / 2) – Me.Height / 6, ((Me.Height / 3) * 2) – (Me.Height / 18))
        Dim Tri2Point2 As New Point((Me.Width / 2) + Me.Height / 6, ((Me.Height / 3) * 2) – (Me.Height / 18))
        Dim Tri2Point3 As New Point((Me.Width / 2), (Me.Height / 3) – (Me.Height / 18))

        e.Graphics.DrawPolygon(myPen1, {Tri2Point1, Tri2Point2, Tri2Point3})

    End Sub

The code above is Public Domain

Image

Leave a comment

Filed under Uncategorized

Remix Masters

Here is everything I want to do:

P2P Network with:
Data Hosting(like Freenet)
Script(remote and local) execution
Multiple tasks done by different nodes(network security, network gateway(from IPv4 addresses to local addresses), etc)
Reward system
Tracking system with multiple trackers
New Web Trees consisting of:
New Web Objects

Here is what I’m going to do first(because I need to start somewhere lest I become overpowered by the abstraction and amount of code to plan):

New Web Lists(as opposed to trees) consisting of
New Web Objects

nwo sounds like an awesome acronym 🙂

Leave a comment

Filed under Uncategorized

VB strings seem to be binary safe

Code to test it:

Dim s1 As String = “”

        For i As Integer = 0 To 255
            Dim hexI As String = Hex(i)
            If hexI.Length = 1 Then
                hexI = “0” + hexI
            End If

            s1 = s1 + System.Text.RegularExpressions.Regex.Unescape(“\x” + hexI)
        Next

        For i2 As Integer = 0 To 255

            RichTextBox1.AppendText(Hex(Microsoft.VisualBasic.AscW(s1(i2))) + vbNewLine)
        Next

I didn’t check all values, but all values that could be used as delimiters(\x00 for instance) seem retrievable. Also, notepad tells me the richtextbox has 256 lines(plus one empty at the end).

You need a form and a richtextbox for this code(the code is public domain btw)

Leave a comment

Filed under Uncategorized

VB rocks

When it comes down to GUI and cryptography, but sucks in everything else. I have a huge program and I’m not close to finishing my header-adding program, I would have already finished with few lines in python. Given that most users won’t need to add headers(only “webmasters”) I will move to python for this part. The worst part is that I don’t even know whether VB.net strings are binary-safe. That would easy my life somewhat.

Leave a comment

Filed under Uncategorized