RedsCoder kullanıcısının son içeriği
-
{* Çözüldü*} sitem hacklendi acil yardım
Çözüldü- RedsCoder
- Konu
- Cevaplar: 3
- Forum: THT Yardım Merkezi
-
Türk siteleri misyonumuzda hacklemek yok ama?_?
arkadaşlarTürk siteleri misyonumuzda hacklemek yok ama dolandırıcıları hackliyebilip zone atabilirmiyiz?- RedsCoder
- Konu
- Cevaplar: 11
- Forum: THT Yardım Merkezi
-
Visual Basic 6.0 Sayıları Büyükten Küçüğe Doğru Sıralama| 'RedsCoder
Sayıları Büyükten Küçüğe Doğru Sıralama Gerekenler: 1 adet listbox,1 adet Command Buton Private Sub Command1_Click() Dim sayi(10) As Long sayi(10) indisli değişkendir For i = 1 To 10 sayi(i) = InputBox(i & .Sayıyı Giriniz ) sayıları alıyoruz Next For i = 1 To 10 For j = 1 To 10 If...- RedsCoder
- Konu
- Cevaplar: 0
- Forum: Visual Basic
-
Visual Basic 6.0 Zıplayan Top | 'RedsCoder
Gerekenler: 3 adet optionbutton,1 adet checkbox1 ,adet shape1 ,adet timer Private Sub Check1_click() If Check1.Value = 1 Then Timer1.Enabled = False Option1.Enabled = False Option2.Enabled = False Option3.Enabled = False Else Timer1.Enabled = True Option1.Enabled = True Option2.Enabled...- RedsCoder
- Konu
- Cevaplar: 1
- Forum: Visual Basic
-
Visual Basic 6.0 3 Boyutlu Label Yapmak | 'RedsCoder
3 Boyutlu Label Yapmak Gerekenler:1 adet buton,3 adet label,1 adet modül Modül kodları Global Const GFM_STANDARD = 0 Global Const GFM_RAISED = 1 Global Const GFM_SUNKEN = 2 Global Const GFM_BACKSHADOW = 1 Global Const GFM_DROPSHADOW = 2 Global Const BOX_WHITE& = &HFFFFFF Global Const...- RedsCoder
- Konu
- Cevaplar: 0
- Forum: Visual Basic
-
Monitörün Camını Tıklat | 'RedsCoder
Gerekenler:Project menüsünden components(ctrl + t) tıklayın gelen bölümde Microsoft Agent Control 2.0 seçin Dim merlin As IAgentCtlCharacterEx Const DATAPATH = "merlin.acs" Private Sub Command1_Click() merlin.Speak "MONİTÖRÜN CAMINA TIKLIYORUM" merlin.Play "GetAttention" 'MONİTÖRÜN...- RedsCoder
- Konu
- Cevaplar: 1
- Forum: Visual Basic
-
Visual Basic 6.0 5 Saniye Arayla Yazının Rengi Değişsin | 'RedsCoder
Gerekenler:1 adet label,1adet timer Private Sub Form_Load() Timer1.Interval = 100 Label1.Caption = iSTEDİGİNİZİ YAZINIZ End Sub Private Sub Timer1_Timer() If Format(Now(), s) = 5 Then Label1.ForeColor = &HFF& End If If Format(Now(), s) = 10 Then Label1.ForeColor = &H80000012 End...- RedsCoder
- Konu
- Cevaplar: 0
- Forum: Visual Basic
-
Visual Basic 6.0 Kaçan Mouse |'RedsCoder
Gerekenler:1 adet command button Private Const MOUSEEVENTF_ABSOLUTE = &H8000 Private Const MOUSEEVENTF_MOVE = &H1 Private Declare Sub mouse_event Lib user32″ (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long) Private Const...- RedsCoder
- Konu
- Cevaplar: 0
- Forum: Visual Basic
-
Visual Basic 6.0 Araba Yarışı | 'RedsCoder
Gerekenler:1 adet buton,2 adet shape,2 adet label ,1 adet timer Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 50 Shape1.Left = 100 Shape2.Left = 100 End Sub...- RedsCoder
- Konu
- Cevaplar: 0
- Forum: Visual Basic
-
Visual Basic 6.0 İki List Arasında Aynı Olan Sayıyı Bulmak |'RedsCoder
Gerekenler:3 adet listbox ve 3 adet buton Dim a(1 To 6), b(1 To 6), i(1 To 6), j(1 To 6), k, l, t, s As Integer Private Sub Form_Load() Command1.Caption = Başla Command2.Caption = Temzile Command3.Caption = Çıkış End Sub Private Sub Command1_Click() List1.Clear List2.Clear...- RedsCoder
- Konu
- Cevaplar: 0
- Forum: Visual Basic
-
Visual Basic 6.0 Asal Çarpanlara Ayırma |'RedsCoder
Gerekenler:1 adet buton,2 adet shape,2 adet label ,1 adet timer Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Form_Load() Timer1.Enabled = False Timer1.Interval = 50 Shape1.Left = 100 Shape2.Left = 100 End Sub...- RedsCoder
- Konu
- Cevaplar: 0
- Forum: Visual Basic
-
Hangi gün doğduğunu bulan program kodları | 'RedsCoder
Private Sub Command1_Click() Dim d_tarih, gun Do d_tarih = InputBox("Doğum Tarihinizi Giriniz :") Loop While Not IsDate(d_tarih) Select Case Weekday(d_tarih) Case 1: gun = "Pazar" Case 2: gun = "Pazartesi" Case 3: gun = "Salı" Case 4: gun = "Çarşamba" Case 5: gun = "Perşembe" Case 6: gun =...- RedsCoder
- Konu
- Cevaplar: 0
- Forum: Visual Basic
-
Yazdığını okuyan program kodları | 'RedsCoder
Dim speech As SpVoice Private Sub Command1_Click() speech.Speak Text1 End Sub Private Sub Form_Load() Set speech = New SpVoice End Sub Bunu yapmak için, Bir adet textbox ve command click koyun. Dikkat! Referanstan speech object libraryi seçmeliyiz olması için. İyi Forumlar Dilerim...- RedsCoder
- Konu
- Cevaplar: 0
- Forum: Visual Basic
-
VB: CD-Rom açıp kapatma | 'RedsCoder
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long Private Sub Command1_Click() mciExecute ("Set CDAudio door Open") End Sub Private Sub Command2_Click() mciExecute ("Set CDAudio door closed") End Sub İyi Forumlar Dilerim |'RedsCoder- RedsCoder
- Konu
- Cevaplar: 0
- Forum: Visual Basic
-
Basit ses ayar programı | 'RedsCoder
'bir kaydırma cubuğu(Slider1)(textpozision=0 yapın) 've bir metin kutusu(Text1) ihtiyaç vardır. Private Declare Function waveOutSetVolume Lib "Winmm" (ByVal wDeviceID As Integer, ByVal dwVolume As Long) As Integer Private Declare Function waveOutGetVolume Lib "Winmm" (ByVal wDeviceID As...- RedsCoder
- Konu
- Cevaplar: 0
- Forum: Visual Basic
