visual basic anlamadıgım konu

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb visual basic anlamadıgım konu

Bu konudaki kullanıcılar: 1 misafir

2
Cevap 491
Tıklama 0
Öne Çıkarma

1. sayfa

visual basic anlamadıgım konu

Cevap Yaz

kalimero01

11 yıl (92 mesaj)

Çavuş

Konu Sahibi

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

DH forumlarında vakit geçirmekten keyif alıyor gibisin ancak giriş yapmadığını görüyoruz.

Üye olduğunda özel mesaj gönderebilir, beğendiğin konuları favorilerine ekleyip takibe alabilir ve daha önce gezdiğin konulara hızlıca erişebilirsin.

Üye Ol Şimdi Değil

Bir Daha Gösterme

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

kalimero01

11 yıl (92 mesaj)

Çavuş

Konu Sahibi

cevap plss :(

Bu mesaja 1 cevap geldi.

Gabriel.Espaso

11 yıl (1559 mesaj)

Yüzbaşı

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 >

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb visual basic anlamadıgım konu