-
14.
0çok saolun bin arkadaşlar hepinize benden şuku
@13 mantığı anladım kanka hemen denicem saolasın -
13.
0butonla yaparsan
Private sub command1_clicl()
timer3.enabled = true
end sub
private sub timer3_timer()
if tur2 = 15 then
timer3.enabled = false
timer4.enabled = true
else
tur2 = tur2 + 1
veri = veri * 2
If (veri = 16) Then
veri = 1
End If
end if
end sub
private sub timer4_timer()
if tur3=15 then
timer4.enabled=false
else
tur3=tur3+1
veri = veri / 2
If (veri = 0) Then
veri = 8
End If
end if
end sub
programım yok deneyemedim -
12.
0pbp yapak olmamı
-
11.
0al sana psudo code hangi dile istersen cevir. ole iki timer tak pusur koyupda cop kod yazdirmayin adam giberler. boyle bisi iste kur mantigini.
int i = 0;
bool kucukbuyuk = true;
timer1_tick
{
if (kucukbuyuk == true)
{
if (i <15)
{
dosomething;
i++;
}
else
{
kucukbuyuk = false;
}
}
if (kucukbuyuk == false)
{
if (i > 0)
{
dosomething;
i--;
}
else
{
kucukbuyuk = true;
}
}
} -
10.
0upupupupu
-
9.
0@7 kanka örnek kod yazabilirmisin ben acemiyim aq ya,ben de öyle düşündüm ama yapamadım
@8 qbasic kurtarmıyo yinede saol kanka -
8.
0qbasic var
-
7.
0valla visiual basici unutalı baya oldu ama şöyle yapabilirsin sanırım.2 tane timer koy. command butonuna basınca ikinci timerı aktif etsin. sonra da sağa dönme komutunu ver. timerın intervalini 15 saniyeye ayarla.15 saniye sonra o da sola dönme komutunu verip disable etsin kendini anladın
-
6.
0ulan yapana şuku yağmuruna tutucam hadi aslanlarım
-
5.
0kasayı yan yatır kanka
-
4.
0aha bu yazdığım kod ben buna bide sağ-sol dönüş eklemek istiyorum. step motor için yazdım bunu binler
-
3.
0burada 2 tic var bir tanesini seçtiğimde ve dönme commandına bastığımda motor sağa diğer tic i seçtiğimde motor sola dönüyor.ben bir command veya tic ekleyerek motorun ilk önce sağa 15 saniye bekleyip sola dönmesini istiyorum. bunu nasıl yaparım binler
yardım ederseniz çok sevinirim.
Private Sub Timer1_Timer()
If (Option2.Value = True) Then
veri = veri * 2
If (veri = 16) Then
veri = 1
End If
End If
If (Option2.Value = False) Then
veri = veri / 2
If (veri = 0) Then
veri = 8
End If
End If
If (aktif = True) Then
say = say + 1
If (say = tur) Then
Timer1.Enabled = False
say = 0
End If
End If
Text1.Text = Str(veri)
BufferOut(1) = Val(Text1.Text)
hidWriteEx VendorID, ProductID, BufferOut(0)
End Sub
Paylaş: -
2.
0söyle amın inkarı
-
1.
0lan binler çok pis yardımınıza ihtiyacım var
-
niyet ettim silik yemeye bu sen misin la
-
niyet ettim silik yemeye bu muymuş
-
google a deutçland kasap mı yazdın
-
namık da benden yanaa
-
nasyonel sosyalizm arama gecmisi
-
zalinazurtun futbol muhabbeti yapacak
-
michael gibofield yeni keşfettiği kelimeyle oynuyo
-
ibretlik kayra editt
-
bu incelcanin adi azad diye
-
nasyonel sosyalizm façan yansın
-
yaklaşık 260 bin tl kanzi
-
9 sene once benide ayni yerden atmislardi
-
andrew tate den nasyonel sosyalizm yorumu
-
yol aga bişeyler ekgib sözlükte
-
nasyonel sosyalizm anani bacini
-
melek goz sentenza günlük mesai
-
hay ananı rizenin çay tarlalarında
-
hüüüüp selam beyler
-
hayat artığı spor yapıyor
-
mikropcan radiyallahu anh
-
whatsapptan ppsi böyle olan bi kız mesaj atmış
-
sözlüğün bittini teyit için bugün noter gelicek
-
şöyle allahsız kitapsız minyon ufak çeneli
-
tegmen karari dogru abi
-
kırmızı pelerinli o ananı
-
umit ozdaga bir sey olursa
-
yeni oyunum penis traşlatma oyunu
-
niyet ettim silik yemeye bakircan miymis
-
efso sac trasi amg
-
furkan bölükbaşı zirvedeki yalnızlığı
- / 3