Skip to content

Instantly share code, notes, and snippets.

View klaszlo8207's full-sized avatar

KL klaszlo8207

25 followers · 3 following
  • Planet Earth
View GitHub Profile
@klaszlo8207
klaszlo8207 / Engine.bas
Last active January 23, 2023 08:32
Engine.bas 2003 körüli Visual Basic 6.0 szakdolgozat kódom egy része
Attribute VB_Name = "mEngine"
'---------------------------------------------------_
' Billiard 3GL : the ENGINE, created it in Opengl 1.2
'---------------------------------- ----------- --_
' I / \/ \ I
'\____/--------------\______/--- I/\__/\_/\I
' created by: /(o)(o)\ -
'\____/--------------\______/---\___/--\__O_O_/ _/-
' KOZaRI / /LLI\ \_/_--
@klaszlo8207
klaszlo8207 / Draws.bas
Created January 23, 2023 08:51
Draws.bas 2003 körüli Visual Basic 6.0 szakdolgozat kódom egy része, Draws
Attribute VB_Name = "mDraws"
'---------------------------------------------
'"A dákó színének a pulzálása"
Dim col1 As Single
Dim c_bool As Boolean
Dim b_Transp As Boolean
Dim dx, dx2, dxv
Dim Transp
Public deltaY As Integer
@klaszlo8207
klaszlo8207 / Vars.bas
Last active January 23, 2023 08:54
Vars.bas 2003 körüli Visual Basic 6.0 szakdolgozat kódom egy része, globális változók
Attribute VB_Name = "mVars"
'---------------------------------------------
' VÁLTOZÓK MODUL - variables
'---------------------------------------------
'Egy kis API hívás
Public Declare Function GetTickCount Lib "kernel32" () As Long
Public Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
'Globális változók, így nem kell értékátadással bajlódni.. _