صندلی داغ - یه نفر - نسخه قابل چاپ

+- دفترچه (https://daftarche.com)
+-- انجمن: تالارهای ویژه (https://daftarche.com/%D8%A7%D9%86%D8%AC%D9%85%D9%86-%D8%AA%D8%A7%D9%84%D8%A7%D8%B1%D9%87%D8%A7%DB%8C-%D9%88%DB%8C%DA%98%D9%87)
+--- انجمن: صندلی داغ (https://daftarche.com/%D8%A7%D9%86%D8%AC%D9%85%D9%86-%D8%B5%D9%86%D8%AF%D9%84%DB%8C-%D8%AF%D8%A7%D8%BA)
+--- موضوع: صندلی داغ - یه نفر (/%D8%AC%D8%B3%D8%AA%D8%A7%D8%B1-%D8%B5%D9%86%D8%AF%D9%84%DB%8C-%D8%AF%D8%A7%D8%BA-%DB%8C%D9%87-%D9%86%D9%81%D8%B1)

---

صندلی داغ - یه نفر - sonixax - 10-06-2013

یه نفر نوشته: 1- مرفه بی درد!

:)))
نه اتفاقن زیاد سردرد میگیرم :دی

سوالهای من :

1 - به جز ایران - کدام کشور را برای زندگی میپسندید ؟!
2 - خوراک ایرانی را بیشتر میپسندید یا فرنگی ؟!
3 - ساعت مکانیکی یا دیجیتالی ؟! :دی
4 - اگر به شما یک فرصت دوباره برای زندگی داده شود همین راه را در پیش میگیرید یا راه دیگری را ؟!
5 - تا به حال کتک کاری کرده اید ؟!
6 - اگر در لاتاری 5 میلیون دلار برنده شوید با آن پول چه میکنید ؟!
7 - در هنگام بروز شرایط دشوار خونسردی خود را حفظ میکنید یا دستپاچه میشوید ؟!

---

صندلی داغ - یه نفر - Mehrbod - 10-06-2013

یه نفر نوشته: من که چیزی نخوردم. خوبه شما هم الکترونیک بلدید. احساس خوبیه یکی هست که حرفامو درک کنه..
درضمن برای بار آخر، ساعت من با میکروکنترلر ساخته شده و 14 تا آیسی لــچ استفاده شده!! 2تا دیکودر خورده! فلیپ و فلاپ هم نیست!
تعداد خط های برنامه اش 240 تاست!!

کم الکی نیست :-)

انگیزه اتان از ساخت این ساعت چه بوده بانو؟

همچنین این ٢٤٠ رژ کد را بیاورید ببینیم چه بوده!


پارسیگر

---

صندلی داغ - یه نفر - یه نفر - 10-06-2013

sonixax نوشته: 1 - به جز ایران - کدام کشور را برای زندگی میپسندید ؟!

ایتالیا (میلان) - فرانسه (پاریس) - آمریــکــا (هر ده کوره ای که شد )

sonixax نوشته: 2 - خوراک ایرانی را بیشتر میپسندید یا فرنگی ؟!

خوراک خوشمزه... :-) ایرانی سنتی فقیرانه دوس ندارم....
خوراک فرنگی رو بیشتر دوس دارم...

sonixax نوشته: 3 - ساعت مکانیکی یا دیجیتالی ؟!

مکانیکی :-) اصالت داره!

sonixax نوشته: 4 - اگر به شما یک فرصت دوباره برای زندگی داده شود همین راه را در پیش میگیرید یا راه دیگری را ؟!

نمیدونم. شاید راه دیگری.. به شرطی که تجربه و عقل الانم رو داشته باشم.. نه چندسال پیشم..

sonixax نوشته: 5 - تا به حال کتک کاری کرده اید ؟!

بله. حســابی... ولی نه تازگیا.. دوران بلوغ و ..
:-)

sonixax نوشته: 6 - اگر در لاتاری 5 میلیون دلار برنده شوید با آن پول چه میکنید ؟!

قطعا میرم مسافرت.. دورترین نقطه دنیا
این جزیره رو خیلی دوس دارم.. تازگیا پیداش کردم :-)))))))

sonixax نوشته: 7 - در هنگام بروز شرایط دشوار خونسردی خود را حفظ میکنید یا دستپاچه میشوید ؟!

