I know that this is not very useful for many people, but it could be easily modified for other programming languages.
John
[edit - there's something funny going on with the slashes in the PHP code. Quote this message, and use the code straight from the reply window to get it accurately within any escaping problems.]
Show Your Support
This modification may not be copied, reproduced or published elsewhere without author's permission.
wow I m not aware there is hack like this! :thumbup:
John or Firefly
I d like to get some of your hints or tips for this. Since John stated that I can modify this hack to change to C/C++ codes so what and which do you suggest me to change this hack to C/C++? You dont have to do all of that but just tell me which codes that I should change and input C/C++ codes?
Sorry for double post but I didnt see how.. perhaps 2.2.6 have different lines, I try everything to get it work but no luck. Can anyone give me excat codes to look for to put it above codes to get it work.
Never mind, I got it but still have double line space problem =\
double space problem:
Code:
Option Explicit
Dim angle, pi As Integer
Private Sub form_load()
pi = 3.14159
End Sub
Private Sub tmr1_Timer()
'pic1.Cls
If angle <= 359 Then
pic1.Line (278.5, 186.5)-(278.5 + 100 * Math.Sin(angle * (pi / 180)), 186.5 + 100 * Math.Cos(angle * (pi / 180))), vbBlack
angle = angle + 1
End If
'If angle >= 360 Then angle = 0
lbl1.Caption = "Angle = " & angle
End Sub
instead it should be like this:
Code:
Option Explicit
Dim angle, pi As Integer
Private Sub form_load()
pi = 3.14159
End Sub
Private Sub tmr1_Timer()
'pic1.Cls
If angle <= 359 Then
pic1.Line (278.5, 186.5)-(278.5 + 100 * Math.Sin(angle * (pi / 180)), 186.5 + 100 * Math.Cos(angle * (pi / 180))), vbBlack
angle = angle + 1
End If
'If angle >= 360 Then angle = 0
lbl1.Caption = "Angle = " & angle
End Sub
So how? I only wish that there is a instruction to help me and anyone to look for excat codes to put after or before instead of based on lucky guess as I did but still getting double space problem. I m going to be king of the bump on this thread until solution come up =P
See the attached screenshot. I am going t go through and make it case insensative, and allow you to specify CSS colors (and then we can extend it for other languages...)
I used the code that he posted above. Where are you pulling the code from? I pulled my from the Klient Script Editor. You might have issues with the chr(10) and chr(13) from your source application.
Are you on unix/mac/pc? Unix line breaks are different, I dont think they would carry over though...
Copy your code to notepad, how does it look? Then copy it from notepad into your forums, and see how it looks.
What ver of vB are you using? If you still have issues, pase the code from visbas.php here....
I used the code that he posted above. Where are you pulling the code from? I pulled my from the Klient Script Editor. You might have issues with the chr(10) and chr(13) from your source application.
Are you on unix/mac/pc? Unix line breaks are different, I dont think they would carry over though...
Copy your code to notepad, how does it look? Then copy it from notepad into your forums, and see how it looks.
What ver of vB are you using? If you still have issues, pase the code from visbas.php here....