Visual Basic

[rockinliam]

Today i turned up to computing was given a handy help sheet for general visual basic programming, and was told to make a calculator for wallpaper rolls required to cover a wall. Three people got their programs working before the end of the lesson.

Now bearing in mind i have never programmed VB6 on my own before this is the result:
http://rapidshare.com/files/421973519/WallPaperCal.exe

[Jackolantern]

Looks good to me! I'm not really sure, though, why someone would be teaching Visual Basic 6 these days. The next version of Windows is unlikely to have the runtime ported to it since VB6 support has been over for a year or two now. I guess I could see it for a basic programming course, maybe, since it is much easier than VB.NET.

[rockinliam]

Well it is just the first steps thing, its not a class on getting a qualification in VB6 its more about learning a skills set and mind set to allow us to move on to university ready to be able to take a computer science degree. The subject is A-Level computing and encomposes programming, understanding the hardware and networks and all cool crap like that. I think we might end up a bit a C or Java later in the year, but for now it is cheap and cheerful VB6.

Also a cool little fail from today, a kid that sits 1 seat from me, built his form real fast and we were all looking at him like "wow dude, you know what you are doin", then about 20 minutes before the end he called Eddie over (our super awesome computing teacher, that has worked in IT since the end of the 60's, has a degree in informatics , been on dev teams for programs and games that alot of people have used, eg autoroute, which got bought up by MS, and has played Sax on a few Tom Jones records... like haha ) any way this kid called eddie over saying he had an error, he showed him the code and it turned out he had tried write his program with html........ eddie likes him now.

[rockinliam]

A little update in my world of VB6.

Our task was to create eddie a replacement for his normal text editor...

http://www.MegaShare.com/2675084
I tried.

Code: Select all

Option Explicit
Dim message As String
Dim FilePath As String
Dim namer As String

Private Sub Form_Load()
FilePath = App.Path

End Sub


Private Sub butBold_Click(Index As Integer)
    txtBLOX.FontBold = True
End Sub

Private Sub butClear_Click(Index As Integer)
    txtBLOX.Text = ""
End Sub

Private Sub butExit_Click(Index As Integer)
    Unload Me
    End
End Sub


Private Sub butFontAriel_Click(Index As Integer)
    txtBLOX.Font = "Ariel"
End Sub

Private Sub butFontDe_Click()
txtBLOX.FontSize = 12
End Sub

Private Sub butFontIn_Click()

txtBLOX.FontSize = 32

End Sub

Private Sub butFontSans_Click(Index As Integer)
    txtBLOX.Font = "MS Sans Serif"
End Sub

Private Sub butSave_Click(Index As Integer)

Dim dtmTest As Date
dtmTest = TimeValue(Now)
message = txtBLOX.Text
namer = Text1.Text

Open FilePath & namer For Output As #1

Print #1, message

Close #1

Frame1.Caption = dtmTest

End Sub

Private Sub butUnBold_Click(Index As Integer)
    txtBLOX.FontBold = False
End Sub