Messages - vixay [ switch to compact view ]

Pages: prev1 2 3 [4] 5 6 7 8 9 ... 28next
I have a similar requirement, but it needs to be cross-platform. I've looked at jabber, but haven't found a decent cross-platform client yet. It's a mess to try and use them. Do you know of any program that doesn't require user registration/passwords ...etc. Just use the hostname?

Found Deals and Discounts / Re: Take Command Console LE from JPSoft
« on: August 06, 2010, 07:54 AM »
I just heard about another free console enhancer:  Console
Pretty unstable, though - and it's relatively laggy as well, unless you bump down the update timeout and burn CPU cycles. And has problems with some "fullscreen console apps" (like hexit and hiew).
It's stable enough here.  I have tabs configured to run CMD.EXE, Windows Powershell, TCC LE, Cygwin bash, and MinGW zsh.  I can also run things like Eric Meyer's VDE editor and Necromancer's DOS Navigator.  I had problems with alpha-blending and transparency, and simply turned that off.  Transparency is eye-candy I don't need in daily use.

And I load Kris Sweger's ANSIPlus in CONFIG.NT for ANSI support in DOS apps, and Jason Hood's ANSICON in CMD.EXE/TCC LE sessions for ANSI support there.  It all works fine in Console 2 tabs.  I haven't found a need to diddle the update settings.

Console 2 doesn't do full screen, but I wouldn't want to.  I have a 19" monitor in 1600x1200 resolution, and prefer everything in a window.

That sounds awesome... I had just discovered TCC LE today and set it up in console 2 and while I was at it, i added powershell, and thought that I should probably add bash/cygwin or msys to it (though portable versions of it) and i soon got lost on researching those solutions rather than getting it done. So I would be very happy if you could tell me how you have set it up, and if your setup is portable.  (posting your console.xml would be cool as well)

And just FYI, TCC le wouldn't work with console 2 for me, until i updated it to the latest version 146 (had 144 earlier).

 :Thmbsup: :Thmbsup: for console2 from me as well.

sorry, my bad. I assumed the screenshot was excel. No as far as i know it shouldn't  work in openoffice, but hmm that gives me an opportunity to try macros in open office :)
As for stand alone... I don't have enough time for that, though I do have one flash application lying about which did something similar. I'll see if i can find it.

since you are already using excel... here's a simple module for it, i've tested it and it works well enough.

just put your active cell within your table and run the macro StartRandomizer()

'Module by Vixay for DonationCoder
Option Explicit
'API for windows sleep
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub StartRandomizer()
'Moves a shape along the cells, and changes color of the final cell
' No exclusivity for now
'30 ms = fast
'100 ms = slow
'150 ms = stop
Dim shpActive As Shape
Dim rCell As Range
Dim lSpeed As Long
Dim lSpeedMax As Long
Dim lWinner As Long
Dim lCount As Long

lSpeed = 30
lSpeedMax = 150
lWinner = SelectWinner()
Debug.Print "to be winner:" & lWinner
'get the shape we will use ( must exist or will cause an error )
If ActiveSheet.Shapes.Count > 1 Then
    Set shpActive = ActiveSheet.Shapes(1)
    Set shpActive = ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, 10, 10, 10, 10)
    shpActive.Fill.Transparency = 0.8
End If

For lSpeed = 30 To lSpeedMax Step 20
    lCount = 0
    For Each rCell In ListArea.Cells
        lCount = lCount + 1
        AlignShapeTo shpActive, rCell
        'Debug.Print rCell.Address
        'Application.ScreenUpdating = True
        Sleep lSpeed
        'slow down speed randomly with a low probability
        ' i.e. continue through all cells most of the time at the current speed
        ' except no random slowdowns on the last stage
        If Rnd >= 0.95 And lSpeed < 130 Then
        'can tweak the number here to change how often we randomly switch speeds
            lSpeed = lSpeed + 20
            Debug.Print "random speed slowdown:" & lSpeed
        End If
        'if at winner cell, and at final slowdown stage
        If lSpeed >= lSpeedMax And lCount = lWinner Then
            Debug.Print "Found our winner"
            rCell.Interior.Color = vbRed
            Exit For 'stop here
        End If
        'Debug.Print lSpeed
    Next rCell
    Debug.Print "next slowdown:" & lSpeed
Next lSpeed

End Sub

Sub AlignShapeTo(ByRef shpObj As Shape, rCell As Range)
shpObj.Top = rCell.Top
shpObj.Left = rCell.Left
shpObj.Height = rCell.Height
shpObj.Width = rCell.Width
End Sub

Function ListArea() As Range
'Change this function to suit your needs or just make sure your
' active cell is within your table range
Set ListArea = ActiveCell.CurrentRegion
'Set ListArea = Selection
End Function

Function SelectWinner() As Long
'Randomly choose a cell amongst all the cells
Dim lCellCount As Long
lCellCount = ListArea.Count
SelectWinner = Rnd * lCellCount + 1
Debug.Print SelectWinner & " / " & lCellCount
End Function

Sub ClearBackgrounds()
ActiveCell.CurrentRegion.Interior.ColorIndex = xlColorIndexNone
End Sub

Let me know what you think.
Should be easy for you to customize colors and all.


Log Monitor
I've used it in the past to watch directories. seems to work well enough.

Pages: prev1 2 3 [4] 5 6 7 8 9 ... 28next
Go to full version