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 goruyoruz fakat bugun biraz koptum dersten mesale Val ve Cİnt arasındaki farkı tam anlayamadım. cint yuvarlama yapıyor val ise integeramı ceviriyor ?
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 icinmi traşlıyor yani yan tarafını ?
henuz yeniyim programlamada yardım edermisiniz ogrenmek istiyorum agır geldi bugun 4 saay bu ders .

SATIRLARIN YANINA // KATARAK NEYE YARADIGINI YAZARSANIZ BOL BOL DUA EDERİM SİZLERE ARKADAŞLAR
BENİM İCİN COK ANLAŞILIR OLACAKTIR // KATMANIZ
__________________