![]() ![]() adopted from wikipedia, " pulse", available under CC BY-SA License.Expand collapse popup #include #include #include "3" Opt ( "MustDeclareVars", 1 ) Start by choosing GIF to display Global $sFile = FileOpenDialog ( "Choose Image", "", "(*.gif *.png *.jpg *.tiff *.bmp *.jpeg)", - 1, "" ) If Then Exit Make GUI Global $hGui = GUICreate ( "GIF Animation", 500, 500, - 1, - 1, $WS_OVERLAPPEDWINDOW ) Add some buttons Global $hButton = GUICtrlCreateButton ( "&Pause animation", 50, 450, 100, 25 ) Global $hButton1 = GUICtrlCreateButton ( "&Delete Control", 200, 450, 100, 25 ) Global $hButton2 = GUICtrlCreateButton ( "&Open Image", 350, 450, 100, 25 ) Make GIF Control Global $hGIF = _GUICtrlCreateGIF ( $sFile, "", 10, 10 ) If Then GUICtrlSetState ( $hButton, $GUI_DISABLE ) GUICtrlSetTip ( $hGIF, "Image" ) Additional processing of some windows messages (for example) GUIRegisterMsg ( 133, "_Refresh" ) WM_NCPAINT GUIRegisterMsg ( 15, "_ValidateGIFs" ) WM_PAINT Global $iPlay = 1 Show it GUISetState ( ) Loop till end While 1 Switch GUIGetMsg ( ) Case - 3 Exit Case $hButton If $iPlay Then If _GIF _PauseAnimation ( $hGIF ) Then $iPlay = 0 GUICtrlSetData ( $hButton, "Resume animation" ) EndIf Else If _GIF _ResumeAnimation ( $hGIF ) Then $iPlay = 1 GUICtrlSetData ( $hButton, "Pause animation" ) EndIf EndIf Case $hButton1 _GIF _DeleteGIF ( $hGIF ) Case $hButton2 $sFile = FileOpenDialog ( "Choose gif", "", "(*.gif *.png *.jpg *.tiff *.bmp *.jpeg)", - 1, "", $hGui ) If Not Then _GIF _DeleteGIF ( $hGIF ) delete previous $hGIF = _GUICtrlCreateGIF ( $sFile, "", 10, 10 ) If Then GUICtrlSetState ( $hButton, $GUI_DISABLE ) Else GUICtrlSetState ( $hButton, $GUI_ENABLE ) EndIf GUICtrlSetTip ( $hGIF, "Image" ) $iPlay = 1 GUICtrlSetData ( $hButton, "Pause animation" ) EndIf EndSwitch WEnd Func _Refresh ( $hWnd, $iMsg, $wParam, $lParam ) #forceref $hWnd, $iMsg, $wParam, $lParam _GIF _RefreshGIF ( $hGIF ) EndFunc =>_Refresh Func _ValidateGIFs ( $hWnd, $iMsg, $wParam, $lParam ) #forceref $hWnd, $iMsg, $wParam, $lParam _GIF _ValidateGIF ( $hGIF ) EndFunc =>_ValidateGIFsÄownload from here if you want to impress chicks: The study of the pulse is known as sphygmology. ![]() This has a reason: the finger closest to the heart is used to occlude the pulse pressure, the middle finger is used get a crude estimate of the blood pressure, and the finger most distal to the heart (usually the ring finger) is used to nullify the effect of the ulnar pulse as the two arteries are connected via the palmar arches (superficial and deep). The radial pulse is commonly measured using three fingers. The heart rate can also be measured by listening to the heart beat by auscultation, traditionally using a stethoscope and counting it for a minute. Pulse (or the count of arterial pulse per minute) is equivalent to measuring the heart rate. The pulse may be palpated in any place that allows an artery to be compressed near the surface of the body, such as at the neck (carotid artery), wrist (radial artery), at the groin (femoral artery), behind the knee (popliteal artery), near the ankle joint (posterior tibial artery), and on foot (dorsalis pedis artery). ![]() In medicine, a pulse represents the tactile arterial palpation of the heartbeat by trained fingertips.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |