Buchempfehlung
Visual Basic 6 Kochbuch
Visual Basic 6 Kochbuch
Viele praktische Tipps zum Programmieren mit Visual Basic 6, die sich oft auch auf FB übertragen lassen. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Ball bouncer v3 mir fehlt Screenlock...

Uploader:MitgliedKey_Frogger
Datum/Zeit:22.09.2009 10:38:46

screen 18
Declare Sub Ticker(Text As String, Speed As Integer = 20)

Dim Shared Lin As Integer = 1

Ticker "Bounce-Ball"
Ticker ""

Sleep 2000
Print : lin += 1
Ticker "Coded by: Key_Frogger"
Ticker "Press [ANY KEY]"

Sleep

cls

Dim YN as string
Input "Do you want to start? Type [y]es or [n]o:", YN
IF YN = "y" then



line (1,180)-(200,180), 15
CIRCLE (5, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (10, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (15, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (20, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (25, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (30, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (35, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (40, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (45, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (50, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (55, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (60, 125), 50, 15, , , , F
sleep 75
cls
'
line (1,180)-(200,180), 15
CIRCLE (65, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (70, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (75, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (80, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (85, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (90, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (105, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (110, 125), 50, 15, , , , F
sleep 75
cls
'
line (1,180)-(200,180), 15
CIRCLE (115, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (120, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (125, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (130, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (135, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (140, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (145, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (150, 125), 50, 15, , , , F
sleep 75
cls
'
line (1,180)-(200,180), 15
CIRCLE (155, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (160, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (165, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (170, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (175, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (180, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (185, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (190, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (195, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (200, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (205, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (210, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (215, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (220, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (225, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (230, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (235, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 120), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 125), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 130), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 135), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 140), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 145), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 150), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 155), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 160), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 165), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 170), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 175), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 180), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 185), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 190), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 195), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 200), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 205), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 210), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 215), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 220), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 225), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 230), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 235), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 240), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 245), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 250), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 255), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 260), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 265), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 270), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 275), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 280), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 285), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 290), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 295), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 300), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 305), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 310), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 315), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 320), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 325), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 330), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 335), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 340), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 345), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 350), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 355), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 360), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 365), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 370), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 385), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 390), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 395), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 400), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 405), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 410), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 415), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 420), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 425), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 430), 50, 15, , , , F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 430), 50, 15, , , 0.9, F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 435), 50, 15, , , 0.8, F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 440), 50, 15, , , 0.7, F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 445), 50, 15, , , 0.6, F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 450), 50, 15, , , 0.5, F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 455), 50, 15, , , 0.4, F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 460), 50, 15, , , 0.3, F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 465), 50, 15, , , 0.2, F
sleep 75
cls
line (1,180)-(200,180), 15
CIRCLE (240, 470), 50, 15, , , 0.1, F



sleep 3000
CLS
Ticker "OMG, you have kill`d the ball, you Bastard!"
sleep

else
    Ticker "okay, good bye!"
    sleep


end if
'''''''''''''''''''''''''
Sub Ticker(Text As String, Speed As Integer)
    Locate lin, 1, 0
    Color 2,10
    Print " "
    Sleep Speed * 10
    for i as integer = 1 to len(text)

        Locate lin, i, 0
        Color 2,0
        Print mid(Text,i,1);
        Locate lin, i + 1, 0
        color 10,10
        Print " "
        sleep speed

    Next
    Sleep speed * 5
    Locate lin, len(text) + 1, 0
    Color 2,0
    Print " "
    lin += 1
End Sub