| Kaf_Dağı | 09 Aralık 2015 18:49 |
SES KAYIT VE EKRAN YAKALAMA v.1.0.0.1
SES KAYIT VE EKRAN YAKALAMA v.1.0.0
Program Mümkün olduğunca değişik ve program bütünlüğü göstermemekle birlikte örnek kodlar içermektedir.Amaç; kod arayanlara aradıklarını bir arada bulmalarını sağlamaktır.
Programın, Çok kaliteli bir Ses kayıt yaptığı söylenemez. Önemli olan ilgilenenlerin aradığı kod örneğini bulmasıdır. [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
FORM1 KODLARI : Kod:
Imports System.Runtime.InteropServices
Imports System.Text
'NOT: Kayıt aygıtlarından ses kartından veya hoparlör ayarlarını yapınız
'ses kaydını bilgisayarda çalan bir mp3 çalardan kaydetmesini istiyorsanız:Kayıt\SesKarışımı(Ses kartı) seçili olmalı
'konuştuğunuzu kaydetmek için :Kayıt\microfon seçili omalıdır
Public Class MIDIfrm
#Region " SES KAYDEDİCİ FONKSİYONU ve ProgressBar Function.."
Declare Function ProgressBar Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Public Sub Kaydedici(ByVal islem As String, ByVal Ses_Yolu As String, ByVal Dsy_ismi As String)
If islem = "baslat" Then
mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)
mciSendString("record recsound", "", 0, 0)
ElseIf islem = "bitir" Then
mciSendString("save recsound " & SesTamYolu & "/" & Dsy_ismi, "wav", 0, 0)
mciSendString("close recsound ", "", 0, 0)
End If
End Sub
#End Region
#Region " mciSendString dll KİTAPLIĞI.."
<DllImport("winmm.dll")> _
Private Shared Function mciSendString(ByVal command As String, ByVal buffer As StringBuilder, ByVal bufferSize As Integer, ByVal hwndCallback As IntPtr) As Integer
End Function
<DllImport("winmm.dll", EntryPoint:="mciSendStringA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
Private Shared Function mciSendString(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
End Function
#End Region
#Region " FORM TAŞIMA DEĞİŞKENLERİ...."
'Form Taşıma
Const i As Integer = &HA1
Const j As Integer = 2
#End Region
#Region " FORM TAŞIMA...."
Private Sub Form1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles AnaSkinPic.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
Me.Capture = False 'Panelden,pictureden,textten,vb tut sürükle
AnaSkinPic.Capture = False
Dim msg As Message = Message.Create(Me.Handle, i, New IntPtr(j), IntPtr.Zero)
Me.DefWndProc(msg)
End If
End Sub
#End Region
#Region " FORM OLAYLARI..."
Private Sub MIDIfrm_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
SaveSetting(Application.ProductName, ProductName, "Secili Ekran Yolu", Secili_EkranYolu)
SaveSetting(Application.ProductName, ProductName, "Secili Dosya Adı", EkranYakalamaDsyAdı)
SaveSetting(Application.ProductName, ProductName, "Secili Dosya Uzantısı", EkranUzantısı)
SaveSetting(Application.ProductName, ProductName, "Progress Bar Rengi", ProgresBarRengi)
SaveSetting(Application.ProductName, ProductName, "Formu üstte tut", CheckBox1.Checked)
SaveSetting(Application.ProductName, ProductName, "Yakalarken Beni Sakla", CheckBox5.Checked)
SaveSetting(Application.ProductName, ProductName, "Form Mini-Midi seçimi", Me.Height)
SaveSetting(Application.ProductName, ProductName, "Pencere pozisyonu-Ust", Me.Top)
SaveSetting(Application.ProductName, ProductName, "Pencere pozisyonu-Sol", Me.Left)
SaveSetting(Application.ProductName, ProductName, "Pencere pozisyonu Sakla", CheckBox2.Checked)
SaveSetting(Application.ProductName, ProductName, "Yakala ve Göster", CheckBox3.Checked)
SaveSetting(Application.ProductName, ProductName, "Tab İndex", TabControl1.SelectedIndex)
End Sub
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
SaatTimer.Enabled = True
Timer1.Enabled = False
ProgressBar1.Value = 0
Secili_EkranYolu = GetSetting(Application.ProductName, ProductName, "Secili Ekran Yolu", "C:\Users\" & KullAdi & "\Desktop")
Me.EkranDsyAdi.Text = GetSetting(Application.ProductName, ProductName, "Secili Dosya Adı", "YakalananEkran")
ComboBox1.Text = GetSetting(Application.ProductName, ProductName, "Secili Dosya Uzantısı", "JPG")
EkranTamYolTxt.Text = Secili_EkranYolu & "\" & EkranDsyAdi.Text & ComboBox1.Text
SesTamYolu = GetSetting(Application.ProductName, ProductName, "Ses Dosyası yolu", "C:\Users\" & KullAdi & "\Desktop")
Dsy_ismi = GetSetting(Application.ProductName, ProductName, "Ses Dosyası Adı", "Ses_Kaydi")
Me.SesDosyaAdiTxt.Text = Dsy_ismi
Ses_Yolu = SesTamYolu & "\" & Dsy_ismi
SesDosyaYoluTxt.Text = Ses_Yolu
ProgresBarRengi = GetSetting(Application.ProductName, ProductName, "Progress Bar Rengi", 1)
CheckBox3.Checked = GetSetting(Application.ProductName, ProductName, "Yakala ve Göster", False)
CheckBox5.Checked = GetSetting(Application.ProductName, ProductName, "Yakalarken Beni Sakla", True)
TabControl1.SelectedIndex = GetSetting(Application.ProductName, ProductName, "Tab İndex", 0)
CheckBox1.Checked = GetSetting(Application.ProductName, ProductName, "Formu üstte tut", True)
CheckBox2.Checked = GetSetting(Application.ProductName, ProductName, "Pencere pozisyonu Sakla", False)
If CheckBox2.Checked = True Then
Me.Top = GetSetting(Application.ProductName, ProductName, "Pencere pozisyonu-Ust", 250)
Me.Left = GetSetting(Application.ProductName, ProductName, "Pencere pozisyonu-Sol", 500)
Else
Me.Top = 250
Me.Left = 300
End If
If ProgresBarRengi = 1 Then
RadioButton1.Checked = True
ElseIf ProgresBarRengi = 2 Then
RadioButton2.Checked = True
ElseIf ProgresBarRengi = 3 Then
RadioButton3.Checked = True
End If
'yukardaki ile aynı işlevi yapar
'Select Case ProgresBarRengi
' Case 1 : RadioButton1.Checked = True
' Case 2 : RadioButton2.Checked = True
' Case 3 : RadioButton3.Checked = True
'End Select
'User32 Dll sinde bulunan progressbar apisi çağrılıyor. 1=yeşil,2=kırmızı, 3=sarı
'ProgressBar(ProgressBar1.Handle, 1040, 2, 3) Normal
ProgressBar(ProgressBar1.Handle, 1040, ProgresBarRengi, 0)
' Form mini veya midi açılacak
'**********************
Me.Height = GetSetting(Application.ProductName, ProductName, "Form Mini-Midi seçimi", 144)
If Me.Height = 144 Then Me.Height = 372 Else Me.Height = 144
If Me.Height = 144 Then
AltPic.Top = 131
Me.Height = 372
YukAsOkPic.Image = PncAcKapaimLst.Images("YukarıOK.png")
Else
Me.Height = 144
AltPic.Top = 144
YukAsOkPic.Image = PncAcKapaimLst.Images("aşağıyaOK.png")
End If
'**********************
KayıtPic.Image = RECimList.Images("Durdur.png")
LinkLabel1.Links.Add(0, LinkLabel1.Text.Length, "http://eraslancemil1.blogspot.com.tr/")
End Sub
#End Region
#Region " MouseMove ve MouseLeave olayları ..."
Private Sub BTNklsr_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles BTNklsr.MouseMove
BTNklsr.Image = BTNimLst.Images("DügmeKlsr_R.png")
End Sub
Private Sub BTNklsr_MouseLeave(sender As System.Object, e As System.EventArgs) Handles BTNklsr.MouseLeave
BTNklsr.Image = BTNimLst.Images("DügmeKlsr.png")
End Sub
Private Sub BTNfoto_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles BTNfoto.MouseMove
BTNfoto.Image = BTNimLst.Images("DügmeFotoR.png")
End Sub
Private Sub BTNfoto_MouseLeave(sender As System.Object, e As System.EventArgs) Handles BTNfoto.MouseLeave
BTNfoto.Image = BTNimLst.Images("DügmeFoto.png")
End Sub
Private Sub KapatPic_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles KapatPic.MouseMove
KapatPic.Image = KptimList.Images("kapat_gri.png")
End Sub
Private Sub KapatPic_MouseLeave(sender As System.Object, e As System.EventArgs) Handles KapatPic.MouseLeave
KapatPic.Image = KptimList.Images("kapat_orj.png")
End Sub
Private Sub MaxiPic_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MaxiPic.MouseMove
MaxiPic.Image = KptimList.Images("maxi_gri.png")
End Sub
Private Sub MaxiPic_MouseLeave(sender As System.Object, e As System.EventArgs) Handles MaxiPic.MouseLeave
MaxiPic.Image = KptimList.Images("maxi_orj.png")
End Sub
Private Sub MiniPic_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MiniPic.MouseMove
MiniPic.Image = KptimList.Images("Mini_Gri.png")
End Sub
Private Sub MiniPic_MouseLeave(sender As System.Object, e As System.EventArgs) Handles MiniPic.MouseLeave
MiniPic.Image = KptimList.Images("Mini_orj.png")
End Sub
Private Sub AltPncAcPic_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles AltPncAcPic.MouseMove
AltPncAcPic.Image = PncAcKapaimLst.Images("AltPncAç-Gri.png")
End Sub
Private Sub AltPncAcPic_MouseLeave(sender As System.Object, e As System.EventArgs) Handles AltPncAcPic.MouseLeave
AltPncAcPic.Image = PncAcKapaimLst.Images("AltPncAç.png")
End Sub
Private Sub YukAsOkPic_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles YukAsOkPic.MouseMove
If Me.Height = 144 Then
YukAsOkPic.Image = PncAcKapaimLst.Images("aşağıyaOK-Gri.png")
Else
YukAsOkPic.Image = PncAcKapaimLst.Images("YukarıOK_Gri.png")
End If
End Sub
Private Sub YukAsOkPic_MouseLeave(sender As System.Object, e As System.EventArgs) Handles YukAsOkPic.MouseLeave
If Me.Height = 144 Then
YukAsOkPic.Image = PncAcKapaimLst.Images("aşağıyaOK.png")
Else
YukAsOkPic.Image = PncAcKapaimLst.Images("YukarıOK.png")
End If
End Sub
Private Sub BilgisayarPic_MouseLeave(sender As System.Object, e As System.EventArgs) Handles BilgisayarPic.MouseLeave
BilgisayarPic.Image = BTNimLst.Images("BilgisayarGri.png")
End Sub
Private Sub BilgisayarPic_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles BilgisayarPic.MouseMove
BilgisayarPic.Image = BTNimLst.Images("Bilgisayar_R.png")
End Sub
#End Region
#Region " BUTON TIKLAMA (Click) OLAYLARI..."
Private Sub KapatPic_Click(sender As System.Object, e As System.EventArgs) Handles KapatPic.Click
Me.Close()
End Sub
Private Sub MaxiPic_Click(sender As System.Object, e As System.EventArgs) Handles MaxiPic.Click
YukAsOkPic_Click(sender, e)
End Sub
Private Sub MiniPic_Click(sender As System.Object, e As System.EventArgs) Handles MiniPic.Click
Me.WindowState = FormWindowState.Minimized
End Sub
Private Sub KayıtPic_Click(sender As System.Object, e As System.EventArgs) Handles KayıtPic.Click
Call KayitBaslat_Durdur()
End Sub
Public Sub KayitBaslat_Durdur()
If kayıtta = False Then
Label14.Visible = True
Timer1.Enabled = True
kayıtta = True
Timer1.Start()
KayıtAnimasyonPic.Visible = True
ProgressBar1.Value = 0
ProgressBar1.Maximum = MaximumSureCmb.Text.ToString
Label1.Text = "Ses Kayıt Ediliyor.."
Kaydedici("baslat", "", "")
Timer1.Interval = 1000
ProgressBar1.Visible = True
KayıtPic.Image = RECimList.Images("kayıt_Akrm.png")
Else
kayıtta = False
KayıtAnimasyonPic.Visible = False
ProgressBar1.Value = 0
ProgressBar1.Visible = False
KayıtPic.Image = RECimList.Images("Durdur.png")
Kaydedici("bitir", Ses_Yolu, Dsy_ismi)
Label1.Text = "Ses Kayıt Bitti.."
Timer1.Stop()
Timer1.Enabled = False
Label14.Visible = False
CalistirBtn.Enabled = True
End If
End Sub
Private Sub YukAsOkPic_Click(sender As System.Object, e As System.EventArgs) Handles YukAsOkPic.Click, AltPncAcPic.Click
If Me.Height = 144 Then
AltPic.Top = 131
Me.Height = 372
YukAsOkPic.Image = PncAcKapaimLst.Images("YukarıOK.png")
Else
Me.Height = 144
AltPic.Top = 144
YukAsOkPic.Image = PncAcKapaimLst.Images("aşağıyaOK.png")
End If
End Sub
#End Region
#Region " ALT YORDAMLAR..."
Public Sub OlusturulanDsyOku()
' ses yeri
Try
My.Computer.Audio.Play(Ses_Yolu, AudioPlayMode.Background) ' & "\" & Dsy_ismi
Calisiyor = True
Catch ex As Exception
MsgBox(Ses_Yolu & Dsy_ismi & " Dosya Bulunamadı")
End Try
End Sub
Private Sub BilgisayarPic_Click(sender As System.Object, e As System.EventArgs) Handles BilgisayarPic.Click
Process.Start("explorer.exe", "/e,/select,c:")
End Sub
Private Sub BTNfoto_Click(sender As System.Object, e As System.EventArgs) Handles BTNfoto.Click
Dim b As Bitmap = New Bitmap(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height)
Dim g As Graphics = Graphics.FromImage(b)
Dim s As Size = New Size(Screen.PrimaryScreen.WorkingArea.Width, Screen.PrimaryScreen.WorkingArea.Height)
If GizleChk.Checked Then
If CheckBox5.Checked = True Then
Me.Hide()
End If
Dim t As DateTime = Now.AddSeconds(1)
Do : Application.DoEvents()
Loop Until Now.Second >= t.Second
g.CopyFromScreen(0, 0, 0, 0, s, CopyPixelOperation.SourceCopy)
Me.Show()
t = Nothing
Else
g.CopyFromScreen(0, 0, 0, 0, s, CopyPixelOperation.SourceCopy)
End If
pic.Image = b
g.Dispose()
b = Nothing
Dim saveDlg As SaveFileDialog = New SaveFileDialog
Dim dlgResult As DialogResult = New DialogResult
pic.Image.Save(Secili_EkranYolu & "\" & EkranDsyAdi.Text & ComboBox1.Text)
If CheckBox3.Checked = True Then
izleBtn_Click(sender, e)
End If
izleBtn.Enabled = True
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Ses_Yolu = ""
Dim FolderDlg As New FolderBrowserDialog
FolderDlg.ShowNewFolderButton = True
If (FolderDlg.ShowDialog() = DialogResult.OK) Then
Ses_Yolu = FolderDlg.SelectedPath
SaveSetting(Application.ProductName, ProductName, "Ses Dosyası yolu", Ses_Yolu)
SesDosyaYoluTxt.Text = Ses_Yolu & "\" & SesDosyaAdiTxt.Text
End If
End Sub
Private Sub EkrSaklaYoluBtn_Click(sender As System.Object, e As System.EventArgs) Handles EkrSaklaYoluBtn.Click
Secili_EkranYolu = ""
Dim FolderDlg As New FolderBrowserDialog
FolderDlg.ShowNewFolderButton = True
If (FolderDlg.ShowDialog() = DialogResult.OK) Then
Secili_EkranYolu = FolderDlg.SelectedPath
EkranTamYolTxt.Text = Secili_EkranYolu & "\" & EkranDsyAdi.Text & ComboBox1.Text
End If
End Sub
Private Sub GezginleGosterBtn_Click(sender As System.Object, e As System.EventArgs) Handles GezginleGosterBtn.Click
Try
System.Diagnostics.Process.Start(Secili_EkranYolu) ' & "\" & EkranDsyAdi.Text & ComboBox1.Text)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub izleBtn_Click(sender As System.Object, e As System.EventArgs) Handles izleBtn.Click
Try
System.Diagnostics.Process.Start(Secili_EkranYolu & "\" & EkranDsyAdi.Text & ComboBox1.Text)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Private Sub BTNklsr_Click(sender As System.Object, e As System.EventArgs) Handles BTNklsr.Click
Process.Start(Ses_Yolu)
End Sub
Private Sub CalistirBtn_Click(sender As System.Object, e As System.EventArgs) Handles CalistirBtn.Click
If CalistirBtn.Text = "Çalıştır" Then
Call OlusturulanDsyOku()
CalistirBtn.Text = "Kapat"
Else
My.Computer.Audio.Stop()
CalistirBtn.Text = "Çalıştır"
End If
End Sub
Private Sub EkranYakalaBtn_Click(sender As System.Object, e As System.EventArgs) Handles EkranYakalaBtn.Click
'Ekran yakala
BTNfoto_Click(sender, e)
End Sub
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Try
Process.Start(SesDosyaYoluTxt.Text)
Catch ex As Exception
Dim sonuc As String
sonuc = MessageBox.Show("( " & SesDosyaAdiTxt.Text & " )" & _
" Dosyası bulunamadı." & vbCrLf & SesTamYolu & " Klasörü açılsın mı ?", _
" Sakla?", MessageBoxButtons.YesNo, MessageBoxIcon.Question, _
MessageBoxDefaultButton.Button1)
If sonuc = Windows.Forms.DialogResult.Yes Then
Process.Start(SesTamYolu)
End If
End Try
End Sub
Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
SesTamYolu = GetSetting(Application.ProductName, ProductName, "Ses Dosyası yolu", Ses_Yolu)
Try
Process.Start(SesTamYolu)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
#End Region
#Region " TİMER-COMBOBOX-LOSTFOCUS-CHECKED_CHANGE.."
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
On Error Resume Next
' Timer progress barı dolduracak şekilde ayarlanıyor.
If ProgressBar1.Value < 500 Then
ProgressBar1.Value += 1
Label14.Text = ProgressBar1.Value
End If
If ProgressBar1.Value >= SureCmb.Text.ToString * 60 Then
Call KayitBaslat_Durdur()
End If
End Sub
Private Sub SaatTimer_Tick(sender As System.Object, e As System.EventArgs) Handles SaatTimer.Tick
Label12.Text = TimeOfDay
End Sub
Private Sub EkranDsyAdi_Validated(sender As System.Object, e As System.EventArgs) Handles EkranDsyAdi.Validated
'değişiklik işlemi (Validated) onaylanıyor
Secili_EkranYolu = GetSetting(Application.ProductName, ProductName, "Secili Ekran Yolu", Secili_EkranYolu)
EkranYakalamaDsyAdı = EkranDsyAdi.Text
EkranTamYolTxt.Text = Secili_EkranYolu & "\" & EkranDsyAdi.Text & ComboBox1.Text
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
EkranUzantısı = ComboBox1.Text
EkranTamYolTxt.Text = Secili_EkranYolu & "\" & EkranDsyAdi.Text & ComboBox1.Text
End Sub
Private Sub Dsy_ismiTxt_LostFocus(sender As Object, e As System.EventArgs) Handles SesDosyaAdiTxt.LostFocus
SesTamYolu = GetSetting(Application.ProductName, ProductName, "Ses Dosyası yolu", Ses_Yolu)
SesDosyaYoluTxt.Text = SesTamYolu & "\" & SesDosyaAdiTxt.Text
Dsy_ismi = SesDosyaAdiTxt.Text
End Sub
Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked Then
Me.TopMost = True
Else
Me.TopMost = False
End If
End Sub
Private Sub LinkLabel1_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
If My.Computer.Network.IsAvailable = False Then
MsgBox("Bilgisayarınız İnternete Bağlı Değil.")
Exit Sub
End If
System.Diagnostics.Process.Start(e.Link.LinkData)
End Sub
Private Sub Label3_Click(sender As System.Object, e As System.EventArgs) Handles Label3.Click
If My.Computer.Network.IsAvailable = False Then
MessageBox.Show("Bilgisayarınız İnternete Bağlı Değil.")
Exit Sub
End If
System.Diagnostics.Process.Start("mailto:eraslancemil@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].com")
End Sub
Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
Dim info As New ProcessStartInfo("mmsys.cpl")
Process.Start(info)
End Sub
#End Region
#Region " TOOLTIP AÇIKLAMALARI "
Private Sub BilgisayarPic_MouseHover(sender As System.Object, e As System.EventArgs) Handles BilgisayarPic.MouseHover
Dim tooltip As New ToolTip()
tooltip.SetToolTip(BilgisayarPic, "Bilgisayarım" & vbCrLf & " Klasörünü Aç")
End Sub
Private Sub BTNklsr_MouseHover(sender As System.Object, e As System.EventArgs) Handles BTNklsr.MouseHover
Dim tooltip As New ToolTip()
Ses_Yolu = GetSetting(Application.ProductName, ProductName, "Ses Dosyası yolu", "C:\Users\" & KullAdi & "\Desktop")
tooltip.SetToolTip(BTNklsr, Ses_Yolu & vbCrLf & " Klasörünü Aç")
End Sub
Private Sub BTNfoto_MouseHover(sender As System.Object, e As System.EventArgs) Handles BTNfoto.MouseHover
Dim tooltip As New ToolTip()
tooltip.SetToolTip(BTNfoto, "Ekranı Yakala" & vbCrLf & EkranTamYolTxt.Text & " 'e Kaydet")
End Sub
Private Sub KayıtPic_MouseHover(sender As System.Object, e As System.EventArgs) Handles KayıtPic.MouseHover
Dim tooltip As New ToolTip()
tooltip.SetToolTip(KayıtPic, "Ses Kayıt Başlat - Durdur." & vbCrLf & " ve Dosyayı Kaydet")
End Sub
Private Sub KayıtAnimasyonPic_MouseHover(sender As System.Object, e As System.EventArgs) Handles KayıtAnimasyonPic.MouseHover
Dim tooltip As New ToolTip()
tooltip.SetToolTip(KayıtAnimasyonPic, "Kayıt devamınca animasyon gösterilir")
End Sub
Private Sub AltPncAcPic_MouseHover(sender As System.Object, e As System.EventArgs) Handles AltPncAcPic.MouseHover
Dim tooltip As New ToolTip()
tooltip.SetToolTip(AltPncAcPic, "Alt Pencere Açılıp kapatılır" & vbCrLf & " Ayar menülerine ulaşılır")
End Sub
Private Sub Label1_MouseHover(sender As System.Object, e As System.EventArgs) Handles Label1.MouseHover
If Label1.Text = Nothing Then Exit Sub
Dim tooltip As New ToolTip()
tooltip.SetToolTip(Label1, "Uyarıyı Gizlemek için Tıkla")
End Sub
#End Region
#Region " RADIO BUTTON OLAYLARI.."
Private Sub RadioButton1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton1.CheckedChanged
ProgresBarRengi = 1
ProgressBar(ProgressBar1.Handle, 1040, ProgresBarRengi, 0)
End Sub
Private Sub RadioButton2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton2.CheckedChanged
ProgresBarRengi = 2
ProgressBar(ProgressBar1.Handle, 1040, ProgresBarRengi, 0)
End Sub
Private Sub RadioButton3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton3.CheckedChanged
ProgresBarRengi = 3
ProgressBar(ProgressBar1.Handle, 1040, ProgresBarRengi, 0)
End Sub
Private Sub RadioButton6_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton6.CheckedChanged
ProgressBar1.Style = ProgressBarStyle.Blocks
GroupBox1.Enabled = True
End Sub
Private Sub RadioButton5_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton5.CheckedChanged
ProgressBar1.Style = ProgressBarStyle.Continuous
GroupBox1.Enabled = True
End Sub
Private Sub RadioButton4_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton4.CheckedChanged
ProgressBar1.MarqueeAnimationSpeed = AnimasyonHiziCmb.Text.ToString
ProgressBar1.Style = ProgressBarStyle.Marquee
GroupBox1.Enabled = False
End Sub
#End Region
#Region " RANDOM DOSYA ADI ÜRETME...."
Private Sub Label10_Click(sender As System.Object, e As System.EventArgs) Handles Label10.Click
RNDdosyaadiBtn.PerformClick()
End Sub
Private Sub RNDdosyaadiBtn_Click(sender As System.Object, e As System.EventArgs) Handles RNDdosyaadiBtn.Click
SesTamYolu = GetSetting(Application.ProductName, ProductName, "Ses Dosyası yolu", Ses_Yolu)
SesDosyaAdiTxt.Text = UCase(System.IO.Path.GetFileNameWithoutExtension(System.IO.Path.GetRandomFileName())) & ".wav"
SesDosyaYoluTxt.Text = SesTamYolu & "\" & SesDosyaAdiTxt.Text
Dsy_ismi = SesDosyaAdiTxt.Text
SaveSetting(Application.ProductName, ProductName, "Ses Dosyası Adı", SesDosyaAdiTxt.Text)
End Sub
Private Sub Label9_Click(sender As System.Object, e As System.EventArgs) Handles Label9.Click
EkranDsyAdi.Text = UCase(System.IO.Path.GetFileNameWithoutExtension(System.IO.Path.GetRandomFileName()))
EkranTamYolTxt.Text = Secili_EkranYolu & "\" & EkranDsyAdi.Text & ComboBox1.Text
EkranYakalamaDsyAdı = EkranDsyAdi.Text & ComboBox1.Text
End Sub
Private Sub Label1_MouseClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseClick
Label1.Text = ""
End Sub
#End Region
End Class
MODULE1 KODLARI Kod:
Module Module1
#Region " GENEL DEĞİŞKENLER..."
Public KullAdi As String = SystemInformation.UserName
Public Ses_Yolu As String ' = "C:\Users\" & KullAdi & "\Desktop\" ' "C:\Users\"& KullAdi & "\Favorites\" ' "C:\Users\" & KullAdi & "\Desktop\" '"G:\AA\BB\" ' C:\Users\Public\Music
Public Dsy_ismi As String '= "Ses_Kaydi"
Public Secili_EkranYolu As String ' = "C:\Users\" & KullAdi & "\Desktop"
Public EkranYakalamaDsyAdı As String = "EkranResmi"
Public EkranUzantısı As String ' = ".JPG"
Public SesTamYolu As String
Public ProgresBarRengi As Integer
Public Calisiyor As Boolean = False
Public kayıtta As Boolean = False
'Api fonksiyonu belirleniyor. progres barın rengini değiştirmek için
'User32 Dll sinde bulunan progressbar apisi çağrılıyor. 1=yeşil,2=kırmızı, 3=sarı
'ProgressBar(ProgressBar1.Handle, 1040, 2, 3)
#End Region
End Module
|
