- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
Para üstü hesaplamak
`İlk önce açtığınız forma 7 tane label 2 tane text 1 tanede command butonu koyun ve başlayalım
`ilk önce burda değişkenleri tanımlıyoruz..
PHP Code:
dim müsteriver as integer
dim müsteritutar as integer
`ve burda tanımladığımız değişkenleri textlere tanıtıyoruz
müsteriver = text1
müsteritutar = text2
dim para as integer
`para değişkenimiz müşterinin verdiği parayı aklında tutacak ve müşteri tutarını çıkaracak
para = müsteriver - müsteritutar
` bu değişkenlerimiz de bizim bankonotlarımız
dim p100, p50, p20, p10, p5, p1 as integer
`işte burda da parayı paramparça yapıyoruz ve hangi bakonotları vereceğimiz işte burda çıkıyor
p100 = int(para/100)
para = para mod 100
p50 = int(para/50)
para = para mod 50
p20 = int(para/20)
para = para mod 20
p10 = int(para/10)
para = para mod 10
p5 = int(para/5)
para = para mod 5
p1 = para
`heh işte burda da forma göstermek kalıyor o da aşağıdaki kodlar yardımıyla olacak
label1.caption = "100 ytl " & p100 & " adet"
label2.caption = "50 ytl " & p50 & " adet"
label3.caption = "20 ytl " & p20 & " adet"
label4.caption = "10 ytl " & p10 & " adet"
label5.caption = "5 ytl " & p5 & " adet"
label6.caption = "1 ytl " & p1 & " adet"
label7.caption = " Toplam = " & (müsteriver-müsteritutar) & " ytl Verildi"
Program Aç :
Şimdi İlk Önce Yeni Bir Proje Açıyoruz.
Formumuza DriveListBox, DirListBox ve FileListBox`tan Birertane Yerleştiriyoruz.
Ve Kod Penceresine Aşağıdaki Kodu Kopyala-Yapıştır Yapıyoruz.
PHP Code:
Dim a As String * 1
Private Sub Dir1_Change()
File1.Path = Dir1.Path
ChDir Dir1.Path
End Sub
Private Sub Drive1_Change()
On Local Error GoTo hata
Dir1.Path = Drive1.Drive
a = Drive1.Drive
ChDrive Drive1.Drive
Exit Sub
hata:
MsgBox "Hata: " & Error
Drive1.Drive = a
End Sub
Private Sub File1_DblClick()
On Local Error GoTo hata
Dim n, uz, x, t
x = Shell(File1.FileName, 1)
Exit Sub
hata:
MsgBox "Hata: " & Error
End Sub
Private Sub Form_Load()
a = Drive1.Drive
End Sub
Evet Bitti bile artık F5`e Basıp rogramları Açınız
Birde Bu ara da
On Local Error GoTo hata yerine on local error resume next de yazabilirsiniz fazla bi değişikliği yok sadece hata oluşunca programa devem ediyor.
Cd-Rom u açıp kapatmak
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
Speakerdan beep çıkarmak.
Private Sub Command1_Click()
Beep
End Sub
Windows Hesap Makinesini çalıştırmak
Private Sub Command1_Click()
Call Shell("calc.exe", 1)
End Sub
Windows Not defterini çalıştırma
Private Sub Command1_Click()
Call Shell("notepad.exe", 1)
End Sub
Linkleri sadece kayıtlı üyeler görebilir. Linkleri görebilmek için Üye Girişi yapın veya ücretsiz olarak Kayıt Olun
`ilk önce burda değişkenleri tanımlıyoruz..
PHP Code:
dim müsteriver as integer
dim müsteritutar as integer
`ve burda tanımladığımız değişkenleri textlere tanıtıyoruz
müsteriver = text1
müsteritutar = text2
dim para as integer
`para değişkenimiz müşterinin verdiği parayı aklında tutacak ve müşteri tutarını çıkaracak
para = müsteriver - müsteritutar
` bu değişkenlerimiz de bizim bankonotlarımız
dim p100, p50, p20, p10, p5, p1 as integer
`işte burda da parayı paramparça yapıyoruz ve hangi bakonotları vereceğimiz işte burda çıkıyor
p100 = int(para/100)
para = para mod 100
p50 = int(para/50)
para = para mod 50
p20 = int(para/20)
para = para mod 20
p10 = int(para/10)
para = para mod 10
p5 = int(para/5)
para = para mod 5
p1 = para
`heh işte burda da forma göstermek kalıyor o da aşağıdaki kodlar yardımıyla olacak
label1.caption = "100 ytl " & p100 & " adet"
label2.caption = "50 ytl " & p50 & " adet"
label3.caption = "20 ytl " & p20 & " adet"
label4.caption = "10 ytl " & p10 & " adet"
label5.caption = "5 ytl " & p5 & " adet"
label6.caption = "1 ytl " & p1 & " adet"
label7.caption = " Toplam = " & (müsteriver-müsteritutar) & " ytl Verildi"
Linkleri sadece kayıtlı üyeler görebilir. Linkleri görebilmek için Üye Girişi yapın veya ücretsiz olarak Kayıt Olun
Program Aç :
Şimdi İlk Önce Yeni Bir Proje Açıyoruz.
Formumuza DriveListBox, DirListBox ve FileListBox`tan Birertane Yerleştiriyoruz.
Ve Kod Penceresine Aşağıdaki Kodu Kopyala-Yapıştır Yapıyoruz.
PHP Code:
Dim a As String * 1
Private Sub Dir1_Change()
File1.Path = Dir1.Path
ChDir Dir1.Path
End Sub
Private Sub Drive1_Change()
On Local Error GoTo hata
Dir1.Path = Drive1.Drive
a = Drive1.Drive
ChDrive Drive1.Drive
Exit Sub
hata:
MsgBox "Hata: " & Error
Drive1.Drive = a
End Sub
Private Sub File1_DblClick()
On Local Error GoTo hata
Dim n, uz, x, t
x = Shell(File1.FileName, 1)
Exit Sub
hata:
MsgBox "Hata: " & Error
End Sub
Private Sub Form_Load()
a = Drive1.Drive
End Sub
Evet Bitti bile artık F5`e Basıp rogramları Açınız
Birde Bu ara da
On Local Error GoTo hata yerine on local error resume next de yazabilirsiniz fazla bi değişikliği yok sadece hata oluşunca programa devem ediyor.
Cd-Rom u açıp kapatmak
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
Speakerdan beep çıkarmak.
Private Sub Command1_Click()
Beep
End Sub
Windows Hesap Makinesini çalıştırmak
Private Sub Command1_Click()
Call Shell("calc.exe", 1)
End Sub
Windows Not defterini çalıştırma
Private Sub Command1_Click()
Call Shell("notepad.exe", 1)
End Sub