PureBasic

Je cherche un code d'une pendule analogique.

bon week-end.

YB

Je cherche le code de Windows

bon week-end.

progi

Progi1984 a écrit :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.

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

Je cherche le bouton qui cherche sur le forum

Bon week end

KCC

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

KrisJNT a écrit :Voila !
A modifier à ta convenance !

bien beau travail.

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

PureBasic

une pendule analogic classic en purebasic

une pendule analogic classic en purebasic

pendule analogic