| Arkadaşlar trafikten çekilen aracı hurdaya ayırabilirmiyiz ? yapabiliyorsak nasıl yaparız ? |
| Arkadaşlar trafikten çekilen aracı hurdaya ayırabilirmiyiz ? yapabiliyorsak nasıl yaparız ? |
| Arkadaşlar bizim iş yerinde ana binada internette bir sıkınıt yok ama 90-100 m uzaktaki aynı iş yerimizin interneti aşırı yavaş herhangi bir işlem zor yapılıyor ama arada iyi çekiyor neden acaba ? uzaktaki iş yerimize internet ana binadaki modemden kablo ile gidiyor ? |
| arkadaşlar yazıcıdan çıkarttığımız yazının üzerine tekrardan aynı yazıyı kaymadan nasıl çıkartabiliriz ?? |
arkadaşlar matlap program yazdım ama sıkıntım M=4 değeri için t=10,20 ..100 kadar olan değerler buluyor .Benv M=4 için t= 10,20,30..100 M=4.5 için t=10,20,30...100 M=5 t=yine aynı değer için nasıl yazdırabilirim birde M=4 4.5 5 5.5 değerleri için N değerlerinin grafiğini nasıl yapabilirm.. clc |
| Arkadaşlar asp sitesinde kullanılmak üzere elinde köşe yazarı blok olan varmı ?? |
| Arkadaşlar araba sürerken birden uyuma geliyor neden acaba yaa 15 dk felan araba kullanınca birden uyku geliyor acaba fazla dikatli yola baktığım için mı oluyor ??????? |
|
arkadaşlar asp sitesinde resim yüklerken error '80070070' /Upload_konu_image.asp, line 105 hatası veriyorr veriyor yardım edin arkadaşlar Upload_konu_image.asp içindekiler bunlar <% @ Language=VBScript Codepage="1254" %> <html> <head> <title>Resim Upload</title> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=windows-1254"> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" /> <meta name="content-language" content="tr" /> </head> <body bgcolor="#FFFFFF"> <!--#include file="config.asp"--> <!--#include file="Baglan.asp"--> <%'=Session("konu_page")%> <%'=Session("konu_cat_id")%> <%'=Session("konu_id")%> <% IF session("admin")="" then response.write "Bu Sayfaya Erişiminiz Yasaklanmıştır.<br><br>" response.write "Sayfayı Kapatmak İçin <a href=javascript:self.close()><b>Tıklayınız.</b></a>" ELSE Dim ImageDir ImageDir = "files" ForWriting = 2 adLongVarChar = 201 lngNumberUploaded = 0 'Get binary data from form noBytes = Request.TotalBytes binData = Request.BinaryRead (noBytes) 'convery the binary data to a string Set RST = CreateObject("ADODB.Recordset") LenBinary = LenB(binData) if LenBinary > 0 Then RST.Fields.Append "myBinary", adLongVarChar, LenBinary RST.Open RST.AddNew RST("myBinary").AppendChunk BinData RST.Update strDataWhole = RST("myBinary") End if strBoundry = Request.ServerVariables ("HTTP_CONTENT_TYPE") lngBoundryPos = instr(1, strBoundry, "boundary=") + 8 strBoundry = "--" & right(strBoundry, len(strBoundry) - lngBoundryPos) lngCurrentBegin = instr(1, strDataWhole, strBoundry) lngCurrentEnd = instr(lngCurrentBegin + 1, strDataWhole, strBoundry) - 1 Do While lngCurrentEnd > 0 'Get the data between current boundry and remove it from the whole. strData = mid(strDataWhole, lngCurrentBegin, lngCurrentEnd - lngCurrentBegin) strDataWhole = replace(strDataWhole, strData,"") 'Get the full path of the current file. lngBeginFileName = instr(1, strdata, "filename=") + 10 lngEndFileName = instr(lngBeginFileName, strData, chr(34)) 'Make sure they selected a file. if lngBeginFileName = lngEndFileName and lngNumberUploaded = 0 Then Response.Redirect "default2.asp?sayfa=resimler2" End if 'There could be an empty file box. if lngBeginFileName <> lngEndFileName Then strFilename = mid(strData, lngBeginFileName, lngEndFileName - lngBeginFileName) tmpLng = instr(1, strFilename, "\") Do While tmpLng > 0 PrevPos = tmpLng tmpLng = instr(PrevPos + 1, strFilename,"\") Loop FileName = right(strFilename, len(strFileName) - PrevPos) lngCT = instr(1,strData, "Content-Type:") if lngCT > 0 Then lngBeginPos = instr(lngCT, strData, chr(13) & chr(10)) + 4 Else lngBeginPos = lngEndFileName End if lngEndPos = len(strData) 'Calculate the file size. lngDataLenth = lngEndPos - lngBeginPos 'Get the file data strFileData = mid(strData, lngBeginPos, lngDataLenth) 'Create the file. Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(server.mappath(ImageDir) & "/" & FileName, ForWriting, True) f.Write strFileData Set f = nothing Set fso = nothing lngNumberUploaded = lngNumberUploaded + 1 End if lngCurrentBegin = instr(1, strDataWhole, strBoundry) lngCurrentEnd = instr(lngCurrentBegin + 1, strDataWhole, strBoundry) - 1 loop Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile(server.mappath(ImageDir) & "/sil_"& FileName, ForWriting, True) f.Write strFileData Set f = nothing Set fso = nothing IF Session("konu_id")<>"" then set rs2 = server.createobject("adodb.recordset") sql="Select id, image from bolum_name_sub_page where id="&Session("konu_id")&"" rs2.open SQL,Sur,1,3 rs2("image")=""&ImageDir&"/konu_"&Session("konu_id")&".jpg" Session("konu_id") = rs2("id") rs2.update rs2.Close Set rs2 = Nothing ELSE set rs2 = server.createobject("adodb.recordset") sql="Select id, uid, image, cat, user, user_id, ip5, name from bolum_name_sub_page" rs2.open SQL,Sur,1,3 rs2.addnew rs2("uid")=1 rs2("cat")=Session("konu_cat_id") rs2("user")=Session("uye") rs2("user_id")=Session("id") rs2("ip5")=Request.ServerVariables("REMOTE_ADDR") rs2("name")="" rs2("image")=""&ImageDir&"/konu_"&rs2("id")&".jpg" Session("konu_id") = rs2("id") rs2.update rs2.Close Set rs2 = Nothing END IF dim dosyacopy set dosyacopy=CreateObject("Scripting.FileSystemObject") dosyacopy.CopyFile server.mappath(ImageDir) & "/sil_"& FileName &"",server.mappath(ImageDir) & "/konu_"&Session("konu_id")&".jpg",true set dosyasil=CreateObject("Scripting.FileSystemObject") dosyasil.DeleteFile(""&server.mappath(ImageDir) & "/sil_" & FileName &"") dosyasil.DeleteFile(""&server.mappath(ImageDir) & "/" & FileName &"") set dosyasil=nothing Response.write ("<center><br><br><br><img src='images/genel/loading2.gif' border='0'><br><br><b>Resim başarılı bir şekilde yüklendi...</b><br><br><br></center>") if Session("bolum_img")=1 then Response.write ("<meta http-equiv=""Refresh"" content=""1;URL=Forum.asp?page=KONU_EKLE&cat_name=&cat_id="&Session("konu_cat_id")&"&id="&Session("konu_id")&""" />") elseif Session("bolum_img")=2 then Response.write ("<meta http-equiv=""Refresh"" content=""1;URL=konu_ekle.asp?cat_id="&Session("konu_cat_id")&"&isle=2&id="&Session("konu_id")&""" />") end if END IF %> </body> </html> |
|
Arkadaşlar bu sistemin elektrik devresinin start tuşuna basıp taki biz stop tuşuna basıncaya kadar piston çalışmasını istiyoruz elektirik devrisini nasıl düzenleriz arkadaşlar ?? < Resime gitmek için tıklayın > |
|
arkadaslar c++ verileri txt dosyasına yazdırmak istedim ama hata verdi neden acaba arkadaslar ? yazdıgım program bu arkdaslar while hata veriyor arkadaslar ? birde yazdıgım txt dosyasını soyle yazmasını istiyorum x ------------ (a*sin(w*x+aci)) 1--------------- 2 3 ---------------4 gibi arkadaşlar yardımcı olun ? #include <cstdlib> #include <iostream> #include <math.h> #include <fstream> #include <string> using namespace std; int main(int argc, char *argv[]) { ofstream dosya_k; dosya_k. open("D:\\cc. txt"); double a,b,v,w,x,aci; cout <<"konumu gir="; cin >>b; cout <<"hizi gir="; cin >>v; cout <<"aciyi gir="; cin >>w; a=sqrt(pow(b,2)+pow((v/w),2)); aci=atan((b*w)/v); for(x=0;x<=8;x=x+0.08){ cout <<"sonuc="<<(a*sin(w*x+aci))<<endl; dosya_k<<x<<" "<<(a*sin(w*x+aci))<<endl; } ifstream dosya1; dosya1. open("D:\\cc. txt"); while(dosya1>>x>>(a*sin(w*x+aci))) { cout <<x<<" "<<(a*sin(w*x+aci))<<" "<<endl; } dosya1.close(); system("PAUSE"); return EXIT_SUCCESS; } |
|
Arkadaslar solidworks soyle bir hata çıkıyor nasıl düzeltebillirmm.. < Resime gitmek için tıklayın > |