Yeni Kayıt
Konudaki Resimler
önceki
|
|
_____________________________
mc_arif
|
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çinquote:
Orijinalden alıntı: HipNotyCquote:
Orjinalden alıntı: YVolkan
quote:
Orjinalden alıntı: dursuneee
merhabalar acil bir biçimde vbscript örneğine ihtiyacım var. aktif olan bir sayfanın yazıcıdan çıktısını almamı sağlayacak bir script. yardımcı olabilirseniz çok sevinirim
az daha form1.print yazacaktım vbscript yazsını görünce kendime geldim
vbscript, asp de çalışıyormuş bu microsoft işi biliyor. yanıtını bulurum diye biraz kurcaladım makineyi bellek hatasından iss kuramadım :x ama en yakında kurup bakacağım. ama sen google amcaya sor.
bu arada lisede bulamadım soruyu ve cevabı yazayım vb ile ilgili
-Soru: Girilen sayının asal sayı olup olmadığını bulan program
-Cevap:
quote:
Dim sayi,i,asal
sayi=inputbox("sayı gir")
for i=1 to sayi
if sayi mod i=0 then asal=asal+1
next i
if asal=2 then msgbox "asal sayı girdin" else msgbox " asal olmayan sayı"
asal=0 yazmayı unutma yoksa sadece ilk girdiğin sayı için doğru netice alırsın :)
Alıntıları Göster
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_____________________________ "EBRAR"ın manasında yaşayabilmekve "VİLDAN"olabilmek
-
arkadaşlar visual basic 2005 kitabına ihtiyacım var nereden indirebilirim iyi bir site biliyor musunuz?quote:
Orijinalden alıntı: raist1907
Cevabın için saol kardeşim. O sorunu hallettim zaten. Lİnkler içinde saol bakıyorum şimdi
Alıntıları Göster
şimdiden teşekkürler_____________________________ "EBRAR"ın manasında yaşayabilmekve "VİLDAN"olabilmek -
arkadaşlar benim visual basic 2005 kitabına ihtiyacım var intten indiremiyorum yardım edebilecek olan var mı?şimdiden teşekkürlerquote:
Orijinalden alıntı: HipNotyCquote:
Orjinalden alıntı: YVolkan
quote:
Orjinalden alıntı: dursuneee
merhabalar acil bir biçimde vbscript örneğine ihtiyacım var. aktif olan bir sayfanın yazıcıdan çıktısını almamı sağlayacak bir script. yardımcı olabilirseniz çok sevinirim
az daha form1.print yazacaktım vbscript yazsını görünce kendime geldim vbscript, asp de çalışıyormuş bu microsoft işi biliyor. yanıtını bulurum diye biraz kurcaladım makineyi bellek hatasından iss kuramadım :x ama en yakında kurup bakacağım. ama sen google amcaya sor.
bu arada lisede bulamadım soruyu ve cevabı yazayım vb ile ilgili
-Soru: Girilen sayının asal sayı olup olmadığını bulan program
-Cevap:
quote:
Dim sayi,i,asal
sayi=inputbox("sayı gir")
for i=1 to sayi
if sayi mod i=0 then asal=asal+1
next i
if asal=2 then msgbox "asal sayı girdin" else msgbox " asal olmayan sayı"
asal=0 yazmayı unutma yoksa sadece ilk girdiğin sayı için doğru netice alırsın :)
Alıntıları Göster_____________________________ "EBRAR"ın manasında yaşayabilmekve "VİLDAN"olabilmek
-
@ebraryaren mesaj attımquote:
Orijinalden alıntı: ebraryaren
arkadaşlar benim visual basic 2005 kitabına ihtiyacım var intten indiremiyorum yardım edebilecek olan var mı?şimdiden teşekkürler
Alıntıları Göster
_____________________________ -
peki visual basic ile program yazıp derlemek için hangi programı önerirsiniz?quote:
Orijinalden alıntı: wisecode_gquote:
Orjinalden alıntı: sewim
evet geç oldu ama sonunda yaptım
çeşitli yolları var
command1_click
form1.hide
form2.show
end sub
the bitti ... :)
burada daha önceden yani compile zamanında oluşturulmuş(yaratılmış demiyorum) formu gösterir.. yada hide ile saklar.. kısır bi çözüm.Bizim vb dersimiz yok kendim öğrendimve bence çok kolay bir dil..
buarada herhangi bir yerden program sonlanırken formların hepsni unload etmeyi unutmayım yoksa program arka planda çalışmaya devam eddiyor.
Unload Form1
Unload Form2
Alıntıları Göster
< 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.squote:
Orijinalden alıntı: p4ozgur
peki visual basic ile program yazıp derlemek için hangi programı önerirsiniz?
Alıntıları Göster
ö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ıyorumquote:
Orijinalden alıntı: yunemars
arkadaşlar plcden seri bilgi alıyoruz,bu bilgi vb'de yazılan ufacık bi arayüzde okuyoruz.bizim okumak istediğimiz ağırlık, yani ondalık sayı.ama gördüğümüz karakterler saçma sapan karakterler,yani aslında anlayana gayet mantıklı olabilir ama bizim gibiler için çok saçma
şimdi arkadaşlar biz texboxta okudugumuz ascii kodları nasıl anlayacağımız sayılara dönüştürebiliriz?
ben size arayüzdeki kodlarıda göndereyim...
Private Sub Command1_Click()
Text1.Text = ""
End Sub
Private Sub Form_Load()
MSComm1.RThreshold = 1
MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_OnComm()
Text1.Text = Text1.Text + MSComm1.Input
Open "\Gelen veriler.txt" For Output As #1
Dim ad
ad = Text1.Text
Write #1, ad
Close #1
End Sub
bizim yapmak istediğimiz şey arkadaşlar plc analog modüle bitane loadcell bağlıycaz,ordan 0-10v arası gerilim gelcek(ağırlığa göre).plc o gerilim kendi içinde anlayacağı dile çevirdikten sonra freeport üzerinde bilgisayarın seri portuna göndercek(ascii olarak gönderio meret).buraya kadar olay plc'nin.burdan sonra gelen bu bilgiyi ascii yerine ondalık olarak nasıl görcez?olayı tekrar anlattım...yardım edene,etmek isteyipte edemeyene,salla ya diyene teşekkür olsun
Alıntıları Göster
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 sevinirimquote:
Orijinalden alıntı: PreDLoNa
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
Alıntıları Göster_____________________________
-
merhaba arkadaslar,quote:
Orijinalden 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
Alıntıları Göster
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:
Orijinalden 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,
Alıntıları Gösterquote:
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.quote:
Orijinalden alıntı: fuujinsanquote:
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?
Alıntıları Göster
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...?quote:
Orijinalden alıntı: discretion
Ö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...
Alıntıları Göster
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.quote:
Orijinalden alıntı: fuujinsan
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...
Alıntıları Göster_____________________________
-
selam arkadaşquote:
Orijinalden alıntı: serseri
Hocam birinci sayfada yazmıstım
"Len(String):Girilen stringin kaç karakter uzunluğunda olduğunu öğrenmemize yardımcı olur.Sayısal bir değer alır.A=Len("serseri") dersen A=7 olur. "
VB calıstırıldığında kodlarda bir hata varsa hatalı kod neresi ise orayı sarı cizerek belirtir.
Yapacagın programda Access ile databaseden baglantı kurulucaksa bu genelde ADO adı verilen bağlantılarla oluyor. Kİ bana kalırsa ilk asama kullanmanı tavsiye etmem. Bana kalırsa daha daha basit programlardan git derim...
Verdiğin linki ben acamadım sayfa bulunamıyor uyarısı veriyor :S
Alıntıları Göster
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:
Orijinalden 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
Alıntıları Gösterquote:
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.)quote:
Orijinalden alıntı: serseriquote:
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...
Alıntıları Göster
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.quote:
Orijinalden alıntı: HipNotyCquote:
Orjinalden alıntı: YVolkan
quote:
Orjinalden alıntı: dursuneee
merhabalar acil bir biçimde vbscript örneğine ihtiyacım var. aktif olan bir sayfanın yazıcıdan çıktısını almamı sağlayacak bir script. yardımcı olabilirseniz çok sevinirim
az daha form1.print yazacaktım vbscript yazsını görünce kendime geldim vbscript, asp de çalışıyormuş bu microsoft işi biliyor. yanıtını bulurum diye biraz kurcaladım makineyi bellek hatasından iss kuramadım :x ama en yakında kurup bakacağım. ama sen google amcaya sor.
bu arada lisede bulamadım soruyu ve cevabı yazayım vb ile ilgili
-Soru: Girilen sayının asal sayı olup olmadığını bulan program
-Cevap:
quote:
Dim sayi,i,asal
sayi=inputbox("sayı gir")
for i=1 to sayi
if sayi mod i=0 then asal=asal+1
next i
if asal=2 then msgbox "asal sayı girdin" else msgbox " asal olmayan sayı"
asal=0 yazmayı unutma yoksa sadece ilk girdiğin sayı için doğru netice alırsın :)
Alıntıları Göster_____________________________
-
Ustam Benimde Sorunum Var =)quote:
Orijinalden alıntı: Razer
Eyvallah kardeş sağol.
Alıntıları Göster
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?quote:
Orijinalden alıntı: raist1907
Cevabın için saol kardeşim. O sorunu hallettim zaten. Lİnkler içinde saol bakıyorum şimdi
Alıntıları Göster
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
