AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Simulate the movement of bubbles

Ein Thema von DP News-Robot · begonnen am 15. Mai 2019
Antwort Antwort
Benutzerbild von DP News-Robot
DP News-Robot

Registriert seit: 4. Jun 2010
10.519 Beiträge
 
#1

Simulate the movement of bubbles

  Alt 15. Mai 2019, 08:20
For the physics aficionados here have an application that simulates very realistically the movement of bubbles. To change the speed of your movement you only have to modify the "interval" property of the Timer1 component. Made by Daniel. Davies @ blueyonder. Co. ukUNIT Unit1; INTERFACEUSES Windows, messages, SysUtils, classes, graphics, controls, forms, Dialogs, StdCtrls, ExtCtrls; TYPE TForm1 = CLASS (TForm) Image1: TImage; Timer1: TTimer; PROCEDURE FormCreate (sender: TObject); PROCEDURE Timer1Timer (sender: TObject); PROCEDURE QuitClick (sender: TObject); PROCEDURE Image1Click (sender: TObject); PRIVATE {Private declarations} PUBLIC {Public declarations} END; TYPE co_ordinate = RECORD x, y: integer; END TYPE scanline = ARRAY [0.. 319] OF byte; VAR Form1: TForm1; Threshold: integer; Blobimage: Tbitmap; BLOBs: ARRAY [0.. 5] OF co_ordinate; Frame: Cardinal; Drawing: Boolean; IMPLEMENTATION {$R *. DFM} PROCEDURE TForm1. FormCreate (sender: TObject); VAR Temp: Integ

Weiterlesen...
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:50 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf