Undock Sidebar
Home
Forum
Showcases
Articles / Tutorials
Code Snippets
Links
Blogs
Newsletter
Wed. Workshop
Search
FAQs
About
Member List
Dev Tools
Log in
Username
Password
Log In
Forgot your Password?
Register
Username
Email
Register
Recent Uploads
Jayenkai
Image-02-0 ... -59-19-781
Jayenkai
IMG 6984 jpeg
Jayenkai
IMG 6985 jpeg
Jayenkai
IMG 9890
Jayenkai
IMG 9889
Jayenkai
907 Box png
spinal
PXL 202406 ... W-01 COVER
Pakz
GameCharts2024iPados
Jayenkai
IMG 9746
steve_ancell
IMG 202406 ... 123253 857
Dock Sidebar
D'you Like Creation - July 2024
Jayenkai
(Fri 02:49)
QOTD - July 2024
Jayenkai
(Fri 02:17)
Blogs - JayWalking
spinal
(Thu 13:50)
Food Findings 2024
cyangames
(Thu 05:57)
Flap Happy and Fancy Free!
Jayenkai
(Thu 03:21)
PlayJam/GameStick News?
cyangames
(Thu 02:30)
Scrolling tiles
spinal
(Thu 02:27)
Windows ARM 2024 - Reviews
therevillsgames
(Thu 02:14)
Nintendo vs Hackers
Jayenkai
(Wed 16:34)
They Are Watching
Pakz
(Wed 09:14)
ALChoons : Recorded
Jayenkai
(Tue 16:06)
Suno Uploader
spinal
(Tue 13:24)
Netflix Recommendations 2024
Jayenkai
(Tue 12:22)
Ableton 12.1
Jayenkai
(Tue 07:07)
Too Hot to Bird/Cat
therevillsgames
(Tue 02:06)
QOTD - June 2024
therevillsgames
(Sun 16:03)
Happy Birthday, Dan
therevillsgames
(Fri 15:39)
Reminder to Self : Don't Do Apple Betas
Jayenkai
(Thu 11:55)
Linamp : The Winamp Player
cyangames
(Thu 07:48)
Websim.ai
Jayenkai
(Wed 08:13)
ALChoons : Zinc
Jayenkai
(Tue 07:21)
TheRevillsPC
therevillsgames
(Tue 05:30)
Site Fixings - Jun 2024
Jayenkai
(Sat 14:19)
Who Hype - 2024
Jayenkai
(Sat 13:34)
Hedra AI Video
Jayenkai
(Fri 10:14)
My Threads
|
More
-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987
0|123|0
-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder
->
Snippet Home
->
Misc
LostUser
Created : 19 May 2008
System : Windows
Language : Blitz
Debug Replacement
DebugLog() Replacement
; Debug Replacement Notes ; ----------------------- ; One of the things that annoys me about Blitz Basic 2D is ; that the in-built DebugLog() function outputs to a tabbed ; window, and its not very usable. ; ; So, I coded this solution based upon Rob Farley's "Debug Onscreen Text thingy" (url given below). ; ; It will display the debug entries in your viewing/output ; screen in the top-left hand side, output to the ; DebugLog(), and allow you to seperate phrases using "|" ; and allow you to write directly to a "log.txt" file. ; ; Note: Ideally this would append messages to any existing ; 'log.txt' file, at the moment it just overwrites any ; existing 'log.txt' file. ; ; See examples for more info.
--v
;#################################################################### ;# ;# Debug Replacement for Blitz Basic 2D ;# v0.1b ;# @updated: 19 May 2008 ;# @author: zardon ;# ;# Based upon: ;# "Debug Onscreen Text thingy" by Rob Farley ;# URL: https://blitzbasic.com/codearcs/codearcs.php?code=1337 ;# ;#################################################################### Const debugfile$ = "log.txt" ;-------------------------------------------------------------------- Type t_debug Field txt$ End Type ;-------------------------------------------------------------------- ;random variable assignment animal$ = "fox" ; just a normal debug entry debug("Animal:" + animal$ ) ; this uses the '|' seperator (must have no whitespace post seperator) debug( "Graphcis Width: " + GraphicsWidth() +"|Graphics Height:"+ GraphicsHeight() + "|Graphics Depth: " + GraphicsDepth() + "|GraphicsBuffer: " + GraphicsBuffer() ) ; output all debug debug( "", True ) ; write my debug log file debug( "", False, True ) ; cleanup debug debug_cleanup() ;-------------------------------------------------------------------- ; ; debug() function ; creates a new debug item, ; creates a visual output, ; creates a logfile ; @parameters; ; txt$ (string) = the text to add to the debug ; output$ (boolean) = whether to output to the screen ; mkfile (boolean) = whether to write a log file to the current directory ; @return; ; (boolean) Function debug(txt$="", output=False, mkfile=False) If (txt$<>"") Then ; Handle Seperators If Right(txt,1) <> "|" Then txt$ = txt$ + "|" ty=0 Repeat tx=Instr(txt$,"|") If tx>0 Then outputLeft$ = Left(txt$,tx-1) outputRight$ = Right(txt$,Len(txt$)-tx) ; create a new debug object debug_new( outputLeft$ ) txt$ = outputRight$ EndIf Until tx = 0 End If If (output = True) Then debug_echo() End If If (mkfile = True) Then debug_writelog() End If Return True End Function ;-------------------------------------------------------------------- ; ; debug new() function ; adds a new debug item ; @parameters; ; txt$ (string) = the text to add to the debug ; @return; ; (boolean) ; Function debug_new(txt$) p.t_debug = New t_debug p\txt$ = txt$ DebugLog( txt$ ) Return True End Function ;-------------------------------------------------------------------- ; ; debug output() function ; outputs the debug to the screen ; ; @parameters; ; none ; @return; ; (boolean) ; Function debug_echo() Local y=1 For p.t_debug = Each t_debug Text 1, y, p\txt$ y=y+FontHeight() Next Return True End Function ;-------------------------------------------------------------------- ; ; debug writelog() function ; dumps the contents of the debug type to a .txt file ; ; NOTE: This will OVERWRITE any entries in a 'log.txt' file!!! ; ; @parameters; ; none ; @return; ; (boolean) true ; ; Ideally a log file should search for an existing log file ; and append to it. ; Function debug_writelog() Local path$ = CurrentDir$() fileout = WriteFile(path$ + debugfile$) For p.t_debug = Each t_debug WriteLine(fileout, p\txt$) Next CloseFile(fileout) Return True End Function ;-------------------------------------------------------------------- ; ; debug cleanup() function ; deletes all debug object types ; ; @parameters; ; none ; @return; ; (boolean) true ; Function debug_cleanup() For p.t_debug = Each t_debug: Delete p: Next: Return True End Function
--v
Comments
Copyright
Jayenkai
- 2017+ | Thanks to
Shroom_Monk
for CSS/Dev Tips | Uses a Jay-Tweaked version of
CBParser
.
Page Took : 0.081