Yeni Kayıt
Konudaki Resimler
önceki
|
Hızlı 
Bildirim
Visual Basic Örnekler (8. sayfa)
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
1 Misafir - 1 Masaüstü
Giriş
Mesaj
-
-
yeni başlayanlar için
commanda tıklardığımızda takvimin açılması
tek yapmanız gereken forma 1 adet command eklemek ve kodları yapıştırmak
Private Sub Command1_Click()
Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl")
End Sub -
arkadaşlar visual basic 2005 kitabına ihtiyacım var nereden indirebilirim iyi bir site biliyor musunuz?
şimdiden teşekkürler -
arkadaşlar benim visual basic 2005 kitabına ihtiyacım var intten indiremiyorum yardım edebilecek olan var mı?şimdiden teşekkürler -
@ebraryaren mesaj attım 
-
peki visual basic ile program yazıp derlemek için hangi programı önerirsiniz?
< Bu mesaj bu kişi tarafından değiştirildi p4ozgur -- 10 Ocak 2008; 0:16:33 > -
merhaba arkadaslar benimde bi sorunum var herkesin sorununa yardımcı olanların aynı ılgıyı benım sorunumada gostermesını rıca edıyorum. cvp verıcek kardes ve abilerimden detaylı olarak bilgi istiyorum ne ne icin yapıldı v.s
öncelikle acces de bir ad , soyad v.b gibi bilgilerin oldugu veri tabanı olusacak.
daha sorna vb de form olusturup bu forumdaki yeni kayıt butonu tıklandıgında gırılen bılgılerı "KAYIT ET" butonuna basıldıgında veri tabanına aktarıcak.ve girilen örnek veriyorum yazılıların ortalaması gibi matematiksel işlemleride yine d.b ye aktarıcak.listeyi gör dedigimizde veri tabanındaki kayıtlı bilgilerin tamamını goruntuleyecek.
cvp verıcek kardes ve abilerimden detaylı olarak karmaşık yerler icin acıklamada eklersenız cok sevınırım -
programın bır kısmını yaptım .Gırılen bılgılerı veritabanına aktarıyor ama vertitabanını acmaya calıstıgımda tanınmayan dosya bıcımı dıe hata verıyor yardım beklıyorum
upppppppppppppppppp
-
merhaba ekok bulma kodları işime çok yaradı teşekkür ederim acaba rica etsem ebob bulma programını da yazarmısınız?yardım ederseniz çok sevinirim -
merhaba arkadaslar,
visual basic hakkinda benim kucuk bir sorunum var, burada suleyman_y_ 'in verdigi bir ornekte bile hata mesaji alıyorum. Yeni ogrenmeye basladigim icin nerede sorun var anlayamadim? Yardimlarinizi rica ederim.
Asagıdaki
Public Class Form1
Dim b As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
b = b + 1
Select Case b
Case 1
Label1.Text = "Merhaba"
Case 2
Label1.Text = "tekrar bekleriz"
b = 0
End Select
End Sub
End Class
Bu haliyle yazip F5 yaptim su hatalar olustu:
Visual Studio cannot start debugging because the debug target 'D:\Belgelerim\Visual Studio 2005\Projects\exercise1\exercise1\bin\Debug\exercise1.exe' is missing. Please build the project and retry or set the Output Path and AssemblyName properties appropriately to point at the correct location for the target assembly.
1-Handles clause requires a WithEvents variable defined in the containing type or one of its base types.
2-Name'Label1' is not declared.
tesekkurler,
-
quote:
Orjinalden alıntı: discretion
merhaba arkadaslar,
visual basic hakkinda benim kucuk bir sorunum var, burada suleyman_y_ 'in verdigi bir ornekte bile hata mesaji alıyorum. Yeni ogrenmeye basladigim icin nerede sorun var anlayamadim? Yardimlarinizi rica ederim.
Asagıdaki
Public Class Form1
Dim b As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
b = b + 1
Select Case b
Case 1
Label1.Text = "Merhaba"
Case 2
Label1.Text = "tekrar bekleriz"
b = 0
End Select
End Sub
End Class
Bu haliyle yazip F5 yaptim su hatalar olustu:
Visual Studio cannot start debugging because the debug target 'D:\Belgelerim\Visual Studio 2005\Projects\exercise1\exercise1\bin\Debug\exercise1.exe' is missing. Please build the project and retry or set the Output Path and AssemblyName properties appropriately to point at the correct location for the target assembly.
1-Handles clause requires a WithEvents variable defined in the containing type or one of its base types.
2-Name'Label1' is not declared.
tesekkurler,
bu yukardaki kodlardan hicbirsey anlamadim ne yapmak istemis burada? örnegin aslı nerede?
-
Örnegin aslı yine bu bolumde 1. sayfada yer alıyor.
http://forum.donanimhaber.com/m_2734140/mpage_1/key_/tm.htm
Ama sorun ornekten mi yoksa bu D:\belgelerim\Visual Studio 2005 dosyasını C:\Program Files'ın altına mı yerlestirmeliyim? Bu da sorun olusturur mu? Nasıl olması gerekli?
Sadece denemek icin asagıdaki ornegi yazdım ama soyle bir sey bile yazsam hata veriyor:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text=TextBox1.Text
End Sub
tesekkurler... -
visual basic ile yaziyorsun demi...?
eger vb6 ile yaziyorsan arkadasin yazdığı kod galiba bu işe yarıyor...
Dim b As Integer
Private Sub command1_Click()
b = b + 1
Select Case b
Case 1
Label1.Caption = "Merhaba"
Case 2
Label1.Caption = "tekrar bekleriz"
b = 0
End Select
End Sub
bir label birde command button ekle form'a ve copy paste yap... eger vb degilde vb net ile yaziyorsan o zaman daha değişik olur... -
fuujinsan cok tesekkur ederim. label ve command button ekleyince hata vermedi. -
selam arkadaş
bende vb de port kontrolü yapıyorum. Fakat ikili tuş kombinasyonlarında takıldım. örneğin ilri sağa, ileri sola geri sağa geri sola gibi, prosedür içerisinde tekli tuşlar tamam keydown ile fakat iki tuşu bir kullanıp porta farklı bir sinyal gönderemedim. bunun denemesi için formda 5check box ve bir de textbox oluşturdum. text boxa port değeri için sayısal değer atıyorum. bu konuda yardımcı olabilirmisiniz? teşekkürler.
Emeğinize de teşekkürler sağlıcakla kalın -
quote:
Orjinalden alıntı: aydankara
merhaba ekok bulma kodları işime çok yaradı teşekkür ederim acaba rica etsem ebob bulma programını da yazarmısınız?yardım ederseniz çok sevinirim
Function OBEB(x As Long, y As Long) As Long
Dim i As Long, min As Long
min = IIf(x < y, x, y)
For i = min To 1 Step -1
If (x Mod i) = 0 And (y Mod i) = 0 Then
OBEB = i
Exit For
End If
Next
End Function
Alıntıdır. Umarım işine yarar... -
F ile tanımlı bir fonksiyonun verilen bir aralıkta kaç tane kökü olduğunu bulan bir fonksiyon yazalım. (İpucu: Fonksiyon kök noktalarında işaret değiştirir.)
Function N_Kok(x1 As Single, x2 As Single) As Integer
Const delta_x As Single = 0.001
Dim x As Single, y_once As Single, y_simdi As Single
N_Kok = 0
y_once = F(x1)
For x = x1 + delta_x To x2 Step delta_x
y_simdi = F(x)
If (y_once = 0) Or (y_once * y_simdi < 0) Then N_Kok = N_Kok + 1
y_once = y_simdi
Next
End Function
Başka bir siteden; @mcaner nickli üyeden alıntıdır... -
Eyvallah kardeş sağol. -
Ustam Benimde Sorunum Var =)
Eger Yardim Edersen Sevinirim..
Bana Bir Kayit Kodu Lazim..
Ben Guvercin Secere'si Yazicagim..( Secere = Aile Agaci)
Ancak Her Ekleye Bastiginda Yeni Bir Label Icinde Yazmasi Lazim..
Yardim Edebilirsen Şimdiden Saol -
Benim için çok önemli bir sorun var: Aşağıdaki kodda sort özelliğini kullanmadan aynı işi nasıl yaptırırız? Yani Array.sort' u kullanmadan büyükten küçüğe sıralayabileceğiz koddaki gibi.Nasıl yapabiliriz bu işi?
Dim RandArray(0 To 999) As Long
Button2_Click
Dim i As Integer
TextBox1.Text=""
Array.Sort(RandArray)
For i=0 to UBound(RandArray)
TextBox1.Text= TextBox1.Text & RandArray(i) & vbCrLf
ProgressBar1.Value=i
Next i
Button3_Click
Dim i As Integer
TextBox1.Text=""
Array.Reverse(RandArray)
For i= 0 to UBound(RandArray)
TextBox1.Text= TextBox1.Text & RandArray(i) & vbCrLf
ProgressBar1.Value=i
Next i
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
