fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

für nemored

Uploader:	Emporea1997
Datum/Zeit:	06.09.2011 00:20:26

#include "sGUI\sGUI.bas"

#include "sGUI\SimpleGadget.bas"

#include "sGUI\BMPSimpleGadget.bas"

#include "sGUI\ToggleGadget.bas"

#include "sGUI\CheckMarkGadget.bas"

#include "sGUI\RadioButton.bas"

#include "sGUI\StringGadget.bas"

#include "sGUI\Sliders.bas"

#include "sGUI\Arrows.bas"

#include "sGUI\ListBox.bas"

#include "sGUI\TextViewBox.bas"

#include "sGUI\FileRequester.bas"

#include "sGUI\Menu.bas"



Dim As EventHandle Ptr event



Dim As Gadget Ptr weiter















Dim As string StringMaxKtnstr, MaxAbschnittKTNString, Lange = "-----"



Dim As Integer Langex=30,Langey=30

Dim As Integer Abschnittx=10  ,Abschnitty=10





Dim As Integer MaxAbschnittKTN =1, MaxKTNint = 14















Screen 14 ,32, &h04



InitGFX



event = CreateEventHandle



weiter =AddArrow(event,50,50,1)



gadgeton (weiter)



Draw String(Langex,Langey) ,String(13,Chr(219)), RGB(200,200,200)

Draw String(Abschnittx,Abschnitty) ,String(13,Chr(219)), RGB(200,200,200)



Draw String(Langex,Langey) , "L"+ Chr (132) +"nge: " & Lange

Draw String(Abschnittx,Abschnitty), "Abschnitt: " & MaxAbschnittKTNString



Do





    event -> XSleep (1)



    If event -> GADGETMESSAGE Then



        Select Case event -> GADGETMESSAGE





            Case Weiter





                        If not MaxabschnittKTN > MaxKTNint - 1 Then

                        MaxabschnittKTN = MaxabschnittKTN + 1

                        gadgeton(weiter)

                        ElseIf MaxabschnittKTN > MaxKTNint - 1 Then

                        gadgetsleep(weiter)

                        End If



                        MaxAbschnittKTNString = Str(MaxAbschnittKTN)







                        Draw String(Langex,Langey) ,String(13,Chr(219)), RGB(200,200,200)

                        Draw String(Abschnittx,Abschnitty) ,String(13,Chr(219)), RGB(200,200,200)



                        Draw String(Langex,Langey) , "L"+ Chr (132) +"nge: " & Lange

                        Draw String(Abschnittx,Abschnitty), "Abschnitt: " & MaxAbschnittKTNString













        End Select



    End If











Loop Until event -> exitevent

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.