You are not logged in.

Search results

Search results 1-3 of 3.

Friday, March 6th 2009, 10:01pm

Author: neilnapier

Speed comparison and SetPixelV

Source code 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 Public Sub main(ByJava args() As String) Dim myArgs() As String myArgs = args Form1.SetDefaultClose() Form1.show() Do Dim i As Long Dim negpos As Byte Dim n As Single form1.sandbox.Cls For i = LBound(xy()) + 1 To UBound(xy()) ' Resets pixels when they go past the border ' If pixels are within the sandbox then they will be read If xy(i).y > 0 Then form1.sandbox.pset(xy(i).x,xy(i).y) ' Setpixe...

Friday, March 6th 2009, 7:53pm

Author: neilnapier

Speed comparison and SetPixelV

Thanks. Athough, the reason I wanted SetPixelV is because I need to have multiple colours. Also, when I put a Do loop into Sub Main it doesn't load the form, no matter what I do.

Friday, March 6th 2009, 6:11pm

Author: neilnapier

Speed comparison and SetPixelV

I was very interested in this langauge mostly because it meant I would be able to program in VB6 for multiple platforms. However, I considered the speed boosting oppertunities. I tested the speed with a simple code... Source code 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub Timer1_Timer() r = Timer Do Until xx = 1 Text1.Text = Val(Text1.Text) + 1 DoEvents If Val(Text1.Text) = 100000 Then If (Timer - r) > 0 Then fps = (1 / (Timer - r)) End If MsgBox (fps) xx = 1 End If Loop End Sub This shown ...

WoltLab Burning Board