folder Tahribat.com Forumları
linefolder Visual Basic - Basic - PicBasic ve Türevleri
linefolder Kardeşlerim Yardım! HOCA İLK YAPANA 100 VERCEM DEDİ. (VB)



Kardeşlerim Yardım! HOCA İLK YAPANA 100 VERCEM DEDİ. (VB)

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    WALLACEs
    WALLACEs's avatar
    Kayıt Tarihi: 17/Eylül/2005
    Erkek

    Arkadaşlar biri bana VB'de adam asmaca programını hemen yazsın.


    Hoca ilk yapana 100 vercem dedi.


    dar ağacı filanda olcak


    ALMANYA olcak kelime olarak sadece.

    TBT'ye Mescit istiyoruz.
    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    fmk
    fmk's avatar
    Kayıt Tarihi: 10/Ekim/2005
    Erkek
    emredersiniz bey efendi başka bir emrinizde varmıydı ayaklarınızı felanda yıkayalım isterseniz sen önce biraz uslubunu düzelt bence yoksa sana kimse yardım etmez en azından ben kılımı bile kıpırtatmam
    Eğer İnsanlar benimle aynı şeyleri düşünüyorsa bir yerlerde yanlış yaptım demektir
    Reply With Quote Alıntı yap
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    WALLACEs
    WALLACEs's avatar
    Kayıt Tarihi: 17/Eylül/2005
    Erkek

    Ya walla ciddi konu acele etmem lazım.


    Ayrıcı üslubum da bi cinsilik yok kardeşlerim dediğimemi bozuldun??

    TBT'ye Mescit istiyoruz.
    Reply With Quote Alıntı yap
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    BarettamazZ
    BarettamazZ's avatar
    Kayıt Tarihi: 27/Ağustos/2005
    Erkek

    fhk sana katılıyorum cumle ye bak "Arkadaşlar biri bana VB'de adam asmaca programını hemen yazsın. " ben şahsen bu cumleden sonra parmağımı bile oynatmam

    ...::: BarettamazZ :::...
    Reply With Quote Alıntı yap
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    WALLACEs
    WALLACEs's avatar
    Kayıt Tarihi: 17/Eylül/2005
    Erkek
    iyi tamam hadi özr diledik ama hızlı olun yaww yaptığım gibi hocanın evine koşcam.
    TBT'ye Mescit istiyoruz.
    Reply With Quote Alıntı yap
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Hunter
    j4x
    j4x's avatar
    Kayıt Tarihi: 16/Temmuz/2005
    Erkek

    'Al çaldım kodu bi yerden acil olduğu için uraşmadım


     


    '<-- BAŞLAR


     


    Dim Phrase As String


    Dim Wrong As Integer


    Dim PhraseAry As Variant


    Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long


    Private Sub LoadPhrases()


    Dim llngFileNum As Long


    Dim llngFileLen As Long


    lstrFileName = App.Path & "\Phrases.txt"


    On Error Resume Next


    llngFileLen = 0


    llngFileLen = FileLen(lstrFileName)


    If Err Then


    Err.Clear


    MsgBox "The file """ & lstrFileName & """ could not be found."


    End


    End If


    If llngFileLen = 0 Then Exit Sub


    On Error GoTo 0


    llngFileNum = FreeFile


    Open lstrFileName For Input As #llngFileNum


    Phrases = Input(llngFileLen, #llngFileNum)


    Close #lngFileNum


    PhraseAry = Split(Phrases, vbCrLf)


    End Sub


    Private Sub Form_Load()


    Call LoadPhrases


    Call ResetLetters


    Call NewPhrase


    Call ShowPhrase


    End Sub


    Private Sub Kapat_Click()


    End


    End Sub


    Private Sub lblLetter_Click(Index As Integer)


    sndPlay = sndPlaySound(App.Path & "\plop.wav", 1)


    If lblLetter(Index).Caption = "" Then Exit Sub


    If InStr(1, Phrase, lblLetter(Index).Caption, vbTextCompare) = 0 Then


    lblLetter(Index).Caption = ""


    Call ShowPhrase


    Call ShowPhrase


    Wrong = Wrong + 1


    sndPlay = sndPlaySound(App.Path & "\Uhoh.wav", 1)


    Select Case Wrong


    Case 1: Kafa.Visible = True


    Case 2: Beden.Visible = True


    Case 3: SagKol.Visible = True


    Case 4: SolKol.Visible = True


    Case 5: SagBacak.Visible = True


    Case 6: SolBacak.Visible = True


    Case 7: SagAyak.Visible = True


    Case 8: SolAyak.Visible = True



    Kelime.Caption = Phrase


    sndPlay = sndPlaySound(App.Path & "\inek.wav", 1)


    MsgBox "K A Y B E T T İ N İ Z ! ...", vbCritical, "=:-)))"


    Call ResetLetters


    Call NewPhrase


    Call ShowPhrase


    End Select


    Exit Sub


    End If


    lblLetter(Index).Caption = ""


    Call ShowPhrase


    If Kelime.Caption = Phrase Then


    sndPlay = sndPlaySound(App.Path & "\bildin.wav", 1)


    MsgBox "K A Z A N D I N I Z", vbExclamation, "İşte Bu !"


    Call ResetLetters


    Call NewPhrase


    Call ShowPhrase


    End If


    End Sub


    Private Sub ResetLetters()


    Dim Index As Integer


    For Index = 0 To lblLetter.Count - 1


    lblLetter(Index).Caption = Chr(Asc("A") + Index)


    Next


    Beden.Visible = False


    SagKol.Visible = False


    SolKol.Visible = False


    Kafa.Visible = False


    SagBacak.Visible = False


    SolBacak.Visible = False


    SagAyak.Visible = False


    SolAyak.Visible = False


    End Sub


    Private Sub NewPhrase()


    Dim Index


    Randomize


    Index = Int(Rnd * (UBound(PhraseAry) + 1))


    Phrase = PhraseAry(Index)


    Wrong = 0


    End Sub


    Private Sub ShowPhrase()


    Dim Display As String


    Dim Index


    Display = Phrase


    For Index = 0 To lblLetter.Count - 1


    Display = Replace(Display, lblLetter(Index).Caption, " _ ", 1, -1, vbTextCompare)


    Next


    Kelime.Caption = Display


    End Sub


    'Kolay gelsin..

    The king is bleeding.
    Reply With Quote Alıntı yap
Toplam Hit: 2192 Toplam Mesaj: 6