HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!
Bu dersimizde Visual Basic'te siyah ekranda(Konsolda) hesap makinesi yapalım...
Bunun için Console Application projesi açalım ve aşağıdaki kodları yazalım...
Bunun için Console Application projesi açalım ve aşağıdaki kodları yazalım...
Kod:
Module Module1
Dim sayi1 As Integer
Dim sayi2 As Integer
Dim secim As Integer
Dim kontrol As String
Dim secimkontrol As String
Sub Main()
kontrol = "E"
While kontrol = "E" Or kontrol = "e"
Console.Title = "Visual Basic Siyah Ekran(Konsol) Hesap Makinesi"
Console.Write("1.Sayıyı Giriniz : ")
sayi1 = Console.ReadLine()
Console.Write("2.Sayıyı Giriniz : ")
sayi2 = Console.ReadLine()
Console.Write("1)Toplama " + vbNewLine + "2)Çıkarma" + vbNewLine + "3)Çarpma" + vbNewLine + "4)Bölme" + vbNewLine + "Seçiminiz : ")
secim = Console.ReadLine()
secimkontrol = "e"
While secimkontrol = "e"
Select Case secim
Case 1
Console.WriteLine(sayi1 & " + " & sayi2 & " = " & (sayi1 + sayi2))
Case 2
Console.WriteLine(sayi1 & " - " & sayi2 & " = " & (sayi1 - sayi2))
Case 3
Console.WriteLine(sayi1 & " * " & sayi2 & " = " & (sayi1 * sayi2))
Case 4
Console.WriteLine(sayi1 & " / " & sayi2 & " = " & (sayi1 / sayi2))
Case Else
Console.Write("Yeniden seçim yapınız..." + vbNewLine + "Seçiminiz : ")
secim = Console.ReadLine()
If secim <= 0 Or secim >= 5 Then
secimkontrol = "e"
Else
secimkontrol = "h"
Select Case secim
Case 1
Console.WriteLine(sayi1 & " + " & sayi2 & " = " & (sayi1 + sayi2))
Case 2
Console.WriteLine(sayi1 & " - " & sayi2 & " = " & (sayi1 - sayi2))
Case 3
Console.WriteLine(sayi1 & " * " & sayi2 & " = " & (sayi1 * sayi2))
Case 4
Console.WriteLine(sayi1 & " / " & sayi2 & " = " & (sayi1 / sayi2))
Case Else
End Select
End If
End Select
End While
Console.WriteLine("Yeni işlem yapmak ister misiniz?EH")
kontrol = Console.ReadLine()
End While
End Sub
End Module
