Cevap: Visual Basic Örnekler

M

mc_arifsalih

18 yıl

Çavuş

sağol bu bilgiler işime yaradı

E

ebraryaren

18 yıl

Onbaşı

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

E

ebraryaren

18 yıl

Onbaşı

arkadaşlar visual basic 2005 kitabına ihtiyacım var nereden indirebilirim iyi bir site biliyor musunuz?
şimdiden teşekkürler

E

ebraryaren

18 yıl

Onbaşı

arkadaşlar benim visual basic 2005 kitabına ihtiyacım var intten indiremiyorum yardım edebilecek olan var mı?şimdiden teşekkürler

Bu mesaja 1 cevap geldi.

S

serseri

18 yıl

Yarbay

Konu Sahibi

@ebraryaren mesaj attım

P

p4ozgur

18 yıl

Binbaşı

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 >
Bu mesaja 1 cevap geldi.

P

PreDLoNa

18 yıl

Yüzbaşı

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

P

PreDLoNa

18 yıl

Yüzbaşı

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

Bu mesaja 1 cevap geldi.

A

aydankara

17 yıl

Er

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

Bu mesaja 2 cevap geldi.

D

discretion

17 yıl

Çavuş

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 mesaja 1 cevap geldi.

F

fuujinsan

17 yıl

Binbaşı

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?

Bu mesaja 1 cevap geldi.

D

discretion

17 yıl

Çavuş

Ö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...

Bu mesaja 1 cevap geldi.

F

fuujinsan

17 yıl

Binbaşı

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...

Bu mesaja 1 cevap geldi.

D

discretion

17 yıl

Çavuş

fuujinsan cok tesekkur ederim. label ve command button ekleyince hata vermedi.

N

nashila

17 yıl

Er

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

S

serseri

17 yıl

Yarbay

Konu Sahibi

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...

Bu mesaja 1 cevap geldi.

S

serseri

17 yıl

Yarbay

Konu Sahibi

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...

R

Razer

17 yıl

Yarbay

Eyvallah kardeş sağol.

Bu mesaja 1 cevap geldi.

D

DarKLq

17 yıl

Yüzbaşı

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

R

rhpositive

17 yıl

Er

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

Bu mesaja 1 cevap geldi.