- Konum
- BERTUNA
-
- Üyelik Tarihi
- 2 Haz 2020
-
- Mesajlar
- 5,338
-
- MFC Puanı
- 16,230
Merhaba arkadaşlar!
Sizlere, doğum tarihinizi girerek burcunuzu öğrenebileceğiniz ve evlilikte hangi burçlarla uyumlu olduğunuzu keşfedebileceğiniz basit bir .vbs betiği sunuyorum!.Bu betik, kullanıcıdan doğum tarihini alıyor ve ardından burcunuzu belirleyerek, hangi burçlarla daha iyi anlaşabileceğinizi gösteriyor.
Nasıl Kullanılır?
1.Betiği bir metin dosyasına yapıştırın.
2.Dosya uzantısını .vbs olarak değiştirin.
3.Çalıştırın ve doğum tarihinizi gün/ay/yıl formatında girin.
Sonuç olarak, burcunuz ve evlilikte uyumlu burçlarınız hakkında bilgi alacaksınız. Eğlenceli ve bilgilendirici bir deneyim için hemen deneyin!
Sevgilerle! MegaForum'dan TRWE_2012...
Kodlama İçeri :
EKRAN GÖRÜNTÜLERİ :
Sizlere, doğum tarihinizi girerek burcunuzu öğrenebileceğiniz ve evlilikte hangi burçlarla uyumlu olduğunuzu keşfedebileceğiniz basit bir .vbs betiği sunuyorum!.Bu betik, kullanıcıdan doğum tarihini alıyor ve ardından burcunuzu belirleyerek, hangi burçlarla daha iyi anlaşabileceğinizi gösteriyor.
Nasıl Kullanılır?
1.Betiği bir metin dosyasına yapıştırın.
2.Dosya uzantısını .vbs olarak değiştirin.
3.Çalıştırın ve doğum tarihinizi gün/ay/yıl formatında girin.
Sonuç olarak, burcunuz ve evlilikte uyumlu burçlarınız hakkında bilgi alacaksınız. Eğlenceli ve bilgilendirici bir deneyim için hemen deneyin!
Sevgilerle! MegaForum'dan TRWE_2012...
Kodlama İçeri :
Kod:
Option Explicit
Dim birthDate, day, month, year, zodiacSign, compatibility
' Kullanıcıdan doğum tarihini al
birthDate = InputBox("Lütfen doğum tarihinizi girin (gün/ay/yıl):", "Doğum Tarihi")
' Tarihi gün, ay ve yıl olarak ayır
day = CInt(Split(birthDate, "/")(0))
month = CInt(Split(birthDate, "/")(1))
year = CInt(Split(birthDate, "/")(2))
' Burç hesaplama
If (month = 1 And day >= 20) Or (month = 2 And day <= 18) Then
zodiacSign = "Kova"
compatibility = "İkizler, Terazi"
ElseIf (month = 2 And day >= 19) Or (month = 3 And day <= 20) Then
zodiacSign = "Balık"
compatibility = "Yengeç, Akrep"
ElseIf (month = 3 And day >= 21) Or (month = 4 And day <= 19) Then
zodiacSign = "Koç"
compatibility = "Aslan, Yay"
ElseIf (month = 4 And day >= 20) Or (month = 5 And day <= 20) Then
zodiacSign = "Boğa"
compatibility = "Başak, Oğlak"
ElseIf (month = 5 And day >= 21) Or (month = 6 And day <= 20) Then
zodiacSign = "İkizler"
compatibility = "Kova, Terazi"
ElseIf (month = 6 And day >= 21) Or (month = 7 And day <= 22) Then
zodiacSign = "Yengeç"
compatibility = "Balık, Akrep"
ElseIf (month = 7 And day >= 23) Or (month = 8 And day <= 22) Then
zodiacSign = "Aslan"
compatibility = "Koç, Yay"
ElseIf (month = 8 And day >= 23) Or (month = 9 And day <= 22) Then
zodiacSign = "Başak"
compatibility = "Boğa, Oğlak"
ElseIf (month = 9 And day >= 23) Or (month = 10 And day <= 22) Then
zodiacSign = "Terazi"
compatibility = "İkizler, Kova"
ElseIf (month = 10 And day >= 23) Or (month = 11 And day <= 21) Then
zodiacSign = "Akrep"
compatibility = "Yengeç, Balık"
ElseIf (month = 11 And day >= 22) Or (month = 12 And day <= 21) Then
zodiacSign = "Yay"
compatibility = "Koç, Aslan"
ElseIf (month = 12 And day >= 22) Or (month = 1 And day <= 19) Then
zodiacSign = "Oğlak"
compatibility = "Boğa, Başak"
Else
MsgBox "Geçersiz tarih formatı. Lütfen gün/ay/yıl formatında bir tarih girin."
WScript.Quit
End If
' Sonucu göster
MsgBox "Burcunuz: " & zodiacSign & vbCrLf & "Evlilikte uyumlu burçlar: " & compatibilityEKRAN GÖRÜNTÜLERİ :