Bilgisayar-Bilişim Teknolojileri
Ana Sayfa
Bilişim Teknolojileri Forumu Son Konuları
24 Saat
Bilişim Teknolojileri - Formatör - Bilgisayar Öğretmeni Kayıt
Kayıt Olun
iletişim
iletişim
Detaylı Arama
Arama
Yeni Konu Aç
Yeni Konu Aç

Excel'de Taş kağıt makas uygulaması

Konu, 'Visual Basic' kısmında anathema tarafından paylaşıldı.


Etiketler:
  1. anathema

    anathema Seçkin Üye Seçkin Üye

    Kayıt:
    24 Eylül 2007
    Mesajlar:
    415
    Beğeni:
    34


    VBA Kodu:

    Dim Choice(1 To 3) As String
    Dim YourChoice As String

    Sub Rock()

    Range("C4").Value = "Rock"
    YourChoice = "Rock"

    PC_Choice

    End Sub

    Sub Paper()

    Range("C4").Value = "Paper"
    YourChoice = "Paper"

    PC_Choice

    End Sub

    Sub Scissors()

    Range("C4").Value = "Scissors"
    YourChoice = "Scissors"

    PC_Choice

    End Sub

    Sub PC_Choice()
    Choice(1) = "Rock"
    Choice(2) = "Paper"
    Choice(3) = "Scissors"

    Application.Wait (Now + TimeValue("00:00:01"))

    PCChoice = Choice(Int(3 * Rnd + 1))
    Range("A4").Value = PCChoice

    If PCChoice = "Rock" And YourChoice = "Scissors" Then
    Call EditCells("A4", "C4")
    ElseIf PCChoice = "Rock" And YourChoice = "Paper" Then
    Call EditCells("C4", "A4")
    ElseIf PCChoice = "Paper" And YourChoice = "Rock" Then
    Call EditCells("A4", "C4")
    ElseIf PCChoice = "Paper" And YourChoice = "Scissors" Then
    Call EditCells("C4", "A4")
    ElseIf PCChoice = "Scissors" And YourChoice = "Paper" Then
    Call EditCells("A4", "C4")
    ElseIf PCChoice = "Scissors" And YourChoice = "Rock" Then
    Call EditCells("C4", "A4")
    Else
    Application.Wait (Now + TimeValue("00:00:01"))
    Range("A4") = ""
    Range("C4") = ""
    End If

    End Sub

    Sub EditCells(Winner As String, Loser As String)

    Application.Wait (Now + TimeValue("00:00:01"))
    Range(Loser).Font.Strikethrough = True
    Application.Wait (Now + TimeValue("00:00:01"))
    Range(Left(Winner, 1) & "2") = Range(Left(Winner, 1) & "2") + 1
    Range(Loser).Font.Strikethrough = False
    Range("A4") = ""
    Range("C4") = ""

    End Sub

    Sub ResetGame()

    Range("A2") = 0
    Range("C2") = 0

    End Sub
     
    Son düzenleme: 30 Mayıs 2018

Sayfayı Paylaş /bbnetsosyal