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

'Al çaldım kodu bi yerden acil olduğu için uraşmadım '<-- BAŞLAR Dim Phrase As StringDim Wrong As IntegerDim PhraseAry As VariantPrivate Declare Function sndPlaySound Lib "winmm. dll" Alias "sndPlaySoundA" As LongPrivate Sub LoadPhrases Dim llngFileNum As LongDim llngFileLen As LonglstrFileName = App. Path & "\Phrases. txt"On Error Resume NextllngFileLen = 0llngFileLen = FileLen If Err ThenErr. ClearMsgBox "The file """ & lstrFileName & """ could not be found."EndEnd IfIf llngFileLen = 0 Then Exit SubOn Error GoTo 0llngFileNum = FreeFileOpen lstrFileName For Input As #llngFileNumPhrases = Input Close #lngFileNumPhraseAry = Split End SubPrivate Sub Form_Load Call LoadPhrasesCall ResetLettersCall NewPhraseCall ShowPhraseEnd SubPrivate Sub Kapat_Click EndEnd SubPrivate Sub lblLetter_Click sndPlay = sndPlaySound(App. Path & "\plop. wav", 1)If lblLetter . Caption = "" Then Exit SubIf InStr(1, Phrase, lblLetter . Caption, vbTextCompare) = 0 ThenlblLetter . Caption = ""Call ShowPhraseCall ShowPhraseWrong = Wrong + 1sndPlay = sndPlaySound(App. Path & "\Uhoh. wav", 1)Select Case WrongCase 1: Kafa. Visible = TrueCase 2: Beden. Visible = TrueCase 3: SagKol. Visible = TrueCase 4: SolKol. Visible = TrueCase 5: SagBacak. Visible = TrueCase 6: SolBacak. Visible = TrueCase 7: SagAyak. Visible = TrueCase 8: SolAyak. Visible = TrueKelime. Caption = PhrasesndPlay = sndPlaySound(App. Path & "\inek. wav", 1)MsgBox "K A Y B E T T İ N İ Z! ...", vbCritical, "=:-)))"Call ResetLettersCall NewPhraseCall ShowPhraseEnd SelectExit SubEnd IflblLetter . Caption = ""Call ShowPhraseIf Kelime. Caption = Phrase ThensndPlay = sndPlaySound(App. Path & "\bildin. wav", 1)MsgBox "K A Z A N D I N I Z", vbExclamation, "İşte Bu!"Call ResetLettersCall NewPhraseCall ShowPhraseEnd IfEnd SubPrivate Sub ResetLetters Dim Index As IntegerFor Index = 0 To lblLetter. Count - 1lblLetter . Caption = Chr(Asc + Index)NextBeden. Visible = FalseSagKol. Visible = FalseSolKol. Visible = FalseKafa. Visible = FalseSagBacak. Visible = FalseSolBacak. Visible = FalseSagAyak. Visible = FalseSolAyak. Visible = FalseEnd SubPrivate Sub NewPhrase Dim IndexRandomizeIndex = Int(Rnd (UBound + 1))Phrase = PhraseAry Wrong = 0End SubPrivate Sub ShowPhrase Dim Display As StringDim IndexDisplay = PhraseFor Index = 0 To lblLetter. Count - 1Display = Replace(Display, lblLetter . Caption, " _ ", 1, -1, vbTextCompare)NextKelime. Caption = DisplayEnd Sub'Kolay gelsin.. The king is bleeding.

Arkadaşlar biri bana VB'de adam asmaca programını hemen yazsın. Hoca ilk yapana 100 vercem dedi. dar ağacı filanda olcakALMANYA olcak kelime olarak sadece. TBT'ye Mescit istiyoruz.

Ya walla ciddi konu acele etmem lazım. Ayrıcı üslubum da bi cinsilik yok kardeşlerim dediğimemi bozuldun? TBT'ye Mescit istiyoruz.

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 :::...

iyi tamam hadi zr diledik ama hızlı olun yaww yaptığım gibi hocanın evine koşcam. TBT'ye Mescit istiyoruz.