Spring Banner Contest! (2023)

[bplus]

Have you ever thought, "Man, I wish I could make banners like bplus, but coding is hard!"

Well now you can make spring banners too with the "B+ Banner Builder"!

Try it online today:
https://qbjs.org/?src=https://raw.github...uilder.zip

LOL not exactly b+ approved but I like the hint of being legendary

Here is b+ approved banner builder:
Pick a nice background like Steve, KernelPanic, Walter 
Pick a nice Font
Grab a copy of Pe Logo
use this little bit of code PLUS Steve's SaveImage Bi and Bm

Code: (Select All)

'$INCLUDE:'SaveImage.BI'

Const SaveTextAs256Color = 0 'Flag to Save as 256 color file or 32-bit color file, when converting SCREEN 0 to an image
'                             Set to TRUE (any non-zero value) to save text screens in 256 color mode.
'                             Set to FALSE (zero) to save text screens in 32-bit color mode.

_Title "B+ Spring Banner 10, space to take snap" ' b+ 2023-03-12
' mod 1 start banner
' mod 2 add sun and rays
' mod 3 no overlap!
' mod 4 plasma coloring? don't like random bland!
' mod 5 number of petals determines color also twirl flower petals randomly
' mod 6 more flowers!
' mod 7 clean logo both sides of title
' mod 8 new draw flower with special pallet, only one screen option now
' mod 9 WuLine install for suns rays
' mod 10 RotoZoom mod DrawFlower

' mod 11 just background, logo and title  Banner Basics

Const XMAX = 1400 '                                                          screen banner specs
Const YMAX = 256


Screen _NewImage(XMAX, YMAX, 32)
_ScreenMove 0, 100
Randomize Timer '  oh we can have different flower arrangements

Dim As Long logo, spring, fnt, wallpaper
Dim k$
ReDim savefile As String
savefile = "Spring Banner 11 by b+.png" ' ---------------> name of out put image to spec
logo = _LoadImage("peLogo.png") ' -----------------------> here is logo for QB64pe Phoenix Edition
spring = _LoadImage("spring.jpg") ' ---------------------> here is a nice background I snatched
fnt = _LoadFont("ARLRDBD.TTF", 100) ' -------------------> here is font Big Bold Round like cloud
wallpaper = _NewImage(XMAX, YMAX, 32)
_PutImage , spring, wallpaper, (0, 400)-(_Width(spring), _Height(spring)) 'use full width but just some sky
_Font fnt, wallpaper
_PrintMode _KeepBackground , wallpaper
_Dest wallpaper
_PutImage (25, 5), logo, wallpaper
_PutImage (_Width - 25 - _Width(logo), 5), logo, wallpaper
_Dest wallpaper
Color _RGB32(26, 50, 230)
s$ = "QB64 Phoenix Edition"
_PrintString ((_Width - _PrintWidth(s$)) / 2, 20), s$, wallpaper
_Dest 0

Dim result '                                                                    save image or NOT
While _KeyDown(27) = 0 ' <<<<<<<<<<<<< allow escape from screen
    _PutImage , wallpaper&, 0
    k$ = InKey$
    _Display
    If k$ = " " Then
        result = SaveImage(savefile, 0, 0, 0, _Width - 1, _Height - 1)
        If result = 1 Then 'file already found on drive
            Kill savefile 'delete the old file
            result = SaveImage(savefile, 0, 0, 0, _Width - 1, _Height - 1) 'save the new one again
        End If
        If result >= 0 Then Cls: Print "Save Failed": Beep: End ' <<<<<<<<<<<<<<<<<  beep = failed
    ElseIf Len(k$) Then
        Exit While
    End If
    _Display
    _Limit 60
Wend
'$INCLUDE:'SaveImage.BM'

and prest-O change-0!
   
A beautiful banner!