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 392
Tıklama 0
Öne Çıkarma

1. sayfa

visual basic anlamadıgım konu

Cevap Yaz

kalimero01

11 yıl

Ç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

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

kalimero01

11 yıl

Çavuş

Konu Sahibi

cevap plss :(

Bu mesaja 1 cevap geldi.

Gabriel.Espaso

11 yıl

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