رفتن به مطلب
بیسیک فور ایکس

Recommended Posts

 
یک مثال ساده که با استفاده از یک تایمر برای تغییر حالت از پین 13 (این پین متصل به ساخته شده در چراغ است):
Sub Process_Globals
   Public Serial1 As Serial
   Private Timer1 As Timer
   Private pin13 As Pin
End Sub

Private Sub AppStart
   Serial1.Initialize(115200)
   Log("AppStart")
   pin13.Initialize(13, pin13.MODE_OUTPUT)
   Timer1.Initialize("Timer1_Tick", 1000) '1000ms = 1 second
   Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick
   Dim currentState As Boolean = pin13.DigitalRead
   Log("CurrentState: ", currentState)
   Dim NewState As Boolean = Not(currentState)
   Log("NewState: ", NewState)
   pin13.DigitalWrite(NewState)
End Sub

 

به اشتراک گذاری این ارسال


لینک به ارسال
به اشتراک گذاری در سایت های دیگر

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

برای اینکه بتوانید دیدگاهی ارسال کنید نیاز دارید که کاربر سایت شوید

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری

  • مطالب مشابه

    • توسط amir386
      سلام خدمت اساتید عزیز ! همونطور که میدونین مدتیه که تلگرام هیتلر شده و من بسیاری از برنامه هام شاید بیشتر از 15 تاش ارتباط مستثیم و غیر مستقیم با تلگرام و api هاش دارن ! که خیلی وقته از کار افتادن و کاربر حتما باید به قندشکن وصل باشه! اما سوال اصلی من اینه بهترین راه برای دور زدن هیتلر داخل برنامه چیه! چند نقری گفتن که به سرور وصل کنم و از اونجا بهتلگرام . ولی من میخوام مثل برنامه هایی مثل تلگرام طلایی و هاتگرام و... از تونل پراکسی داخل برنامه استفاده کنم ! کسی بلده و یا راهکاری واسم داره!؟ خیلی ممنون❤️
    • توسط H@mid.RS
      درود به دوستان
       
      به درخواست کاربر امیر در تاپیک زیر این سورس کد رو براتون نوشتم :
       
       
       
       
       
       
       
       
       
       
       
      تمام امکانات رو در این سورس اضافه کردم
       
       
      شات :
       
       

       
       
       
       
       
      کد php که باید درون هاستتون بریزید(ایجاد محدودیت آپلود برا امنیت هاست) :
       
       
      <?php $extensions = array('.jpg', '.jpeg','.JPG', '.JPEG'); $valid_extensions = '.jpg, .jpeg'; $extension = strrchr($_FILES['uploaded_file']['name'], '.'); if (!in_array($extension, $extensions)) { die("Estensione Errore!"); } $target_path = "uploads/"; $dir=$target_path; $target_path2 = $target_path . basename( $_FILES['uploaded_file']['name']); $target = $target . basename( $_FILES['uploaded_file']['name']); $target_path2 = str_replace(".JPG", "/", $target_path2); $target_path2 = str_replace(".jpg", "/", $target_path2); $target_path2 = str_replace(".JPEG", "/", $target_path2); $target_path2 = str_replace(".jpeg", "/", $target_path2); //جلوگیری از تکرار mkdir("$target_path2",0755); $target_file_mod = imageExists($target,$target_path2); if(move_uploaded_file($_FILES['uploaded_file']['tmp_name'], $target_path2 .$target_file_mod)) { echo " The file ". $target_file_mod ." has been uploaded"; } else{ echo "There was an error uploading the file, please try again!"; } function imageExists($image,$dir1) { $i=1; $probeer=$image; while(file_exists($dir1.$probeer)) { $punt=strrpos($image,"."); if(substr($image,($punt-3),1)!==("[") && substr($image,($punt-1),1)!==("]")) { $probeer=substr($image,0,$punt)."[".$i."]". substr($image,($punt),strlen($image)-$punt); } else { $probeer=substr($image,0,($punt-3))."[".$i."]". substr($image,($punt),strlen($image)-$punt); } $i++; } return $probeer; } ?>  
      سورس کد پیوست شد
       
       
      سوالی بود در خدمتیم
       
       
      Upload Basic4X.IR.zip
       
      up_basic4x.php
    • توسط batman1
      با سلام.
      این سورس کد نرم افزاری اجرای دستورات صوتی هست.
      مثلا میگید وای فای خاموش،وای فای رو خاموش میکنه یا...
      هم به فارسی و هم به انگلیسی
      یکی دیگه از ویژگی هاش هم،اینه که میتونید با استفاده از گفتار،پیامک رو بنویسید و خیلی راحت برنامه اون رو به شماره دلخواهتون ارسال میکنه.
×