Derleme Visual Basic Kodları

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub Command1_Click()
mciExecute ("Set CDAudio door Open")
End Sub
 
Private Sub Command2_Click()
mciExecute ("Set CDAudio door closed")
End Sub

Option Explicit
Dim plaka As Byte
Private Sub Form_Load()
Combo1.AddItem "ADANA"
Combo1.AddItem "ADIYAMAN"
Combo1.AddItem "AFYON"
Combo1.AddItem "AĞRI"
Combo1.AddItem "AMASYA"
Combo1.AddItem "ANKARA"
Combo1.AddItem "ANTALYA"
Combo1.AddItem "ARTVİN"
Combo1.AddItem "AYDIN"
Combo1.AddItem "BALIKESİR"
Combo1.AddItem "BİLECİK"
Combo1.AddItem "BİNGÖL"
Combo1.AddItem "BİTLİS"
Combo1.AddItem "BOLU"
Combo1.AddItem "BURDUR"
Combo1.AddItem "BURSA"
Combo1.AddItem "ÇANAKKALE"
Combo1.AddItem "ÇANKIRI"
Combo1.AddItem "ÇORUM"
Combo1.AddItem "DENİZLİ"
Combo1.AddItem "DİYARBAKIR"
Combo1.AddItem "EDİRNE"
Combo1.AddItem "ELAZIĞ"
Combo1.AddItem "ERZİNCAN"
Combo1.AddItem "ERZURUM"
Combo1.AddItem "ESKİŞEHİR"
Combo1.AddItem "GAZİANTEP"
Combo1.AddItem "GİRESUN"
Combo1.AddItem "GÜMÜŞHANE"
Combo1.AddItem "HAKKARİ"
Combo1.AddItem "HATAY"
Combo1.AddItem "ISPARTA"
Combo1.AddItem "İÇEL"
Combo1.AddItem "İSTANBUL"
Combo1.AddItem "İZMİR"
Combo1.AddItem "KARS"
Combo1.AddItem "KASTAMONU"
Combo1.AddItem "KAYSERİ"
Combo1.AddItem "KIRKLARELİ"
Combo1.AddItem "KIRŞEHİR"
Combo1.AddItem "KOCAELİ"
Combo1.AddItem "KONYA"
Combo1.AddItem "KÜTAHYA"
Combo1.AddItem "MALATYA"
Combo1.AddItem "MANİSA"
Combo1.AddItem "KAHRAMAN MARAŞ"
Combo1.AddItem "MARDİN"
Combo1.AddItem "MUĞLA"
Combo1.AddItem "MUŞ"
Combo1.AddItem "NEVŞEHİR"
Combo1.AddItem "NİĞDE"
Combo1.AddItem "ORDU"
Combo1.AddItem "RİZE"
Combo1.AddItem "SAKARYA"
Combo1.AddItem "SAMSUN"
Combo1.AddItem "SİİRT"
Combo1.AddItem "SİNOP"
Combo1.AddItem "SİVAS"
Combo1.AddItem "TEKİRDAĞ"
Combo1.AddItem "TOKAT"
Combo1.AddItem "TRABZON"
Combo1.AddItem "TUNCELİ"
Combo1.AddItem "ŞANLIURFA"
Combo1.AddItem "UŞAK"
Combo1.AddItem "VAN"
Combo1.AddItem "YOZGAT"
Combo1.AddItem "ZONGULDAK"
Combo1.AddItem "AKSARAY"
Combo1.AddItem "BAYBURT"
Combo1.AddItem "KARAMAN"
Combo1.AddItem "KIRIKKALE"
Combo1.AddItem "BATMAN"
Combo1.AddItem "ŞIRNAK"
Combo1.AddItem "BARTIN"
Combo1.AddItem "ARDAHAN"
Combo1.AddItem "IĞDIR"
Combo1.AddItem "YALOVA"
Combo1.AddItem "KARABÜK"
Combo1.AddItem "KİLİS"
Combo1.AddItem "OSMANİYE"
Combo1.AddItem "DÜZCE"
Combo1.ListIndex = 29
End Sub

Private Sub Combo1_Click()
plaka = Combo1.ListIndex + 1
Text1 = plaka
End Sub

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As RamBilgileri)
Private Type RamBilgileri
boyut As Long
yuzderam As Long
toplamram As Long
bosram As Long
End Type
Private Sub Timer1_Timer()
Dim bilgiler As RamBilgileri
GlobalMemoryStatus bilgiler
Text1.Text = "% " & bilgiler.yuzderam 'yüzde ram kullanımı
Text2.Text = bilgiler.toplamram / 1024 / 1024 & " MB" 'toplam ram
Text3.Text = bilgiler.toplamram / 1024 / 1024 - bilgiler.bosram / 1024 / 1024 & " MB" 'kullanılan ram
Text4.Text = bilgiler.bosram / 1024 / 1024 & " MB" ' boş ram
End Sub

Toplama Butonu İçin 

sonuc.Text = Val(textbox1.Text) + Val(textbox2.Text)
sayı1.Text = Val(textbox1.Text)
sayı2.Text = Val(textbox2.Text)
islem.Text = "+"

Çıkar Butonu İçin 

sonuc.Text = Val(textbox1.Text) - Val(textbox2.Text)
sayı1.Text = Val(textbox1.Text)
sayı2.Text = Val(textbox2.Text)
islem.Text = "-"

Çarp Butonu İçin

sonuc.Text = Val(textbox1.Text) * Val(textbox2.Text)
sayı1.Text = Val(textbox1.Text)
sayı2.Text = Val(textbox2.Text)
islem.Text = "*""

Böl Butonu İçin

sonuc.Text = Val(textbox1.Text) / Val(textbox2.Text)
sayı1.Text = Val(textbox1.Text)
sayı2.Text = Val(textbox2.Text)
islem.Text = "/"

Temizle Butonu İçin 

textbox1.Text = ""
textbox2.Text = ""
sonuc.Text = ""
sayı1.Text = ""
sayı2.Text = ""
islem.Text = ""