Teknoloji Haberleri
Aşağı Git
Tüm Forumlar
Web Tasarım - Programlama
Yazılım Geliştirme
Delphi / C++ /Vb
Visual Basic Örnekler
Bu konudaki kullanıcılar: 1 misafir
190
Cevap 95379
Tıklama 0
Öne Çıkarma
Cevap 95379
Tıklama 0
Öne Çıkarma
-
Cevap: Visual Basic Örnekler (6. sayfa)
|
vb.net te dama; okadra kod yazılmış bunuda yazın bi ara eliniz değmişken ='[ |
slm arkadaşlar!!bnde yenıyım vb de ve ödevim için bir hafıza oyunu yapmam gerekiyo!bu programı yzmak ıçın nelerı kullanmalıyım kafam gercekten karışık. YARDIMLARINIZI BEKLİYORUM .şimdiden cok cok tesekkurler |
| arkadaşım ya benimde ödevim wordpad ama texte kayıt yapamıyorum.bana kodları bulabilirsen sevinirim... |
Bu mesaja 1 cevap geldi.
| bana bu kodun tam halaini gönderebilirseniz sevinirim.şimdiden teşekkür ederim iyi akşamlar |
Bu mesaja 1 cevap geldi.
|
Private Sub Command1_Click() Dim sayı1, sayı2, sonuç As Double sayı1 = Val(Text1.Text) sayı2 = Val(Text2.Text) If Option1 = True Then sonuç = sayı1 + sayı2 If Option2 = True Then sonuç = sayı1 - sayı2 If Option3 = True Then sonuç = sayı1 * sayı2 If Option4 = True Then sonuç = sayı1 / sayı2 Text3.Text = Str(sonuç) End Sub kodlar bunu nasıl oluşturacağız |
Bu mesaja 1 cevap geldi.
|
Slm arkadaslar. Daha dün başladım visual basic çalışmaya ve pazartesiye kadar geliştirmem gereken bir program var. Excel'de makro olarak yapıcam bu işi. Helpinden aya bişeyler anladım. Bişeyler yaptım ama debug ederken hata veriyor. Ve bi hatada takıldım. kısaca programdan istediğimi anlatıyım. Şimdi excelde A sütununda her satırda 1 cümle var. ve H sütununda da her satırda 1 kelime var. Bu kelimeler istenmeyen kelimeler. A sütunundaki cümlelerde bu istenmeyen kelimeler varsa eğer onların altını çizdirecem. Mantık olarak doğru yaptığımı düşünüyorum ama bir yerlerde hatalar var ve daha da çıkacaktır. Bi programa bakıp yardım edebilirmisiniz arkadaşlar Sub weak() Dim i As Integer For i = 1 To 5 Set curcell = Workbooks("Book1").Sheets("Sheet1").Cells(i, 1) kontrol Next i End Sub Sub kontrol() Dim c As Integer Dim flag As Boolean Dim s For c = 1 To 5 Set s = Workbooks("Book1").Sheets("Sheet1").Cells(c, 8).Value With Application.FileSearch .NewSearch .LookIn = s .TextOrProperty = curcell .MatchTextExactly = flag .FileType = msoFileTypeAllFiles If flag = True Then curcell.Activate ActiveCell.Font.Underline = xlUnderlineStyleSingle End With Next c End Sub bi önceki hata artık yok. düzekttim heralde ama şimdi de bu geliyor. Nerde hata yaptığımı da bulamadım hatayı yazıyorum. run-time error '9': subscript out of range. |
< Bu mesaj bu kişi tarafından değiştirildi raist1907 -- 10 Haziran 2007; 17:45:05 >
Bu mesaja 1 cevap geldi.
| TOPİĞİ AÇAN ARKADAŞ ARTIK DEVAM ETMİYOR HERHALDE ( ZATEN ÇOK ÖNCEDEN AÇILMIŞ) SON OLARAK SORALAN SORULARA BİR CEVAP VERMEMİŞ :( |
Bu mesaja 1 cevap geldi.
hadi yaw. bu çok kötü. ama belki başka birileri vardır ya bilen. Kocaman forum hadi DH. bi el atın su soruna...  |
Bu mesaja 1 cevap geldi.
O hatanın sebebi döngüyü aşmış olman. For döngülerini kontrol et. Sonsuz döngüye giriyosun. Exel dosyasının sonlarında durmuyo bence :) dosyanın sonunu aşıyo. |
< Bu mesaj bu kişi tarafından değiştirildi XFREESTYLER -- 16 Haziran 2007; 12:39:06 >
Bu mesaja 1 cevap geldi.
| Burayahttp://www.mediafire.com/?5b0njz1dnk1 topic topic ayırdığım vb arşivlerim ve bu sene olduğumuz sınavlar var. İsteyen indirsin baksın öğrensin. Ben tamamen örneklerden kopyala yapıştı yaparak öğrendim. Kendinizi geliştirmenizin yolu bol örnektir. Site tavsiyem :http://www.planetsourcecode.com/ |
Bu mesaja 1 cevap geldi.
| Cevabın için saol kardeşim. O sorunu hallettim zaten. Lİnkler içinde saol bakıyorum şimdi |
Bu mesaja 3 cevap geldi.
Bu mesaja 1 cevap geldi. Cevapları Gizle