visual basic

Dim sayi, s As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Randomize() sayi = Val(TextBox1.Text) + Rnd() * (Val(TextBox2.Text) - Val(TextBox1.Text)) ListBox1.Items.Clear() TextBox4.Text = 0 TextBox5.Text = 10 s = 0 End Sub...

Projeye eklenmesi gerekenler ' Drive List Box (DriveNAME) ' Dir List Box (dirNAME) ' File List Box (fileFILENAMES) ' 8 label: ' lbDVNAME, lbLBNAME, lbDVTYPE, lbTDSKSPC, lbDSKFRSPC, lbCRNTDR, lbWINDR, ' lbPRGCRNTDR ' 1 Modül Public Declare Function GetDriveType Lib "kernel32" Alias...

Dim koya, a, b, f, m, k, ka Private Sub Command1_Click() If (f = 0) sen Text1.Text = " " f = 1 End If Text1.Text = Text1.Text + "1" End Sub Private Sub Command1_KeyPress(KeyAscii As Integer) If (KeyAscii = 27) sen End End If End Sub Private Sub Command1_MouseMove(Button As Integer, Shift As...