-
Posts
90 -
Joined
-
Last visited
Content Type
Profiles
Forums
Calendar
Posts posted by johncher
-
-
polymorpha, 11.12.2022 - 12:45 yazdı:
Edisyon : Windows 10 Pro 19043.2311 Feature Türkçe | Sıkıştırma ESD 912 MB |
Windows 10 Pro Realite V3.1 19043 | Google Drive |
Düzenleme V3.1 ;
- Virtuabox vmware ağ sürücüleri güncellendi.
- msconfig ve dxdiag tekrardan eklendi
- masaüstüne gönder , zip vs kısayollar eklendi
- Assembly klasörü düzenlendi
Lutfen Kurulum yapmadan önce Okuyunuz ;
- Ağ Suruculeri |iş istasyonu|
- Ağ Dosya Paylaşım |Sunucu|
- Yazıcı Tarayıcı |Yazdirma biriktiricisi|
- Microsoft Store yuklenemez.
- Ağ uzerindeki yazicilar yuklenebilir. setup ile kurulum gerceklesmez.
- Lisansli magaza uygulamalari kurulur.Realtek ,Nvidia vb uwp uygulamalar
- Update ve surucu guncellemeleri kapali. Telemetri block dosyasi ekli.
Sistemden Görüntüler ;
İçerikler ;
- Windows Media Player
- İnternet Explorer
- Hesap Makinesi
- Wordpad , Notepad , Paint
- Ekran Klavyesi Ve Tablet Klavyesi
- Tablet Rotasyon Ayarları
- Telemetri Host Dosyası
- Windows Geri Yükleme ve Kurtarma
- F12 (Mavi Boot)
Diğer Tüm Bileşenler ve Appx uygulamaları kaldırılmıştır.
Netframework 4 ve sonrası yüklüdür.
Merhabalar çok güzel çalışma performans çok iyi etkinleştirme yapmaya gerek varmı
- 1
-
Kolay gelsin
;autoit window info ile summary sekmesinden title ve text bilgisin alarak $title="buraya program başlık bilgisini yazın" $text="text bilgisini yazın" WinWait($title,$text) ;burda programın açılmasını bekler Run('taskkill /f /IM iexplore.exe') ;burdada kapatır internet explorer örnek olarak
johncher, 2 dakika önce yazdı:Kolay gelsin
;autoit window info ile summary sekmesinden title ve text bilgisin alarak $title="buraya program başlık bilgisini yazın" $text="text bilgisini yazın" WinWait($title,$text) ;burda programın açılmasını bekler Run('taskkill /f /IM iexplore.exe') ;burdada kapatır internet explorer örnek olarak
İnternet explorer başlangıç sayfan google ise kod aşağıdaki şekilde çalışır.
$title="Google - Internet Explorer" $text="" WinWait($title,$text) ;burda programın açılmasını bekler Run('taskkill /f /IM iexplore.exe')
- 2
-
ben biraz armadan sonra regedit te aratarak programın bilgisayarda olup olmadığına bakıp varsa direk kurdurmadan diğer programa geçmek için kullanabileceğim kodu buldum lazım olan varsa benim kadar aramasın, iyi geceler
if _IsInstalled($SearchFor_1)=false then
;false geldiğinden kurulu olmadığı anlaşılıyor burda kurduracağım.
endif
$title="Microsoft Visual C++ 2010 x86 Redistributable" Const $SearchFor_1 = $title MsgBox(0, "Search Results", "Search for '" & $SearchFor_1 & "' AddRemove Programs entry result: " & @CRLF & _IsInstalled($SearchFor_1)) ; true yada false değer dönüyor _IsInstalled($SearchFor_1) 'de #Region #include <AddRemove.au3> #include-once Func _IsInstalled($DisplayName) Local $i = 1 If @AutoItX64 Then; Adjust for x64 process Local $RegPath = "\Microsoft\Windows\CurrentVersion\Uninstall" Local $RegRoot86 = "HKLM\SOFTWARE\Wow6432Node" Local $RegRoot64 = "HKLM64\SOFTWARE" Else; Adjust for x86 process Local $RegPath = "\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" Local $RegRoot86 = "HKLM" Local $RegRoot64 = "HKLM64" EndIf $IsSoftwareFound = __RegBranchSearch($RegRoot86 & $RegPath, 'DisplayName', $DisplayName); <== Search the 32 bit registry If $IsSoftwareFound Then Return True If @ProcessorArch = "X86" Then Return False; <== We are done if OS Arch is x86 ;## If we are here then the current OS Arch is 64 bit and the script is running as a 32 bit process. $IsSoftwareFound = __RegBranchSearch($RegRoot64 & $RegPath, 'DisplayName', $DisplayName); <== Search the 64 bit registry If $IsSoftwareFound Then Return True Return False EndFunc ;==>_IsInstalled #Region Internal Use Only Func __RegBranchSearch($RegPath, $RegName, $RegValue) Local $RegKey, $ThisRegValue Local $i = 1 Do $RegKey = RegEnumKey($RegPath, $i) If @error <> 0 Then ExitLoop $ThisRegValue = RegRead($RegPath & '\' & $RegKey, $RegName) If StringInStr($ThisRegValue, $RegValue) <> 0 Then Return True $i += 1 Until @error <> 0 Return False EndFunc #EndRegion Internal Use Only #EndRegion #include <AddRemove.au3>
- 1
-
Microsoftun Visual C 2010 gibi eklentilerini otomatik kurduruyorum. Ancak daha önce kurulu olan varsa hata verip exe duruyor.
WinWait($title,$text) ;başlık ve texti bekliyor. Ben burada text ve text2 kodları if döngüsüyle nasıl farklılaştırabilirim. Program kurulu değilse üstteki gibi kurulu ise alttaki resimdeki gibi, kodlar resimlerden sonra şimdiden çok sağolun.
SpoilerSpoiler#RequireAdmin Opt("TrayMenuMode",1) TraySetToolTip("Programınız Kuruluyor Lütfen Bekleyiniz..") $titles="Ek Programlar" TrayTip("Ek Programların Kurulumuna Başlandı..","....",5,1) ;************************************************************************************************************ $title="Microsoft Visual C++ 2010 x86 Redistributable Setup" $text="I have read and &accept the license terms." $text1="Installation Is Complete" $text2="&Repair Microsoft Visual C++ 2010 x86 Redistributable to its original state." ;kurulu ise ShellExecute(@WorkingDir & "\vcredist_x86.exe") ;burda kurulum başlıyor WinWait($title,$text) ;başlık ve texti bekliyor. Ben burada text ve text2 kodları if döngüsüyle nasıl farklılaştırabilirim. WinSetTrans($title,$text,0) ControlClick($title,$text,"Button3") ControlClick($title,$text,"Button6") WinWait($title,$text1) WinSetTrans($title,$text1,0) ControlClick($title,$text1,"Button8") sleep(1000) ; burdada diğer microsoft eklentilerini kurdurmaya aynı şekilde devam ediyor
-
mephistooo2, 04.02.2019 - 15:42 yazdı:
Bu WinPE çalışmasını iş yerinde kullanmak için kendi ihtiyaçlarıma göre hazırladım onun için @karadurak üstadın çalışmasında olduğu gibi yüksek bir beklentiye girmeyin...
Lütfen tüm yazılanları okuyunuz...
AIO Rescue PE v12 çalışması Windows 10 Enterprise 64 bit (2004 - 19041.264) sürümü üzerinden hazırlanmıştır. (Yayınlanma tarihi: 29.07.2020)
32 bit sürüm hazırlanmayacaktır.AIO Rescue PE sistemi direk Admin hesabıyla açılır. Bitlocker desteği vardır.
x64 sürümünde:
- AOMEI Backupper Technician Plus v5.8 Türkçe
- AOMEI Partition Assistant Technician Edition v8.8 Türkçe
- Acronis True Image 2020 Türkçe
- Macrium Reflect Server Plus v7.2.4971
- DiskGenius v5.2.1.941
- Dism++ v10.1.1001.10 Türkçe
- TeamViewer, v15.7.7 (Reklamsız)
- AnyDesk v5.5.3 Türkçe
- Windows Login Unlocker v1.5
- WinSnap v5.2 Türkçe
- Chrome Tarayıcı v78.0.3904.97 Türkçe
- Bootice v1.3.4 Türkçe ( @serhat100 'e teşekkürler)
- Sumatra PDF v3.1.2 Türkçe
- Office 2007 Türkçe ( @karadurak 'a teşekkürler)
- Media Player v1.5.3 Black Edition Türkçe
- WinPE DiskPart GUI (değiştirildi, EFI veya MBR kuruluma uygun disk bölümleme yapabilirsiniz)
- Drive Letter Changer v1.4 Türkçe (gizli disk bölümlerine bu yazılım ile sürücü harfi atayabilirsiniz)
- SIW 2019 v9.0.0115 Türkçe
- 7-Zip v19 Türkçe
- PENetwork v0.59 B12 Türkçe
- Microsoft Check Disk GUI
- Putty v0.70
- Disk2VHD v2.01
- VHD2Disk v0.2
programları mevcuttur.
Kullanım Esnasından Bilinmesi Gerekenler:
- Dism++ programını açtığınızda "Geçici klasördeki boş alan 5GB'dan küçük olduğından Dism++ düzgün çalışmayabilir" şeklinde uyarı verebilir. Bunun sebebi Dism++ programının ram disk üzerinden çalışıyor olmasıdır. Bu şekilde kullanmanın Windows kurulumuna hiçbir şekilde zararı yoktur. Ancak Dism++ ile Windows sistem yedeği alacaksanız X:\dizinindeki Dism++ klasörünü örneğin D:\ diskinize kopyalayıp çalıştırın.
- WinPE DiskPart GUI kullanımında MBR kurulumuna uygun disk oluşturma işleminde eğer cmd ekranında herhangi bir ilerleme yoksa cmd ekranı seçili iken enter tuşuna basmanız gerekebilir.
- WinPE içinde çalıştırmak istediğiniz portable programlar eğer NetFrameWork dosyalarına ihtiyaç duyarsa çalışmayacaktır çünkü NetFrameWork dosyalarının tamamı silindi, böylece ciddi anlamda wim dosya boyutu tasarruf sağlandı, aynı zamanda önyükleme süresi de kısmen azaldı.
Dism++ ile Windows Kurulumu:
Dism++ ile Windows kurulumunu UEFI veya MBR olarak Rescue PE üzerinden 32-64 bit farketmeksizin birkaç fare tıklamasıyla çok kolay bir şekilde yapabilirsiniz. Dism++ ile windows kurulum aşamalarına yönelik Rescue PE X:\Program Files\Dism++ dizininde de bir yardım dosyası mevcuttur. Program .iso .wim .esd ve .swm uzantılarını destekler.
iPXE Boot :
iPXE Boot yöntemi için @karadurak ve @bilirsinya üstadlara çok teşekkürler...
RAR Arşivi içindkei iPXE Boot.vhdx dosyasını Windows 10 üzerinde çift tıklayarak sanal sürücüye ekleyebilirsiniz. Windows 8 ve alt sürümlerde iPXE Boot.vhdx dosyasını sanal sürücüye eklemek için Disk Yönetimini yada 3. parti uygulamaları kullanmalısınız.
iPXE yöntemi sayesinde ağ üzerinden WinPE önyüklemesi ve Windows kurulumları yapabilirsiniz. EFI ve MBR önyükleme destekler, secureboot desteklemez, client tarafında secureboot kapatılmalıdır.
\PXE\WinPE klasörü içinde Rescue WinPE dahil bazı programlara ait WinPE menüleri hazır gelmektedir. Ancak wim dosyaları yoktur. Kullanmak isterseniz ilgili klasörlere wim dosyalarını boot adı ile kopyalamanız gerekmektedir.
Rescue WinPE için Rescue.WinPE_v12.iso dosyası içindeki Rescue klasör içindeki Rescue.wim dosyasını \PXE\WinPE\Rescue klasörüne kopyaladıktan sonra adını boot.wim olarak değiştirmeniz gerekmektedir. Ayrıca Rescue.WinPE_v12.iso dosyası içindeki Rescue klasörü içindeki Rescue.Software.iso dosyasını da herhangi bir isim değişikliği yapmadan \PXE\WinPE\Rescue klasörüne kopyalamanız gerekmektedir.
Hazır menünün yanında @karadurak üstad tarafından hazırlanan menü dosyası da örnek menu.ipxe adında ilgili klasör içinde mevcuttur. Örnek dosyadaki kodlara bakarak kendi menünüzü de oluşturabilirsiniz.
Eğer istemci bilgisayarlar ağ kartı üzerinden hiç ön yükleme yapamıyorsa bulunduğunuz ağ ortamında akıllı switch vardır ve sistem yöneticisi tarafından DHCP Snooping üzerinden pxe portları engellenmiştir.
iPXE Boot Ekranı:
Bilinen Hatalar:
Gerçek makina kullanımlarında test aşamalarında herhangi bir hataya rastlanmamıştır, hata bulursanız lütfen konu üzerinden belirtiniz.
RAR Şifre
(RAR'dan çıkartmak için Winrar v5x kullanmanız gerekmektedir.)
RAR şifresini kopyalamadan yazarak girin.
www.tnctr.com
Mega Link:
https://mega.nz/file/kQgHxLqR#a-Ks8hOvpB9wROhaax0qfCWeXdsK6X532vd1y9J8sE0 (⚡Tnc Debrid ile İndir)
Linke tıkladığınızda şifre isterse aşağıdaki şifreyi girin:
a-Ks8hOvpB9wROhaax0qfCWeXdsK6X532vd1y9J8sE0
Yandex Link:
https://yadi.sk/d/PkK-9nRLTsZ7xA
Versiyon Değişiklikleri:
v12:
- WinPE'nin çekirdeği olan Windows 10, Windows 10 Enterprise 64 bit 2004 - 19041.264 sürümüne yükseltildi.
- WinPE ile hazır gelen çoğu uygulama wim dosyasından bağımsız, dışarıdan çalışacak şekilde ayarlandı. (Böylece önyükleme süresi kısmen azaldı)
- AOMEI Backupper Technician Plus, v5.8'e yükseltildi.
- AOMEI Partition Assistant Technician Edition, v8.8'e yükseltildi.
- DiskGenius, v5.2.1.941'e yükseltildi.
- TeamViewer, v15.7.7'ye yükseltildi (Reklamsız)
- AnyDesk v5.5.3 Türkçe eklendi.
- iPXE yöntemi sayesinde ağ üzerinden WinPE önyükleme süresi kısaltıldı.
- Rescue WinPE menü arayüzü güncellendi.
- Macrium Reflect Server Plus v7.2.4971 eklendi.v11:
- WinPE'nin çekirdeği olan Windows 10, Windows 10 Enterprise 64 bit 1909 - 18363.628 sürümüne yükseltildi.
- AOMEI Partition Assistant Technician Edition, v8.6'ya yükseltildi.
- AOMEI Backupper Technician Plus, v5.6'ya yükseltildi.
- AOMEI PXE Boot Tool, v1.5'e yükseltildi.
- Acronis True Image, 2020 v24.5.1.22510'a yükseltildi.
- DiskGenius, v5.2.0.884'e yükseltildi.
- Windows Kurulum Menüsünden WinNT, v4.0.1'e ve Dism++ programı da v10.1.1001.10'a yükseltildi.
- Google Chrome Tarayıcı, v78.0.3904.97'ye yükseltildi.
- TeamViewer, v15.2.2756'ya yükseltidldi.
- Volumes uygulaması kaldırıldı yerine Drive Letter Changer v1.4 uygulaması eklendi.
- Microsoft Check Disk GUI v0.3.1 eklendi.
- Rescue WinPE menü arayüzü güncellendi.v10:
- AOMEI Partition Assistant Technician Edition v8.3'e yükseltildi.
- DiskGenius v5.1.2.766'ya yükseltildi.
- Windows 32 & 64 bit Kurulum Menüsü eklendi (iso - wim - WinNT - WInst - Dism++ yöntemleri)
- TNCTR duvar kağıdı eklendiv9:
- WinPE'nin çekirdeği olan Windows 10 Enterprise 64 bit, v1903 - 18362.239 sürümüne yükseltildi.
- AOMEI Partition Assistant Technician Edition v8.2'ye yükseltildi.
- AOMEI Backupper Technician Plus Türkçe v5'e yükseltildi.
- Dism++ Türkçe v10.1.1000.100'e yükseltildi.
- WinSnap v5.2'e yükseltildi.
- Chrome Tarayıcı v75.0.3770.102'ye yükseltildi
- Acronis imaj dosyaları için shell desteği eklendi. (Acronis imaj dosyalarına çift tıklayarak içeriğini görebilirsiniz.)
- Paragon HDD Manager kaldırıldı.v8:
- WinPE'nin çekirdeği olan işletim sistemi Windows 10 Enterprise 64 bit, 1903 - 18362.86 sürümüne yükseltildi.
- AOMEI Partition Assistant Technician Edition v8.2'ye yükseltildi.
- 7-Zip v19'a yükseltildi.
- Media Player v1.5.3'e yükseltildi.
- Chrome v74.0.3729.108'e yükseltildi.
- TeamViewer v14.2.8352'ye yükseltildi.
- WinSnap v5.1'e yükseltildi.v7 Repack:
- Önyükleme sorunu giderilmiştir.
v7:
- AOMEI Backupper Technician Plus Türkçe v4.6.3'e yükseltildi.
- WinSnap Türkçe v5.0.8'e yükseltildi.
- Dism++ Türkçe v10.1.1000.90B'ye yükseltildi.
- Paragon HDD Manager v17.4'e yükseltildi.
- DiskGenius v5.1.1.696'ye yükseltildi.
- Windows Login Unlocker v1.5'e yükseltildi.v6:
- Acronis True Image 2019 v17750'e yükseltildi (Türkçe)
v5:
- Acronis Disc Director v12.5 eklendi.
- Paragon HDD Manager v17.2.3 eklendi
- Putty v0.70 eklendi.
- Disk2VHD v2.01 eklendi.
- VHD2Disk v0.2 eklendi.
- RansomWare Decrypt Tools [30 adet] eklendi.
- AOMEI Partition Assistant Technician Edition v8.1'e yükseltildi.
- DiskGenius v5.1.0.653'e yükseltildi.
- TeamViewer v14.1.18533'e yükseltildi.
- Başlat menüsü ve görev çubuğunda görsel değişiklikler yapıldı.v4:
- PXE Boot özelliği eklendi. (ağ ortamında diğer bilgisayarları RescuePE ile boot edebilirsiniz)
- SIW v9.0.0115'e yükseltildi.
- Windows Login Unlocker v1.4'e yükseltildi.
- WinSnap v5.0.7'ye yükseltildi.
- Hasleo Data Recovery Technician v4.8 (veri kurtarma) programı eklendi.
- TeamViewer reklamları kaldırıldı.
- RescuePE'de tema değişikliğinde explorer arayüzün yeniden başlatılamama sorunu giderildi.
- RescuePE'de saatin yanlış gösterilmesi sorunu giderildi. (internet bağlantısı gerektirir)
- Başlat menüsü ve görev çubuğunda görsel değişiklikler yapıldı.v3:
- x86 sürüm kaldırıldı.
- O&O PE Windows Explorer kaldırıldı.
- WinXSheel kaldırıldı, yerine tam olarak Windows Explorer desteği eklendi.
- Opera Tarayıcı kaldırıldı, yerine Chrome Tarayıcı eklendi.
- WinToHDD kaldırıldı, yerine 64bit Windows PE üzerinden 32 veya 64bit Windows kurulumunu gerçekleştirebilen Dism++ eklendi.
- Windows Login Unlocker v1.3'e yükseltildi.
- Ses desteği eklendi.
- Windows PE'ye Administrator desteği eklendi, direkt Admin hesabı açılır, böylece yönetici hesabı isteyen Teamviewer vb. programlar kullanabilir, ayrıca ağ ortamında AIO Rescue PE üzerinden dosya paylaşımı yapılabilir.
- Yeni programlar eklendi. (Office 2007, Teamviewer, MS Uzak Masaüstü, Windows Defender Offline, SIW vb.)
- BitLocker desteği eklendi.
- Windows Explorer'a koyu tema desteği eklendi.v2:
* x86 ve x64 sürümlerinde:
- DiskGenius v5.0.1.609 eklendi
- AOMEI Partition Assistant Technician Edition v8'e yükseltildi.
- AOMEI Backupper Technician Plus v4.6.2'e yükseltildi.
- Windows Login Unlocker v1.2'ye yükseltildi.
- O&O PE Windows Explorer v15.6'ya yükseltildi.
- WinPE Diskpart GUI ve Bootice programları menü seçeneklerine eklendi.
- Düşük ekran çözünürlüklüğüne sahip PC'lerde açılışta otomatik açılan Rescue PE menü ekranı gözükmüyordu, bu hata giderildi.
- Rescue PE menü ekranında x86 ve x64 sürümlerde AOMEI Backupper butonunun çalışmama sorunu giderildi.v1:
* İlk sürüm
Merhabalar evde 3 çocuk var. Malum okullar kapalı tüm bilgisayarlar çocukların elinde bir core duo işlemcili 3 gb ramli hdd girişi bozuk laptopum daha var. Aiorescue ile kullanıyorum. Ama ramdan kullandığı için chrome dahi çöküyor. Flash disk üzerinde direk başlatıp boot edilebilirmi sanalda olmadan yardımcı olursan sevinirim üstadım.
-
Teşekkürler.
-
autoitte veritabanı bağlantı vs eksiğim çok acces vt ile vb.net ile yaptım kullanici admin , sifre admin ücretsiz lisansız isterseniz
data adlı olan uzantısını sildiğim acces dosyası
adodb referanslardan ekleyin acces bağlantısı için
Windows mediaplayer referanslardan ekleyin mp3 leri çalmak için
FrmLogin.vb adında bir form oluşturun kodlar aşağıda
Option Explicit On Public Class FrmLogin Private Sub GiriS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GiriS.Click Dim key As String On Error GoTo err_Renamed Dim no As Short BaGlaN() rS = cNn.Execute("select count(sn) from giris where (kullanici_adi='" & UseR.Text & "') and (sifre='" & PassworD.Text & "')") 'sayi değişkenine varianta giriş tablosundaki kullanici ad sifre yetki degerlerini tanımladım If rS.Fields(0).Value = 0 Then MsgBox("Kullanıcı Adı Şifenizi Kontrol Edin!", , "Kullanıcı") Exit Sub Else Me.Hide() FrmAjanDa.Show() End If err_Renamed: End Sub Private Sub password_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles PassworD.KeyPress Dim KeyAscii As Short = Asc(eventArgs.KeyChar) If KeyAscii = 13 Then Call GiriS_Click(GiriS, New System.EventArgs()) 'enter tuşlanırsa ara butonuna tıkla End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim s As String Dim substring As String Dim sp() As String s = "this \text\ box \contains \value \(08:00-17:41).mp3" sp = s.Split("\") For Each substring In sp TextBox1.Text = substring Next End Sub Private Sub ipTaL_Click(sender As Object, e As EventArgs) Handles ipTaL.Click Application.Exit() End Sub End Class
Frm.Ajanda.vb adında bir form oluşturun kodlar aşağıda
Option Explicit On Imports WMPLib Public Class FrmAjanDa Dim appPath As String = Application.StartupPath() Dim WithEvents Player As New WMPLib.WindowsMediaPlayer Private Sub FrmAjanDa_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed Application.Exit() End Sub Private Sub CmdRandevu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdRandevu.Click Dim saatS As String If ListBox1.SelectedItem IsNot Nothing = False Then MsgBox("Zil Sesi Seçin.") Exit Sub End If If ComboBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" Then SaatKontrol() saatS = TextBox2.Text & ":" & TextBox3.Text sQl = "INSERT INTO randevu(adi,tarih,saat) VALUES('" & ListBox1.SelectedItem.ToString & "','" & ComboBox1.Text & "','" & saatS & "')" cNn.Execute(sQl) rS = Nothing MsgBox("Zil Saati Kaydedildi.") RanDevuGetir() TextBox2.Text = "" TextBox3.Text = "" Else MsgBox("Eksik Bilgi Girişi.") End If End Sub Private Sub TextBox2_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress Dim KeyAscii As Short = Asc(eventArgs.KeyChar) If Not rakam(KeyAscii) Then KeyAscii = 0 eventArgs.KeyChar = Chr(KeyAscii) If KeyAscii = 0 Then eventArgs.Handled = True End If End Sub Private Sub SaatKontrol() If TextBox2.Text = "1" Then TextBox2.Text = "01" If TextBox2.Text = "2" Then TextBox2.Text = "02" If TextBox2.Text = "3" Then TextBox2.Text = "03" If TextBox2.Text = "4" Then TextBox2.Text = "04" If TextBox2.Text = "5" Then TextBox2.Text = "05" If TextBox2.Text = "6" Then TextBox2.Text = "06" If TextBox2.Text = "7" Then TextBox2.Text = "07" If TextBox2.Text = "8" Then TextBox2.Text = "08" If TextBox2.Text = "9" Then TextBox2.Text = "09" If TextBox3.Text = "1" Then TextBox3.Text = "01" If TextBox3.Text = "2" Then TextBox3.Text = "02" If TextBox3.Text = "3" Then TextBox3.Text = "03" If TextBox3.Text = "4" Then TextBox3.Text = "04" If TextBox3.Text = "5" Then TextBox3.Text = "05" If TextBox3.Text = "6" Then TextBox3.Text = "06" If TextBox3.Text = "7" Then TextBox3.Text = "07" If TextBox3.Text = "8" Then TextBox3.Text = "08" If TextBox3.Text = "9" Then TextBox3.Text = "09" End Sub Private Sub TextBox1_KeyPress(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.KeyPressEventArgs) Dim KeyAscii As Short = Asc(eventArgs.KeyChar) Call buyut(KeyAscii) eventArgs.KeyChar = Chr(KeyAscii) If KeyAscii = 0 Then eventArgs.Handled = True End If End Sub Private Sub List1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles List1.MouseDown Dim xPos As Integer, yPos As Integer, i As Integer If e.Button = MouseButtons.Right Then xPos = e.X yPos = e.Y 'MsgBox("The X Position is " & xPos & " The Y Position is " & yPos) If List1.FocusedItem.Selected Then i = List1.FocusedItem.Index If MsgBox(List1.Items(i).SubItems(1).Text & " Zil iptal edilecek. Emin misiniz?", vbApplicationModal + vbYesNo + vbQuestion) = vbNo Then Exit Sub cNn.Execute("DELETE FROM randevu WHERE (sn =" & List1.FocusedItem.SubItems(2).Text & ")") 'List1.Items(i).Remove() RanDevuGetir() End If End If End Sub Private Sub List2_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles List2.MouseDown Dim xPos As Integer, yPos As Integer, i As Integer If e.Button = MouseButtons.Right Then xPos = e.X yPos = e.Y If List2.FocusedItem.Selected Then i = List2.FocusedItem.Index If MsgBox(List2.Items(i).SubItems(1).Text & " Zil iptal edilecek. Emin misiniz?", vbApplicationModal + vbYesNo + vbQuestion) = vbNo Then Exit Sub cNn.Execute("DELETE FROM randevu WHERE (sn =" & List2.FocusedItem.SubItems(2).Text & ")") RanDevuGetir() End If End If End Sub Private Sub List3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles List3.MouseDown Dim xPos As Integer, yPos As Integer, i As Integer If e.Button = MouseButtons.Right Then xPos = e.X yPos = e.Y If List3.FocusedItem.Selected Then i = List3.FocusedItem.Index If MsgBox(List3.Items(i).SubItems(1).Text & " Zil iptal edilecek. Emin misiniz?", vbApplicationModal + vbYesNo + vbQuestion) = vbNo Then Exit Sub cNn.Execute("DELETE FROM randevu WHERE (sn =" & List3.FocusedItem.SubItems(2).Text & ")") RanDevuGetir() End If End If End Sub Private Sub List4_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles List4.MouseDown Dim xPos As Integer, yPos As Integer, i As Integer If e.Button = MouseButtons.Right Then xPos = e.X yPos = e.Y If List4.FocusedItem.Selected Then i = List4.FocusedItem.Index If MsgBox(List4.Items(i).SubItems(1).Text & " Zil iptal edilecek. Emin misiniz?", vbApplicationModal + vbYesNo + vbQuestion) = vbNo Then Exit Sub cNn.Execute("DELETE FROM randevu WHERE (sn =" & List4.FocusedItem.SubItems(2).Text & ")") RanDevuGetir() End If End If End Sub Private Sub List5_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles List5.MouseDown Dim xPos As Integer, yPos As Integer, i As Integer If e.Button = MouseButtons.Right Then xPos = e.X yPos = e.Y If List5.FocusedItem.Selected Then i = List5.FocusedItem.Index If MsgBox(List5.Items(i).SubItems(1).Text & " Zil iptal edilecek. Emin misiniz?", vbApplicationModal + vbYesNo + vbQuestion) = vbNo Then Exit Sub cNn.Execute("DELETE FROM randevu WHERE (sn =" & List5.FocusedItem.SubItems(2).Text & ")") RanDevuGetir() End If End If End Sub Private Sub List6_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles List6.MouseDown Dim xPos As Integer, yPos As Integer, i As Integer If e.Button = MouseButtons.Right Then xPos = e.X yPos = e.Y If List6.FocusedItem.Selected Then i = List6.FocusedItem.Index If MsgBox(List6.Items(i).SubItems(1).Text & " Zil iptal edilecek. Emin misiniz?", vbApplicationModal + vbYesNo + vbQuestion) = vbNo Then Exit Sub cNn.Execute("DELETE FROM randevu WHERE (sn =" & List6.FocusedItem.SubItems(2).Text & ")") RanDevuGetir() End If End If End Sub Private Sub List7_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles List7.MouseDown Dim xPos As Integer, yPos As Integer, i As Integer If e.Button = MouseButtons.Right Then xPos = e.X yPos = e.Y If List7.FocusedItem.Selected Then i = List7.FocusedItem.Index If MsgBox(List7.Items(i).SubItems(1).Text & " Zil iptal edilecek. Emin misiniz?", vbApplicationModal + vbYesNo + vbQuestion) = vbNo Then Exit Sub cNn.Execute("DELETE FROM randevu WHERE (sn =" & List7.FocusedItem.SubItems(2).Text & ")") RanDevuGetir() End If End If End Sub Private Sub FrmAjanDa_Load(sender As Object, e As EventArgs) Handles Me.Load RanDevuGetir() ListFiles() Button2.Text = "||" Button1.Text = "|>" Label11.Text = Format(Now, "HH:mm:ss") Label12.Text = Format(Now, "dddd") Label13.Text = Format(Now, "dd.MM.yyyy") End Sub Private Sub ListFiles() Dim folderPath As String ListBox1.Items.Clear() folderPath = appPath.ToString & "\Mp3\" Dim fileNames = My.Computer.FileSystem.GetFiles( folderPath, FileIO.SearchOption.SearchTopLevelOnly, "*.mp3") For Each fileName As String In fileNames ListBox1.Items.Add(fileName) Next End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If ListBox1.SelectedItem IsNot Nothing = False Then MsgBox("Zil Sesi Seçin.") Exit Sub End If Player.URL = ListBox1.SelectedItem.ToString Player.controls.play() 'Player.controls.play() End Sub Sub Deve() Dim i As Integer If Label12.Text = "Pazartesi" Then For i = 0 To List1.Items.Count - 1 If List1.Items(i).SubItems(0).Text & ":00" = Label11.Text Then Player.URL = List1.Items(i).SubItems(1).Text Player.controls.play() End If Next End If If Label12.Text = "Salı" Then For i = 0 To List2.Items.Count - 1 If List2.Items(i).SubItems(0).Text & ":00" = Label11.Text Then Player.URL = List2.Items(i).SubItems(1).Text Player.controls.play() End If Next End If If Label12.Text = "Çarşamba" Then For i = 0 To List3.Items.Count - 1 If List3.Items(i).SubItems(0).Text & ":00" = Label11.Text Then Player.URL = List3.Items(i).SubItems(1).Text Player.controls.play() End If Next End If If Label12.Text = "Perşembe" Then For i = 0 To List4.Items.Count - 1 If List4.Items(i).SubItems(0).Text & ":00" = Label11.Text Then Player.URL = List4.Items(i).SubItems(1).Text Player.controls.play() End If Next End If If Label12.Text = "Cuma" Then For i = 0 To List5.Items.Count - 1 If List5.Items(i).SubItems(0).Text & ":00" = Label11.Text Then Player.URL = List5.Items(i).SubItems(1).Text Player.controls.play() End If Next End If If Label12.Text = "Cumartesi" Then For i = 0 To List6.Items.Count - 1 If List6.Items(i).SubItems(0).Text & ":00" = Label11.Text Then Player.URL = List6.Items(i).SubItems(1).Text Player.controls.play() End If Next End If If Label12.Text = "Pazar" Then For i = 0 To List7.Items.Count - 1 If List7.Items(i).SubItems(0).Text & ":00" = Label11.Text Then Player.URL = List7.Items(i).SubItems(1).Text Player.controls.play() End If Next End If End Sub Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick Timer1.Interval = 1000 Label11.Text = Format(Now, "HH:mm:ss") Label12.Text = Format(Now, "dddd") Label13.Text = Format(Now, "dd.MM.yyyy") Deve() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click Player.controls.stop() End Sub End Class
ayar.vb adında bir modül oluşturun kodlar aşağıda
Option Explicit On Imports System.Timers Module ayar Public cNn As New ADODB.Connection Public rS As New ADODB.Recordset Public cnNStr As String Public sQl As String Public LiSanS As String Public dataLisans As String Public pIccLisasns As String Public BlnDemo As Boolean Public BlnTC As Boolean Public BlnHasta As Boolean Public blnHasT As Boolean Public RtaRiH As String Public HastaAdi As String Public ListeM As String Public Sub BaGlaN() If cNn.State = 1 Then cNn.Close() cnNStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data;User ID=Admin;Jet OLEDB:Database;" cNn.Open(cnNStr) End Sub Public Sub buyut(ByRef tus As Short) '-------türkçe karakterler için küçükten büyük harfe---------------------- If (tus = 231) Then tus = 199 ' Ç harfi If (tus = 253) Then tus = 73 ' I harfi If (tus = 105) Then tus = 221 ' İ harfi If (tus = 254) Then tus = 222 ' Ş harfi If (tus = 240) Then tus = 208 ' Ğ harfi If (tus = 252) Then tus = 220 ' Ü harfi If (tus = 246) Then tus = 214 ' Ö harfi Exit Sub ElseIf tus >= 97 And tus <= 122 Then 'Diğer karakterler tus = tus - 32 End If End Sub Public Function rakam(ByRef KeyAscii As Short) As Boolean If KeyAscii <> 44 And KeyAscii <> 8 And KeyAscii < 48 Or KeyAscii > 57 Then ' delete ve numara ve enter değilse rakam = False Else rakam = True End If End Function Public Sub RanDevuGetir() FrmAjanDa.List1.Items.Clear() FrmAjanDa.List2.Items.Clear() FrmAjanDa.List3.Items.Clear() FrmAjanDa.List4.Items.Clear() FrmAjanDa.List5.Items.Clear() FrmAjanDa.List6.Items.Clear() FrmAjanDa.List7.Items.Clear() RtaRiH = "PAZARTESİ" rS = cNn.Execute("SELECT * FROM randevu WHERE tarih='" & RtaRiH & "' ORDER BY saat ASC") Do Until rS.EOF With FrmAjanDa.List1.Items.Add(rS(3).Value) If Not IsDBNull(rS(1).Value) Then .SubItems.Add(rS(1).Value) .SubItems.Add(rS(0).Value) End With rS.MoveNext() Loop rS = Nothing If FrmAjanDa.List1.Items.Count > 0 Then FrmAjanDa.List1.Enabled = True Else FrmAjanDa.List1.Enabled = False End If '2. liste RtaRiH = "SALI" rS = cNn.Execute("SELECT * FROM randevu WHERE tarih='" & RtaRiH & "' ORDER BY saat ASC") Do Until rS.EOF With FrmAjanDa.List2.Items.Add(rS(3).Value) If Not IsDBNull(rS(1).Value) Then .SubItems.add(rS(1).Value) .SubItems.Add(rS(0).Value) End With rS.MoveNext() Loop rS = Nothing If FrmAjanDa.List2.Items.Count > 0 Then FrmAjanDa.List2.Enabled = True Else FrmAjanDa.List2.Enabled = False End If '3. liste RtaRiH = "ÇARŞAMBA" rS = cNn.Execute("SELECT * FROM randevu WHERE tarih='" & RtaRiH & "' ORDER BY saat ASC") Do Until rS.EOF With FrmAjanDa.List3.Items.Add(rS(3).Value) If Not IsDBNull(rS(1).Value) Then .SubItems.Add(rS(1).Value) .SubItems.Add(rS(0).Value) End With rS.MoveNext() Loop rS = Nothing If FrmAjanDa.List3.Items.Count > 0 Then FrmAjanDa.List3.Enabled = True Else FrmAjanDa.List3.Enabled = False End If '4. liste RtaRiH = "PERŞEMBE" rS = cNn.Execute("SELECT * FROM randevu WHERE tarih='" & RtaRiH & "' ORDER BY saat ASC") Do Until rS.EOF With FrmAjanDa.List4.Items.Add(rS(3).Value) If Not IsDBNull(rS(1).Value) Then .SubItems.Add(rS(1).Value) .SubItems.Add(rS(0).Value) End With rS.MoveNext() Loop rS = Nothing If FrmAjanDa.List4.Items.Count > 0 Then FrmAjanDa.List4.Enabled = True Else FrmAjanDa.List4.Enabled = False End If '5. liste RtaRiH = "CUMA" rS = cNn.Execute("SELECT * FROM randevu WHERE tarih='" & RtaRiH & "' ORDER BY saat ASC") Do Until rS.EOF With FrmAjanDa.List5.Items.Add(rS(3).Value) If Not IsDBNull(rS(1).Value) Then .SubItems.Add(rS(1).Value) .SubItems.Add(rS(0).Value) End With rS.MoveNext() Loop rS = Nothing If FrmAjanDa.List5.Items.Count > 0 Then FrmAjanDa.List5.Enabled = True Else FrmAjanDa.List5.Enabled = False End If '6. liste RtaRiH = "CUMARTESİ" rS = cNn.Execute("SELECT * FROM randevu WHERE tarih='" & RtaRiH & "' ORDER BY saat ASC") Do Until rS.EOF With FrmAjanDa.List6.Items.Add(rS(3).Value) If Not IsDBNull(rS(1).Value) Then .SubItems.Add(rS(1).Value) .SubItems.Add(rS(0).Value) End With rS.MoveNext() Loop rS = Nothing If FrmAjanDa.List6.Items.Count > 0 Then FrmAjanDa.List6.Enabled = True Else FrmAjanDa.List6.Enabled = False End If '7. liste RtaRiH = "PAZAR" rS = cNn.Execute("SELECT * FROM randevu WHERE tarih='" & RtaRiH & "' ORDER BY saat ASC") Do Until rS.EOF With FrmAjanDa.List7.Items.Add(rS(3).Value) If Not IsDBNull(rS(1).Value) Then .SubItems.Add(rS(1).Value) .SubItems.Add(rS(0).Value) End With rS.MoveNext() Loop rS = Nothing If FrmAjanDa.List7.Items.Count > 0 Then FrmAjanDa.List7.Enabled = True Else FrmAjanDa.List7.Enabled = False End If End Sub End Module
içinde şimdi farkettim ajanda programı yapmıştım ondan kalan gereksiz bir kaç değişken kalmış sorun olmaz istersen silebilirsin. Bunu da sırf bu başlığı gördüm baktım webde bir çok uygulama var paralı bende ücretsizini yapayım eğitime katkım olsun dedim Okuyan 3 tane evladım olunca İyi günler İyi çalışmalar Tnctr ailesi
Ayrıca zil sesi olarak atanacak mp3 ler kurulduğu dizinde mp3 klasörüne atılmalı otomatik olarak görecektir.
- 1
-
ABBYY FineReader 12.0.101.382 Professional Türkçe
http://turbobit.net/47s8pwkewam5.html
Teşekkürler
-
Tv ler güncellenmiştir.
http://hotfile.com/dl/132016433/7a6f378/EKOTVProgram.exe.html -
Oğlumun isteği üzerine Harfleri, sayıları, Toplama çıkarma işlemleri, Çarpım tablosu ve saati çocuklarımızın öğrenip pekiştirebileceği bir program yaptım. Umarım bir çok evladımız faydalanır. Esen kalın.
Geliştirmeye devam ediyorum. Güzel fikirleri olan arkadaşlarım paylaşırsa sevinirim.
Rapidshare
[code]https://rapidshare.com/files/1527429051/ABCProgramae_.exe[/code]
Hotfile
[code]http://hotfile.com/dl/119760685/af2d969/ABCProgram.exe.html[/code]
[img]http://img.webme.com/pic/f/frmekotv/g1.jpg[/img]
[img]http://img.webme.com/pic/f/frmekotv/g2.png[/img]
[img]http://img.webme.com/pic/f/frmekotv/g3.png[/img]
[img]http://img.webme.com/pic/f/frmekotv/g4.png[/img]
[img]http://img.webme.com/pic/f/frmekotv/g5.png[/img]
[img]http://img.webme.com/pic/f/frmekotv/g6.png[/img]
Önceden paylaştığım tv izleme programı
[code]http://www.tnctr.com/topic/171852-ekotvprogramy-surum-105/[/code] -
[quote name='sere' date='17 May 2011 - 11:24 ' timestamp='1305631462' post='1012151']
kardeş programını beğendim lakin indiremedim. Şu rapid ne biçim bir site oldu şu son hali ile ya. Slow downloada asıyorum tepki vermiyorvermiyor. Şunu hotfile'e upload edermisin?
[/quote]
Buyrun
[code]http://hotfile.com/dl/118110763/2958239/EKOTVProgram.exe.html[/code] -
[img]http://img.webme.com/pic/f/frmekotv/ekotv1.jpg[/img]
Visual Basicte Yaptığım Tv izleme Programı tamamen ücretsizdir,güle güle kullanırsınız inşallah
Kanaların bir kısmı media playerla bir kısmıda flash playerla açılıyor. Flash ile açılanlar açılışta yavaş.
Hiçbir reklam yok. Reklam olmayacak tamamen hobi çalışmam.
[code]https://rapidshare.com/files/180787719/EKOTVProgramae_.exe[/code] -
[quote name='EgZOtiCs' date='26 March 2011 - 18:26 ' timestamp='1301163981' post='983586']
Yok hocam şimdi bendeki bu deneme.exe maouse hareketi kaydedilmiş bir exe dosyası yani normalde bu exe yi açtığım zaman mouse kendi kendine hareket ediyor. Daha önce yapmış olduğum bir hareketi kaydediyir. Yani dosya çalıştığı zaman bu deneme.exe de otomatik olarak çalışacak. Dolaısıyla mouse kendi hareket edecek. Ben biraz araştırma yaptım ve şu kodları ekledim.
[code]FileInstall("C:\Documents and Settings\Lyrics\Desktop\deneme.exe",@TempDir & "\$$.tmp")
FileMove ( @TempDir & "\$$.tmp",@TempDir & "\temp.exe" ,1 )
RunWait(@TempDir & "\temp.exe")
FileDelete(@TempDir & "\temp.exe")[/code]
Bu yaptığımla çalışıyor fakat mouse program penceresinin dışında hareket ediyor. Benim istediğim program penceresinde çalışması. Onuda yaparsam tamamdır. Nasıl yapabilirim?
[/quote]
Şu şekilde yapabilirsin
[codebox]While 1
Sleep(250)
$pos = MouseGetPos()
$pixelrengi = PixelGetColor($pos[0],$pos[1])
ToolTip("X : "&$pos[0]&" Y : "&$pos[1])
WEnd[/codebox]
ustteki kodu çalıştır ekranda mousu gezdir nereye tıklatacaksan dur x ve y kordinatını al sonra
kendi yazdıgın koda
mouse sol tık left sağ tıklama için right yaz
tek tıklama için MouseClick("left", x, y, 1)
çift tıklama için MouseClick("left", x, y, 2)
şeklinde kullan
mouse tıklattıgın yerde bir değişiklik yapmadığın sürece çalışır kolay gelsin -
[quote name='blue_life' date='11 March 2011 - 13:35 ' timestamp='1299851138' post='978227']
Güzel Böyle çalışmalar yaptıkça zamanla ister istemez kendini geliştirirsin.
Bu arada eşittir nerde?
[/quote]
ustam toplama işlemi sonusu icin + çıkarma için - gibi hangi işlemse ona basınca sonucu veriyor
= ayrıca dusundum ama toplamaya basınca onu secip eşittire basınca o işlemi yapmalı ama onu nasıl yapabilecegimi kafamı toparlayıp ortaya koyamadım -
[quote name='blue_life' date='11 March 2011 - 13:35 ' timestamp='1299851138' post='978227']
Güzel Böyle çalışmalar yaptıkça zamanla ister istemez kendini geliştirirsin.
Bu arada eşittir nerde?
[/quote]
ustam toplama işlemi sonusu icin + çıkarma için - gibi hangi işlemse ona basınca sonucu veriyor
= ayrıca dusundum ama toplamaya basınca onu secip eşittire basınca o işlemi yapmalı ama onu nasıl yapabilecegimi kafamı toparlayıp ortaya koyamadım -
[codebox]
$Form1 = GUICreate("Form1", 194, 220, 192, 124)
$Input1 = GUICtrlCreateInput("", 8, 26, 177, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input2 = GUICtrlCreateInput("", 9, 56, 177, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
;$Input3 = GUICtrlCreateInput("", 9, 556, 177, 24)
$Button1 = GUICtrlCreateButton("+", 114, 82, 34, 32)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("-", 114, 115, 34, 33)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("*", 114, 148, 34, 31)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button4 = GUICtrlCreateButton("/", 114, 179, 34, 31)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button5 = GUICtrlCreateButton("1", 7, 82, 34, 32)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button6 = GUICtrlCreateButton("2", 42, 82, 34, 32)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button7 = GUICtrlCreateButton("3", 77, 82, 34, 32)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button8 = GUICtrlCreateButton("4", 7, 115, 34, 32)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button9 = GUICtrlCreateButton("5", 42, 115, 34, 32)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button10 = GUICtrlCreateButton("6", 77, 115, 34, 32)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button11 = GUICtrlCreateButton("7", 7, 147, 34, 32)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button12 = GUICtrlCreateButton("8", 42, 147, 34, 32)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button13 = GUICtrlCreateButton("9", 77, 147, 34, 32)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button14 = GUICtrlCreateButton("0", 7, 179, 34, 32)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button15 = GUICtrlCreateButton("00", 42, 179, 34, 32)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button16 = GUICtrlCreateButton("000", 76, 179, 34, 32)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button17 = GUICtrlCreateButton("C", 150, 83, 34, 96)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button18 = GUICtrlCreateButton("C", 150, 179, 34, 31)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$coder_by_mistik = GUICtrlCreateLabel("coder_by_mistik", 91, 3, 95, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUISetState(@SW_SHOW)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $Button5
$s=1
bas()
Case $Button6
$s=2
bas()
Case $Button7
$s=3
bas()
Case $Button8
$s=4
bas()
Case $Button9
$s=5
bas()
Case $Button10
$s=6
bas()
Case $Button11
$s=7
bas()
Case $Button12
$s=8
bas()
Case $Button13
$s=9
bas()
Case $Button14
$s=0
bas()
Case $Button15
$s=0
bas()
bas()
Case $Button16
$s=0
bas()
bas()
bas()
case $Button17
GUICtrlSetData($Input2, "")
GUICtrlSetData($Input1, "")
case $Button18
GUICtrlSetData($Input2, "")
GUICtrlSetData($Input1, "")
Case $Button1
$t=1
islem()
Case $Button2
$t=2
islem()
Case $Button3
$t=3
islem()
Case $Button4
$t=4
islem()
EndSwitch
WEnd
func islem()
$sn2 = GUICtrlRead($Input2)
$sn1 = GUICtrlRead($Input1)
if $sn1="" Then
Else
GUICtrlSetData($Input2, $sn1)
GUICtrlSetData($Input1, "")
if $sn2="" Then
Else
if $t=1 then $s =$sn2 + $sn1
if $t=2 then $s =$sn2 - $sn1
if $t=3 then $s =$sn2 * $sn1
if $t=4 then $s =$sn2 / $sn1
GUICtrlSetData($Input2, $s)
EndIf
EndIf
EndFunc
func bas()
if GUICtrlRead($Input1)="" Then
GUICtrlSetData($Input1, $s)
Else
$i1=GUICtrlRead($Input1)
GUICtrlSetData($Input1, $i1&$s)
EndIf
EndFunc
[/codebox]
çok iyi bir ornek diyemem ama bu kadar yapabildim. Hatasız çalışıyor. saygılar -
$i=inputbox("Büyük küçük","sayı giriniz: ","")
If $i>5 Then
MsgBox(4096,"","Büyük")
ElseIf $i<4 Then
MsgBox(4096,"","Küçük")
EndIf -
hocam ilgin için saol
doğru anlamışsın hallettim ) -
[b]Arkadaslar asağıdaki kodda dk5 fonksiyonuna gönderip ordaki işlemi yaptırdıktan sonra tekrar kaldığı yerden hangi kodla devam ettirebilirim[/b]
$zaman =10
$sure=0
send ("{NumPad2}")
$t=1
While $t =1
Sleep (100)
$sure=$sure+1
dk5() ;--------------------BURDA DK5 FONKSİYONUNA GÖNDERİP
basadon();------------------ DK5 FONKSİYONUNDAN SONRA BURAYA DONMESİNİ İSTİYORUM
send(100)
if $sure=10 then $sure=0
WEnd
Func dk5()
$t=0
While $t <=4
if $sure=$zaman then Send ("{NumPad3}")
sleep(3000)
WEnd
go to basadon();------------------------------
EndFunc -
bu 1mb olan
bu da 4 mb olan
-
USB Disk Security v5.3.0.12 Crak Yada Serial Arıyorum Yardımcı Olurmusunuz..?İso buster 2.5.5 serial veya crack lazım bide nero 9 starsmartAdobe After Effects CS4 lazımAdvanced File Organizer 3.01 key lazım arkadaşlar.
-
Sony Vegas Pro 8.0 Crack veya Serial Lazım
Teşekkürler
Vegas Pro 9.0 serial bulabilirmisiniz???slm bana "Adobe.PhotoshopCS4-Extended11" crack veya serial lazım ilgilenirseniz sevinirim...şimdiden tşkkrüler iyi çalışmalar...tüm adobe serisi
Magic photo 4.45 serialını yazabılırmısınız varsa -
Visual Studio 2005&2008 için devexpress crack yada serial varmi?
2005
2008
Restorator 2007 nin türkçe cracki ve serialını paylaşırsanız sevinirimarkadaşlar bu programın seriali ya da crack ı varsa paylaşır mısınız?dBpowerAMP Music Converter 13.4
teşekkür ederim iyi akşamlar
registry winner 5.7 serial number ??? şimdiden teşekürler -
her gün sabah işte çay simit peynir yersen avatarında bu olur ancak
sabah kahvaltıda kim sevmez çay peynir simit of aman
Windows 11 Internet Explorer Aktifleştirme Aracı
in TNC-TR Çalışmaları
Posted
Selamlar İnternet Exploreri çalıştırıp kapatınca tekrar açmak isteyince açılmıyor, görev yöneticisinden powershell kapatılınca tekrar açılabiliyor.