RedsCoder kullanıcısının son içeriği

Çözüldü

arkadaşlarTürk siteleri misyonumuzda hacklemek yok ama dolandırıcıları hackliyebilip zone atabilirmiyiz?

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

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

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

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

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

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

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

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

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

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

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

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

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