Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Delphi / C++ /Vb
  • Bu Konuda
Şimdi Ara

visual basic anlamadıgım konu

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
3
Cevap
0
Favori
281
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • Private Sub Command1_Click()

    t_miktar = CInt(Val(Text1.Text) / Val(Text2.Text))
    'val integer yapar
    'cint yuvarlar

    fark = Val(Text1.Text) - (t_miktar * Val(Text2.Text))
    With MSFlexGrid2
    .Rows = Val(Text2.Text) + 1
    .Cols = 3
    .ColWidth(0) = 1500
    .ColWidth(1) = 1500
    .ColWidth(2) = 1500
    .Width = 4800

    .TextMatrix(0, 0) = "TAKSİT"
    .TextMatrix(0, 1) = "TARİH"
    .TextMatrix(0, 2) = "MİKTAR"


    For t = 1 To Val(Text2.Text)
    .TextMatrix(t, 0) = "Taksit_" & Trim(Str(t))
    .TextMatrix(t, 2) = t_miktar
    Next
    .TextMatrix(Text2.Text, 2) = t_miktar + fark
    End With

    End Sub

    Private Sub Command2_Click()
    MSFlexGrid2.TextMatrix(Text3.Text, 2) = CInt(Text4.Text)

    End Sub

    Private Sub Command3_Click()
    For y = 1 To Val(Text2.Text)
    toplam = Val(toplam) + MSFlexGrid2.TextMatrix(y, 2)
    Next
    If toplam = Val(Text1.Text) Then
    aa = MsgBox("TUTARLAR EŞİT", vbInformation)
    Else
    ffark = Abs(Val(Text1.Text) - toplam)
    If Val(Text1.Text) > toplam Then
    yaz = "FAZLA"
    Else
    yaz = "EKSİK"
    End If
    aa = MsgBox("TUTARLAR EŞİT DEĞİL " & ffark & " " & yaz & "VAR", vbCritical)
    End If
    End Sub

    Private Sub Form_Load()

    End Sub


    arkadaşlar bu dilde yeniyim okulda görüyoruz fakat bugün biraz koptum dersten :( mesale Val ve Cİnt arasındaki farkı tam anlayamadım. cint yuvarlama yapıyor val ise integeramı çeviriyor ?
    diğer sorum ise orada ABS kodu kullanılmış yine neye yaradıgını tam anlayamadım .TextMatrix(t, 0) = "Taksit_" & Trim(Str(t))
    .TextMatrix(t, 2) = t_miktar burada ise .textmatrix(t,2) oradaki 't' yi kullanma amacımız ne. Yani t,2'den kastı nedir?
    taksit_1 dememiz içinmi traşlıyor yani yan tarafını ?
    henüz yeniyim programlamada yardım edermisiniz ögrenmek istiyorum agır geldi bugün 4 saay bu ders :(.

    SATIRLARIN YANINA // KATARAK NEYE YARADIGINI YAZARSANIZ BOL BOL DUA EDERİM SİZLERE ARKADAŞLAR :(
    BENİM İÇİN ÇOK ANLAŞILIR OLACAKTIR // KATMANIZ



    < Bu mesaj bu kişi tarafından değiştirildi kalimero01 -- 24 Şubat 2015; 1:49:39 >







  • cevap plss :(
  • CInt () --- > Convert Integer olarak değerlendir.. Integer değere dönüştürüyor, Eğer Float ve Dobule bir değer ise (-2,147,483,648 through 2,147,483,647; fractional parts are rounded.1 )
    Val() ---> Function Val(ByVal Expression As Char) As Integer
    Val() ---> Function Val(ByVal InputStr As String) As Double

    .TextMatrix(rowindex,colindex) = Burada da verdiğin değerler grid içinde bir hücreyi bulmanı ve içeriğini String olarak döndürmesini sağlar.


    Şu Fonksiyonları tek başına google da arasan msdn çok rahat şekilde yukarıda ki açıklamaları bulabilirsin :)



    < Bu mesaj bu kişi tarafından değiştirildi Gabriel.Espaso -- 24 Şubat 2015; 14:41:14 >
    • 
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz. DH’ye girerek kullanım izni vermiş sayılırsınız.
Anladım Veri Politikamız