NeverMore

evet arkadaşlar öncelikle söyliim bu programları yeni başlayanlar için sadece örnek teşkil etmesi için hazırladım...


başlıyalım
-------------------------------------------------------------------

1-visual basic de bilgisayar kapama
KOD:

Private Sub Command1_Click()
Shell ("c:\windows\system32\shutdown -s")
End Sub
-----------------------------------------------------------------
2-girilen 2 sayıyı aynı anda toplayan ,çıkartan,çarpan ve bölen program ( lazım olan 6 tane text ve 1 command)

text1= 1.sayı
text2= 2.sayı
text3= toplamanın sonucu
text4= cıkarmanın sonucu
text5= carpmanın sonucu
text6= bölmenin sonucu

Kod:
Private Sub Command1_Click()
Dim a
Dim b
a = Val(Text1.Text)
b = Val(Text2.Text)
Text3.Text = a + b
Text4.Text = a - b
Text5.Text = a * b
Text6.Text = a / b
End Sub
--------------------------------------------------------------------------
3-her köşeden açılan form

KOD:

Private Sub Form_Load()
Form1.Caption = "Form Move"
Form1.Height = 0
Form1.Width = 1680
Timer1.Interval = 200
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
On Error Resume Next
For X = 0 To Form1.Height + 6000
Form1.Height = X
Next X
For Y = 100 To Form1.Width + 4000
Form1.Width = Y
Next Y
Timer1.Enabled = False

End sub
---------------------------------------------------------------------
4---kayarak kapanan form--

KOD:

Private Sub Command1_Click()
Do Until Form1.Top = Screen.Height
Form1.Top = Form1.Top + 1
Loop
Unload Me
End Sub
-------------------------------------------------------------------

5-zaman sınırlı şifre

KOD:

Dim k

Private Sub Text1_Change()
If Text1 = "12345" Then
Timer1.Enabled = False
Form1.Visible = False
Form2.Visible = True
End If
End Sub

Private Sub Timer1_Timer()
k = k + 1
Label2.Caption = 11 - k
If k = 11 Then End

End Sub
----------------------------------------------------------------------
6-%18 kdv hesaplayıcı

KOD:

%18 kdv hesaplayıcı

Private Sub Command1_Click()
Dim a, sonuc As Integer
a = InputBox("ÜCRETİ GİRİNİZ"
If a > 0 Then
sonuc = a * 1.18
MsgBox sonuc
End If
End Sub

------------------------------------

7-Windows Hesap Makinesini çalıştırmak
KOD:
Private Sub Command1_Click()
Call Shell("calc.exe", 1)
End Sub

Windows Not defterini çalıştırma
KOD:
Private Sub Command1_Click()
Call Shell("notepad.exe", 1)
End Sub

dershane

sagol arkadaşım emegıne saglık benım gıbı hıç bılmeyen ve bıl programcıgı okumaya nıyetlenen arkadaşlara ii oluyo bole ...

esmanur_melika

emlak veya muhtarlık veya windows çökertme programlarının visual basicde ki kodlarını bulan arkadaşlara forma yazmasını rica ederim

maskeli besler

Inputbox'dan girilen sayıları nasıl toplattırabilirim bilen var mı acaba?
veya girilen sayıları listbox'a aktarıp ordan da toplattıra bilirim ama nasıl yapıcağımı bilmiyorum.

MaviEjder

Formuna bir Commandbutton1 koy ve şu kod yaz

Butona bastıgında bir sayı istiyecek giriceksin, sonra bir sayı daha isteyecek onuda girip tamama basınca sonuç görüntülenecektir. İyi günLer kolay gelsin ..

maskeli besler

teşekkür ederim MaviEjder hallettim sorunu.