حفظ میکنم.. بهتر بگم. بیخیالم.. :-)
خیلی مسئله سخت و پیچیده باید باشه تا دستپاچه بشم.. :-)

---

صندلی داغ - یه نفر - یه نفر - 10-06-2013

Mehrbod نوشته: انگیزه اتان از ساخت این ساعت چه بوده بانو؟

یک ساعت زیبا و منحصر به فرد و جذاب..
قصدم این بود که نمونه های تجاریشو بسازم و بفروشم توی بازار..
همین کار رو هم کردم. چندتای فروختم..
بنا به درخواست چندنفر تکنولوژی ساختشو بهشون فروختم و با یکی از هم کلاسی های سابقم شریک شدم و کاملا طرحمو بهش دادم... الان یکه تازی میکنه :-)
فیلم نمونه ساعتمو چجوری بگذارم اینجا ببینید؟

Mehrbod نوشته: همچنین این ٢٤٠ رژ[1] کد را بیاورید ببینیم چه بوده!

همشو که نمیتونم بگذارم اینجا. ولی بعضی جاهاشو میگذارم
اینا که ساده ست
$regfile = "m32def.dat"
$crystal = 1000000
$lib "mcsbyte.lbx" ' for smaller code
$lib "ds1307clock.lib" ' modified lib


Enable Interrupts
Dim Q As Byte
Dim A As Byte
Dim I As Byte
Dim H1 As Byte
Dim H2 As Byte
Dim M1 As Byte
Dim M2 As Byte
Dim S1 As Byte
Dim S2 As Byte
Dim B As Byte
Dim Z As Byte
Dim Ii As Byte

============
Settime:
I2cstart ' Generate start code
I2cwbyte Ds1307w ' send address
I2cwbyte 0 ' start address in 1307


I2cstart ' Generate start code
I2cwbyte Ds1307r ' send address
I2crbyte _sec , Ack
I2crbyte _min , Ack ' MINUTES
I2crbyte _hour , Nack
I2cstop
_sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
' Return


Select Case _hour
Case 10 To 19 :
H1 = _hour - 10
H2 = 1
Case 20 To 23 :
H1 = _hour - 20
H2 = 2
Case Else :
H1 = _hour
H2 = 0
End Select


Porta = 0
Portb = Lookup(h1 , D)
Waitms 10


Porta = 1
Portb = Lookup(h2 , D)
Waitms 10


Porta = 2
Portb = Lookup(m1 , D)
Waitms 10


Porta = 3
Portb = Lookup(m2 , D)
Waitms 10


Porta = 4
Portb = Lookup(s1 , D)
Waitms 10


Porta = 5
Portb = Lookup(s2 , D)
Waitms 10






If _sec = 1 Or _sec = 3 Or _sec = 5 Or _sec = 7 Or _sec = 9 Or _sec = 11 _
Or _sec = 13 Or _sec = 15 Or _sec = 17 Or _sec = 19 Or _sec = 21 Or _sec = 23 _
Or _sec = 25 Or _sec = 27 Or _sec = 29 Or _sec = 31 Or _sec = 33 Or _sec = 35 _
Or _sec = 37 Or _sec = 39 Or _sec = 41 Or _sec = 43 Or _sec = 45 Or _sec = 47 _
Or _sec = 49 Or _sec = 51 Or _sec = 53 Or _sec = 55 Or _sec = 57 Or _sec = 59 Then
Set Portc.3
Else
Reset Portc.3
End If


Loop


End


D:
Data 64 , 121 , 36 , 48 , 25 , 18 , 2 , 120 , 0 , 16


Sectic:
Select Case _sec
Case 1 To 8:
Portc = 0
Shift Portd , Left
Reset Portd.0
If _sec = 8 Then
Portc = 1
Portd = 255
End If
Case 9 To 16:
Shift Portd , Left
Reset Portd.0
If _sec = 16 Then
Portc = 2
Portd = 255
End If
Case 17 To 24:
Shift Portd , Left
Reset Portd.0
If _sec = 24 Then
Portc = 3
Portd = 255
End If
Case 25 To 32:
Shift Portd , Left
Reset Portd.0
If _sec = 32 Then
Portc = 4
Portd = 255
End If
Case 33 To 40:
Shift Portd , Left
Reset Portd.0
If _sec = 40 Then
Portc = 5
Portd = 255
End If
Case 41 To 48:
Shift Portd , Left
Reset Portd.0
If _sec = 48 Then
Portc = 6
Portd = 255
End If
Case 49 To 56:
Shift Portd , Left
Reset Portd.0
If _sec = 56 Then
Portc = 7
Portd = 255
End If

