b+ Beginners Corner

[Dimster]

Those are definitely menus, but I was thinking more along the lines of a drop drown. Here is an example of what I had in mind. This example comes from the old Qbasic coding days and I see where I did change the animation of the drop down from the print/erase to a loop with a delay to slow down the drop. Also, only the "1 - Opening Info" menu item is working here but it gives you a good idea of the drop down effect. 

Code: (Select All)

Cls
Screen 12
Width 80, 60
_FullScreen
'Large background box
Line (0, 0)-(640, 50), 7, BF

'The 5 smaller background boxes
Line (7, 7)-(126, 46), 4, BF
Line (127, 7)-(247, 46), 2, BF
Line (248, 7)-(368, 46), 6, BF
Line (369, 7)-(489, 46), 14, BF
Line (490, 7)-(610, 46), 1, BF

'The menu within the smaller boxes
Locate 4, 2
Color 5
Print "1";
Color 15
Print "-Opening Info"
Locate 4, 19
Color 5
Print "2";
Color 15
Print "-Update"
Locate 4, 34
Color 5
Print "3";
Color 15
Print "-Analyze"
Locate 4, 49
Color 5
Print "4";
Color 15
Print "-Results"
Locate 4, 66
Color 5
Print "5";
Color 15
Print "-Quit"

'The choice question
Locate 8, 5
Input choice

If choice = 1 Then Opening
'If choice = 2 Then Update
'If choice = 3 Then Analyze
'If choice = 4 Then Results
'If choice = 5 Then Quit


Sub Opening

    For Z = 51 To 450
        For dlay = 1 To 500000: Next
        Line (7, 51)-(126, Z), 4, BF
    Next Z
    Z = 0
    Locate 10, 3
    Color 15
    Print "Last Entry"
    Locate 10, 20
    Color 2
    Close 1

    Print "Aug 15, 2021"
    Locate 15, 3
    Color 15
    Print "Status"
    Locate 15, 20
    Color 2
    Print "Events Data Entered Ok"
   
    Locate 20, 3
    Color 15
    Print "Prediction"

    Locate 20, 20
    Color 2
    Print "Results Imply Events 2 & 3 will dominate for 11 days"

    Locate 25, 3
    Color 15
    Print "Present Cycle"
    Locate 26, 3
    Print "Events "
    Locate 27, 3
    Color 1 'Blue
    Print "None Event"
    Locate 28, 3
    Color 14 'Yellow
    Print "Below Average"
    Locate 29, 3
    Color 2 'Green
    Print "Average"
    Locate 30, 3
    Color 12 'Light Red / Pink
    Print "Above Average"
    Locate 31, 3
    Color 4 'Red
    Print "EXTREME"
    Locate 26, 20
    Color 2






    Locate 55, 3
    Color 15
    Print "Next Task"
    Locate 55, 20
    Color 2
    Print "Input The Number for The Next Task ";
    Input NextTask

End Sub

  
When you factor in the additional menu item choices of 2,3,4 & 5 , the code can become quite lengthy. Using the modern day QB64PE, I would think the _DELAY command would be drop rate control and "reveal" of the submenu items, as the drop progresses, would be better than the sudden appearance.