Yeni baslayanlar için vb projeleri..

[Fmulti]

ROHAN2 WORLD 1-120 TR TİPİ OFFICIAL YOHARA, BALATHOR VE AMON! 80. GÜNÜNDE! +10.000 ONLİNE! HİLE VE BOT %100 ENGELLİ HEMEN TIKLA!

Para üstü hesaplamak

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

`İ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"
​

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

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

 

[demahakan]

Bildirildi !

Resimde Başka Bir Forumun Sitesinin URL'si Yazıyor !

 

[OptiMistics]

teşekkürler.