une pendule analogic classic en purebasic

[chercheacomprendre]

Je cherche un code d'une pendule analogique.

bon week-end.

YB

[Progi1984]

Je cherche le code de Windows

bon week-end.

progi

[Anonyme]

[beauregard]

Je cherche le code de Windows

bon week-end.

progi

à mon tour:
Je cherche les plans d'une machine à remonter le temps. Je voudrai remonter à 1977, çà m'arrangerai, disons juste avant l'été.

bonjour chez vous.

un gars du sud. non plus bas.

[Kwai chang caine]

Pas bonjour (Option, mais c'est encore pire avec)

Je cherche le bouton qui cherche sur le forum

Bon week end

KCC

[KrisJNT]

Voila !
A modifier à ta convenance !

Code : Tout sélectionner

Enumeration 
#w
#d
#i
EndEnumeration

Global PI.d = ACos(-1)

OpenWindow(#w, 20, 20, 500, 500, "Pendule")

	CreateGadgetList(WindowID(#w))
	ImageGadget(#d, x, y, w, h, 0)

i.d = 0
stepv.d = 2 * PI / 60
hour = Hour(Date())
minute = Minute(Date())
second = Second(Date())
hh.d = 0
ii.d = 0
ss.d = 0
Repeat 
Delay(1000)

		CreateImage(#i, 200, 200, 32)
		StartDrawing(ImageOutput(#i))
		BackColor(RGB(240, 240, 240))
		i = 0
		m.d = 0
		Repeat
			If m/5 - Int(m/5) = 0
				r = 82
			Else
				r = 88
			EndIf
			m = m + 1
			LineXY(Cos(i)*90+100, Sin(i)*90+100, Cos(i)*r+100, Sin(i)*r+100, RGB(255, 255, 255))
			i = i + stepv
		Until i >= 2 * PI
		hour = Hour(Date())
		minute = Minute(Date())
		second = Second(Date())
		hh = PI / 6 * hour - PI / 2 + PI / 360 * minute
		ii = PI / 30 * minute - PI / 2 + PI / 2160 * second
		ss = PI / 30 * second - PI / 2
		LineXY(Cos(hh)*0+100, Sin(hh)*0+100, Cos(hh)*55+100, Sin(hh)*55+100, RGB(255, 255, 255))
		LineXY(Cos(ii)*0+100, Sin(ii)*0+100, Cos(ii)*75+100, Sin(ii)*75+100, RGB(255, 255, 255))
		LineXY(Cos(ss)*0+100, Sin(ss)*0+100, Cos(ss)*80+100, Sin(ss)*80+100, RGB(255, 255, 255))
		StopDrawing()
		SetGadgetState(#d, ImageID(#i))

ForEver

[chercheacomprendre]

Voila !
A modifier à ta convenance !

bien beau travail.

[Backup]

bien sur que venir sur le forum et considerer celui-ci comme un self service

c'est pas tres bien ... cependant KrisJNT a eu le bon reflexe, car finalement son code viens rejoindre les autres qui existent deja sur notre forum
(comme l'a rappelé KCC le bouton recherche ne sert pas seulement a décorer ..)

et du fait ce code, disais-je va augmenter la collection de codes present, et c'est une bonne chose ,

on peut s'offusquer de la façon donc ce code a ete demander, mais aussi
répondre favorablement en se disant, qu'il va servir a d'autre
pour l'etude, ou bien pour l'utiliser


donc, finalement la demande maladroite de "chercheacomprendre" a ete utile