Posted under Visual Basic
GetDiskFreeSpace API fonksiyonunu kullanmalisiniz. Bu fonksiyonun declarasyonu söyledir:
Declare Function GetDiskFreeSpace Lib “kernel32″ Alias _
“GetDiskFreeSpaceA” (ByVal lpRootPathName As String, _
lpSectorsPerCluster As Long, lpBytesPerSector As Long, _
lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters _
As Long) As Long
Posted under Visual Basic
Dim a, b, c, d As Double
Private Sub Command1_Click()
Text1.Text = Text1.Text & 1
End Sub
Private Sub Command10_Click()
Text1.Text = Text1.Text & 7
End Sub
Private Sub Command11_Click()
Text1.Text = Text1.Text & 6
End Sub
Private Sub Command12_Click()
Text1.Text = Text1.Text & 5
End Sub
Private Sub Command13_Click()
Text1.Text = “”
Text1.SetFocus
End Sub
Private Sub Command17_Click()
If Text1.Text = “” Then
MsgBox “Lütfen bir sayı giriniz.”, vbExclamation + vbOKOnly, “Uyarı”
Else
If a <> 0 Then
b = Text1.Text
d = Val(a) + Val(b)
Text1 = d
b = “0″
a = “0″
If d <> 0 Then d = Val(d) + Val(Text1)
Else
a = Text1.Text
Label1.Caption = “+”
Text1.Text = “”
Text1.SetFocus
End If
End If
Continue Reading »
Posted under Visual Basic
Girilen vize notları ve finallere göre ders ortalamasını ve harf notunu hesaplar,vizeleri,finalleri,ortalamayı ve harf notunu hafızasına kaydeder.Program üzerinde ders adlarını,vize ve final oranlarını değiştirip kaydedebilirsiniz. Dim v1 As Integer, v2 As Integer, fin As Integer, ort As Integer, h As String
Dim ders As String, or1 As String, or2 As String, or3 As String, ders2 As String
Dim orv1 As Double, orv2 As Double, orfin As Double
Dim cevap
Private Declare Sub InitCommonControls Lib “comctl32.dll” ()
Continue Reading »
Posted under Visual Basic
Ürün bilgilerini giriyorsunuz, size tutarını ve yüzdesini hesaplıyor.
forma 1 adet buton,3 adet textbox ve 1 adet checkbox eklemelisiniz.
Continue Reading »
Posted under Visual Basic
Kağıt üstünde iki tarih arası farkı 30 gün hesasına göre nasıl hesaplıyorsak fonksiyonumuz aynı mantıkla hesaplar
Continue Reading »