---

صندلی داغ - یه نفر - یه نفر - 10-06-2013

بفرما. این نمونه ساعتم هست. این هم اتاق خودم هست
نمیدونم چرا اینقدر ساعتم برای شما عجیب هست؟!
لینک دانلود
Video0317.mp4 - Speedy Share - upload your files here

---

صندلی داغ - یه نفر - kourosh_bikhoda - 10-07-2013

ابتکار خوبیه. آفرین.
ولی ایرادی که من میگیرم نور شدیدش هست که چشم رو اذیت میکنه یا مثلن در زمان خواب ممکنه باعث مزاحمت بشه.
ضمنن خیلی رنگی رنگی هست. شهره فرنگ درست کردید. یه کم مردونش میکردید بابا

---

صندلی داغ - یه نفر - یه نفر - 10-07-2013

kourosh_bikhoda نوشته: ابتکار خوبیه. آفرین.
ولی ایرادی که من میگیرم نور شدیدش هست که چشم رو اذیت میکنه یا مثلن در زمان خواب ممکنه باعث مزاحمت بشه.
ضمنن خیلی رنگی رنگی هست. شهره فرنگ درست کردید. یه کم مردونش میکردید بابا

مرسی.
همچین رنگی رنگی نیست. اعداد قرمز
ثانیه ها نارنجی و ثانیه های ضریب 5 هم آبی..
کلی فکر کردم این شده... درضمن نمیشه گفت طرح اولیه اش مال خودمه. نه. من از یک برنامه فلش موبایل این طرح رو دیدم.. وقتی که کاملا ساختم، دیدم نمونه هاش هم توی نت هست.. ولی خب با من فرق داره ....

یه جورایی کاربردش توی اداره ها و مغازه هاست که نیاز به نور دارند.. توی خونه هم باید کم نورتر بشه. واسش کلید تنظیم نور گذاشتم..

---

صندلی داغ - یه نفر - Howard - 10-07-2013

1-رشته تحصیلیتون چیه؟
2-چطور شد به فکر ساختن ساعت LED افتادید؟
3-من فکر میکنم ساعتی که ساختید هیچ چیز جدیدی واسه گفتن نداره با توجه به مدل هایی که دیدم . اگه اشتباه میکنم بهم بگید.
LED watch
4- من قبلا با شما گفت و گو داشتم یادتون میاد؟
5-از اینکه تو این فروم فعالیت میکنید نمیترسید؟

---

صندلی داغ - یه نفر - یه نفر - 10-07-2013

Howard نوشته: 1-رشته تحصیلیتون چیه؟

بیوالکتریک

Howard نوشته: 2-چطور شد به فکر ساختن ساعت LED افتادید؟

یه نفر نوشته: من از یک برنامه فلش موبایل این طرح رو دیدم.. وقتی که کاملا ساختم، دیدم نمونه هاش هم توی نت هست.. ولی خب با من فرق داره ....

:-)

Howard نوشته: 5-از اینکه تو این فروم فعالیت میکنید نمیترسید؟

حرف بدی نمیزنم که بترسم! خدا باورم - اتفاقا تبلیغ اسلام هم میکنم - در جریان اثبات وجود خدا برای جمعیت خداناباوران در این راه شهید هم شدم! :-( - طرفدار دولت و کشور و مردمم هم هستم.. -
با این حال مملکت آزادی داریم و آزادی بیان هست :-) ترسی هم ندارم.. دوران متحجران تموم شده. الان همون پلیس سایبری هم میدونه که هر حرفی مجازات نداره..

باز هم با این وجود نمیترسم.. دست مموتی هم از این دنیا کوتاه شده و دیگر ترسی نیست..

Howard نوشته: 4- من قبلا با شما گفت و گو داشتم یادتون میاد؟

بله. در پیج مبارزه با مردستیزی فیسبوک. که به واسطه من با این فروم آشنا شدید.. :-) هرچند آخرش نفهمیدم شما در اون مباحث طولانی طرفدار من بودید یا طرفدار اینها!

---

صندلی داغ - یه نفر - Howard - 10-07-2013

1-تا چه مقطعی خوندید.
2-از چه سبک موسیقی خوشتون میاد

---