Arama sonuçlarınız

Api Kod: Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long ) As Long Kod: Private Sub Command1_Click( ) çalınacak ses dosyanın adını yazınız... sndPlaySound "sesdosyası.wav", 1 End Sub

Harf rakam karışık halde bulunan 1 veya birden çok hücrede yanyana bulunan rakamları birleştirerek rakam grupçukları oluşturur, yani sadece metin içindeki rakamları ayıran makro kodu. Kod: Sub rakamayir()--- değişkenleri tanımla---Dim dizi(750)Dim dizison(750)Dim durum As BooleanDim A, b, d...

İhtiyacımız Olanlar 4 Adet Label(Labelleri 4 tenbaslayıp saga dogru 3 2 1 şeklinde Sıralayın) 1 Adet timer 3 Adet Command Buton(Başlat.Durdur.Sıfırla) Bunları Yaptıktan sonra Kod bolumunu acın ne varsa silin direk kodları yapıştırın olacaktır. Not: Sadece VB6 içindir Kod: Dim a As Integer, b...

Bu ADO.net dersimizde combobox kullanarak seçilen veriyi veritabanından silme işlemi yapacagız. Öncelikle VB.net 2008 ortamını açıyoruz ve Windows FORM açıyoruz. Form görüntüsünü aşağıdaki gibi ayarlıyoruz. Sonra da aşağıdaki kodlarımızı doğru bir şekilde yazıyoruz: Kod: Imports...

Visual studio içerisinde görsel ortamda win form uygulamaları vasıtası ile kod yazabileciğimiz gibi görsel özellikleri olmayan uygulamaları da konsol ekranında yazabiliriz. Konsol ekranında kullanılan fonksiyonlar System.Console sınıfına ait olan fonksiyonlardır. Konsol ekranında kod satırları...

İlk olarak yeni bir form açıyoruz. 1 adet buton,1 adet tımer 1 adet progressbar'a ihtiyacımız var. Button"a çift tıklıyoruz ve şu kodu yazıyoruz Resimde Görüldügü gibi PHP- Kodu: Timer1.Start Daha sonra Timer'e gelip şunu yazıyoruz; PHP- Kodu: ProgressBar1.Increment(2) ( ) içindekı...

Visual Basic ortamında program yazanlar bilirler. Projenizin kaynak kodlarını kaybettiğiniz zaman bir sürü angarya kodu baştan yazmanız gerekir ya da çok beğendiğiniz bir ActiveX veya UserControl`ün kaynak kodlarını bulabilmek için kıvranıp durursunuz. Ama artık VB Decompiler var. Visual Basic...

Formdaki Nesneler Arasında Enter İle Geçiş Formun Keypreview Özelliğinin True Olması Lazım Kod: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer ) If KeyCode = 13 Then SendKeys "{TAB}" End If End Sub

Evet arkadaşlar bu dersimizde aslında çoğunuzun pek kullanmadığı toolbox'ta bulunan shape nesnesini klavyenin yön tuşlarıyla hareket ettirelim. Forma Hazırlık:::::::>>> Forma 1 adet Shape ekleyin. Adını(name kısmını) nesne koyun 1 Adet Timer ekleyin Enabled True İnterval 1 olsun...

İnputbox ile doğum günü tarihi girilip gün ay ve yıl olarak detaylı bir yaşınızı görmeyi sağlar. 6 tane label 1 tane button gereklidir İsterseniz bu resim size görsellik için fayda sağlayabilr Kod: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)...

Bu dersimizde Sayısal Loto programı yapmayı ele aldık. Umarım işinize yarar. Kullanmamız gereken 1 command button, 6 tane textbox olacak. Aşağıdaki kodları kullanarak lotomuzu yapabiliriz. Kod: Dim a, b, c, d, e, f As IntegerPrivate Sub Command1_Click()Randomizea = Int(Rnd(50) * 50)If (a...

DirectCast işlev olarak CType fonksiyonunda olduğu gibi dönüşüm işleminde kullanılır. Ancak dönüşüm işlemi esnasında CType Visual Basic runtime helper rutinlerini kullanıp, DirectCast ise kullanmadığından dolayı, DirectCast Ctype fonksiyonuna göre daha hızlı çalışır. Yine CType fonksiyonunda...

’’ NOT:Çalısmanın saglıklı bır sekılde calısa bılmesı ıcın ılk olarak vısual Basıc project’’ kısmından çalıstırılması gerekmektedir. Dosyları zıpın ıcınden cıkaralım unutmadan:-) Paint yapımı Hazır Örnek İndir KODLAR Private Sub Command1_Click() Form1.Cls End Sub Private Sub...

Aslında sadece trt değil bütün tvleri seyredebilirsiniz fakat IP adresini ve ismini yazmalısınız.

Mysql Arama ve Datagride Sonuçun Listelenmesi Kod: Public Sub liste( ) SQL = "select id,no,adsoyad from okuyucu where adsoyad like " & Text1.Text & "% order by id" If rst.State = 1 Then rst.Close rst.Open SQL, kutup, adOpenDynamic, adLockPessimistic Set DataGrid1.DataSource =...

Kod: Tv Kanalları ;TRT 1 = http://212.175.166.3/TV1TRT 2 = http://212.175.166.3/TV2TRT 2 = http://212.175.166.3/TV4TRT INT = http://212.175.166.3/TRTINTShow Tv = http://195.175.9.14/TV-ShowTvATV = http://213.194.117.8/atvTJK Tv = http://pointers.audiovideoweb.com/as...inlive7102.asxSKY Türk =...

Form1'in kodları PHP- Kodu: Attribute VB_Name = "sifre" Type hepsibirden site() As String kad() As String sifre() As String say As Long End Type Function Dec2Bin(ByVal n As Long) As String Do Until n = 0 If (n Mod 2) Then Dec2Bin = "1" & Dec2Bin Else Dec2Bin = "0" & Dec2Bin n = n \ 2...

Merhaba arkadaşlar Bu derste sizlere vize final ortalamasını bulup nota göre yorum veren bir uygulamayı göstereceğim. Burada yapmamız gereken şey; 1 adet command buton, 6 adet label, 2 adet textbox. Tabi, textbox'a gireceğimiz notları inputbox'larla da yapabiliriz. Hepinize kolay...

1.Mysql Bağlantısı ( Modüle Yazılacak Bu Sonra İlk Form Loadtada Call baglanyi_kur yazmanız yeterli ) Kod: Global kutup As New ADODB.Connection Global cmd As New ADODB.Command Public Sub baglanti_kur( ) If kutup.State = 1 Then kutup.Close With kutup .CursorLocation = adUseClient...

Merhaba arkadaşlar, Bu dersimizde VB.NET'te veritabanına nasıl bağlanılır, onu öğreneceğiz ve bazı nesnelerin özeliklerini açıklayacağım. Bağlayacağımız veri tabanı Access 2003 veritabanı; bunun için öncelikle bir veri tabanı oluşturacağız. Veritabanın ismi 'VERITABANI' olarak ayarlayın...