Announcement

Collapse
No announcement yet.

Subliminal Messages

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • Subliminal Messages

    Saw a msg tonight (Cafe) that inquired about a Subliminal Messae program and I thought it might be fun to do one in PB. After a couple hours trying different methods, I came up with this.

    CAUTION - CAUTION - CAUTION - it steals a lot of processing time AND requires ACD (Task Mgr) to exit.
    Tip name the program "Z" to makeit easy to find.

    I suspect it could probably be improved on. {wry grin}

    '
    Code:
    'PBWIN 9.01 - WinApi 05/2008 - XP Pro SP3
    #Dim All 
    #Compile Exe  
    #Optimize SPEED  
    #Debug Display On 'reccoed ot in production code
    #Include "WIN32API.INC"
    #Include "COMDLG32.INC"
    #Include "InitCtrl.inc"
    '
    Global hdlg, hdlg_Child As Dword                
    ' 
    Macro Common_Locals 'Macro easier than retyping and maintains coding consistency
      Global Dlg_hght, Dlg_Wd As Long 'Global in case want to use in Controls
      Local Stile, Row, col, hght, wd, Longest,ctr, ln, ln1, i As Long
      Local tmr As Double
      Local hwin, fhndl, hfont As Dword
      Local  title, l, s As String
    End Macro  
    '
    '
    Sub Flash_Msg(Msg As String)
       Common_Locals
    'Function Msg_Reply(Title$, Msg$) As Long 'Yes = 1
    ' 
      Title$ = "Mind Fuzzing Experiment"
      
        Graphic Window Title$, 200, 300, 400, 100 To hWin
        Graphic Attach hWin, 0 
        Font New "Comic MS Sans", 48 To hfont 'make it big
        Graphic Set Font hfont
        Graphic Set Pos (10, 20)
        Graphic Print msg$
     
    End Sub            
    '
    Function PBMain
      Common_Locals
      Dlg_hght = 1
      Dlg_Wd = 1
      Dialog New Pixels, hdlg, "Subliminal", , , Dlg_Wd, Dlg_Hght, Stile To hdlg 'centered
    Do_Over:
        Call Flash_Msg("Giggle at wife") 
       Sleep 1 'flash it then end
         Graphic Window End                       
         Dialog End hdlg
       Sleep 5000 ' wait awhile
        GoTo Do_Over 
      Dialog Show Modal hDlg   'Call PBMain_Processor
    End Function  
    '
    ==================================================
    "I'll moider da bum."
    Heavyweight boxer Tony Galento,
    when asked what he thought of William Shakespeare
    ==================================================

    Neat note - I saw Tony Galento in his wrestling days when I was about 12 years old.
    Neat note 2 - Wrestling was "real" in those days too, not fake like it is today.
    Last edited by Gösta H. Lovgren-2; 13 Apr 2009, 10:51 AM. Reason: Two Ton Tony Galento
    It's a pretty day. I hope you enjoy it.

    Gösta

    JWAM: (Quit Smoking): http://www.SwedesDock.com/smoking
    LDN - A Miracle Drug: http://www.SwedesDock.com/LDN/
Working...
X