این بازی 5 ثانیه اجرا میشه پس با یه حساب 5*60 فریم در ثانیه میشه 300 فریمکد:Imports Emgu.CV 'emgu.cv for show webcam Imports Emgu.CV.UI 'emgu.cv for show webcam Imports Emgu.CV.Structure 'emgu.cv for show webcam Public Class Form1 Dim takepic As New Capture Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick PictureBox1.Image = takepic.QueryFrame.ToBitmap 'add frame from my webcam to picturebox Dim bm_label1 As New Bitmap(PictureBox1.Image) bm_label1.MakeTransparent(Color.FromArgb(24, 53, 73)) 'transparent the background of rectangle PictureBox2.Image = bm_label1 End Sub Private Sub Form1_Paint(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Timer1.Start() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Timer1.Stop() End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Application.Exit() End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub End Class
پس من در نهایت 300 فریم دارم که باید ترنسپرنت بشن(البته شدن) و روی هم پرینت بشن






پاسخ با نقل قول
Bookmarks