Şimdi Ara

Visual Basic Örnekler (7. sayfa)

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
191
Cevap
4
Favori
95.338
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Öne Çıkar
0 oy
Sayfa: önceki 56789
Sayfaya Git
Git
sonraki
Giriş
Mesaj
  • 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
    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
    _____________________________
    "TÜRKIYE'DE ILK OLARAK YAPILACAK ÜÇ ŞEY VAR. BUNU YAPMADIKÇA BU IŞLER OLMAZ. MAARIF, EKONOMI VE SAVUNMA MILLÎ OLACAK. BUNLARI SEN KUMANDA EDECEKSIN, EL ALEME KUMANDA ETTIRIRSEN BÖYLE OLUR. BIZ SAVUNMAYI NATO'YA VERMIŞIZ, EKONOMIYI AMERIKA'YA VERMIŞIZ. BAKIN MUSTAFA KEMAL’IN AĞZINDAN HIÇBIR ZAMAN ‘GARPLILAŞACAĞIZ’ LAFI ÇIKMIYOR.GAZI, BÜTÜN NUTUKLARINDA ‘MUASIR MILLET OLACAĞIZ’ DIYOR.MUASIRLAŞMANIN MUADILI ÇAĞDAŞLIKTIR, BATILILAŞMA DEĞIL. İSMET İNÖNÜ ILE BIRLIKTE BAŞLAMIŞTIR BU BATICI DEĞIŞIM.. OYSA CUMHURIYET KURULUR KURULMAZ MUSTAFA KEMAL’IN ILK IŞLERINDEN BIRI TÜRK DIL VE TARIH KURUMLARINI KURMAK OLMUŞTUR." ATTİLA İLHAN




  • quote:

    Orijinalden alıntı: HipNotyC

    quote:

    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
    mrb ben yeni üyelerdedim size bir sorum olacak bilen varsa lütfen acilen yanıtlasın günlerdir uğraşıyorum bu sorun için
    movie makerda yaptığım bir slaytı visual basicte çalıştırmak istiyorum kodları nedir,nasıl yapılır?
    lütfen acil ceeeeeevapppppppp
    _____________________________
    "EBRAR"ın manasında yaşayabilmekve "VİLDAN"olabilmek




  • quote:

    Orijinalden alıntı: ebraryaren

    mrb ben yeni üyelerdedim size bir sorum olacak bilen varsa lütfen acilen yanıtlasın günlerdir uğraşıyorum bu sorun için
    movie makerda yaptığım bir slaytı visual basicte çalıştırmak istiyorum kodları nedir,nasıl yapılır?
    lütfen acil ceeeeeevapppppppp

    Alıntıları Göster
    arkadaşlar dün bir mesaj attım ama hiçkimse zahmet edip bi mesaj atmadı
    lütfen dedim acil dedim ya bana yardım edecek kimse yokmu?tekrar soruyorum:
    movie makerda yaptığım slaytı visual basicte açmak istiyorum ya sizin için çok zor yada bukadar basit soruya cevap verilmez diye yazmaya üşeniyorsunuz........
    ama lütfen bana acilen lazım hadi boş oturacağınıza parmaklarınızı harakete geçirin ve yaaaaaaaaazzzzzzzzzzzzzzzzııııııııııınnnnnnn
    _____________________________
    "EBRAR"ın manasında yaşayabilmekve "VİLDAN"olabilmek




  • quote:

    Orijinalden alıntı: ebraryaren

    arkadaşlar dün bir mesaj attım ama hiçkimse zahmet edip bi mesaj atmadı
    lütfen dedim acil dedim ya bana yardım edecek kimse yokmu?tekrar soruyorum:
    movie makerda yaptığım slaytı visual basicte açmak istiyorum ya sizin için çok zor yada bukadar basit soruya cevap verilmez diye yazmaya üşeniyorsunuz........
    ama lütfen bana acilen lazım hadi boş oturacağınıza parmaklarınızı harakete geçirin ve yaaaaaaaaazzzzzzzzzzzzzzzzııııııııııınnnnnnn

    Alıntıları Göster
    birileri 3.sayfadaki sorulara bakabilirmi?
    _____________________________
    "EBRAR"ın manasında yaşayabilmekve "VİLDAN"olabilmek




  • quote:

    Orijinalden alıntı: ebraryaren

    birileri 3.sayfadaki sorulara bakabilirmi?

    Alıntıları Göster
    Örnekler Guzel Teşekürler
    _____________________________
  • quote:

    Orijinalden alıntı: PaNoZ

    Örnekler Guzel Teşekürler

    Alıntıları Göster
    Şu database olayını bir türlü çakamadım. aşağıdaki problemleri nasıl çözebilirim?
    1) Formda 2 tane textbox var ve ben bunlardan girilen verinin kaydedilmesini ve bir dosyaya yazılmasını, eğer dosya zaten mevcutsa oradaki verilerle karşılaştırılmasını istiyoruz. nasıl yapılır?
    2) Bir textbox'a belirli bir sayı girilmesi isteniyor ve bu sayıya göre tuşlar textboxlar oluşturulacak. örneğin 3 girildiği zaman 3 tane tuş ve 3 tane textbox oluşacak vs. Bu nasıl yapılır?
    3)Elimizde bir text dosyası var. içeri şuna benzer birşey:
    aaaaaaaaaa-bbbbbbbbbbbb
    cccccccccccccccccccccccccc

    dddddddddd-eeeeeeeeeeee
    ffffffffffffffffffffffffffffffffffffffff
    .
    .
    .
    bu şekilde gidiyor ve biz bu şekildeki kalıpların kaç tene olduğunu yani kaç tane satır olduğunu bilmiyoruz. ama burdaki aaaaaaaaaa ve bbbbbbbbbbbbb'yi alıp düzenlemeyi istiyoruz. bunu nasıl yapabiliriz?

    biliyorum biraz zor oldu ama bilen için kolay olabilir! şimdiden saolun.



    < Bu mesaj bu kişi tarafından değiştirildi pavlov -- 24 Kasım 2007; 13:50:01 >
    _____________________________




  • quote:

    Orijinalden alıntı: pavlov

    Şu database olayını bir türlü çakamadım. aşağıdaki problemleri nasıl çözebilirim?
    1) Formda 2 tane textbox var ve ben bunlardan girilen verinin kaydedilmesini ve bir dosyaya yazılmasını, eğer dosya zaten mevcutsa oradaki verilerle karşılaştırılmasını istiyoruz. nasıl yapılır?
    2) Bir textbox'a belirli bir sayı girilmesi isteniyor ve bu sayıya göre tuşlar textboxlar oluşturulacak. örneğin 3 girildiği zaman 3 tane tuş ve 3 tane textbox oluşacak vs. Bu nasıl yapılır?
    3)Elimizde bir text dosyası var. içeri şuna benzer birşey:
    aaaaaaaaaa-bbbbbbbbbbbb
    cccccccccccccccccccccccccc

    dddddddddd-eeeeeeeeeeee
    ffffffffffffffffffffffffffffffffffffffff
    .
    .
    .
    bu şekilde gidiyor ve biz bu şekildeki kalıpların kaç tene olduğunu yani kaç tane satır olduğunu bilmiyoruz. ama burdaki aaaaaaaaaa ve bbbbbbbbbbbbb'yi alıp düzenlemeyi istiyoruz. bunu nasıl yapabiliriz?

    biliyorum biraz zor oldu ama bilen için kolay olabilir! şimdiden saolun.

    Alıntıları Göster
    @ebraryaren

    Biraz sakin forumun bu yeri biraz tenhadır her zaman aradıgın soruya yanıt bulamayabilirsin...Ayrıca emrivaki konusman pek hoş değil...

    Her neyse muhtemelen aradıgın kodlar aşadıdaki gibi...


    Private Declare Function mciSendString Lib "winmm.dll" Alias _
    "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
    lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
    hwndCallback As Long) As Long


    Sub Command1_Click()
    '// --- Modify FILE_TO_OPEN constant as appropriate ---
    Const FILE_TO_OPEN = "C:\winnt\clock.avi"
    Dim strCmdStr As String
    Dim lngReturnVal As Long
    strCmdStr = "play " & FILE_TO_OPEN & " fullscreen "
    lngReturnVal = mciSendString(strCmdStr, 0&, 0, 0&)
    End Sub
    _____________________________




  • quote:

    Orijinalden alıntı: serseri

    @ebraryaren

    Biraz sakin forumun bu yeri biraz tenhadır her zaman aradıgın soruya yanıt bulamayabilirsin...Ayrıca emrivaki konusman pek hoş değil...

    Her neyse muhtemelen aradıgın kodlar aşadıdaki gibi...


    Private Declare Function mciSendString Lib "winmm.dll" Alias _
    "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
    lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
    hwndCallback As Long) As Long


    Sub Command1_Click()
    '// --- Modify FILE_TO_OPEN constant as appropriate ---
    Const FILE_TO_OPEN = "C:\winnt\clock.avi"
    Dim strCmdStr As String
    Dim lngReturnVal As Long
    strCmdStr = "play " & FILE_TO_OPEN & " fullscreen "
    lngReturnVal = mciSendString(strCmdStr, 0&, 0, 0&)
    End Sub

    Alıntıları Göster
    serseri abi çok teşekkür ederim emrivaki yapmadım öyle anlaşıldıysa özürdilerim
    _____________________________
    "EBRAR"ın manasında yaşayabilmekve "VİLDAN"olabilmek




  • quote:

    Orijinalden alıntı: ebraryaren

    serseri abi çok teşekkür ederim emrivaki yapmadım öyle anlaşıldıysa özürdilerim

    Alıntıları Göster
    serseri abi verdiğin kodlar sadece boş movie makerı açıyor ama benim istediğim yaptığım hazır slaytı açmak . şimdi ne olcak ? bunun nasıl olduğunu biliyormusun?
    _____________________________
    "EBRAR"ın manasında yaşayabilmekve "VİLDAN"olabilmek
  • quote:

    Orijinalden alıntı: ebraryaren

    serseri abi verdiğin kodlar sadece boş movie makerı açıyor ama benim istediğim yaptığım hazır slaytı açmak . şimdi ne olcak ? bunun nasıl olduğunu biliyormusun?

    Alıntıları Göster
    Kodlar boş sayfayı açmıyor ki :S aslında bu kodların asıl amaçı görüntü oynatmak ve bunu FULL SCREEN de yapmak...Belki bu yüzden işine yaramaz diye düşünmüştüm.
    _____________________________
  • quote:

    Orijinalden alıntı: serseri

    Kodlar boş sayfayı açmıyor ki :S aslında bu kodların asıl amaçı görüntü oynatmak ve bunu FULL SCREEN de yapmak...Belki bu yüzden işine yaramaz diye düşünmüştüm.

    Alıntıları Göster
    Benim sorularımı cevaplayacak yok mu?
    _____________________________
  • quote:

    Orijinalden alıntı: pavlov

    Benim sorularımı cevaplayacak yok mu?

    Alıntıları Göster
    serseri abi nedemek istediğini pek anlamadım şimdi en baştan anlat. ben forma ne ekleyecem ?
    ben ole nesnesiyle yapmaya çalışıyorum forma bir tane ole nesnesi ekliyorum sonrada senin verdiğin kodları kod penceresine yapıştırıyorum ozamanda boş movie maker açıyor işte.... Sen nasıl yaptığını en baştan detaylıca anlatırmısın?
    _____________________________
    "EBRAR"ın manasında yaşayabilmekve "VİLDAN"olabilmek
  • quote:

    Orijinalden alıntı: ebraryaren

    serseri abi nedemek istediğini pek anlamadım şimdi en baştan anlat. ben forma ne ekleyecem ?
    ben ole nesnesiyle yapmaya çalışıyorum forma bir tane ole nesnesi ekliyorum sonrada senin verdiğin kodları kod penceresine yapıştırıyorum ozamanda boş movie maker açıyor işte.... Sen nasıl yaptığını en baştan detaylıca anlatırmısın?

    Alıntıları Göster
    Arkadaşlar bizim hoca bi ödev verdid onu sorabilirmiyim size ödev şu formun sağ alt köşesindeki butona tıkladığımızda komut butonları sırayla gelecek ismimizi yazacak yapamasak bile biraz ipucu verebilirmisiniz.
    _____________________________




  • quote:

    Orijinalden alıntı: TECH-TR

    Arkadaşlar bizim hoca bi ödev verdid onu sorabilirmiyim size ödev şu formun sağ alt köşesindeki butona tıkladığımızda komut butonları sırayla gelecek ismimizi yazacak yapamasak bile biraz ipucu verebilirmisiniz.

    Alıntıları Göster
    Bilen yada ipucu verecek yok mu arkadaşlar lütfen yardım edin.
    _____________________________
  • quote:

    Orijinalden alıntı: TECH-TR

    Bilen yada ipucu verecek yok mu arkadaşlar lütfen yardım edin.

    Alıntıları Göster
    arkadaşlar benim sorumla ilgili bi fikri olan varmı?
    sayfanın ilk sorusu

    arkadaşlar bizim projje tıkandı,eğer bi fikriniz varsa lütfen yardım edin zaman gittikçe daralıyo çünkü
    _____________________________
    "TÜRKIYE'DE ILK OLARAK YAPILACAK ÜÇ ŞEY VAR. BUNU YAPMADIKÇA BU IŞLER OLMAZ. MAARIF, EKONOMI VE SAVUNMA MILLÎ OLACAK. BUNLARI SEN KUMANDA EDECEKSIN, EL ALEME KUMANDA ETTIRIRSEN BÖYLE OLUR. BIZ SAVUNMAYI NATO'YA VERMIŞIZ, EKONOMIYI AMERIKA'YA VERMIŞIZ. BAKIN MUSTAFA KEMAL’IN AĞZINDAN HIÇBIR ZAMAN ‘GARPLILAŞACAĞIZ’ LAFI ÇIKMIYOR.GAZI, BÜTÜN NUTUKLARINDA ‘MUASIR MILLET OLACAĞIZ’ DIYOR.MUASIRLAŞMANIN MUADILI ÇAĞDAŞLIKTIR, BATILILAŞMA DEĞIL. İSMET İNÖNÜ ILE BIRLIKTE BAŞLAMIŞTIR BU BATICI DEĞIŞIM.. OYSA CUMHURIYET KURULUR KURULMAZ MUSTAFA KEMAL’IN ILK IŞLERINDEN BIRI TÜRK DIL VE TARIH KURUMLARINI KURMAK OLMUŞTUR." ATTİLA İLHAN
  • quote:

    Orijinalden alıntı: yunemars

    arkadaşlar benim sorumla ilgili bi fikri olan varmı?
    sayfanın ilk sorusu

    arkadaşlar bizim projje tıkandı,eğer bi fikriniz varsa lütfen yardım edin zaman gittikçe daralıyo çünkü

    Alıntıları Göster
    "Biraz sakin forumun bu yeri biraz tenhadır her zaman aradıgın soruya yanıt bulamayabilirsin..."demişti serseri abi isterseniz sözünü dinleyin derim ben
    _____________________________
    "EBRAR"ın manasında yaşayabilmekve "VİLDAN"olabilmek




  • quote:

    Orijinalden alıntı: ebraryaren

    "Biraz sakin forumun bu yeri biraz tenhadır her zaman aradıgın soruya yanıt bulamayabilirsin..."demişti serseri abi isterseniz sözünü dinleyin derim ben

    Alıntıları Göster
    @TECH-TR

    http://vbnet.mvps.org/index.html?code/subclass/buttoncolour.htm burada yapılan örnekleme işini görebilir...Buradaki renk renk ile gitmiş sen ASCİİ kullanarak butonların üzerine harf atayabilirsin...
    _____________________________




  • quote:

    Orijinalden alıntı: HipNotyC

    quote:

    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
    saol ben vb ye yeni başladım işime yaradı
    _____________________________
    mc_arif




  • quote:

    Orijinalden alıntı: HipNotyC

    quote:

    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
    arkadaşlar vb de access veri tabanı kullanılarak kullanıcı isimleri ve parolaların kaydedildiği toblo yardımıyla güvenli bir şifre ekranı oluşturacağız.
    sisteme ilk defa giriş yapanlar için şifresi yada admin şifresi bulunacak bundan sonraki seferlerde sisteme admin şifresiyle değil sonradan oluşturulan şifreyle girilsin bunu sisteme üye olanların adları ve şifresi accesse kayıt olacak nasıl yapabiliriz acil lazım lütfen yardım edin ...........
    _____________________________
    "EBRAR"ın manasında yaşayabilmekve "VİLDAN"olabilmek




  • quote:

    Orijinalden alıntı: ebraryaren

    arkadaşlar vb de access veri tabanı kullanılarak kullanıcı isimleri ve parolaların kaydedildiği toblo yardımıyla güvenli bir şifre ekranı oluşturacağız.
    sisteme ilk defa giriş yapanlar için şifresi yada admin şifresi bulunacak bundan sonraki seferlerde sisteme admin şifresiyle değil sonradan oluşturulan şifreyle girilsin bunu sisteme üye olanların adları ve şifresi accesse kayıt olacak nasıl yapabiliriz acil lazım lütfen yardım edin ...........

    Alıntıları Göster
    quote:

    Orjinalden alıntı: ebraryaren

    arkadaşlar vb de access veri tabanı kullanılarak kullanıcı isimleri ve parolaların kaydedildiği toblo yardımıyla güvenli bir şifre ekranı oluşturacağız.
    sisteme ilk defa giriş yapanlar için şifresi yada admin şifresi bulunacak bundan sonraki seferlerde sisteme admin şifresiyle değil sonradan oluşturulan şifreyle girilsin bunu sisteme üye olanların adları ve şifresi accesse kayıt olacak nasıl yapabiliriz acil lazım lütfen yardım edin ...........



    İlk şifre ataması için Rnd() ataması yapabilirsin ya da diyelim isim ALİ YAŞAR olsun üye no 455 olsun adın ilk harfi soyadın iki harfi üye no son iki rakamı artı iki de 2 random sayı türetilsin...Bu şekilde bir kodlama geliştirebilirsin...
    _____________________________




  • 
Sayfa: önceki 56789
Sayfaya Git
Git
sonraki
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.